Domænetester DK

PS. den skal køre på linux/unix server

Prøv at kigger her:
http://www.cdomain.com

De har et produkt som hedder Cdomainfree
Som er gratis. Det kører på unix/nt platform med Perl5.
Du kan selv rette lidt til i koden så den også kan understøtte .dk opslag....Det har jeg gjort. Hvis det er interessant så sig til...

vil du lige fortælle mig hvad jeg skal rette, tror du den kan tilrettes så den kun fortæller hvem der ejer domænet.
renny

Du skal finde dette det kode der står mellem disse to linjer:
___________________________
$root = $domain_fields[$#domain_fields];
___________________________

(Den kode som står mellem disse to koder skal du erstatte med den der står underneden)

______________________________
$ok = 0;
foreach $record (@TLDS) {
    if ($record eq $root) {
        $ok = 1;
____________________________

___________________
Denne kode skal sætte ind mellem de to ovenfornævnte linjer:
___________________


:$ok = 0;
foreach $record (@TLDS) {
    if ($record eq $root) {
        $ok = 1;


#Use InterNIC server
#$server = "rs.internic.net";
#Use the European whois.ripe.net server
#$server = "whois.ripe.net";

# "No match" is showed if domain not available in rs.internic.net
#$nomatch = "No match";
# "No entries" is showed if domain not available in whois.ripe.net
#$nomatch = "No entries";


@TLDS = ("com","net","org","edu","dk");

if($root eq "dk")
    {
    $server = "whois.ripe.net";
    $nomatch = "No entries";
    }

if($root eq "com")
    {
    $server = "rs.internic.net";
    $nomatch = "No match";
    }

if($root eq "net")
    {
    $server = "rs.internic.net";
    $nomatch = "No match";
    }
if($root eq "org")
    {
    $server = "rs.internic.net";
    $nomatch = "No match";
    }
if($root eq "edu")
    {
    $server = "rs.internic.net";
    $nomatch = "No match";
    }



______________________________
Jeg håber du kan forstå min vejledning.

Og ja, koden kan sagtens fortælle hvem der ejer domæne...Det har jeg min til at gøre

Hej rbnstudio

er du sikker på at du ikke har gjort andet, jeg har gjort helt som du beskrev men når jeg søger på et dk navn får jeg en fejlmeddelese

Jeg tror jeg skrev noget forkert til dig
Prøv igen:



$root = $domain_fields[$#domain_fields];
_____________________________________
(Koden der er her efter den ovenstående linje skal erstattes med følgende)
______________________________________

#Use InterNIC server
#$server = "rs.internic.net";
#Use the European whois.ripe.net server
#$server = "whois.ripe.net";

# "No match" is showed if domain not available in rs.internic.net
#$nomatch = "No match";
# "No entries" is showed if domain not available in whois.ripe.net
#$nomatch = "No entries";


@TLDS = ("com","net","org","edu","dk");

if($root eq "dk")
    {
    $server = "whois.ripe.net";
    $nomatch = "No entries";
    }

if($root eq "com")
    {
    $server = "rs.internic.net";
    $nomatch = "No match";
    }

if($root eq "net")
    {
    $server = "rs.internic.net";
    $nomatch = "No match";
    }
if($root eq "org")
    {
    $server = "rs.internic.net";
    $nomatch = "No match";
    }
if($root eq "edu")
    {
    $server = "rs.internic.net";
    $nomatch = "No match";
    }

______________________________
(indsætningen af den ny kode slutter ved den nedenstående linje)
____________________________

$ok = 0;
foreach $record (@TLDS) {
    if ($record eq $root) {
        $ok = 1;
    }



Prøv igen.
Ellers kan du evt. sende den til mig, så skal jeg rette den til.
rbn@stelectric.dk

hvis det er på unix, hvorfor bare ikke lave en $svar = `whois $domain`; ...så skal du nok få et svar...

Hej test43

Skal jeg lave en pl fil med denne kode

renny

her er et simpelt eksempel...
#!/usr/bin/perl
#prøv at skrive dettescript.pl?domænenavn i en browser #

#skaffer info om domænet ved hjælp af whois programmet#
$domaininfo = `whois $ENV{'QUERY_STRING'}`;
# udskriv #
print "content-type:text/html\n\n";
print "Info om domæne: $domaininfo";
#afslut#
exit;

Jeg laver noget selv