From b7f924954c2bcbec3f5e39ddfa1751f48b8ac278 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
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(+)

(limited to 'lib')

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