#!/usr/bin/perl -w
use LWP::Simple;
print "ups tracker v.0.01 - by Stefan Bauer\n\n";
unless (defined $ARGV[0]) {

print "Aufruf mit ups-tracker.pl tracking-nummer\n";
exit;
}

@range = (75000900..75000999);
foreach (@range) {
my ($versandort, $ort, $privbusiness, $string, $versandart, $empfaenger, $hausnummer, $strasse) = (undef);
$tracking_id = "1Z" . "02836A" . "68" . "$_";
 
my $url = 'http://wwwapps.ups.com/WebTracking/processInputRequest?HTMLVersion=5.0&loc=de_DE&Requester=UPSHome&AgreeToTermsAndConditions=yes&ignore=&track.x=65&track.y=10&tracknum=' . $tracking_id;
my $content = get ($url);
if ($content =~ /[zZ]ugestellt/) {
$content =~ m!lineData" value="(.*?)%.*?5E([A-Za-z\+,]{3,25}.*?)%.*?5E([A-Za-z.]{3,25})%.*?5E([A-Za-z]{3,25})%.*?5E([A-Za-z\+]{3,25}.*?)%.*?5E([A-Za-z]{3,25}.*?)%.*?5E([0-9A-Za-z]{1,20})\+(.*?)%5E!sm;

output($1,$2,$3,$4,$5,$6,$7,$8);


sub output {
my ($versandort, $ort, $privbusiness, $string, $versandart, $empfaenger, $hausnummer, $strasse) = @_;

for ($strasse){ s/\+/ /g};
print "SENDUNGSTYP:\t\t\t $versandart\n";
print "PRIVAT/GESCHAEFTLICH:\t\t $privbusiness\n";
print "ABSENDERORT:\t\t\t $versandort\n";
print "EMPFAENGER:\t\t\t $empfaenger\n";
print "STRASSE:\t\t\t $strasse\n";
print "HAUSNUMMER:\t\t\t $hausnummer\n";
print "ORT:\t\t\t\t $ort\n";
}
}
}