Changeset 6e9e50e for perl

Timestamp:

Nov 13, 2006, 11:06:54 PM (18 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

84296f6

Parents:

d7c2ce6

git-author:

Nelson Elhage <nelhage@mit.edu> (11/13/06 23:06:48)

git-committer:

Nelson Elhage <nelhage@mit.edu> (11/13/06 23:06:54)

Message:

Update to use new N::J MUC features

File:

• perl/modules/jabber.pl (modified) (2 diffs)

perl/modules/jabber.pl

@@ -454 +454 @@
       or die("Usage: jmuc join {muc} [-p password] [-a account]");
 
-    my $x = new XML::Stream::Node('x');
-    $x->put_attrib( xmlns => 'http://jabber.org/protocol/muc' );
-    $x->add_child('history')->put_attrib( maxchars => '0' );
-
-    if ($password) {
-        $x->add_child('password')->add_cdata($password);
-    }
-
     my $presence = new Net::Jabber::Presence;
     $presence->SetPresence( to => $muc );
-    $presence->AddX($x);
+    my $x = $presence->NewChild('http://jabber.org/protocol/muc');
+    $x->AddHistory()->SetMaxChars(0);
+    if ($password) {
+        $x->SetPassword($password);
+    }
+
     $connections->{$jid}->{client}->Send($presence);
 }
@@ -496 +493 @@
     queue_admin_msg("$jid has invited $invite_jid to $muc.");
 }
-
-Net::Jabber::Namespaces::add_ns(
-    ns  => "http://jabber.org/protocol/muc#owner",
-    tag => 'query',
-);
 
 sub jmuc_configure {