投稿の練習
投稿の練習用ページです。ここに書き込まれた内容は、新着情報等には反映されません。また、１日たてば、自動的に消去されます。ご自由に書き込んで、練習してください。
下の「書き込み」というリンクをクリックしてください。

#!/usr/local/bin/perl use Time::Local; $newmark = ''; $newdates=2; $time=time; open IN,"message.idx"; print "content-type: text/html\n\n"; while(){ @fields=split(/:=:/); $subject=$fields[1]; $url=""; if($subject=~s/^//){ $url=""; } ($year,$mon,$day)=split(/\//,$fields[3]); $updatetime=timelocal(0,0,0,$day,$mon-1,$year); if (($time-$updatetime) > $newdates*24*60*60*2) { $newsign = ""; } else { $newsign = "$newmark"; } if(not($fields[0]=~/^\*/)){ print "\n" ; } } close IN;
$url$subject$newsign$fields[2]