nsbin/telnrev
Nico Schottelius d3c6e29902 Initial commit
2006-07-20 09:54:37 +02:00

57 lines
1.1 KiB
Perl
Executable file

#!/usr/bin/perl -w
# von Bastian
use strict;
#my $content=site_get ('shure-e2');
#print $content;
#die;
my $bla;
my $num;
if (defined ($ARGV[0])) {
if ($ARGV[0] =~ /^\+49(.*)/) {
$num = "0$1";
} else {
print "Keine Deutsche Nummer!\n";
exit 3;
}
} else {
exit 2;
}
#exit 0;
$bla=site_parse (site_get ($num)); print "(Ö)$bla\n";
#print $content;
#############################
sub site_get {
my $telnumber=$_[0];
my $site='http://www.dasoertliche.de/DB4Web/es/oetb2suche/home.htm?kw_invers='.$telnumber.'&main=Antwort&AKTION=START_INVERS_SUCHE&SEITE=INVERSSUCHE_V&Suchen.x=13&Suchen.y=7&s=2&rg=1&taoid=&si=04122017232940004122017232928003&SKN=0&SEITE=INVERSSUCHE_V&AKTION=START_SUCHE';
use LWP::Simple;
my $content = get("$site");
$content =~ s/\n//g;
$content =~ s/\r//g;
return ($content);
}
sub site_parse {
my $content = $_[0];
my $list = '';
if ($content =~ /Kein Teilnehmer gefunden:/) {
print "Kein Teilnehmer gefunden\n";
exit 1;
} elsif ($content =~ /href="home.htm\?main=Detailansicht[^>]*">([^>]*)</) {
$list = $1;
}
return "$list";
}