From 686649e23e236198c3c4f2a6a9ac6b6af1fbf1be Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Fri, 12 Oct 2012 22:25:14 +0200
Subject: Implement (crudely simple) status command.
---
lib/App/smsg/Command/Status.pm | 30 ++++++++++++++++++++----------
1 file changed, 20 insertions(+), 10 deletions(-)
(limited to 'lib')
diff --git a/lib/App/smsg/Command/Status.pm b/lib/App/smsg/Command/Status.pm
index f0dfb70..22e1823 100644
--- a/lib/App/smsg/Command/Status.pm
+++ b/lib/App/smsg/Command/Status.pm
@@ -14,7 +14,6 @@ use App::smsg -command;
use namespace::clean;
use NetSDS::Kannel;
-#use Coro;
use constant abstract => q (Check status of platform(s).);
use constant usage_desc => '%c status %o <platform>...';
@@ -25,16 +24,20 @@ DESCRIPTION
use constant opt_spec => (
['kannelserver=s', "the Kannel server to connect to",
{default => 'localhost'}],
- ['kannelport=i', "the Kannel port to connect to",
+ ['kanneladminport=i', "the Kannel admin port to connect to",
+ {default => 13000}],
+ ['kanneladminpasswd=s', "the Kannel admin password to authenticate with",
+ {default => ''}],
+ ['kannelsendsmsport=i', "the Kannel sendsms port to connect to",
{default => 13013}],
- ['kanneluser=s', "the Kannel users to authenticate as",
+ ['kannelsendsmsuser=s', "the Kannel sendsms user to authenticate as",
{default => 'tester'}],
- ['kannelpasswd=s', "the Kannel password to authenticate with",
+ ['kannelsendsmspasswd=s', "the Kannel sendsms password to authenticate with",
{default => 'foobar'}],
['kannelsmsc=s', "the Kannel SMSC to correspond with"],
[],
- ['f|follow', "keep connection open and emit each change of state"],
- [],
+# TODO ['f|follow', "keep connection open and emit each change of state"],
+# [],
# [ 'verbose|v', "print extra stuff"],
[ 'debug', "print debug stuff"],
);
@@ -45,13 +48,20 @@ sub execute {
# 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,
+ admin_url => 'http://' . $opt->kannelserver . ':' . $opt->kanneladminport . '/',
+ admin_passwd => $opt->kanneladminpasswd,
+ sendsms_url => 'http://' . $opt->kannelserver . ':' . $opt->kannelsendsmsport . '/cgi-bin/sendsms',
+ sendsms_user => $opt->kannelsendsmsuser,
+ sendsms_passwd => $opt->kannelsendsmspasswd,
default_smsc => $opt->kannelsmsc,
);
- die 'FIXME: unimplemented!';
+ my $status = $kannel->status();
+
+ print $$status{status}."\n";
+ for my $i ( 0 .. $#{ $$status{smsc} }) {
+ print $$status{smsc}[$i]{id}.': '.$$status{smsc}[$i]{status}."\n";
+ }
}
--
cgit v1.2.3