QPON週間カウンターの設置方法
CGIの作成
次のソースをコピーしメモ帳などのエディタに貼り付ける
このボタンをクリックするとコピーできます
#!/usr/bin/perl ##$week_flg=$ENV{'QUERY_STRING'}; ##今日初めて $week_flg="1";##毎回カウント ##日時曜日を取得 $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time); $dday=($wday+1)%7; # 記録ファイルから読み込み $countfile="./week.js"; if(-e $countfile){ ##ファイルがあれば open(LOG0,"+<$countfile"); flock(LOG0,2); @dd =
; # JSファイルを分解 $dd[0] =~ s/cont="//gs;##[改行]["][;]を取る @dt= split(/,/,"$dd[0]");##曜日別に分割 }else{ ##ファイルが無いとき open(LOG0,">$countfile"); flock(LOG0,2); @dt= split(/,/,"0,0,0,0,0,0,0,0,9,");##曜日別に分割, } @dy=split(/,/,"日,月,火,水,木,金,土,累計"); # カウントアップ $ddm=$dt[$wday]; $ddn=$dt[7]; ##曜日が変わったらクリア if($dt[8] != $wday){ $ddm=0; } $dt[$wday]=$ddm+$week_flg;##当日に加算 $dt[7]=$ddn+$week_flg; $dt[8]=$wday; $ddt="$dt[0],$dt[1],$dt[2],$dt[3],$dt[4],$dt[5],$dt[6],$dt[7],$dt[8],"; # JS録ファイルを更新する seek (LOG0,0,0); print LOG0 "cont=\"$ddt\"\;\n"; flock(LOG0,8); close(LOG0); ###HTML出力### print "Content-type: text/html\n"; print "\n\n"; print <
$dy[$dday%7]
$dy[($dday+1)%7]
$dy[($dday+2)%7]
$dy[($dday+3)%7]
$dy[($dday+4)%7]
$dy[($dday+5)%7]
$dy[($dday+6)%7]
$dt[$dday%7]
$dt[($dday+1)%7]
$dt[($dday+2)%7]
$dt[($dday+3)%7]
$dt[($dday+4)%7]
$dt[($dday+5)%7]
$dt[($dday+6)%7]
累計:$dt[7]