Файловый менеджер - Редактировать - /usr/share/doc/libnet-xwhois-perl/examples/whois
Назад
#!/usr/bin/perl -s use lib qw(lib/ ../lib); use Net::XWhois; my $whois = new Net::XWhois Domain => shift, Server => $h; if ( $e ) { my @emails = $whois->contact_emails; $" = ", "; print "Contacts: @emails\n"; exit } if ( $n ) { my @emails = $whois->nameservers; $" = ", "; print "Nameservers: @emails\n"; exit } if ( $r ) { my @emails = $whois->registrants; $" = ", "; print "Registrants: @emails\n"; exit } print $whois->response;
| ver. 1.4 |
Github
|
.
| PHP 5.4.45-1~dotdeb+6.1 | Генерация страницы: 0.03 |
proxy
|
phpinfo
|
Настройка