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(-)

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