Font
[thread]5842[/thread]

domainabfrage mit perl: wie unterscheide ich ob frei oder nicht



<< |< 1 2 >| >> 14 entries, 2 pages
talis
 2003-10-21 15:11
#66224 #66224
User since
2003-09-19
4 articles
BenutzerIn
[default_avatar]
Hallo,

ich suche ein Perlskript, welches folgendes kann:
Abfrage, ob eine de, com, net, org vergeben ist, nun habe ich einige whois programme mir angesehen, wie erfahre ich denn wenn nun die domain nicht vergeben ist. Gibt es da schon ein fertiges Skript? Kennt jemand eins?

talis
Crian
 2003-10-21 15:14
#66225 #66225
User since
2003-08-04
5840 articles
ModeratorIn
[Homepage]
user image
Also mit Abtesten der Erreichbarkeit der Seite ist es auf jeden Fall nicht getan. Ev. könntest Du eine Anfrage an DENIC schicken (per Skript) und die Antwort irgendwie auswerten...
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
havi
 2003-10-21 15:15
#66226 #66226
User since
2003-08-04
2036 articles
BenutzerIn
[Homepage]
user image
Warum mit Perl ?

www.nic.(at)(de)(usw.)

Gruss
Crian
 2003-10-21 15:18
#66227 #66227
User since
2003-08-04
5840 articles
ModeratorIn
[Homepage]
user image
Ich schätze Mal, er möchte das als Service auf einer Seite anbieten, da reicht ein einmaligfes Nachsehen nicht aus, da brauchts dann ein Skript.

*wildevermutungenanstell*
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
[E|B]
 2003-10-21 15:41
#66228 #66228
User since
2003-08-08
2561 articles
HausmeisterIn
[Homepage] [default_avatar]
Hi!
Schau mal auf CGI-World.de:
http://www.cgi-world.de/cgi-bin....incheck
Zum Testen, hier klicken:
http://ebdomaincheck.cgi-world.de
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]
betterworld
 2003-10-21 16:11
#66229 #66229
User since
2003-08-21
2613 articles
ModeratorIn

user image
print "$_ gibt es".(gethostbyname($_)?"":" nicht") for qw/perl-community.de web.de uxdravil.com wau/

Ausgabe:

perl-community.de gibt es
web.de gibt es
uxdravil.com gibt es nicht
wau gibt es nicht

Problem: Wenn mit der Domain kein Hostname identifiziert ist (z.B. weil der Rechner www.domain.x und nicht nur domain.x heisst), koennte gethostbyname auch falsch sein. Ich weiss, dass es solche Faelle gibt, mir faellt nur gerade keiner ein, daher kann ich es nicht testen.\n\n

<!--EDIT|betterworld|1066738392-->
esskar
 2003-10-21 16:16
#66230 #66230
User since
2003-08-04
7321 articles
ModeratorIn

user image
man ist besser beraten, die nic's zu prüfen...
daher scheint EB's Lösung die beste... hab mir zwar nicht angeschaut, wie er es macht... deutet aber alles daruf hin, dass es richtig ist!
esskar
 2003-10-21 16:20
#66231 #66231
User since
2003-08-04
7321 articles
ModeratorIn

user image
@eb: hab dir gerade ne mail an webmaster@cgi-world.de geschickt!
[E|B]
 2003-10-21 16:22
#66232 #66232
User since
2003-08-08
2561 articles
HausmeisterIn
[Homepage] [default_avatar]
Es sind mehrere WHOIS Server gespeichert, über die das Script dann prüft. Geht natürlich nur auf *nix Systemen.
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]
[E|B]
 2003-10-21 16:27
#66233 #66233
User since
2003-08-08
2561 articles
HausmeisterIn
[Homepage] [default_avatar]
[quote=esskar,21.10.2003, 14:20]@eb: hab dir gerade ne mail an webmaster@cgi-world.de geschickt![/quote]
Antwort ist schon da! :D
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]
<< |< 1 2 >| >> 14 entries, 2 pages



View all threads created 2003-10-21 15:11.