diff options
| -rw-r--r-- | lib/App/smsg/Command/Status.pm | 5 |
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"; |