#!/usr/bin/perl
print "Content-type: text/html\n";
require '../cookie.lib';
if(&GetCookies('user')){
$uuser=$Cookies{'user'};
}
if(&GetCookies('pass')){
$password=$Cookies{'pass'};
}
if ($uuser eq "" or $password eq "") {
print "Location: checkuser.cgi\n\n";
}
print "\n";
open(GUEST,"./header.htm");
@title=;
close(GUEST);
print "@title";
use CGI;
$cgi=new CGI;
$post=$cgi->param("post");
@fields=('cat');
foreach $fields(@fields) {
$$fields=$cgi->param("$fields");
$$fields=~ s/\|//g;
}
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$year=$year+1900;
$month=$mon+1;
$day=$mday;
$month=sprintf("%02d",$month);
$day=sprintf("%02d",$day);
$hour=sprintf("%02d",$hour);
$min=sprintf("%02d",$min);
$sec=sprintf("%02d",$sec);
$dateinput=$year.$month.$day.$hour.$min.$sec;
if ($post){
if (!$cat){
print "你填写的表单有错误";
print "Click the 返回
";
}
else {
$cat=~ s/\n{1,}$//;
$cat=~ s/\s{1,}$//;
$cat=~ s/\r//g;
open (data,">../typ.txt");
print data "$cat\n";
close(data);
print "\n\n
信息修改完成，点击这里返回！
"
}
}
else {
print "\n";
#require './head.cgi';
print "";
print "
";
print "Today is $year-$month-$day";
open (data,"../typ.txt");
while() {$cat.=$_;}
close(data);
print <<"INF";
INF
}
print "";
print "