From b7f924954c2bcbec3f5e39ddfa1751f48b8ac278 Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Sat, 13 Oct 2012 10:06:18 +0200 Subject: Add debug of Kannel status. --- lib/App/smsg/Command/Status.pm | 5 +++++ 1 file changed, 5 insertions(+) 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"; -- cgit v1.2.3