/[mon-modules]/sms.alert
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /sms.alert

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by dpavlin, Mon Jan 13 16:04:11 2003 UTC revision 1.3 by dpavlin, Tue Feb 4 15:39:44 2003 UTC
# Line 1  Line 1 
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
# Line 54  $sms .= "Flash: yes\n" if $opt{'f'}; Line 55  $sms .= "Flash: yes\n" if $opt{'f'};
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)});

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.26