#!/usr/bin/perl #!C:\Perl\bin\perl #新着ログ $data = './data/news.dat'; #画像アップディレクトリ $ImgDir = './data/'; require './library/error.pl'; #エラー表示用 #HTMLヘッダー出力 print "Content-type:text/html\n\n"; print <<"EOH"; BONITA-BONITA 新着情報
EOH open(IN,"$data")||&error("ログデータが開けません：$data"); while(){ ($time,$no,$day,$title,$comment,$new,$tail) = split(/<>/,$_); if($tail){ print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; if($new) { print "\n"; }else{ print "\n"; } print "\n"; print "\n"; print "\n"; print "
$title$day
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
$comment
\n"; }else{ print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; if($new) { print "\n"; }else{ print "\n"; } print "\n"; print "\n"; print "\n"; print "
$title$day
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
$comment
\n"; } } close(IN); print <<"EOH";
EOH