Changeset 5adb3d7 for perl


Ignore:
Timestamp:
Jan 9, 2007, 11:33:20 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:
ffe70f9
Parents:
4096d1f
git-author:
Nelson Elhage <nelhage@mit.edu> (01/09/07 15:27:07)
git-committer:
Nelson Elhage <nelhage@mit.edu> (01/09/07 23:33:20)
Message:
Reformatting help somewhat
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    r4096d1f r5adb3d7  
    227227    owl::new_command(
    228228        jabberlogin => \&cmd_login,
    229         { summary => "Log into jabber", }
     229        { summary => "Log into jabber", },
     230        { usage   => "jabberlogin JID" }
    230231    );
    231232    owl::new_command(
     
    253254            description => "jmuc sends jabber commands related to muc.\n\n"
    254255              . "The following commands are available\n\n"
    255               . "join {muc}  Join a muc.\n\n"
    256               . "part [muc]  Part a muc.\n"
     256              . "join MUC    Join a muc.\n\n"
     257              . "part MUC    Part a muc.\n"
    257258              . "            The muc is taken from the current message if not supplied.\n\n"
    258               . "invite {jid} [muc]\n"
     259              . "invite JID MUC\n"
    259260              . "            Invite {jid} to [muc].\n"
    260261              . "            The muc is taken from the current message if not supplied.\n\n"
    261               . "configure [muc]\n"
     262              . "configure MUC\n"
    262263              . "            Configure [muc].\n"
    263               . "            Necessary to initalize a new MUC",
    264             usage => "jmuc {command} {args}"
     264              . "            Necessary to initalize a new MUC\n"
     265              . "            At present, only the default configuration is supported.",
     266            usage => "jmuc COMMAND ARGS"
    265267        }
    266268    );
     
    269271        {
    270272            summary     => "Jabber Roster related commands.",
    271             description => "jroster sends jabber commands related to rosters.\n\n",
    272             usage       => "jroster {command} {args}"
     273            description => "jroster sends jabber commands related to rosters.\n\n",
     274            usage       => "jroster COMMAND ARGS"
    273275        }
    274276    );
     
    350352            my @result = $client->AuthSend( %{ $vars{jlogin_authhash} } );
    351353
    352             if ( $#result == -1 || $result[0] ne 'ok' ) {
    353                 if ( !$vars{jlogin_havepass} && ( $#result == -1 || $result[0] eq '401' ) ) {
     354            if ( ($result[0] || "") ne 'ok' ) {
     355                if ( !$vars{jlogin_havepass} && $result[0] eq '401' ) {
    354356                    $vars{jlogin_havepass} = 1;
    355357                    $conn->removeConnection($jidStr);
Note: See TracChangeset for help on using the changeset viewer.