#!/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 = ('日','一','二','三','四','五','六'); ($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"; 域名查詢
網址名稱:
......

　

　

© 資訊網絡有限公司

香港觀塘鴻圖道37-39號鴻泰大廈1樓1室(資訊網絡集團物業)
電話:(852)27820197 傳真:(852)23967073 電郵: 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'}"; $ifhkdnr=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 = "You must type a domain (eg. newsbook) to search."; &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

　

　

© 資訊網絡有限公司

香港觀塘鴻圖道37-39號鴻泰大廈1樓1室(資訊網絡集團物業)
電話:(852)27820197 傳真:(852)23967073 電郵: 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="無效的查詢,或者
\n"; $av=$av."註冊機構伺服器繁忙! 請稍後再試!\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

© 資訊網絡有限公司

香港觀塘鴻圖道37-39號鴻泰大廈1樓1室(資訊網絡集團物業)
電話:(852)27820197 傳真:(852)23967073 電郵: info\@newsbook.net
DDD exit; }