#!/usr/bin/perl ################################################################################## # # # COPYRIGHT(C) COLIN TAM (AH PING) # # EMAIL: ping@ping.com.hk # # HOMEPAGE: http://www.ping.com.hk # # # # THIS FILE WRITTEN ON 25/02/1999 AT 13:00 BY AH PING # # # ################################################################################## require "cgi-lib.cgi"; &ReadParse(*input); @months = ('1','2','3','4','5','6','7','8','9','10','11','12'); @days = ('sun','1','2','3','4','5','6'); ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec); $year += 1900; $date = "$days[$wday],$year$months[$mon]$mday($time)"; print "Content-type: text/html\n\n"; if ($input{'domain'} eq "Check") { ✓ } print <<"DOMAIN"; 域名查询 域名查询 域名查询
网址名称:
......

　

　

C 资讯网络有限公司

香港观塘鸿图道37-39号鸿泰大厦1楼1室(资讯网络集团物业)
电话:(852)27820197 传真:(852)23799326 电邮: info\@newsbook.net
DOMAIN exit; sub check { $whois = "/usr/bin/jwhois"; $input{'intended_domain_name'} =~ s/\"/\"\;/g; $input{'intended_domain_name'} =~ tr/A-Z/a-z/; $input{'intended_domain_name'} =~ s/^www\.//; $input{'intended_domain_name'} =~ s/,$//g; $input{'intended_domain_name'} =~ s/\;//g; $input{'intended_domain_name'} =~ s/,,+/,/g; $input{'intended_domain_name'} =~ s/^,//g; $input{'intended_domain_name'} =~ s/\.(net|org|com|com\.hk|org\.hk|net\.hk|edu\.hk)$//g; $search = "$input{'intended_domain_name'}\.$input{'type'}"; $ishkdnr=0; if ($input{'type'} eq "com") { $who = "$whois $search"; } if ($input{'type'} eq "net") { $who = "$whois $search"; } if ($input{'type'} eq "org") { $who = "$whois $search"; } if ($input{'type'} eq "com\.hk") { $ishkdnr=1; $who = "$whois $search\@whois.hkdnr.net.hk"; } if ($input{'type'} eq "org\.hk") { $ishkdnr=1; $who = "$whois $search\@whois.hkdnr.net.hk"; } if ($input{'type'} eq "net\.hk") { $ishkdnr=1; $who = "$whois $search\@whois.hkdnr.net.hk"; } if ($input{'type'} eq "edu\.hk") { $ishkdnr=1; $who = "$whois $search\@whois.hkdnr.net.hk"; } if ($ENV{'REMOTE_USER'} != 0) { $newREMOTE_USER = $ENV{'REMOTE_USER'}; } else { $newREMOTE_USER = "Turned Off"; } if ($search =~ /@/i) { $searched = "mailto:$search"; } else { $searched = "http://www.$search"; } if (defined($input{'domain'})) { if ($search =~ /^([-\@\w.]+)$/) { $search = $1; $result = `$who`; } } if ($input{'intended_domain_name'} eq "") { $error = "必须填写你想查询的域名(例如: newsbook)."; &back; } sub back { 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 <<"DD"; 域名查询 域名查询 域名查询
网址名称:
......$error

　

　

C 资讯网络有限公司

香港观塘鸿图道37-39号鸿泰大厦1楼1室(资讯网络集团物业)
电话:(852)27820197 传真:(852)23799326 电邮: info\@newsbook.net
DD exit; } if($ishkdnr==0) { $av = "$input{'intended_domain_name'}\.$input{'type'} 已被申请."; $result =~ s/\[[^>]+\]{1}//g; foreach ($result) { if ($_ =~ /No match for/i) { $av = "$input{'intended_domain_name'}\.$input{'type'} 可接受申请."; } if ($_ =~ /\% Your search returns no relevent records/i) { $av = "$input{'intended_domain_name'}\.$input{'type'} 可接受申请."; } } } 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"; 域名查询 域名查询 域名查询
网址名称:

$av

©1998-2004资讯网络有限公司

香港观塘鸿图道37-39号鸿泰大厦1楼1室(资讯网络集团物业)
电话:(852)27820197 传真:(852)23799326 电邮: info\@newsbook.net
DDD exit; }