1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
# |
# |
3 |
# sms.alert - send an alert via smstools |
# sms.alert - send an alert via smstools available at |
4 |
|
# http://www.isis.de/~s.frings/smstools/ |
5 |
# |
# |
6 |
# based on qpage.alert by Jim Trocki, trockij@transmeta.com |
# based on qpage.alert by Jim Trocki, trockij@transmeta.com |
7 |
# |
# |
8 |
# usage: |
# usage: |
9 |
# sms.alter [-f][-l][-u] 385abxxxxxx |
# sms.alter [-f][-l][-u] 385abxxxxxx|name[ 12345|name...] |
10 |
# |
# |
11 |
# flags: |
# flags: |
12 |
# -u this is upalert |
# -u this is upalert |
55 |
$sms .= "\n$ALERT $opt{g}/$opt{s} $summary ($wday $mon $day $tm)\n"; |
$sms .= "\n$ALERT $opt{g}/$opt{s} $summary ($wday $mon $day $tm)\n"; |
56 |
$sms .= join("\n",@MSG) if $opt{'l'}; |
$sms .= join("\n",@MSG) if $opt{'l'}; |
57 |
|
|
58 |
foreach my $to (@ARGV) { |
foreach my $to (shift @ARGV) { |
59 |
if (open(SMS, "> $sms_outgoing/mon$$")) { |
if (open(SMS, "> $sms_outgoing/mon$$")) { |
60 |
my $phone = $to; |
my $phone = $to; |
61 |
$phone = $name2phone{lc($to)} if ($name2phone{lc($to)}); |
$phone = $name2phone{lc($to)} if ($name2phone{lc($to)}); |