Source code of /package/share/subprograms/pe

Last modified: 2015-05-17 20:02:32

Download

#!/usr/bin/perl

#
#  generic Whois - pe subprogram
#
#  (c) 2015 by Daniel Marschall, ViaThinkSoft <www.viathinksoft.de>
#
#  Distribution, usage etc. pp. regulated by the current version of GPL.
#
#
#
# History:
# 2015-05-15  mar   Initial release
#

use warnings;
use strict;
use utf8;

use lib '/usr/share/gwhois/includes/';
use GWhoIs::Core;

if (defined $ARGV[0]) {
        $_ = join(' ', ARGV);
} else {
        # If no parameter is given, await an input from STDIN
        $_ = <>;
        chomp;
}

my $query = $_;

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);

#print "Querying $hostname with $protocol.\n";

my ($text, $exitcode) = GWhoIs::Core::wwwsgrep($host,$additional);
if ($exitcode) {
        # print STDERR "Query to web server failed.\n";
        print $text;
        exit $exitcode;
}

if ($text ne '') {
        print "Match found. Now querying for the domain data.\n\n";
        ($text, $exitcode) = GWhoIs::Core::doquery($query,'cgi',"$protocol://$hostname/$text", '');
        print $text;
} else {
        print "No match found. This probably means that this domain does not exist.\n";
}

if ($exitcode) {
        # print STDERR "Query to web server failed.\n";
}

exit $exitcode;