1,7 → 1,7 |
#!/usr/bin/perl |
|
# |
# VWhois (ViaThinkSoft WHOIS, a fork of generic Whois / gwhois) |
# VGWhoIs (ViaThinkSoft Global WhoIs, a fork of generic Whois / gwhois) |
# Subprogram: pe TLD whois |
# |
# (c) 2015 by Daniel Marschall, ViaThinkSoft <info@daniel-marschall.de> |
15,7 → 15,7 |
|
use FindBin; |
use lib "$FindBin::RealBin/../lib/"; |
use GWhoIs::Core; |
use VGWhoIs::Core; |
|
if (defined $ARGV[0]) { |
$_ = join(' ', @ARGV); |
30,11 → 30,11 |
my $host = "http://www.nic.pe/rpublicac-i.php?txtbuscar=$query&radopcion=D"; # TODO: https? |
my $additional = "(detpublic-i.php.*?)'"; |
|
my ($protocol, $hostname) = GWhoIs::Utils::splitProtocolHost($host); |
my ($protocol, $hostname) = VGWhoIs::Utils::splitProtocolHost($host); |
|
#print "Querying $hostname with $protocol.\n"; |
|
my ($text, $exitcode) = GWhoIs::Core::wwwsgrep($host,$additional); |
my ($text, $exitcode) = VGWhoIs::Core::wwwsgrep($host,$additional); |
if ($exitcode) { |
# print STDERR "Query to web server failed.\n"; |
print $text; |
43,7 → 43,7 |
|
if ($text ne '') { |
print "Match found. Now querying for the domain data.\n\n"; |
($text, $exitcode) = GWhoIs::Core::doquery($query,'cgi',"$protocol://$hostname/$text", ''); |
($text, $exitcode) = VGWhoIs::Core::doquery($query,'cgi',"$protocol://$hostname/$text", ''); |
print $text; |
} else { |
print "No match found. This probably means that this domain does not exist.\n"; |