diff options
Diffstat (limited to 'lib/App/smsg/Command/Talk.pm')
| -rw-r--r-- | lib/App/smsg/Command/Talk.pm | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/lib/App/smsg/Command/Talk.pm b/lib/App/smsg/Command/Talk.pm index cffdaa5..9f853f7 100644 --- a/lib/App/smsg/Command/Talk.pm +++ b/lib/App/smsg/Command/Talk.pm @@ -20,8 +20,6 @@ use AnyEvent::XMPP::Ext::Version; use AnyEvent::XMPP::Ext::MUC; use AnyEvent::XMPP::Namespaces qw/xmpp_ns/; use AnyEvent::XMPP::Util qw/node_jid res_jid/; -use NetSDS::Kannel; -#use Coro; use constant abstract => q (Respond (stupidly simple) when addressed in a Jabber MUC.); use constant usage_desc => '%c talk %o <jid> <password> <talkfile> [<room>]'; @@ -30,16 +28,6 @@ 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", - {default => 13013}], - ['kanneluser=s', "the Kannel users to authenticate as", - {default => 'tester'}], - ['kannelpasswd=s', "the Kannel password to authenticate with", - {default => 'foobar'}], - ['kannelsmsc=s', "the Kannel SMSC to correspond with"], - [], # [ 'verbose|v', "print extra stuff"], [ 'debug', "print debug stuff"], ); @@ -55,15 +43,6 @@ sub execute { my ($jid, $pw, $inputfile, $room) = @$args; -# TODO: support overriding full URL -# TODO: use URI module to construct URL -my $kannel = NetSDS::Kannel->new( - sendsms_url => 'http://' . $opt->kannelserver . ':' . $opt->kannelport . '/cgi-bin/sendsms', - sendsms_user => $opt->kanneluser, - sendsms_passwd => $opt->kannelpasswd, - default_smsc => $opt->kannelsmsc, -); - my @msgs; sub read_messages { |