|
|
|
|
|
C 1998 NEWSBOOK LIMITED |
Room 1, 1/F, Hung Tai Bldg, 37-39, Hung To Road, Kwun Tong, Hong Kong (Property of Newsbook Group)
|
| Tel:(852)27820197 |
Fax:(852)23799326 |
E-mail: info\@newsbook.net |
|
|
|
|
DD
exit;
}
if($ishkdnr==0)
{
$av = "
$input{'intended_domain_name'}\.$input{'type'} is already owned.";
$result =~ s/\[[^>]+\]{1}//g;
foreach ($result)
{
if ($_ =~ /No match for/i)
{
$av = "
$input{'intended_domain_name'}\.$input{'type'} is still available.";
}
if ($_ =~ /\% Your search returns no relevent records/i)
{
$av = "
$input{'intended_domain_name'}\.$input{'type'} is still available.";
}
}
}
if($ishkdnr==1)
{
$result =~ s/\[[^>]+\]{1}//g;
$hkdnrflag1=0;
$hkdnrflag2=0;
@result=split("\n",$result);
foreach $hkdnrresult (@result)
{
if ($hkdnrresult=~m/-/)
{
$hkdnrflag1++;
}
if ($hkdnrflag1==1&&$hkdnrflag2==1)
{
$av =$av.$hkdnrresult."
\n";
}
if ($hkdnrresult=~m/-/)
{
$hkdnrflag2++;
}
}
if ( !($av=~m/\S/)|| !($av=~m//) )
{
$av="Invalid Input. Or
\n";
$av=$av."Registrar's server is busy! Please try again later!\n";
}
$av="
".$av."\n";
}
if ($input{'type'} eq "com") { $select01=" selected"; }
if ($input{'type'} eq "com\.hk") { $select02=" selected"; }
if ($input{'type'} eq "net") { $select03=" selected"; }
if ($input{'type'} eq "net\.hk") { $select04=" selected"; }
if ($input{'type'} eq "org") { $select05=" selected"; }
if ($input{'type'} eq "org\.hk") { $select06=" selected"; }
if ($input{'type'} eq "edu\.hk") { $selectedu=" selected"; }
print <<"DDD";
Newsbook Limited
N e w s b o o k L i m i t e d