#!/usr/bin/perl
require './gifcat.pl';
## -------------------------------------------------------------------
$MKNAME  = "";
$MKURL   = "";
## -------------------------------------------------------------------
$CGIFILE   = "./ecocount.cgi";	        # このファイルの名前
$MGRPASS   = "1111";				# 管理パスワード
$LOGFILE   = "./ecocntlog.";			# ログファイル名
$LOCKFILE  = "./ecocnt.lck";			# ロックファイル名
$GIF_PATH  = "./";				# gif画像のあるディレクトリのパス
$BASE_URL = "http://www.ecopac.co.jp/";	# 貴方のベースＵＲＬ

$ref_url = $ENV{'HTTP_REFERER'};
$cook = $ENV{'HTTP_COOKIE'};
if ($ENV{'REQUEST_METHOD'} eq "POST") {
    read(STDIN, $form, $ENV{'CONTENT_LENGTH'});
} else { 
    $form = $ENV{'QUERY_STRING'}; 
}
@para = split(/&/,$form);
foreach $pair (@para){
    ($Name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$Name} = $value;
}
$FIG  = $FORM{'fig'};
$ID   = $FORM{'id'};
$MODE = $FORM{'mode'};
$PASS = $FORM{'pass'};
$ACT  = $FORM{'act'};
$NAME = $FORM{'name'};
$COUNT= $FORM{'count'};
# 引数がなければディフォルト
if ($FIG eq "") { $FIG = 5; }
if ($ID  eq "") { $ID  = 1; }
@para = split(/;/,$cook);
foreach $pair (@para){
    ($Name, $value) = split(/=/, $pair);
    $Name =~ s/ //g;
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $COOK{$Name} = $value;
}
$OFFCNTM = $COOK{'minocntM'};
foreach $id ( split(/,/,$OFFCNTM) ) {
    if ( $ID eq $id ) {
        $UP = 'OFF';
        last; 
    }
}
$OFFCNT = $COOK{'minocnt'};
foreach $id ( split(/,/,$OFFCNT) ) {
    if ( $ID eq $id ) {
        $UP = 'OFF';
        last; 
    }
}
if ( $UP ne 'OFF' ) { $UP = 'ON'; }
## -------------------------------------------------------------------
## モードにより処理
## -------------------------------------------------------------------
if ( $MODE eq '' ) {		# 管理操作以外だったらカウンタ表示
    &CountDisp;
} else {					# 管理だったら管理処理
    if ( $PASS ne $MGRPASS ) { &InputPass; }	# パスワードが違う場合
    elsif ( $ACT eq '' ) { &DispMgr; }			# パスワードＯＫ初期画面
    elsif ( $ACT eq '編集' ) { &Conf; }			# パスワードＯＫ操作確認画面
    elsif ( $ACT eq 'リセット' ) { &Conf; }		# パスワードＯＫ操作確認画面
    elsif ( $ACT eq '削除' ) { &Conf; }			# パスワードＯＫ操作確認画面
    elsif ( $ACT eq '回避ＯＦＦ' ) { &Conf; }	# パスワードＯＫ操作確認画面
    elsif ( $ACT eq '回避ＯＮ' ) { &Conf; }		# パスワードＯＫ操作確認画面
    elsif ( $ACT eq 'ＯＫ' ) { &ExecOper; }		# パスワードＯＫ操作実行
    elsif ( $ACT eq 'ＮＧ' ) { &DispMgr; }		# パスワードＯＫ初期画面
}
exit;

## -------------------------------------------------------------------
## カウンター表示処理サブルーチン
## -------------------------------------------------------------------
sub CountDisp {
    ## 他サイトからのアクセスを排除
    $ref_url =~ s/\?(.|\n)*//ig;
    $ref_url =~ s/\%7E/\~/ig;
    if (($BASE_URL ne ".") && ($ref_url !~ $BASE_URL)){ &error; }
    if ( $ID > 999 ) { &error; }
    if ( $UP eq 'ON' ) {
        ## クッキー設定
        print "Set-Cookie: ";
        if ( $OFFCNT eq '' ) { print "minocnt=$ID; "; }
        else { print "minocnt=$OFFCNT,$ID; "; }
        print "\n";
    }
    ## ロック
    &lockon;
    ## ログファイル読み込み
    &ReadLog;
    if ( $NAME eq '' ) { $NAME = "$ID"; }
    # カウントアップの場合、ログを更新
    if ( $UP eq 'ON' ) { 
        $COUNT++;
        &PutLog;
        $UP = 'OFF';
    }
    ## アンロック
    &lockoff;
    ## GIF画像を出力
    &count_view;
    exit;
}
## -------------------------------------------------------------------
## パスワード入力画面サブルーチン
## -------------------------------------------------------------------
sub InputPass {
    &HtmlStart;
    print "<BR><FORM METHOD=\"POST\" ACTION=\"$CGIFILE\">\n";
    print "管理パスワード：";
    print "<INPUT TYPE=\"password\" NAME=\"pass\" SIZE=10>\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"mode\" VALUE=\"MGR\"></FORM>\n";
    &HtmlEnd;
}
## -------------------------------------------------------------------
## 管理画面サブルーチン
## -------------------------------------------------------------------
sub DispMgr {
    &HtmlStart;
    print "<TABLE BORDER=1>\n";
    print "<TR><TD>ページ名</TD><TD ALIGN=RIGHT>番号</TD>\n";
    print "<TD ALIGN=RIGHT>訪問件数</TD><TD>カウント<BR>回避</TD><TD>操作</TD></TR>\n";
    $ID = 1;
    &lockon;
    while ( $ID <= 999 ) {
        $logfile = sprintf "$LOGFILE%03d",$ID;
        if ( -f $logfile ) {
            ## ログファイル読み込み
            &ReadLog;
            $UP = 'OFF';
            foreach $id ( split(/,/,$OFFCNTM) ) {
                if ( $ID eq $id ) { $UP = 'ON'; last;  }
            }
            print "<FORM METHOD=\"POST\" ACTION=\"$CGIFILE\">\n";
            print "<INPUT TYPE=\"hidden\" NAME=\"pass\" VALUE=\"$PASS\">\n";
            print "<INPUT TYPE=\"hidden\" NAME=\"mode\" VALUE=\"$MODE\">\n";
            print "<INPUT TYPE=\"hidden\" NAME=\"id\" VALUE=\"$ID\">\n";
            print "<INPUT TYPE=\"hidden\" NAME=\"name\" VALUE=\"$NAME\">\n";
            print "<INPUT TYPE=\"hidden\" NAME=\"count\" VALUE=\"$COUNT\">\n";
            print "<TR><TD>$NAME</TD>\n";
            print "<TD ALIGN=RIGHT>$ID</TD>\n";
            print "<TD ALIGN=RIGHT>$COUNT</TD><TD>$UP</TD><TD>\n";
            print "<INPUT TYPE=\"submit\" NAME=\"act\" VALUE=\"編集\">\n";
            if ( $COUNT > 0 ) {
                print "<INPUT TYPE=\"submit\" NAME=\"act\" VALUE=\"リセット\">\n";
            }
            print "<INPUT TYPE=\"submit\" NAME=\"act\" VALUE=\"削除\">\n";
            if ( $UP eq 'ON' ) { 
                print "<INPUT TYPE=\"submit\" NAME=\"act\" VALUE=\"回避ＯＦＦ\">\n";
            } else {
                print "<INPUT TYPE=\"submit\" NAME=\"act\" VALUE=\"回避ＯＮ\">\n";
            }
            print "</TR></FORM>\n";
        }
        $ID++;
    }
    &lockoff;
    print "</TABLE><P>\n";
    print "「編集」をクリックするとページ名を編集します。<br>\n";
    print "「リセット」をクリックすると訪問者数をゼロにします。<br>\n";
    print "「削除」をクリックすると情報を削除します。<br>\n";
    print "「回避ＯＮ」にするとこのブラウザーでカウントアップしなくなります。<br>\n";
    print "「回避ＯＦＦ」にするとこのブラウザーでカウントアップします。<br>\n";
    &HtmlEnd;
}
## -------------------------------------------------------------------
## 操作確認画面サブルーチン
## -------------------------------------------------------------------
sub Conf {
    &HtmlStart;
    if ( $ACT eq 'リセット' ) { $COUNT = 0; }
    print "■$ACT操作■<P>\n";
    print "<FORM METHOD=\"POST\" ACTION=\"$CGIFILE\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"pass\" VALUE=\"$PASS\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"mode\" VALUE=\"$ACT\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"id\" VALUE=\"$ID\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"count\" VALUE=\"$COUNT\">\n";
    print "<TABLE BORDER=1>\n";
    print "<TR><TD>番号</TD><TD>$ID</TD></TR>\n";
    print "<TR><TD>ページ名</TD><TD>\n";
    if ( $ACT eq '編集' ) {
        print "<INPUT TYPE=\"text\" NAME=\"name\" VALUE=\"$NAME\" size=40 maxlength=40></TD></TR>\n";
    } else {
        print "<INPUT TYPE=\"hidden\" NAME=\"name\" VALUE=\"$NAME\">$NAME</TD></TR>\n";
    }
    print "<TR><TD>訪問件数</TD><TD>$COUNT</TD></TR>\n";
    print "</TABLE><P>\n";
    print "<INPUT TYPE=\"submit\" NAME=\"act\" VALUE=\"ＯＫ\">   \n";
    print "<INPUT TYPE=\"submit\" NAME=\"act\" VALUE=\"ＮＧ\"></FORM>\n";
    &HtmlEnd;
}
## -------------------------------------------------------------------
## 操作実行サブルーチン
## -------------------------------------------------------------------
sub ExecOper {
    if ( $MODE eq '回避ＯＦＦ' ) {
        $SETCOOK = '';
        foreach $id ( split(/,/,$OFFCNTM) ) {
            if ( $ID ne $id ) { 
                if ( $SETCOOK eq '' ) {  $SETCOOK = "$id"; }
                else { $SETCOOK = "$SETCOOK,$id"; }
            } 
        }
        print "Set-Cookie: ";
        print "minocntM=$SETCOOK; ";
        print "expires=Wed, 1-Jan-2020 00:00:00 GMT; ";
        print "\n";
        &HtmlStart;
    }
    if ( $MODE eq '回避ＯＮ' ) {
        $SETCOOK = '';
        foreach $id ( split(/,/,$OFFCNTM) ) {
            if ( $ID ne $id ) { 
                if ( $SETCOOK eq '' ) {  $SETCOOK = "$id"; }
                else { $SETCOOK = "$SETCOOK,$id"; }
            } 
        }
        print "Set-Cookie: ";
        if ( $SETCOOK eq '' ) { print "minocntM=$ID; "; }
        else { print "minocntM=$SETCOOK,$ID; "; }
        print "expires=Wed, 1-Jan-2020 00:00:00 GMT; ";
        print "\n";
        &HtmlStart;
    }
    if ( $MODE eq '削除' ) {
        $SETCOOK = '';
        foreach $id ( split(/,/,$OFFCNTM) ) {
            if ( $ID ne $id ) { 
                if ( $SETCOOK eq '' ) {  $SETCOOK = "$id"; }
                else { $SETCOOK = "$SETCOOK,$id"; }
            } 
        }
        print "Set-Cookie: ";
        print "minocntM=$SETCOOK; ";
        print "expires=Wed, 1-Jan-2020 00:00:00 GMT; ";
        print "\n";
        &HtmlStart;
        $logfile = sprintf "$LOGFILE%03d",$ID;
        &lockon;
        unlink( $logfile );
        &lockoff;
    }
    if ( $MODE eq '編集' || $MODE eq 'リセット' ) {
        &HtmlStart;
        if ($NAME =~ /:/) {$MSG = 'ページ名に:を含めることは出来ません。';&HtmlEnd;}
        &lockon;
        &PutLog;
        &lockoff;
    }
    print "<p>操作が完了しました。<p>\n";
    print "<FORM METHOD=\"POST\" ACTION=\"$CGIFILE\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"pass\" VALUE=\"$PASS\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"mode\" VALUE=\"MGR\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"act\" VALUE=\"ＮＧ\">\n";
    print "<INPUT TYPE=\"submit\" VALUE=\"管理画面に戻る\"></FORM>\n";
    &HtmlEnd;
}
## -------------------------------------------------------------------
## ログファイル読み込み処理サブルーチン
## -------------------------------------------------------------------
sub ReadLog {
    $logfile = sprintf "$LOGFILE%03d",$ID;
    if (!-f $logfile) {
        if ( open(OUT,">$logfile") ) {
            print OUT "";
            close(OUT);
        } else {
            if ( $MODE eq '' ) { &error; }
            else { $MSG = 'ファイルが作成出来ません。'; &HtmlEnd; }
        }
    }
    $NAME = '';
    $COUNT = 0;
    if ( open(IN,"$logfile") ) { 
        while ( <IN> ) {
            chop $_;
            ( $NAME,$COUNT ) = split( /:/,$_ );
        }
        close(IN);
    } else {
        if ( $MODE eq '' ) { &error; }
        else { $MSG = 'ファイルがオープン出来ません。'; &HtmlEnd; }
    }
}
## -------------------------------------------------------------------
## ログファイル書き込み処理サブルーチン
## -------------------------------------------------------------------
sub PutLog {
    $logfile = sprintf "$LOGFILE%03d",$ID;
    if ( open(OUT,">$logfile") ) {
        print OUT "$NAME:$COUNT\n";
        close(OUT);
    } else { 
        if ( $MODE eq '' ) { &error; }
        else { $MSG = 'ロックされています。'; &HtmlEnd; }
    }
}
## -------------------------------------------------------------------
## --- GIF出力処理サブルーチン
## -------------------------------------------------------------------
sub count_view {
	$COUNT += 0;
	$cntstr = sprintf(sprintf("%%0%dld", $FIG), $COUNT);
	printf("Content-type: image/gif\n");
	printf("\n");
	@files = ();
	for ($i=0; $i<length($cntstr); $i++) {
		$n = substr($cntstr, $i, 1);
		push(@files, "$GIF_PATH/$n.gif");
	}
	# GIFを連結表示
	binmode(STDOUT);
	print &gifcat'gifcat(@files);
}

## -------------------------------------------------------------------
## ロック処理サブルーチン
## -------------------------------------------------------------------
sub lockon {
    $LOCKKEY = 0;
    foreach (1 .. 5) {
        unless (-e $LOCKFILE) {
            open(LOCK,">$LOCKFILE");
            close(LOCK);
            $LOCKKEY = 9;
            last;
        } else { sleep(1); }
    }
    if ($LOCKKEY == 0) {
        if ( $MODE eq '' ) { &error; }
        else { $MSG = 'ロックされています。'; &HtmlEnd; }
    }
}
## -------------------------------------------------------------------
## アンロック処理サブルーチン
## -------------------------------------------------------------------
sub lockoff {
    if ($LOCKKEY == 9) { unlink($LOCKFILE); }
}

## -------------------------------------------------------------------
## エラー処理サブルーチン
## -------------------------------------------------------------------
sub error {
    &lockoff;
    $COUNT=999999;
    &count_view;
    exit;
}
## -------------------------------------------------------------------
## HTML開始処理サブルーチン
## -------------------------------------------------------------------
sub HtmlStart {
    print "Content-type: text/html\n\n";
    print "<META HTTP-EQUIV=\"Content-Type\" \n";
    print "CONTENT=\"text/html;charset=Shift_JIS\">\n";
    print "<HTML><HEAD><TITLE> カウンター管理画面 </TITLE></HEAD><BODY>\n";
    print "<H2> カウンター管理画面 </H2><P><HR>\n";
}
## -------------------------------------------------------------------
## HTML終了処理サブルーチン
## -------------------------------------------------------------------
sub HtmlEnd {
    &lockoff;
    if ( $MSG ne '' ) { print "<font color=\"#FF0000\">$MSG</font>\n"; }
    print "<BR><BR><A HREF=\"javascript:history.back()\">戻る</a>\n";
    print "<HR><A HREF=\"$MKURL\">$MKNAME</A></BODY></HTML>\n";
    exit;
}