tracking number
pager number
paging service

##</code><code>##

$datafile = "CheckUPS.in";
open (DATAFILE, $datafile) or die "Input data not found.\n";
while (<DATAFILE>)
{
	$TRACK = $_;
	chomp ($TRACK);
	$pager = $_;
	chomp ($pager);
	$service = $_;
	chomp ($service);
}

print "$TRACK $pager $service\n";

##</code><code>##

# Generate the outgoing notice, and send it
if (!($old eq $new)) {
	open (FILE,">$WORKDIR/$MAILOUT") || die "Could not open file: $!\n";
	print FILE "MSG:\n";
	print FILE "TO:  $pager $service\n";
	print FILE "CONTENTS:  Package ID $TRACK is/was $status to $new\n";
	#print FILE "Status: $status\n";
	#print FILE "Track#: $TRACK\n";
	#print FILE "Old: $old\n";
	#print FILE "New: $new\n";
	print FILE "\n";
	close (FILE);
	if (($PAGER)) {
		$PagerCmd = "echo \"Check UPS Tracking: $TRACK\" | $MAILBIN $PAGER";
		system "$PagerCmd";
	}
	#$MailCmd = "cat $WORKDIR/$MAILOUT | $MAILBIN $EMAILS -s \"UPS Package Tracking: $status\"";
	#system "$MailCmd";
}

##</code><code>##

MSG:
TO:  Airtouch Airtouch
CONTENTS:  Package ID Airtouch is/was   to