#!/usr/bin/perl -w
#gettel.pl - poor man's foongrep for dutch telephone numbers 

use strict;
use LWP::Simple;

my $nummer;

sub jammer_hoor {
    print
      "Usage: Specify a dutch telephone number like\ngettel.pl 020-1234567\n";
    exit;
}

if ( $ARGV[0] ) {
    $nummer = $ARGV[0];
}

else {
    jammer_hoor();
}

if ( $nummer !~ m/\b\d{3}-\d{7}\b/ ) {
    jammer_hoor();
}

#get page
my $url  = "http://zoekopnummer.ath.cx/index.php?nummer=$nummer";
my $info = get($url);

#no more newlines!
$info =~ s/\n//g;

#substitute number
$nummer =~ s/-//g;

if ( $info !~ m/Naam:/g ) {
    print "\nNo info found on that number\n";
    exit;
}

for ($info) {

    #filter out all the adds and links
    s/$nummer//g;
    s/<.*?>//g;
    s/\.\.\..*?\.\.\.//g;
    s/\{.*?\}//g;
    s/\(.*?\)//g;
    s/table.*?://gi;
    s/1\ item.*?sp\;//gi;
    s/2\ item.*?sp\;//gi;
    s/\s+/ /g;
    s/Telnr: /\n/g;
    s/Naam: /\n/g;
    s/Adres: /\n/g;
    s/Plaats: /\n/g;
    s/Postcode: /\n/g;
    s/Fax: /\nfax: /g;
}

print $info;