DELTA 453 0 17359
SVN  ›f–~oA® ‡d ¦‡v… •C­~‚ †ÃB jÉU ËAœ „zÌ^€I Ó$€d kÔ{€…U #Ú$¸ >Ü	€y ã7€1 ^Ú% ‚	ì-€„? F„  Ÿî}‚ …(Ž€K ˆF“ package owl_jabber;
use warnings;
use strict;
= 401eq    $jwrite_to = shift @ARGVsub cmd_jmuc
{
	die "You are not logged in to Jabber" unless connected();  => \&jmuc_join,
		part   => \&jmuc_part,
		invite => \&jmuc_invite,
		configure => \&jmuc_configur	return;
	}

	{
		local @ARGV = @_;
		my $jid;
		my $muc;
		my $m = owl::getcurmsg();
		if ($m->is_jabber && $m->{jtype} eq 'groupchat')
		{
			$muc = $m->{room};
			$jid = $m->{to};
		}

		my $getopt = Getopt::Long::Parser->new;
		$getopt->configure('pass_through');
		$getopt->getoptions('account=s' => \$jid);
		$jid ||= defaultJID();
		if($jid) {
			$jid = resolveJID($jid);
			return unless $jid;
		} else {
			owl::error('You must specify an account with -a {jid}');
		}
		return $func->($jid, $muc, @ARGV);
	}
}

sub jmuc_join {
	my ($jid, $muc, @args) = @_;
	local @ARGV = @args;
	my $password;
	GetOptions('password=s' => \$password);

	$muc = shift @ARGV or die("Usage: jmuc join {muc} [-p password] [-a account]");password)
	{
	    $x->add_child('password')->add_cdata($($jid, $muc, @args) = @_;

	$muc = shift @args if scalar @args;
	die("Usage: jmuc part {muc} [-a account]") unless $muc;
($jid, $muc, @args) = @_;

	my $invite_jid = shift @args;
	$muc = shift @args if scalar @args;

	die('Usage: jmuc invite {jid} [muc] [-a account]') unless $muc && $invite_jid;
	Net::Jabber::Namespaces::add_ns(
	ns  => "http://jabber.org/protocol/muc#owner",
	tag => 'query',
       );

sub jmuc_configure {
	my ($jid, $muc, @args) = @_;
	$muc = shift @args if scalar @args;
	die("Usage: jmuc configure [muc]") unless $muc;
	my $iq = Net::Jabber::IQ->new();
	$iq->SetTo($muc);
	$iq->SetType('set');
	my $query = $iq->NewQuery("http://jabber.org/protocol/muc#owner");
	my $x = $query->NewChild("jabber:x:data");
	$x->SetType('submit');

	$connections->{$jid}->{client}->Send($iq);
	queue_admin_msg("Accepted default instant configuration for $muc");
}


mydefaultJID {
	return (keys %$connections)[0]	if (connected() == 1);
	returnENDREP
id: 49.1j.r456/2135
type: file
pred: 49.1j.r453/17384
count: 13
text: 456 0 2110 19326 c1107bedf4883b3a395cfc4beb79c40b
cpath: /trunk/owl/perl/modules/jabber.pl
copyroot: 440 /trunk/owl/perl/modules/jabber.pl

PLAIN
K 9
jabber.pl
V 20
file 49.1j.r456/2135
END
ENDREP
id: 4c.0.r456/2402
type: dir
pred: 4c.0.r453/17652
count: 5
text: 456 2345 44 44 2e6dbf484b9e94b888fb22e6cae91e07
cpath: /trunk/owl/perl/modules
copyroot: 0 /

PLAIN
K 3
lib
V 18
dir 4b.0.r449/1921
K 7
modules
V 18
dir 4c.0.r456/2402
END
ENDREP
id: 4a.0.r456/2647
type: dir
pred: 4a.0.r453/17898
count: 7
text: 456 2562 72 72 7dc4969ff92de8640c5f05a94b9af2e5
cpath: /trunk/owl/perl
copyroot: 0 /

PLAIN
K 9
ChangeLog
V 18
file h.0.r393/2438
K 11
Makefile.in
V 16
file i.0.r436/45
K 4
NEWS
V 16
file j.0.r5/8251
K 6
README
V 20
file 5r.0.r451/18233
K 5
aim.c
V 19
file 22.0.r321/7423
K 9
athstatic
V 20
file 1x.0.r129/52946
K 7
buddy.c
V 20
file 3o.0.r234/19726
K 11
buddylist.c
V 20
file 3d.0.r238/12168
K 5
cmd.c
V 18
file k.0.r405/7146
K 11
codelist.pl
V 19
file l.0.r212/11814
K 10
commands.c
V 17
file m.0.r417/680
K 11
config.h.in
V 17
file n.0.r251/258
K 9
configure
V 20
file o.0.r415/115330
K 12
configure.in
V 20
file p.0.r377/117409
K 9
context.c
V 18
file q.0.r209/8754
K 6
dict.c
V 17
file r.0.r401/921
K 3
doc
V 18
dir 1n.0.r384/1078
K 9
editwin.c
V 18
file s.0.r411/1322
K 14
encapsulate.pl
V 20
file 3l.0.r225/44724
K 10
errqueue.c
V 20
file 3p.0.r242/19206
K 8
examples
V 17
dir 1s.0.r226/477
K 8
filter.c
V 19
file t.0.r387/15117
K 15
filterelement.c
V 18
file u.0.r344/5021
K 8
fmtext.c
V 19
file v.0.r284/13373
K 11
functions.c
V 17
file w.0.r431/290
K 8
global.c
V 18
file x.0.r413/8652
K 6
help.c
V 18
file y.0.r335/4326
K 9
history.c
V 17
file z.0.r283/439
K 10
install.sh
V 19
file 21.0.r122/7916
K 12
keybinding.c
V 19
file 10.0.r389/1527
K 8
keymap.c
V 19
file 11.0.r209/8965
K 10
keypress.c
V 18
file 12.0.r359/996
K 6
keys.c
V 19
file 13.0.r335/3901
K 7
libfaim
V 18
dir 23.0.r394/3911
K 6
list.c
V 19
file 14.0.r175/1020
K 9
logging.c
V 18
file 15.0.r430/975
K 9
mainwin.c
V 19
file 16.0.r263/6375
K 9
message.c
V 18
file 17.0.r419/726
K 13
messagelist.c
V 20
file 18.0.r156/28213
K 13
mkinstalldirs
V 19
file 3v.0.r346/1232
K 11
muxevents.c
V 18
file 3w.0.r359/781
K 5
owl.c
V 19
file 19.0.r439/2364
K 5
owl.h
V 19
file 1a.0.r410/4694
K 6
pair.c
V 18
file 1z.0.r102/270
K 4
perl
V 18
dir 4a.0.r456/2647
K 12
perlconfig.c
V 18
file 3n.0.r454/152
K 11
perlglue.xs
V 19
file 1v.0.r450/8726
K 11
perlwrap.pm
V 18
file 3m.0.r455/342
K 9
popexec.c
V 19
file 3x.0.r364/1658
K 8
popwin.c
V 18
file 1b.0.r373/263
K 7
regex.c
V 20
file 1c.0.r268/16998
K 10
stubgen.pl
V 17
file 1d.0.r5/8659
K 7
style.c
V 19
file 3f.0.r280/1095
K 11
stylefunc.c
V 19
file 3g.0.r368/2138
K 6
test.h
V 19
file 3y.0.r401/1166
K 8
tester.c
V 18
file 1e.0.r356/551
K 6
text.c
V 19
file 1f.0.r363/1473
K 7
timer.c
V 20
file 3e.0.r143/11961
K 6
util.c
V 18
file 1g.0.r401/710
K 10
variable.c
V 18
file 1h.0.r432/858
K 6
view.c
V 20
file 1i.0.r225/43146
K 9
viewwin.c
V 19
file 1j.0.r362/1349
K 12
zbuddylist.c
V 18
file 3u.0.r330/561
K 8
zcrypt.c
V 20
file 1y.0.r219/11682
K 8
zephyr.c
V 18
file 1k.0.r388/498
K 8
zwrite.c
V 19
file 1l.0.r261/1113
END
ENDREP
id: g.0.r456/5356
type: dir
pred: g.0.r455/3115
count: 421
text: 456 2799 2544 2544 46199c8a197a4f48918212d94accbba4
cpath: /trunk/owl
copyroot: 0 /

PLAIN
K 7
CVSROOT
V 16
dir 4.0.r112/895
K 12
conf.asedeno
V 17
dir 3z.0.r446/588
K 3
owl
V 17
dir g.0.r456/5356
END
ENDREP
id: 1.0.r456/5629
type: dir
pred: 1.0.r455/3387
count: 444
text: 456 5506 110 110 2055a93ea55f06c38a4351235512a960
props: 443 0 71 0 11f4655672300d00411e135dfb66ffa8
cpath: /trunk
copyroot: 0 /

PLAIN
K 8
branches
V 17
dir 2.0.r317/7068
K 4
tags
V 16
dir 3.0.r391/435
K 5
trunk
V 17
dir 1.0.r456/5629
END
ENDREP
PLAIN
K 9
svk:merge
V 118
6122c8b4-0e12-0410-9533-8bcd7c66c992:/local/dirty-owl-hacks:23947
6aa88b72-b502-0410-8cb4-a5dd0230fb79:/owl-local:1356
END
ENDREP
id: 0.0.r456/6097
type: dir
pred: 0.0.r455/3855
count: 456
text: 456 5824 104 104 7e888480ad0af2958eec868d2df57b69
props: 456 5941 143 0 389b9500cb96c2f0714601b8cdfa1833
cpath: /
copyroot: 0 /

49.1j.t455-1 modify true false /trunk/owl/perl/modules/jabber.pl

0.0.t455-1 modify false true /


6097 6291
