Subversion Repositories vgwhois

#!/usr/bin/php
<?php

#
#  VGWhoIs (ViaThinkSoft Global WhoIs, a fork of generic Whois / gwhois)
#  Subprogram: gu TLD whois
#
#  (c) 2013 by Daniel Marschall, ViaThinkSoft <info@daniel-marschall.de>
#
#  License: https://www.gnu.org/licenses/gpl-2.0.html (GPL version 2)
#

# TODO: check if all preg_match() did succeed
# TODO: check if the query did output exactly 1 record.
# TODO: Is there any better way to retrieve the information of a domain without full text search engine?

require_once __DIR__ . '/../../shared/php_includes/common_functions.inc.php';

$domain = isset($argv[1]) ? $argv[1] : '';

$url = 'http://gadao.gov.gu/Scripts/dtSearch/dtisapi.dll';

$post = 'cmd=search&SearchForm=C:\Inetpub\wwwroot\domainsearch_form.htm&request=Domain%20name:%20'.rawurlencode($domain).'&index=C:\dtSearch\BIN\domain&maxFiles=25&stemming=Yes';

$cont = file_get_contents2($url, $post);

if (!preg_match('@target="doc">(.*)\\.htm</A>@ismU', $cont, $m)) {
        echo "Domain $domain not found or the parsing script is outdated.\n";
        exit(1);
}
$a = $m[1];
$url2 = "http://gadao.gov.gu/domain/$a.htm";

preg_match('@<TD align=right>((\\d+)/(\\d+)/(\\d+))</TD>@ismU', $cont, $m);
//$moddate = $m[1];
$month = $m[2];
$day   = $m[3];
$year  = $m[4];
$moddate = date('Y-m-d', mktime(0, 0, 0, $month, $day, $year));

$cont2 = file_get_contents2($url2);
preg_match('@<pre>(.+)</pre>@ismU', $cont2, $m);

echo "Content of $url2 (Last modified: $moddate)\n\n";
echo trim(html_entity_decode($m[1]))."\n";