boas

alguem me arranja 1 codigo a funcar para ver a disponibilidade de 1 dominio?

thanks

Vê aqui: http://www.iwebtool.com/source_code/whois

10 linhas (Perl, CGI)

#!/usr/bin/perl -wT
use CGI qw/:standard/;
use Net::Whois::Raw;
$Net::Whois::Raw::OMIT_MSG = 2;
$Net::Whois::Raw::CHECK_FAIL = 1;
print header, start_html('WHOIS'), h1('WHOIS'), start_form, q|Domínio / IP: |,
textfield( -name => 'd' ), submit('Verificar'), hr, param('d')
? pre( eval { ( whois( param('d') ) || q|Domínio não existente!| ) }
or do { q|Domínio inválido| })
: q||, end_form, end_html;