TcounT Counter Log

#!/usr/local/bin/perl # ###################################################################### ### ### ### CGIカウンター TcounT Ver.4.20 ### [3/3] ログ表示 (tclog.cgi) ### (c) 1996-1999 Takahiro Nishida ### http://www.mytools.net/ ### ### ###################################################################### # ### 変数設定部（詳細は上記ページをご覧下さい） ###################### $basedir = "."; $ext = "cgi"; ### 変数設定部（ここまで）########################################### $logfile="$basedir/tclog.txt"; $verno = "4.20"; print "Content-type: text/html\n\n"; &main; sub main{ open(FILE,"$logfile") || &error; @datas = ; close(FILE); #---------------------------- print <<"EOF"; TcounT Counter Log [管理ページ]

TcounT Counter Log

Powered By TcounT Ver.$verno

EOF #---------------------------- foreach (@datas){ @splits=split("\t"); print ""; foreach $value(@splits){ print ""; } print "\n"; } print "

$value

"; } sub error{ #---------------------------- print <<"EOF"; error!

Error!

$logfile が見つかりません。 EOF #---------------------------- }