Hey,
Nichts besonderes, ich benutze das nur nach dem Verbinden mit dem VPN um bei verschiedenen Seiten die Stabilität der Verbindung zu prüfen (Und auf Funktionalität zu prüfen, anhand der angezeigten IP ;) ).
Unten könnt ihr beliebige Seiten einfügen.
Code:use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use LWP::Simple qw(getstore);
$| = 1;
sub procpage {
my $webservice = shift;
my $content;
my $content = content_of($webservice);
if ($content =~ m!(\b(?:\d{1,3}\.){3}\d{1,3}\b)!) {
$result = $1;
} else {
$result = "Failed. Sry.";
}
my $buffer = "\ "x(75-length($webservice)-length($result));
print $webservice.$buffer.$result."\n";
return 0;
}
sub content_of()
{
my $adress = shift;
my $userag = LWP::UserAgent->new(agent => 'IP-Lookup-v1');
my $request = GET $adress;
my $buffer = $userag->request($request);
return $buffer->content;
}
print "\n\n\t\t\t#\ \ IP-Adress-Lookup by Bonkers \ #\n\t\t\t#\ \ Getrieben\ von\ Lust\ und\ Gier\ \ #\n\n\n";
procpage('http://myip.is');
procpage('http://meineipadresse.de/');
procpage('http://www.ip-adress.com/what_is_my_ip/');
procpage('http://decloak.net');
procpage('http://whatismyipaddress.com/');
procpage('http://www.ip-adress.com/');
procpage('http://myip.tsql.de/');
print "\n\n\t\t\t#".("\ "x13)."Done".("\ "x13)."#\n";
