#!/usr/local/bin/perl
#
######################################################################
###
###
###  CGIカウンター TcounT Ver.4.20
###     [2/3] 管理 (tcadmin.cgi)
###                                 (c) 1996-1999 Takahiro Nishida
###                                 http://www.mytools.net/
###
###
######################################################################
#
### 変数設定部 （詳細は上記ページをご覧下さい） ######################

$basedir = ".";
$ext = "cgi";
$topurl = "http://your.home/page.html";
$password = "TcounT420";
$method = "post";

### （変数設定部） ここまで #####################################

$lockfile = "$basedir/lockdir/tc.lock";
$timefile = "$basedir/tcmtime.txt";
$compfile = "$basedir/tccomp.txt";
$logfile = "$basedir/tclog.txt";

$verno = "4.20";
$noact = "何も変更されませんでした。";

print "Content-type: text/html\n\n";

&main;

sub main{
	&lock;
	&check_input;
	&exec_action;
	&diag_files;
	&show_html;
	&unlock;
}



##### 入力チェック
sub check_input{
	if ($ENV{'REQUEST_METHOD'} eq "POST"){
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	}
	else{
		$buffer = $ENV{'QUERY_STRING'};
	}
	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		if($value !~ /[\w\d]*/){ &error(3, $name); }
		$FORM{$name} = $value;
	}
}



##### 作業の実行
sub exec_action{
	if($FORM{'pwd'} ne $password){
		$actmes="パスワードが違います。$noact";
		return;
	}
	
	if($FORM{'act'} eq "cnt"){
		&clear_cntlog;
		return;
	}
	
	if(!($FORM{'fname'}=~/^\w+$/)){
		$actmes="ファイル名が入力されていないか、間違っています。$noact";
		return;
	}
	
	$mkf = "$basedir/data/all/$FORM{'fname'}.txt";
	$omkf="$basedir/data/day/$FORM{'fname'}.txt";
	$tmkf = "$basedir/data/today/$FORM{'fname'}.txt";
	
	unless(-f $mkf){
		$actmes = "$mkf がありません。$noact";
		return;
	}
	unless(-f $omkf){
		$actmes = "$omkf がありません。$noact";
		return;
	}
	unless(-f $tmkf){
		$actmes = "$tmkf がありません。$noact";
		return;
	}
	unless(-f $compfile){
		$actmes = "$compfile がありません。$noact";
		return;
	}
	
	&new_counter if ($FORM{'act'} eq "new");
	&fix_counter if ($FORM{'act'} eq "fix");
	&del_counter if ($FORM{'act'} eq "del");
	
	$actmes = "作業が選択されていません。$noact" unless $actmes; 
}



##### 新しいカウンターの作成
sub new_counter{
	if($FORM{'num'} =~ /\D/){
		$actmes = "初期値が入力されていないか、間違っています。$noact";
		return;
	}
	
	unless(open(FILE,"$compfile")){
		$actmes = "ファイル $compfile が開けません。$noact";
		return;
	}
	@cfiles = <FILE>;
	close(FILE);
	
	foreach(@cfiles){
		if(/^$FORM{'fname'}\t/){
			$actmes = "カウンター $FORM{'fname'} は既に存在しています。$noact";
			return;
		}
	}
	
	unless(open(FILE,">$mkf")){
		$actmes = "ファイル $mkf に書き込めません。$noact";
		return;
	}
	print FILE $FORM{'num'};
	close(FILE);
	
	unless(open(FILE,">$omkf")){
		$actmes = "ファイル $omkf に書き込めません。$noact";
		return;
	}
	print FILE "0";
	close(FILE);
	
	unless(open(FILE,">$tmkf")){
		$actmes = "ファイル $tmkf に書き込めません。$noact";
		return;
	}
	print FILE "0";
	close(FILE);
	
	unless(open(FILE,">>$compfile")){
		$actmes = "ファイル $compfile に書き込めません。$noact";
		return;
	}
	print FILE "$FORM{'fname'}\t$FORM{'num'}\t\n";
	close(FILE);
	
	$actmes = "カウンター $FORM{'fname'}(初期値...$FORM{'num'})が作成されました。";
}



##### カウント数の修正
sub fix_counter{
	if($FORM{'num'} =~ /\D/){
		$actmes="修正値が入力されていないか、間違っています。$noact";
		return;
	}
	
	unless(open(FILE,">$mkf")){
		$actmes="ファイル $mkf に書き込めません。$noact";
		return;
	}
	print FILE $FORM{'num'};
	close(FILE);
	
	$actmes = "カウンター $FORM{'fname'} の値を $FORM{'num'} に修正しました。";
}



##### カウンターの削除
sub del_counter{
	unless(open(FILE,"$compfile")){
		$actmes = "ファイル $compfile が開けません。$noact";
		return;
	}
	@cfiles=<FILE>;
	close(FILE);
	
	unless(open(FILE,">$compfile")){
		$actmes = "ファイル $compfile に書き込めません。$noact";
		return;
	}
	$frag = 0;
	foreach (@cfiles){
		unless(/^$FORM{'fname'}\t/){
			print FILE;
		}
		else{
			$frag = 1;
		}
	}
	close(FILE);
	
	if($frag == 0){
		$actmes = "カウンター $FORM{'fname'} の過去ログが見つかりません。$noact";
		return;
	}
	
	$actmes = "カウンター $FORM{'fname'} を削除しました。<BR>ファイルの削除は手作業で行って下さい。";
}



##### カウンターログのクリア
sub clear_cntlog{
	unless(-f $logfile){
		$actmes = "$logfile がありません。$noact";
		return;
	}
	
	unless(open(FILE, ">$logfile")){
		$actmes = "$logfile が開けません。$noact";
		return;
	}
	close(FILE);
	$actmes="カウンターログ $logfile をクリアしました。";
}



##### データファイルの診断
sub diag_files{
	@dfs = ($logfile, $timefile, $compfile);
	
	@dmchs=(
	        '^\d+\/?\d+\/?\d+\t'
	       ,'^\d{8}$'
	       ,'^\w+\t\d+\t\n'
	       );
	
	for(0..2){
		$st[$_]="Lost!";
		if(-f $dfs[$_]){ $st[$_]="Can't Open!"; }
		if(open(FILE,"$dfs[$_]")){
			@test=<FILE>;
			close(FILE);
			if(!$test[0]){ $st[$_]="Empty."; }
			elsif($test[0] =~ /$dmchs[$_]/){ $st[$_]="Good."; }
			else{ $st[$_]="Broken!"; }
		}
	}
	
	foreach $data(@test){
		($fn,$ov)=split("\t",$data);
		$OLDCNT{$fn} = $ov;
		
		# 総カウント数
		if(open(FILE,"$basedir/data/all/$fn.txt")){
			$NEWCNT{$fn}=<FILE>;
			close(FILE);
		}
		else{
			$NEWCNT{$fn}="Lost!";
		}
		
		# 前日までのカウント数
		if(open(FILE,"$basedir/data/day/$fn.txt")){
			$DAYCNT{$fn}=<FILE>;
			close(FILE);
		}
		else{
			$DAYCNT{$fn}="Lost!";
		}
		
		# 今日のカウント数
		if(open(FILE,"$basedir/data/today/$fn.txt")){
			$TODCNT{$fn}=<FILE>;
			close(FILE);
		}
		else{
			$TODCNT{$fn}="Lost!";
		}
	}
}



##### ＨＴＭＬ表示部分
sub show_html{
#----------------------------
print <<"EOF";
<HTML>
<HEAD><TITLE>TcounT Ver.$verno - admin</TITLE></HEAD>
<BODY BGCOLOR="#FF9999"><FONT SIZE="2">
[<A HREF="$topurl">戻る</a>]
<CENTER>
<H2>TcounT 管理用ページ</H2>
パスワードを知っている管理者のみが実行できます。
<P>

<B><A HREF="http://www.mytools.net/" TARGET="_top">
Powered By TcounT Ver.$verno</a></B>
</CENTER>
<HR>

<CENTER><TABLE BORDER WIDTH="60%"><TR><TD BGCOLOR="#000000"><FONT SIZE="2" COLOR="#FFFFFF"><B>
<CENTER><FONT COLOR="#FFFF00">*** 作業状況 ***</FONT></CENTER><P>$actmes
</FONT></TD></TR></TABLE></CENTER>
<HR WIDTH="70%">

<CENTER><TABLE BORDER WIDTH="80%"><TR><TD BGCOLOR="#CC99CC"><FONT SIZE="2">
<CENTER><FONT SIZE="4">作業とパスワードを入力し「作業実行」を押してください</FONT></CENTER><BR>
<FORM METHOD="$method" ACTION="tcadmin.$ext">
<INPUT TYPE="radio" NAME="act" VALUE="new">
<B>新しいカウンターを作成する</B>(1)(2)(3)<BR>
<INPUT TYPE="radio" NAME="act" VALUE="fix">
<B>カウンターを修正する</B>(1)(2)(3)<BR>
<INPUT TYPE="radio" NAME="act" VALUE="del">
<B>カウンターを削除する</B>(1)(3)<BR>
<INPUT TYPE="radio" NAME="act" VALUE="cnt">
<B>カウンターログをクリアする</B>(3)<BR>
<P>

★対応する番号の項目を埋めてください。<BR>
(1)ファイル名...<INPUT TYPE="text" NAME="fname" SIZE="10">.txt<BR>
(2)初期値(修正値)...<INPUT TYPE="text" NAME="num" SIZE="5" VALUE="0"><BR>
(3)管理用パスワード...<INPUT TYPE="password" NAME="pwd" VALUE="$FORM{pwd}" SIZE="15"><BR>
<INPUT TYPE="submit" VALUE="作業実行">
</FONT></TD></TR></TABLE></CENTER>
<P>

<CENTER>
<TABLE BORDER="3" WIDTH="70%"><TR><TD BGCOLOR="#FFFF00"><FONT SIZE="2">
<CENTER><B>▲ ワンポイント ▲</B></CENTER><BR>
<B>新しいカウンターを作成する下準備：</B><BR>
<OL>
<LI>カウンターの名前を決める。ここでは "<B>new</B>" とする。
<LI>$basedir/data/all/ に 空ファイル<B>new.txt</B> をFTPし、パーミッションを<B>666</B>にする。
<LI>$basedir/data/day/ に 空ファイル<B>new.txt</B> をFTPし、パーミッションを<B>666</B>にする。
<LI>$basedir/data/today/ に 空ファイル<B>new.txt</B> をFTPし、パーミッションを<B>666</B>にする。
</OL>
　これらの作業を行なった後、上のフォームから「<B>新しいカウンターを作成する</B>」を選び、ファイル名を "<B>new</B>" としてください。
</FONT></TD></TR></TABLE>
</CENTER>

<HR>
<H4>■ <A HREF="tclog.$ext">カウンターログの表\示</a></H4>

<H4>■ 現在のカウント数の状況</H4>
<P>

<FONT SIZE="2">
※ <B>テスト</B>のマークをクリックすると、カウンターが表\示されます。<BR>
※ ■→総合、▲→総合・増加、▼→前日、●→今日<BR>
※ うまく行かないときはエラーメッセージが表\示されますので、内容を読んで対処して下さい。
</FONT>
<P>

<TABLE BORDER="1" CELLPADDING="3">
<TR>
  <TH>ファイル名</TH>
  <TH>テスト</TH>
  <TH>総合</TH>
  <TH>今日</TH>
  <TH>前日</TH>
  <TH>前日まで</TH>
</TR>

EOF
#-----------------
	while(($key, $vold) = each(%OLDCNT)){
		print "<tr><td><font size=2>$key.txt</font></td>";
		print "<th><a href=\"tcount.$ext?$key\">■</a> ";
		print "<a href=\"tcount.$ext?$key&1\">▲</a> ";
		print "<a href=\"tcount.$ext?$key&&&&day\">▼</a> ";
		print "<a href=\"tcount.$ext?$key&&&&today\">●</a></th>";
		print "<td><font size=2>$NEWCNT{$key}</font></td>";
		print "<td><font size=2>$TODCNT{$key}</font></td>";
		print "<td><font size=2>$DAYCNT{$key}</font></td>";
		print "<td><font size=2>$vold</font></td>";
	}
#-----------------
print <<"EOF";
</table>
<HR>
<H4>■ パラメータの説明</H4>

<font size=3>
&LT;img src="tcount.cgi?<B>(1)</B>&<B>(2)</B>&<B>(3)</B>&<B>(4)</B>&<B>(5)</B>"&GT;
</font>
<P>

<UL>
<LI><B>(1)</B> ... カウンター名 (<B>必須</B>)
<LI><B>(2)</B> ... 数を増やす場合 → "<B>1</B>" (何も指定しない場合は増えない)
<LI><B>(3)</B> ... 表\示するケタ数 (指定しない場合は<B>５桁</B>。表\示しきれない場合は表\示できるところまで増える)
<LI><B>(4)</B> ... 画像のディレクトリ名 (指定しない場合は "<B>img</B>")
<LI><B>(5)</B> ... 前日 → "<B>day</B>"、今日 → "<B>today</B>"、 (何も指定しない場合は<B>総合カウント数</B>)
</UL>

途中のパラメータを跳ばしたい場合は、"<B>tcount.cgi?test&&&&day</B>" という具合に書いて下さい。

<HR>

<H4>■ 各データファイルの状態</H4>
<P>
<table border>
<tr><th>ファイル名</th><th>状態</th></tr>
EOF
#-----------------
	for(0..2){
		print "<tr><td>$dfs[$_]</td><td><B>$st[$_]</B></td></tr>\n";
	}
#-----------------
print <<"EOF";
</table>
<P>
<UL>
<LI><B>Good.</B> ... 正常
<LI><B>Empty.</B> ... 空っぽ
<LI><B>Broken!</B> ... 壊れている
<LI><B>Can't Open!</B> ... 開けない (パーミッションを確認してください)
<LI><B>Lost!</B> ... 存在しない (\$basedirで指定した場所にあるかどうか調べてください)
</UL>
<HR>
</font></body></html>
EOF
#----------------------------
}



##### ファイルロック
sub lock{
	local($try) = 3;
	while(!(symlink("$$",$lockfile))){
		if(--$try <= 0){
			&error(0);
		}
	sleep(1);
	}
}



##############################################
# symlink が使えないサーバー用のファイルロック
##############################################
#sub lock{
#	local($try) = 3;
#	while(-f $lockfile){
#		if(--$try <= 0){
#			 &error(0)
#		}
#		sleep(1);
#	}
#	open(FILE,">$lockfile") || die &error(2);
#	close(FILE);
#}
##############################################



##### ロック解除
sub unlock{
	unlink($lockfile);
}



##### エラー表示
sub error{
	local($fname, $id)=@_;
	local(@sts) = lstat($lockfile);
	local($tn) = time();
	
	$msg[0] = "ロック中です";
	$msg[1] = "ファイルが開けません";
	$msg[2] = "ファイルに書きこめません";
	$msg[3] = "不正な文字がパラメタに使用されています";
	
	print "<HTML><HEAD><TITLE>TcounT Error!</TITLE></HEAD><BODY>";
	print "Message From tcadmin.cgi.<BR>";
	print "$fname $msg[$id]";
	print "</BODY></HTML>";
	
	&unlock if ($id); # ID が 0 以外の場合はロック解除
	&unlock if ($tn - $sts[9] > 15); # 約15秒以上ロックが続いてたら自動解除
	exit;
}