#!/usr/bin/perl open(LOGFILE,"/etc/kannel/kannel.conf"); while () { /^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 (); print "$i phones:\n$a"; print "\n$j series:\n$b" if ($j); ritius.dodds.net/debian?h=master' type='application/atom+xml'/>
summaryrefslogtreecommitdiff
path: root/tags/f5/5f/20070301225437.GE17828@mauritius.dodds.net/debian
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2023-06-27 09:35:08 +0200
committerJonas Smedegaard <dr@jones.dk>2023-06-27 09:35:08 +0200
commitfd54908da2b05c526dd3bee9b6dcd093214a220d (patch)
treec69c845069c99d1d01044f6fafda7c08433329c6 /tags/f5/5f/20070301225437.GE17828@mauritius.dodds.net/debian
parentba46132213560cf3335d53560d519c0ec0190da2 (diff)
master
Diffstat (limited to 'tags/f5/5f/20070301225437.GE17828@mauritius.dodds.net/debian')