#!/usr/local/bin/perl

# ━━━……・・初期設定

# ライブラリへのパス
require './cclib.pl';

# 管理パスワード（必ず変更すること！！）
$password = '840818';

# CGIファイル名
$cgifilename = 'dlcounter.cgi';

# ログファイル名
$logfilename = 'dlcounter.log';

# ━━━……・・設定ここまで

	$admin_bgcolor       = "#FFFFFF" ;
	$admin_bgcolor_table = "#DDDDDD" ;
	$admin_fontcolor     = "#000000" ;
	$admin_bordercolor   = "#666666" ;

	&formdecord();
	$f_name = $FORM{'name'};
	$f_url  = $FORM{'url'};

	if ( ( $FORM{'url'} ne "" ) and ( $FORM{'name'} ne "" ) ) { &mode_download(); exit }
	if ( ( $FORM{'url'} ne "" ) and ( $FORM{'name'} eq "" ) ) { &error('パラメータが足りません'); exit }
	if ( ( $FORM{'mode'} eq "admin" ) && ( $FORM{'password'} eq $password ) ) { &mode_admin(); exit; }
	if ( ( $FORM{'mode'} eq "edit" ) && ( $FORM{'password'} eq $password ) ) { &mode_edit(); exit; }
	if ( ( $FORM{'mode'} eq "editwrite" ) && ( $FORM{'password'} eq $password ) ) { &mode_editwrite(); exit; }
	&mode_login();

exit;

# ━━━……・・ダウンロード
sub mode_download {

	# ログ読み込み
	open ( IN , "< $logfilename" );
	chop(@log = <IN>);
	close(IN);

	foreach $fr (@log) {
		@data = split(/\t/,$fr);
		( $count{$data[1]} , $name{$data[1]} , $url{$data[1]} , $date{$data[1]} ) = @data;
	}

	$count{$f_name}++;
	$name{$f_name} = $f_name;
	$url{$f_name} = $f_url;
	$time = time();
	$date{$f_name} = $time;

	# ログ書き出し
	open ( OUT , "> $logfilename" );
	while (($key , $value) = each(%name)) {
		print (OUT "$count{$key}\t$name{$key}\t$url{$key}\t$date{$key}\n");
	}
	close(OUT);
	print "location: $f_url\n\n";
}

# ━━━……・・ログインモード

sub mode_login
{
	$message = "パスワードを入力してください";
	if ( $FORM{'mode'} eq "admin" ) {
		$message = "<b><font color=red>パスワードが間違っています</font></b>";
	}
	&htmlheader();
	&puthtml("top","蓄々ダウンロードカウンター管理ページ","$admin_fontcolor","$admin_bgcolor");
	print <<"HTML";
<h2 style="font-size:100%">■ ログイン</h2>
<form name="form" method="post" action="$cgifilename" style="display:inline">
<div style="margin-left:2em">
$message<br>
<input type="password" name="password" size="12" value="">
<input type="submit" name="submit" value="ログイン">
<input type="hidden" name="mode" value="admin">
</div>
</form>
HTML
	&puthtml("bottom");
}

# ━━━……・・管理モード

sub mode_admin
{
	&loadlog();
	&htmlheader();
	&puthtml("top","蓄々ダウンロードカウンター管理ページ");
	$tdmargin = "20";
	print <<"HTML";
<div align="center">
<table frame="border" rules="groups" border="1" bordercolor="$admin_bordercolor" cellspacing="0" cellpadding="4">
<thead><tr style="font-weight:bold;background-color:$admin_bgcolor_table"><td>順位</td><td>名前</td><td>DL数</td><td>最終DL日</td></tr></thead>
<tbody>
HTML

	$no = 1;
	$count_total = 0;
	foreach $fr (@s_count) {
		( $a , $name ) = split ( /\t/ , $fr );
		&maketime($date{$name});
		print <<"HTML";
<tr style="font-size: 90% ; line-height: 130%"><td style="text-align:right">$no</td><td><a href=$url{$name}>$name</a></td><td style="text-align:right">$count{$name}</td><td>$year/$mon/$mday $hour:$min</td></tr>
HTML
		$no++;
		$count_total += $count{$name};
	}

	print <<"HTML";
<tr style="font-size: 90% ; line-height: 130%;background-color:$admin_bgcolor_table"><td style="text-align:right"></td><td><strong>計</strong></td><td style="text-align:right"><strong>$count_total</strong></td><td></td></tr>
</tbody>
</table>
</div>
<div align="center">
<form name="form" method="post" action="$cgifilename" style="display:inline">
<input type="hidden" name="mode" value="admin">
<input type="hidden" name="password" value="$password">
<input type="submit" name="submit" value="更新">
</form>
<form name="form" method="post" action="$cgifilename" style="display:inline">
<input type="hidden" name="mode" value="edit">
<input type="hidden" name="password" value="$password">
<input type="submit" name="submit" value="データ編集">
</form>
</div>
HTML
	&puthtml("bottom");
}

# ━━━……・・データ編集モード

sub mode_edit
{
	&loadlog();
	&htmlheader();
	&puthtml("top","蓄々ダウンロードカウンター管理ページ");
	$tdmargin = "20";
	print <<"HTML";
<form name="form" method="post" action="$cgifilename">
<UL>
<LI>項目を消したい場合は、名前欄を空白にして下さい</LI>
<LI>項目を追加したい場合は、最下位の空欄に入力して下さい</LI>
</UL>
<div align="center">
<table frame="border" rules="groups" border="1" bordercolor="$admin_bordercolor" cellspacing="0" cellpadding="4">
<thead>
<tr style="font-weight: bold" bgcolor="$admin_bgcolor_table"><td>名前</td><td>DL数</td></tr></thead>
<tbody>
HTML

	$no = 1;
	foreach $fr (@s_count) {
		( $a , $name ) = split ( /\t/ , $fr );
		# &maketime($date{$name});
		print <<"HTML";
<tr style="font-size: 90% ; line-height: 130%">
<td><input type="text" name="name$no" value="$name" size="16"></td>
<td><input type="text" name="count$no" value="$count{$name}" size="10"></td>
<input type="hidden" name="nameold$no" value="$name">
<input type="hidden" name="url$no" value="$url{$name}">
<input type="hidden" name="date$no" value="$date{$name}">
</tr>
HTML
		$no++;
	}
	$date = time();
	print <<"HTML";
<tr style="font-size: 90% ; line-height: 130%">
<td><input type="text" name="name$no" value="" size="16"></td>
<td align="right"><input type="text" name="count$no" value="" size="10"></td>
<input type="hidden" name="url$no" value="">
<input type="hidden" name="date$no" value="$date">
</tr>
HTML

	print <<"HTML";
</tbody>
</table>
<input type="hidden" name="mode" value="editwrite">
<input type="hidden" name="password" value="$password">
<input type="hidden" name="dataquantity" value="$no">
<p>
<input type="submit" name="submit" value="送信">
</p>
</form>
<form name="form" method="post" action="$cgifilename">
<input type="hidden" name="mode" value="admin">
<input type="hidden" name="password" value="$password">
<input type="submit" name="submit" value="戻る">
</form>
</div>
HTML
	&puthtml("bottom");
}

# ━━━……・・データ書き換え実行
sub mode_editwrite()
{
	# ログ書き出し
	open ( OUT , "> $logfilename" );
	for ( $fo = 1 ; $fo <= $FORM{dataquantity} ; $fo++ ) {
		$count = $FORM{'count'.$fo};
		$name = $FORM{'name'.$fo};
		$url = $FORM{'url'.$fo};
		$date = $FORM{'date'.$fo};
		if ( $name ne "" ) {
			print (OUT "$count\t$name\t$url\t$date\n");
		}
	}
	close(OUT);
	&mode_admin();
}

# ━━━……・・このCGI特有のライブラリルーチン
sub loadlog {
	# ログ読み込み
	open ( IN , "< $logfilename" );
	chop(@log = <IN>);
	close(IN);

	foreach $fr (@log) {
		@data = split(/\t/,$fr);
		( $count , $name , $url , $date ) = @data;
		( $count{$name} , $name{$name} , $url{$name} , $date{$name} ) = @data;
		$count = substr ( '0000000000'.$count , length ( $count ) );
		push ( @s_count , "$count\t$name" );
		push ( @s_name  , "$name\t$name" );
		push ( @s_url   , "$url\t$name" );
		push ( @s_date  , "$date\t$name" );
	}
	@s_count = reverse ( sort ( @s_count ) );
	@s_name  = sort ( @s_name );
	@s_url   = sort ( @s_url );
	@s_date  = reverse ( sort ( @s_date ) );
}

# ━━━……・・ライブラリルーチン

# エラー表示
sub error {
	print <<"HTML";
<head>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<title>ダウンロードカウンターエラー</title>
</head>
<body>
<h3>ダウンロードカウンターエラー</h3>
<hr>
$_[0]
</body>
HTML
}