[re: dyndns and pump]

Matt Graham danceswithcrows@usa.net
10 Dec 2001 17:37:28 EST


I'm having a really bad attack of idiocy today, as would be obvious to anyone
who tried to run that Perl thing.  Corrected:

#!/usr/bin/perl
# put in /usr/local/sbin/mypumpscript.pl
if($#ARGV == 1){
   print "Interface going down -- Bye!\n";
   exit 0;
   }
($arg1,$arg2,$arg3)=@ARGV;
if($arg1=~/renew/ ) {
   print "DHCP renewal, interface = $arg2 , new IP = $arg3\n";
   }
elsif($arg1=~/lease/ ){
   print "Found lease, interace = $arg2 , IP = $arg3\n";
   }
else { print "This shouldn't happen, arg1 = $arg1.\n"; }

-- 
Matt G / Dances With Crows
There is no Darkness in Eternity/But only Light too dim for us to see
"I backed up my brain to tape, but tar says the tape contains no data...."