summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2012-10-13 10:06:18 +0200
committerJonas Smedegaard <dr@jones.dk>2012-10-13 10:06:18 +0200
commitb7f924954c2bcbec3f5e39ddfa1751f48b8ac278 (patch)
tree55b922c6b0f374b5bb93b04e13ee61e99c83e15d
parentde7677e81bce722b8741f805e2bc699c716412d9 (diff)
Add debug of Kannel status.HEADmaster
-rw-r--r--lib/App/smsg/Command/Status.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/App/smsg/Command/Status.pm b/lib/App/smsg/Command/Status.pm
index 22e1823..27e3814 100644
--- a/lib/App/smsg/Command/Status.pm
+++ b/lib/App/smsg/Command/Status.pm
@@ -58,6 +58,11 @@ sub execute {
my $status = $kannel->status();
+ if ($opt->debug) {
+ use Data::Dump;
+ ddx $status;
+ }
+
print $$status{status}."\n";
for my $i ( 0 .. $#{ $$status{smsc} }) {
print $$status{smsc}[$i]{id}.': '.$$status{smsc}[$i]{status}."\n";