metaspinner.de - Tutorial

eines der Wörter alle Wörter genauer Text [Phrase]

 

% Rights restricted by copyright. See http://www.ripe.net/db/dbcopyright.html

domain:      melody.de
descr:       Christoph Berndt
descr:       Roedingsmarkt 25
descr:       D-20459 Hamburg
descr:       Germany
admin-c:     CB1387-RIPE
tech-c:      ES454-RIPE
zone-c:      HD4-RIPE
remarks:     GTI-only domain - wir ham die power
mnt-by:      DE-DOM
changed:     hostmaster\@.de 980223
changed:     hostmaster\@.de 980708
source:      RIPE - wir lassen die Hosen runter!

role:        Hostmaster 
address:      Internet AG
address:     ohne festen Wohnsitz 
address:     Berberlager 12
address:     Germany
phone:       +49 172 4346670
fax-no:      +49 40 37 519 267
e-mail:      hostmaster\@.de
trouble:     Information: http://www..de
trouble:     Questions: mailto:renate\@.de
admin-c:     SS20
tech-c:      SS2ß
tech-c:      
nic-hdl:     HD4-Shit
remarks:     role account for "Hostmaster of the Day"
remarks:     at the german network information center (DENIC)
notify:      sitte\@.de
mnt-by:      DENIC-P
changed:     Hossa\@.de 19971223
changed:     cb\@.de 19981013
changed:     cb\@.de 19981119
changed:     Houssi\@.de 19990104
source:      RIP - Katzenklo

person:      Christoph Berndt
address:     Roedingsmarkt 25
address:     D-20459 Hamburg
address:     Germany
phone:       +49 172 4346670
fax-no:      +49 40 373591
e-mail:      cb\@.de
nic-hdl:     MELODY1387-RIP
mnt-by:      0815-P
changed:     hostmaster\@.de 980707
source:      RIPE

person:      Nordische 
address:     .de
address:     D-20459 Hamburg
address:     Germany
phone:       +49 40 37 45 91
fax-no:      +49 40 37 519 267
e-mail:      cb\@.de
nic-hdl:     ES0815-RIPE
notify:      cb\@.de
mnt-by:      DENIC-Dumpf
changed:     cb\@s.de 0815

source:      RIP - Scherz

Home Web-Site anmelden Support-Forum Meta-Generator
Suchtipps Meta-Whois FAQ History

~; ########################## # DON'T EDIT ANYTHING ELSE use IO::Socket; &pQuery; if ($query{'query'} eq "xxxxxxxxxx.de") { print "Content-type: text/html\n\n"; print $scheisse; return; } if ($query{'query'} eq "xxxxxxxxx.de") { print "Content-type: text/html\n\n"; print $scheisse; return; } if ($query{'query'} eq "") { print "Content-type: text/html\n\n"; print $form_html; } else { &get_data; print "Content-type: text/html\n\n"; print $result_html_top; &print_result; print $result_html_bottom; } sub print_result { foreach $_ (@out) { print $_; } return; } sub pQuery { my($in, @in, $entry, $var, $val); $in = $ENV{'QUERY_STRING'}; @in = split(/\&/, $in); foreach $entry (@in) { $entry =~ s/\+/ /g; ($var, $val) = split(/=/, $entry, 2); $var =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge; $val =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge; $query{$var} = $val; } } sub get_data { $whois_port = "43"; $whois_serv = "whois.internic.net"; $t = $query{'query'}; if ($t !~ /co.uk/i && $t !~ /org.uk/i && $t !~ /net.uk/i && $t !~ /ltd.uk/i && $t !~ /plc.uk/i) { @NICS = split(/\./,$query{'query'}); foreach $_ (@NICS) { $nic = $_; } } else { $whois_serv = "whois.nic.uk"; } if ($nic eq "mil") { $whois_serv = "whois.nic.mil"; } elsif ($nic eq "gov") { $whois_serv = "whois.nic.gov"; } elsif ($nic eq "us") { $whois_serv = "whois.isi.edu"; } elsif ($nic eq "mx") { $whois_serv = "whois.nic.mx"; } elsif ($nic eq "ca") { $whois_serv = "whois.cdnnet.ca"; } elsif ($nic eq "com") { $whois_serv = "whois.networksolutions.com"; } elsif ($nic eq "at") { $whois_serv = "whois.ripe.net"; } elsif ($nic eq "org") { $whois_serv = "whois.networksolutions.com"; } elsif ($nic eq "net") { $whois_serv = "whois.networksolutions.com"; } elsif ($nic eq "uk") { $whois_serv = "whois.ripe.net"; } elsif ($nic eq "dk") { $whois_serv = "whois.ripe.net"; } elsif ($nic eq "de") { $whois_serv = "whois.ripe.net"; } elsif ($nic eq "be") { $whois_serv = "whois.ripe.net"; } elsif ($nic eq "at") { $whois_serv = "whois.ripe.net"; } elsif ($nic eq "cz") { $whois_serv = "whois.ripe.net"; } elsif ($nic eq "fr") { $whois_serv = "whois.nic.fr"; } elsif ($nic eq "ch") { $whois_serv = "whois.nic.ch"; } elsif ($nic eq "au") { $whois_serv = "whois.aunic.net"; } else { $whois_serv = "whois.ripe.net"; } $next = "\015\012"; $socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>$whois_serv,PeerPort=>$whois_port,); unless ($socket) { die "can't connect to $whois_serv" } print $socket "$query{'query'}" . $next; @out = <$socket>; close $remote; return; }