#!/usr/bin/perl ################################################################################## # # # COPYRIGHT(C) NEWSBOOK LTD # # EMAIL: info@newsbook.net # # HOMEPAGE: http://www.newsbook.net # # # # 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";