localshowkannelstatus



#!/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);