bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

close WEB_DATA when done with it.

Browse source 
Print date on checking line.
New URLs for packages I'm tracking.
This commit is contained in:
Bradley M. Kuhn 2011-05-31 14:53:48 -04:00
parent 541b5c4c36
commit 7cd60b1935
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
ups-watch.plx
View file

@ -24,12 +24,9 @@ use URI::Fetch;
my %URLS = my %URLS =
( (
'http://wwwapps.ups.com/WebTracking/track?HTMLVersion=5.0&loc=en_US&Requester=UPSHome&WBPM_lid=&trackNums=1z53e4830399419110&track.x=Track' 'http://wwwapps.ups.com/WebTracking/processInputRequest?HTMLVersion=5.0&loc=en_US&Requester=UPSHome&tracknum=1ZY0E8910300333129&AgreeToTermsAndConditions=yes&track.x=24&track.y=8'
=> { date => '11/20/2010', time => '1:06 P.M.' }, => { date => '05/31/2011', time => '6:36 A.M.' },
'http://wwwapps.ups.com/WebTracking/track?HTMLVersion=5.0&loc=en_US&Requester=UPSHome&WBPM_lid=&trackNums=1ZW5W5220312162831&track.x=Track' );
=> { date => '11/22/2010', time => '4:24 A.M.' },
'http://wwwapps.ups.com/etracking/tracking.cgi?tracknums_displayed=5&TypeOfInquiryNumber=T&HTMLVersion=4.0&InquiryNumber1=1Z8E5A360395615526&InquiryNumber2=&InquiryNumber3=&InquiryNumber4=&InquiryNumber5=&track.x=50&track.y=3'
=> { date => '11/19/2010', time => '11:39 P.M.' });
my $SLEEP_VAL_SECONDS = 15; my $SLEEP_VAL_SECONDS = 15;
@ -99,8 +96,11 @@ while (1) {
} }
} }
} }
close WEB_DATA;
} }
sleep $SLEEP_VAL_SECONDS; sleep $SLEEP_VAL_SECONDS;
print "Checking...\n"; my $date=`/bin/date`;
chomp $date;
print "Checking (at $date)...\n";
} }