#!/usr/local/bin/perl
require './jcode.pl';
$imgsrc="./test.png"; #画像ファイル名
$uimgsrc="./test.png"; #打ち止め画像ファイル
$title="Webぱんち!"; #ウィンドウタイトル
$textclr="#000000"; #テキスト色
$bgclr="#FFFFFF"; #背景色
$head="ぱーんち!"; #最初のメッセージ
$logfile="./punchcnt.txt"; #logファイル名 最初は0バイトファイル
print "Content-type: text/html\n\n";
if (open(LOG,">> $logfile")) {
print LOG " ";
close(LOG);
}
$count= -s $logfile;
$countw= $count*5;
$nocountw= (100-$count)*5;
print "\n";
print "
$title\n";
print "\n";
print " \n";
print " $head |
\n";
if ($count > 100){
print "  |
\n";
}else{
print "  |
\n";
}
print "
\n";
print " \n";
print " $count発 | ";
if ($count > 100){
print "打ち止め |
\n";
}else{
print " | | \n";
}
print "
\n";
print "";