phpWhois.org/chnic.whois

<?
/*
Whois2.php	PHP classes to conduct whois queries

Copyright (C)1999,2000 easyDNS Technologies Inc. & Mark Jeftovic 

Maintained by Mark Jeftovic <markjr@easydns.com>

For the most recent version of this package: 

http://www.easydns.com/~markjr/whois2/

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
*/

/* chnic.whois	1.1	David Saez Padros <david@ols.es>  For .ch & .li domains */
/*  8/1/2002    1.2     Added status (active/inactive) and corrected error */
/*                      for inactive domains */
/*                      (like creart.ch) thanx to Roger Fichmann */
/* 24/7/2002    2.0     David Saez - updated to new object model */
/* 17/3/2003    2.1     David Saez - rewritten to use generic3.whois */

require_once("generic3.whois");

if(!defined("__CHNIC_HANDLER__")) define("__CHNIC_HANDLER__",1);

class chnic extends Whois {

function chnic($data) 
{
$this->result=$this->parse($data);
}

function parse ($data_str) 
{

$items=array( "owner" 		   => "Holder of domain name:",
              "domain.name"        => "Domain name:",
              "domain.created"     => "Date of last registration:",
              "domain.changed"     => "Date of last modification:",
	      "tech"		   => "Technical contact:",
	      "domain.nserver"     => "Name servers:" 
            );


$r["rawdata"]=$data_str["rawdata"];

$r["regrinfo"] = get_blocks($data_str["rawdata"],$items);

if (!empty($r["regrinfo"]["domain"]["name"])) { 

	$r["regrinfo"]["owner"] = get_contact($r["regrinfo"]["owner"]);
        $r["regrinfo"]["tech"] = get_contact($r["regrinfo"]["tech"]);
	
	$r["regrinfo"]["domain"]["name"]=$r["regrinfo"]["domain"]["name"][0];
	$r["regrinfo"]["domain"]["changed"]=$r["regrinfo"]["domain"]["changed"][0];
	$r["regrinfo"]["domain"]["created"]=$r["regrinfo"]["domain"]["created"][0];

 	$r["regyinfo"]=array("whois"=>"whois.nic.ch","referrer"=>"www.nic.ch",
                          "registrar"=>"SWITCH Domain Name Registration");
	$r["regrinfo"]["registered"]="yes";
}
else { $r="";
       $r["regrinfo"]["registered"]="no";
     }

return($r);
}

}