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 */

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.organization" => "Holder of domain name:",
              "domain.name"        => "Domain name:",
              "domain.created"     => "Date of last registration:",
              "domain.changed"     => "Date of last modification:",
	      "tech.organization"  => "Technical contact:" 
            );


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

$r["regrinfo"]=array();
$r["regrinfo"]["domain"]=array();

while (list($key, $val)=each($data_str["rawdata"])) 
      { $val=trim($val);

        if ($val!="") 
           { if ($val=="Name servers:")
                { while (list($key, $val)=each($data_str["rawdata"]))
                        { $val=trim($val);
                          if ($val=="") break;
			  $parts=explode(" ",$val);
                          $r["regrinfo"]["domain"]["nserver"][]=$parts[0];
                        } 
                  continue;
                }

             reset($items);

             while (list($field, $match)=each($items)) 
                   if (strstr($val,$match))
                      { list($key, $val)=each($data_str["rawdata"]);
			$parts=explode(".",$field);
                        $var="\$r[\"regrinfo\"]";
                        while (list($fn,$mn)=each($parts))
                                if ($mn=="")
                                     $var=$var."[]";
                                else $var=$var."[\"".$mn."\"]";

                        if ($val!="")
                             eval($var."=\"".$val."\";");
                        
                        break;  
                      } 
           }
      }

if (!empty($r["regrinfo"]["domain"]))
   { $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);
}

}