#!/usr/bin/perl print "Content-type: text/html\n\n"; use CGI; $cgi=new CGI; $post=$cgi->param("post"); @fields=('cat','title','author','form_data','content'); $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; print "\n"; open(GUEST,"header.htm"); @title=; close(GUEST); print "@title"; print <<"HED"; HED 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; $content=~ s/ / /g; $y=substr($form_data,0,4); $m=substr($form_data,4,2); $d=substr($form_data,6,2); sub showpic { local $form_data=shift; $filename="image/$form_data.jpg"; if(-e $filename) { #$pic= "
"; $pic= ""; } else { $pic=" "; $align="

"; } } &showpic($form_data); $fid=""; for ($i=0;$i"; $str=~ s/$str/$ss/i; } $fid.=$str; } print <<"INF"; $title
当前位置: 首页 > 新闻中心 > $cat > 正文


$title

$y年$m月$d日  $author


$pic$content

INF print ""; print ""; open(GUEST,"footer.htm"); @title=; close(GUEST); print "@title";