#! c:/perl/bin/perl
#
# scread.cgi
# シークレットカウンタ（リード）
#
# 1.004 : 11/17/06 : 時間設定を追加
# 1.003 : 11/11/06 : chmodを修正
# 1.002 : 10/19/06 : Content-Type表示をsccnt.cgiに追加
# 1.001 : 7/27/06 : chompを修正
# 1.00 : 7/21/06 : Created
#
# http://www.hidekik.com/
#
# $Id: scread.cgi,v 1.3 2006/10/18 15:45:32 Hideki Kanayama Exp $
# Copyright(c) 2005-2006, Hideki Kanayama, All Rights Reserved.

use strict;
use CGI::Carp qw(fatalsToBrowser);

# カウントログファイル
my $countfile = "count.log";

# 表示フォーマット
my $format = '今日: $t_count, 昨日: $y_count, トータル: $a_count<br>\n';

# 時間設定
my $localtime_en = 0;
my $offset = 9;

my $today = time;
my $yesterday = $today - 86400;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)= $localtime_en ? localtime($today) : gmtime($today + $offset * 3600);
my ($ysec,$ymin,$yhour,$ymday,$ymon,$yyear,$ywday,$yyday,$yisdst)= $localtime_en ? localtime($yesterday) : gmtime($yesterday + $offset * 3600);

my $a_count = 0;
my $y_count = 0;
my $t_count = 0;
if (open(FILE,"< $countfile")){
    flock FILE, 2;
    while (<FILE>){
	chomp;
	my ($cmon,$cday,$cyear,$count)=split(/,/);
	if ($cmon eq 'init'){
	    $a_count = $count;
	} else {
	    $a_count += $count;
	}
	if ($cmon == $ymon && $cday == $ymday && $cyear == $yyear) {
	    $y_count = $count;
	} elsif ($cmon == $mon && $cday == $mday && $cyear == $year) {
	    $t_count = $count;
	}
    }
    close(FILE);
}

print "Content-Type: text/html\n\n";
eval "print \"$format\";";