Changeset d9f4a5c for perl

Timestamp:

Nov 10, 2006, 1:13:37 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:

005562f

Parents:

b405ff6

git-author:

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

git-committer:

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

Message:

Refactoring jmuc_invite slightly

File:

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

perl/modules/jabber.pl

@@ -146 +146 @@
               . "            Invite {jid} to [muc].\n"
               . "            The muc is taken from the current message if not supplied.\n\n"
-              . "configure [muc]\n" "            Configure [muc].\n"
+              . "configure [muc]\n"
+              . "            Configure [muc].\n"
               . "            Necessary to initalize a new MUC",
             usage => "jmuc {command} {args}"
@@ -487 +488 @@
       unless $muc && $invite_jid;
 
-    my $x = new XML::Stream::Node('x');
-    $x->put_attrib( xmlns => 'http://jabber.org/protocol/muc#user' );
-    $x->add_child('invite')->put_attrib( to => $invite_jid );
-
-    my $message = new Net::Jabber::Message;
+    my $message = Net::Jabber::Message->new();
     $message->SetTo($muc);
-    $message->AddX($x);
+    my $x = $message->NewChild('http://jabber.org/protocol/muc#user');
+    $x->AddInvite();
+    $x->GetInvite()->SetTo($invite_jid);
     $connections->{$jid}->{client}->Send($message);
     queue_admin_msg("$jid has invited $invite_jid to $muc.");