diff options
Diffstat (limited to 'lib/App')
| -rw-r--r-- | lib/App/smsg/Command/Talk.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/App/smsg/Command/Talk.pm b/lib/App/smsg/Command/Talk.pm index 636633f..cffdaa5 100644 --- a/lib/App/smsg/Command/Talk.pm +++ b/lib/App/smsg/Command/Talk.pm @@ -23,12 +23,13 @@ use AnyEvent::XMPP::Util qw/node_jid res_jid/; use NetSDS::Kannel; #use Coro; -sub abstract { 'respond (stupidly simple) when addressed in a Jabber MUC' } - -sub usage_desc { '%c talk %o <jid> <password> <talkfile> [<room>]' } - -sub opt_spec { - return ( +use constant abstract => q (Respond (stupidly simple) when addressed in a Jabber MUC.); +use constant usage_desc => '%c talk %o <jid> <password> <talkfile> [<room>]'; +use constant description => <<'DESCRIPTION'; +Connect to a Jabber MUC (a.k.a. chatroom) and emit a (silly) reply to +each message posted which starts with bot name and a colon. +DESCRIPTION +use constant opt_spec => ( ['kannelserver=s', "the Kannel server to connect to", {default => 'localhost'}], ['kannelport=i', "the Kannel port to connect to", @@ -41,8 +42,7 @@ sub opt_spec { [], # [ 'verbose|v', "print extra stuff"], [ 'debug', "print debug stuff"], - ); -} +); sub validate_args { my ($self, $opt, $args) = @_; |