summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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";