--- dk-whois Fri Jan 18 14:44:44 2002 +++ dk-whois.current Fri Jan 18 14:44:44 2002 @@ -7,7 +7,7 @@ use LWP; my $browser; -my $url = "http://www.dk-hostmaster.dk/perl/Whois.pl?lang=da&query="; +my $url = "http://www.dk-hostmaster.dk/script/whois.php?&lang=eng&query="; my $webdoc; my $dom; my $sendurl; @@ -24,10 +24,14 @@ $webdoc = $browser->request(HTTP::Request->new(GET => $sendurl)); if($webdoc->is_success) { $content = $webdoc->content; + $content =~ s/\ \;/ /g; + $content =~ s/