Add more debug at sendsms execution.

1 files changed, 3 insertions, 1 deletions

diff --git a/localmarkdown2sms b/localmarkdown2sms
index 163e732..ac8e699 100755
--- a/localmarkdown2sms
+++ b/localmarkdown2sms
@@ -130,10 +130,12 @@ sub sendmsg {
 	my ($phone, $desc, $msg) = @_;
 
 	unless ($DUMMY) {
+		print STDERR "Exec'ing \"...sendsms $phone ...\"\n" if ($DEBUG);
+		system {'/usr/share/kannel/contrib/sendsms' } $phone, $msg;
 		system {'/usr/share/kannel/contrib/sendsms' } $phone, $msg;
 		print STDERR "Done $desc\n" if ($DEBUG);
 	} else {
-		print STDERR "\n --> $desc\n";
+		print STDERR "\n --> $phone: $desc\n";
 		print STDERR $msg . "\n";
 	}
 }