|
#------------#
# 記事表示 #
#------------#
sub log_view {
# リロード時間が設定されていない時は、初期値
if ( $in{'retime'} eq "" ) {
$in{'retime'} = $retime;
}
&header;
# リロード時間をメタタグで設定
if ( $in{'retime'} != 0 ) {
print "<META HTTP-EQUIV=\"refresh\" CONTENT=\"$in{'retime'}; URL=$script?retime=$in{'retime'}\">\n";
}
print "</head>\n$body\n<div align=right>リロード設定:";
if ( $in{'retime'} == 0 ) {
print "手動";
}
else {
print "$in{'retime'}秒";
}
print "</div><hr>\n";
open(IN,"$logfile") || &error("Open Error : $logfile");
while (<IN>) {
($date,$name,$com,$color) = split(/<>/);
print "<font color=\"$color\"><b>$name</b> > $com</font> ($date)$sikiri\n";
}
close(IN);
# 著作権を表示(削除不可)
print "<center><small><!-- $ver -->\n";
print "- <a href='http://www.kent-web.com/' target='_top'>Ponny Chat</a> -\n";
print "</small></center>\n</body></html>\n";
exit;
}
| |