#!/usr/bin/perl -w 
# License: GPL2
# Author:
# Ulrich Dangel <uli@spamt.net>

use strict;
use LWP;

# Http Timeout in seconds
my $http_timeout=4;


if ($#ARGV != 0) {
    print "Usage: $0 \"Tel. Nr\"\n";
    exit(1);
}
print lookupTel($ARGV[0]) . "\n";


sub lookupTel {
    my $tel_nr = shift;
    my $ua = LWP::UserAgent->new;
    $ua->agent('Mozilla/5.0');
    $ua->timeout($http_timeout);

    my $req = HTTP::Request->new(GET=> 
        "http://www.goyellow.de/inverssuche/?TEL=$tel_nr");

    my $res = $ua->request($req);

    if ($res->is_success) {
         if ($res->content =~/.*Detailinformationen zu (.*) in.*/)  {
            return $1;
        }
    }
    return $tel_nr;
}