--- 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/\&nbsp\;/ /g;
+		    $content =~ s/<title>/<title/g;
+		    $content =~ s/<\/title>/title>/g;
 		    $content =~ s/<([^\0]*?)>//g;
 		    $content =~ s/^\s+//g;
 		    $content =~ s/\s+$//g;
 		    $content =~ s/^$//g;
+		    $content =~ s/\n[^\n]*\z//; 
 			print STDOUT "$content\n";
 		} else {
 			print STDERR "$0: Could not fetch $url\n";