Changeset 0ad0e97 for perl


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    r0a3f04d r0ad0e97  
    346346        jabberlogin => \&cmd_login,
    347347        { summary => "Log into jabber", },
    348         { usage   => "jabberlogin JID" }
     348        { usage   => "jabberlogin JID [PASSWORD]" }
    349349    );
    350350    BarnOwl::new_command(
     
    399399    my $jid = new Net::XMPP::JID;
    400400    $jid->SetJID(shift);
    401 
     401    my $password = undef;
     402    $password = shift if @_;
     403   
    402404    my $uid           = $jid->GetUserID();
    403405    my $componentname = $jid->GetServer();
     
    419421
    420422    $vars{jlogin_jid} = $jidStr;
    421     $vars{jlogin_havepass} = 0;
     423    $vars{jlogin_password} = $password;
    422424    $vars{jlogin_connhash} = {
    423425        hostname      => $server,
     
    431433    };
    432434
    433     return do_login('');
     435    return do_login($password);
    434436}
    435437
Note: See TracChangeset for help on using the changeset viewer.