mon-commit

[Jim T. <tr...@us...>]

Update of /cvsroot/mon/mon/alert.d
In directory sc8-pr-cvs16:/tmp/cvs-serv31786/alert.d

Modified Files:
      Tag: mon-1-2-branch
	snpp.alert 
Log Message:
snpp use strict fix, mon.cgi ack display fix, mon.monitor option fix, nntp -f fix, all from augie

Index: snpp.alert
===================================================================
RCS file: /cvsroot/mon/mon/alert.d/snpp.alert,v
retrieving revision 1.1.1.1
retrieving revision 1.1.1.1.4.1
diff -C2 -d -r1.1.1.1 -r1.1.1.1.4.1
*** snpp.alert	9 Jun 2004 05:18:07 -0000	1.1.1.1
--- snpp.alert	3 May 2007 19:55:36 -0000	1.1.1.1.4.1
***************
*** 26,30 ****
  #
  use strict;
! use vars qw /$opt_g $opt_q $opt_s $opt_t/;
  use Getopt::Std;
  use Net::SNPP;
--- 26,30 ----
  #
  use strict;
! use vars qw /$opt_g $opt_q $opt_s $opt_t $opt_u/;
  use Getopt::Std;
  use Net::SNPP;
***************
*** 32,36 ****
  getopts ("s:g:h:t:l:q:u");
  
! $opt_q ||= 'localhost';
  
  #
--- 32,36 ----
  getopts ("s:g:h:t:l:q:u");
  
! my $opt_q ||= 'localhost';
  
  #
***************
*** 53,57 ****
  my $snpp = Net::SNPP->new ($opt_q) or die;
  
! $ALERT = $opt_u ? "UPALERT" : "ALERT";
  
  $snpp->send ( Pager => [ @ARGV ], Message => "$ALERT $opt_g/$opt_s: $summary ($wday $mon $day $tm)" );
--- 53,57 ----
  my $snpp = Net::SNPP->new ($opt_q) or die;
  
! my $ALERT = $opt_u ? "UPALERT" : "ALERT";
  
  $snpp->send ( Pager => [ @ARGV ], Message => "$ALERT $opt_g/$opt_s: $summary ($wday $mon $day $tm)" );