Subversion Repositories vgwhois

#!/usr/bin/perl

#

#  VWhois (ViaThinkSoft WHOIS, a fork of generic Whois / gwhois)

#  Subprogram: bm TLD whois

#

#  (c) 2015 by Daniel Marschall, ViaThinkSoft <info@daniel-marschall.de>

#

#  License: https://www.gnu.org/licenses/gpl-2.0.html (GPL version 2)

#

use warnings;

use strict;

use utf8;

use FindBin;

use lib "$FindBin::RealBin/../lib/";

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://207.228.133.14/cgi-bin/lansaweb?procfun+BMWHO+BMWHO2+WHO";

my $host = "http://www.bermudanic.bm/cgi-bin/lansaweb?procfun+BMWHO+BMWHO2+WHO"; # TODO: https?

my ($protocol, $hostname) = GWhoIs::Utils::splitProtocolHost($host);

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

# Get session URL

my ($text, $exitcode) = GWhoIs::Core::wwwsgrep($host,'ACTION="(.*?)"');

if ($exitcode) {

	# print STDERR "Query to web server failed.\n";

	print $text;

	exit $exitcode;

}

# Get lookup

($text, $exitcode) = GWhoIs::Core::doquery($query,'cgipost',"$protocol://$hostname$text",

	"ADOM++++++=$query&_PROCESS=BMWHO+&_FUNCTION=BMWHO2+");

if ($exitcode) {

	# print STDERR "Query to web server failed.\n";

}

# Remove unnecessary stuff

$text =~ s/\[.+\]\s+//g; # image reference

$text =~ s/Sponsored by\s+//g;

print $text;

exit $exitcode;