diff options
| author | Jonas Smedegaard <dr@jones.dk> | 2012-10-13 10:06:18 +0200 |
|---|---|---|
| committer | Jonas Smedegaard <dr@jones.dk> | 2012-10-13 10:06:18 +0200 |
| commit | b7f924954c2bcbec3f5e39ddfa1751f48b8ac278 (patch) | |
| tree | 55b922c6b0f374b5bb93b04e13ee61e99c83e15d | |
| parent | de7677e81bce722b8741f805e2bc699c716412d9 (diff) | |
| -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"; |