#!/usr/local/bin/perl ############################################# # Script written by Web新撰組 # # Created on: ９５年４月１５日 # # E-MAIL master@web-shinsengumi.com # #saport http://www.web-shinsengumi.com/ # ############################################# print "Content-type: text/html\n\n"; ###########初期設定################################## $data = "./chatlog.dat"; $title = "チャットログ";#タイトルネーム $logmax = 100;#LOG保存件数 $body = "";#バックやテキスト等の色 ##################################################### open(DB,"$data"); @line=; close(DB); @list = reverse(@line); $i = 0; foreach $lines (@list) { $i++; if ($i == $logmax) { last; } push(@new,$lines); } #############HTML出力########## ##sjisの場合は、消して下さい。############# print <<"EOF"; $title $body $title
[ 戻る ]
@new
Web Chat V1.0(sclipt by Web新撰組) EOF exit(0);