Changeset 0ad0e97 for perl

Timestamp:

Jan 23, 2007, 6:36:41 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:

4d17916

Parents:

0a3f04d

git-author:

Nelson Elhage <nelhage@mit.edu> (01/23/07 18:36:21)

git-committer:

Nelson Elhage <nelhage@mit.edu> (01/23/07 18:36:41)

Message:

jabberlogin accepts a password argument

File:

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

perl/modules/jabber.pl

@@ -346 +346 @@
         jabberlogin => \&cmd_login,
         { summary => "Log into jabber", },
-        { usage   => "jabberlogin JID" }
+        { usage   => "jabberlogin JID [PASSWORD]" }
     );
     BarnOwl::new_command(
@@ -399 +399 @@
     my $jid = new Net::XMPP::JID;
     $jid->SetJID(shift);
-
+    my $password = undef;
+    $password = shift if @_;
+    
     my $uid           = $jid->GetUserID();
     my $componentname = $jid->GetServer();
@@ -419 +421 @@
 
     $vars{jlogin_jid} = $jidStr;
-    $vars{jlogin_havepass} = 0;
+    $vars{jlogin_password} = $password;
     $vars{jlogin_connhash} = {
         hostname      => $server,
@@ -431 +433 @@
     };
 
-    return do_login('');
+    return do_login($password);
 }