[Mon-devel] snpp.alert

[Konstantin 'K. S. <ka...@ep...>]

I had to make the following changes to make snpp.alert work:

--- cvsroot/mon/alert.d/snpp.alert      2004-06-08 22:18:07.000000000 -0700
+++ cvsroot-mine/mon/alert.d/snpp.alert 2005-07-21 19:15:31.000000000 -0700
@@ -25,7 +25,7 @@
 # $Id: snpp.alert,v 1.1.1.1 2004/06/09 05:18:07 trockij Exp $
 #
 use strict;
-use vars qw /$opt_g $opt_q $opt_s $opt_t/;
+use vars qw /$opt_g $opt_q $opt_s $opt_t $opt_h $opt_l $opt_u/;
 use Getopt::Std;
 use Net::SNPP;
 
@@ -52,7 +52,7 @@
 
 my $snpp = Net::SNPP->new ($opt_q) or die;
 
-$ALERT = $opt_u ? "UPALERT" : "ALERT";
+my $ALERT = $opt_u ? "UPALERT" : "ALERT";
 
 $snpp->send ( Pager => [ @ARGV ], Message => "$ALERT $opt_g/$opt_s: $summary ($wday $mon $day $tm)" );
 

-- 
Konstantin 'Kastus' Shchuka
Unix System Administrator
Epocrates Inc.
tel 650.227.1786
fax 650.592.6995