[247] in BarnOwl Developers
[D-O-H] r422 - trunk/conf.asedeno/owl/modules
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:04:05 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: nelhage@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Sun, 29 Oct 2006 11:55:30 -0500 (EST)
Author: nelhage
Date: 2006-10-29 11:55:30 -0500 (Sun, 29 Oct 2006)
New Revision: 422
Modified:
trunk/conf.asedeno/owl/modules/jabber.pl
Log:
Adding some documentation to jabber functions and usage checking in
jwrite
Modified: trunk/conf.asedeno/owl/modules/jabber.pl
===================================================================
--- trunk/conf.asedeno/owl/modules/jabber.pl 2006-10-29 15:00:16 UTC (rev 421)
+++ trunk/conf.asedeno/owl/modules/jabber.pl 2006-10-29 16:55:30 UTC (rev 422)
@@ -53,10 +53,24 @@
### Owl Commands
sub register_owl_commands()
{
- owl::new_command(jabberlogin => \&cmd_login);
- owl::new_command(jabberlogout => \&cmd_logout);
-# owl::new_command(jabberreply => \&cmd_reply);
- owl::new_command(jwrite => \&cmd_jwrite);
+ owl::new_command(
+ jabberlogin => \&cmd_login,
+ { summary => "Log into jabber", }
+ );
+ owl::new_command(
+ jabberlogout => \&cmd_logout,
+ { summary => "Log out of jabber" }
+ );
+
+ # owl::new_command(jabberreply => \&cmd_reply);
+ owl::new_command(
+ jwrite => \&cmd_jwrite,
+ {
+ description => "Send a Jabber Message",
+ usage => "jwrite JID"
+ }
+ );
+
}
sub cmd_login
@@ -134,7 +148,12 @@
# Error here
return;
}
- $jwrite_to = @_[1];
+ $jwrite_to = $_[1];
+ if(!$jwrite_to) {
+ owl::error("Usage: jwrite JID");
+ return;
+ }
+ owl::message("Type your message below. End with a dot on a line by itself. ^C will quit.");
owl::start_edit_win("jwrite ".$jwrite_to, \&process_owl_jwrite);
}
