#!/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','title','author','form_data','content','num'); foreach $fields(@fields) { $$fields=$cgi->param("$fields"); $$fields=~ s/\|//g; } #$content=~ s/\n/
/g; $content=~ s/\n//g; $line=$cgi->param("line"); $dateinputform=$cgi->param("dateinputform"); ($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 eq "修改"){ if (!$title||!$cat){ print "你填写的表单有错误"; print "

Click the 返回

"; } else { $filename=$form_data; $filename=~ s/^.*(\\|\/)//; if($filename ne "") { open(DATA,">../image/$dateinputform.jpg"); read($form_data,$buffer,1024*500); print DATA "$buffer"; close(DATA); } $form_data=$dateinputform; open(data,"../data.txt"); @data=; close (data); @prod=split(/\|/,@data[$line]); $product_old=@prod[1]; foreach $fields (@fields){ push (@row, "$$fields"); } $new_row = join ("\|", @row); @newdata="$new_row"."\|\n"; splice(@data,$line,1,@newdata); $rows=@data; open (data,">../data.txt"); for ($i=0;$i<$rows;$i++) { print data "@data[$i]"; } close(data); print "\n\n

信息修改完成，点击这里返回！

" } } else { print "\n"; #require './head.cgi'; print ""; print "
"; print "Today is $year-$month-$day"; open (data,"../data.txt"); @datas=; close(data); $total=@datas; $row=@datas[$line]; @field=split(/\|/,$row); for($i=0;$i<@field;$i++){ $fff=@fields[$i]; $$fff=$field[$i]; } $content=~ s/
/\n/g; sub showpic { $filename="../image/@field[3].jpg"; if(-e $filename) { $pic= "

"; } else { $pic=""; } } &showpic; $select_typ=&selectindex("../typ",$cat); print <<"INF";

新闻管理>新闻修改

INF } print ""; print ""; open(GUEST,"./footer.htm"); @title=; close(GUEST); print "@title"; #require './foot.cgi'; sub selectindex { local($select_name,$selected)=@_; open(SE,"$select_name.txt"); @sel=; close(SE); undef $result; foreach $info (@sel) { chop($info); $info=~ s/\r|\n//; if($info eq $selected) { $result.="\n";} else { $result.="\n";} } return $result; }