#!/usr/bin/perl
#
# Fedex Stalker v1.0
# David Mcanulty (dave@hellspark.com)
# This program is written as an example of an automated package tracker.
# It takes the package number and checks status every 10 minutes.
# It is for educational purposes only and should not be used!
# I am not sure if it is legal to use or not. Don't run it!
# Although I would NEVER use this program or violate fedex.com policy
# I am sure that if you ran it, it WOULD work.
# For more legalise check: http://www.fedex.com/legal/?link=5
# It dosn't showup correctly in my browser so i can't read it.


print "Fedex Stalker v1.0 (dave\@hellspark.com)\n";

# Get tracking # from command line or interactive
if ($#ARGV+1) {
        $tracknumber = $ARGV[0];
} else {
        print "Please enter Fedex Tracking Number: ";
        $tracknumber = <STDIN>;
}

chomp($tracknumber);
print "Stalking Package: $tracknumber";

while (1) {
	print ".";		#let em know its working
	$newfetch = `wget -q -O - "http://www.fedex.com/cgi-bin/tracking?action=track&tracknumbers=$tracknumber" |grep -A4 "Date/Time" |tail -1`;
	if ($newfetch ne $oldfetch) {
		 $output = $newfetch;
		 my $regex = '<TD BGCOLOR="#FFFFFF" CLASS="resultstable">';
		 $output =~ s/$regex//g;
		 $output =~ s/\<\/TD\>//g;
		 $response = system("xmessage -nearmouse -buttons \"Continue Stalking:0\",\"quit:1\" \"$output\" ");
		 if ($response) {
			exit;
		 }
		 $oldfetch = $newfetch;
	}
	sleep 720;		#please don't set below this value 720s=10m
}