#!/usr/bin/perl
##日時曜日を取得
$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 = <LOG0>;

# ＪＳファイルを分解
$dd[0] =~ s/cont="//gs;##[cont="]を取る
$dd[0] =~ s/";//gs;##[改行][";]を取る
@dt= split(/,/,"$dd[0]");##曜日別に分割
}else{
##ファイルが無いとき
open(LOG0,">$countfile");
flock(LOG0,2);

@dt= split(/,/,"0,0,0,0,0,0,0,0,9,");##曜日別に分割,
}
#　カウントアップ
$ddm=$dt[$wday];
$ddn=$dt[7];
##曜日が変わったらクリア
if($dt[8] != $wday){
$ddm=0;
}
$dt[$wday]=$ddm+1;##当日に加算
$dt[7]=$ddn+1;
$dt[8]=$wday;
$ddt="$dt[0],$dt[1],$dt[2],$dt[3],$dt[4],$dt[5],$dt[6],$dt[7],$dt[8],";
# ＪＳ録ファイルを更新する
seek (LOG0,0,0);
print LOG0 "cont=\"$ddt\";\n";
flock(LOG0,8);
close(LOG0);
# 終了
exit;