Changeset 5adb3d7 for perl

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:

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

perl/modules/jabber.pl

@@ -227 +227 @@
     owl::new_command(
         jabberlogin => \&cmd_login,
-        { summary => "Log into jabber", }
+        { summary => "Log into jabber", },
+        { usage   => "jabberlogin JID" }
     );
     owl::new_command(
@@ -253 +254 @@
             description => "jmuc sends jabber commands related to muc.\n\n"
               . "The following commands are available\n\n"
-              . "join {muc}  Join a muc.\n\n"
-              . "part [muc]  Part a muc.\n"
+              . "join MUC    Join a muc.\n\n"
+              . "part MUC    Part a muc.\n"
               . "            The muc is taken from the current message if not supplied.\n\n"
-              . "invite {jid} [muc]\n"
+              . "invite JID MUC\n"
               . "            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"
-              . "            Necessary to initalize a new MUC",
-            usage => "jmuc {command} {args}"
+              . "            Necessary to initalize a new MUC\n"
+              . "            At present, only the default configuration is supported.",
+            usage => "jmuc COMMAND ARGS"
         }
     );
@@ -269 +271 @@
         {
             summary     => "Jabber Roster related commands.",
-            description => "jroster sends jabber commands related to rosters.\n\n",
-            usage       => "jroster {command} {args}"
+            description => "jroster sends jabber commands related to rosters.\n\n",
+            usage       => "jroster COMMAND ARGS"
         }
     );
@@ -350 +352 @@
             my @result = $client->AuthSend( %{ $vars{jlogin_authhash} } );
 
-            if ( $#result == -1 || $result[0] ne 'ok' ) {
-                if ( !$vars{jlogin_havepass} && ( $#result == -1 || $result[0] eq '401' ) ) {
+            if ( ($result[0] || "") ne 'ok' ) {
+                if ( !$vars{jlogin_havepass} && $result[0] eq '401' ) {
                     $vars{jlogin_havepass} = 1;
                     $conn->removeConnection($jidStr);