From b33708b7bad20a5ced676f80f16188bb523613a6 Mon Sep 17 00:00:00 2001
From: root <root@jones.dk>
Date: Tue, 4 May 2010 12:03:48 +0200
Subject: Add/update sms- and Kannel-related scripts.

---
 localshowkannelstatus | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 localshowkannelstatus

(limited to 'localshowkannelstatus')

diff --git a/localshowkannelstatus b/localshowkannelstatus
new file mode 100755
index 0000000..544e4de
--- /dev/null
+++ b/localshowkannelstatus
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+open(LOGFILE,"/etc/kannel/kannel.conf");
+while (<LOGFILE>) {
+	/^smsc-id\h+=\h+(\S+)/ && do {
+		$smsc=$1
+	};
+	/^my-number\h+=\h+\+?(45)?(\S+)/ && do {
+		$i++;
+		$a .= "$2 ($smsc)\n"
+	}
+};
+
+open(PS,"ps ax|");
+do {
+	/perl\s.*markdown2sms.*sms\s*\+?(45)?(\d+)\s+\b(\S+)/ && do {
+		$j++; $b .= "$2: $3\n";
+	};
+} while (<PS>);
+
+print "$i phones:\n$a";
+print "\n$j series:\n$b" if ($j);
-- 
cgit v1.2.3