#!/usr/bin/perl

#******************************************************************************
#dlcount.cgi - Download Counter Ver.1.11
#
#Version   :1.11
#modified  :2000/12/05
#Copyright :The Room
#E-Mail    :dream@lib.net
#URL       :http://exdreams.net/room/
#
#これはフリー素材です。
#転載・商用目的の利用の際には、メールをお願いします。
#
#******************************************************************************
#1行目のperlのディレクトリ指定は、サーバによって異なります。
#詳しくは、管理者にお聞きください。
#******************************************************************************
$jcode='./jcode.pl';	#jcode.plの位置

$bar = './bar.gif';		#グラフ用画像の場所

$datafile = './data.dat';#データファイルの場所

$adminpass = 'munitoji';	#管理用パスワード

$back1='#b0b0ff';	#ランキング表示の背景色（「ランク」部分）
$back2='#c0c0ff';	#「名前」部分背景色
$back3='#d0d0ff';	#グラフ部分背景色
$back4='#e0e0ff';	#カウント部分背景色
$back5='#f0f0ff';	#割合部分背景色

$barwidth=200;		#グラフの最大幅
$barheight=10;		#グラフ画像の高さ

$downloadpath='http://www.komainu.info/site/main/lib/exe/fetch.php?media=archive:';#DL基幹ディレクトリ
$scriptpath='http://www.komainu.info/site/cgi/dlcount/dlcount.cgi';#スクリプト自体のURL

$home ='';#ホームページURL（設定すると「戻る」のリンクが表示されます。）

#******************************************************************************

require $jcode;

#データ受け取り
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
	read(STDIN, $qs, $cl );
}else{
	$qs = $ENV{"QUERY_STRING"};
}

@contents = split(/&/,$qs);
foreach $i (0 .. $#contents) {
	local($key,$text)= split(/=/,$contents[$i]);
	$text =~ s/\+/ /g;
	$text =~ s/%(..)/pack("c",hex($1))/ge;
	$text =~ s/\r\n/\n/g; 
	$text =~ s/\n//g;
	
	&jcode'convert(*text,'sjis');

	$act = $text if $key eq 'act';
	$filenum = $text if $key eq 'f';
	$pass = $text if $key eq 'pass';
	$sel = $text if $key eq 'sel';
	$send[$1] = $text if $key =~ /send(\d+)/;
}

if ($filenum != ""){&download;}
elsif ($act eq ""){&ranking;}
if ($pass ne $adminpass){&error("パスワードが間違っています。");}
if ($act eq "ad_menu"){&ad_menu;}
elsif ($act eq "ad_add_r1"){&ad_add_r1;}
elsif ($act eq "ad_add_r2"){&ad_add_r2;}
elsif ($act eq "ad_chg_r1"){&ad_chg_r1;}
elsif ($act eq "ad_chg_r2"){&ad_chg_r2;}
elsif ($act eq "ad_del_r1"){&ad_del_r1;}
elsif ($act eq "ad_del_r2"){&ad_del_r2;}
elsif ($act eq "ad_add_l1"){&ad_add_l1;}
elsif ($act eq "ad_add_l2"){&ad_add_l2;}
elsif ($act eq "ad_chg_l1"){&ad_chg_l1;}
elsif ($act eq "ad_chg_l2"){&ad_chg_l2;}
elsif ($act eq "ad_del_l1"){&ad_del_l1;}
elsif ($act eq "ad_del_l2"){&ad_del_l2;}

exit;
#******************************************************************************
sub ad_del_l2{
#リーフ削除

my (@y1,@y2);

@y2=split(/\_/,(split(/<>/,$sel))[0]);
open (IO,"+<$datafile");
eval{flock(IO,2)};
while(<IO>){
	push(@y1,$_) if $_ !~ /^$y2[0]<>$y2[1]<>/;
	}
truncate(IO,0);
seek(IO,0,0);
print IO @y1;
close (IO);

&hphead;
print <<EOD;
<div align=center>
リーフの削除が完了しました。<br>
<br>
<form method="post" action="./dlcount.cgi">
<input type="submit" value="戻る">
<input type="hidden" name="act" value="ad_menu">
<input type="hidden" name="pass" value="$pass">
</form>
</div>
EOD
&hpfoot;

}
#******************************************************************************
sub ad_del_l1{
#リーフ削除

my (@y2,@y3,@y4);

@y2=split(/<>/,$sel);
@y4=split(/\_/,$y2[0]);
if ($y2[3] ne "2"){&error("リーフを選択してください。");}

open (IN,"$datafile");
eval{flock(IN,1)};
while(<IN>){
	if ($_ =~ /^$y4[0]<>$y4[1]<>/){
		@y3=split(/<>/,$_);
		last;
		}
	}
close(IN);

&hphead;
print <<EOD;
<div align=center>
リーフの削除を行います。<br>
<form method=post action="./dlcount.cgi">
<table border=0 align=center>
<tr bgcolor=#c0c0ff>
<td>ルート</td>
<td>題名</td>
<td>$y2[1]</td>
</tr>
<tr bgcolor=#d0d0ff>
<th rowspan=2 valign=top>リーフ</th>
<td>DLファイルURL</td>
<td>$downloadpath$y3[3]</td>
</tr>
<tr bgcolor=#d0d0ff>
<td>カウント</td>
<td>$y3[5]</td>
</tr>
</table>
<input type="submit" value="削除">
<input type="hidden" name="act" value="ad_del_l2">
<input type="hidden" name="pass" value="$pass">
<input type="hidden" name="sel" value="$sel">
</form>
<form method="post" action="dlcount.cgi">
<input type="submit" value="戻る">
<input type="hidden" name="act" value="ad_menu">
<input type="hidden" name="pass" value="$pass">
</form>
</div>
EOD
&hpfoot;

}
#******************************************************************************
sub ad_chg_l2{

#リーフ変更
my @y0=split(/<>/,$sel);
my (@y1,@y2);

$send[4]||=0;
if ($send[2] eq ""){&error("リーフのダウンロードファイルURLを入力してください。");}
if ($send[4] =~ /[^\d]/){&error("リーフの初期カウントに数字以外の文字が含まれています。");}

open (IO,"+<$datafile");
eval{flock(IO,2)};
while(<IO>){
	@y2=split(/<>/,$_);
	if ("$y2[0]\_$y2[1]" eq $y0[0]){
		push(@y1,"$y2[0]<>$y2[1]<>$y2[2]<>$send[2]<>$y2[4]<>$send[4]<>\n");
		}
	elsif ($y2[3] eq $send[2]){
		close (IO);
		&error("入力されたリーフのダウンロードファイルURLは、既に設定されています。");
		}else{
		push(@y1,$_);
		}
	}
truncate(IO,0);
seek(IO,0,0);
print IO @y1;
close (IO);

&hphead;
print <<EOD;
<div align=center>
リーフの変更が完了しました。<br>
<br>
<form method="post" action="dlcount.cgi">
<input type="submit" value="戻る">
<input type="hidden" name="act" value="ad_menu">
<input type="hidden" name="pass" value="$pass">
</form>
</div>
EOD
&hpfoot;
}
#******************************************************************************
sub ad_chg_l1{
#リーフ変更
my @y3;
my @y2=split(/<>/,$sel);
my @y4=split(/\_/,$y2[0]);

if ($y2[3] ne "2"){&error("リーフを選択してください。");}

open (IN,"$datafile");
eval{flock(IN,1)};
while(<IN>){
	if ($_ =~ /^$y4[0]<>$y4[1]<>/){
		@y3=split(/<>/,$_);
		last;
		}
	}
close(IN);

&hphead;
print <<EOD;
<div align=center>
リーフの変更を行います。<br>
<form method=post action="dlcount.cgi">
<table border=0 align=center>
<tr bgcolor=#c0c0ff>
<th rowspan=2>ルート</th>
<td>ファイルの題名</td>
<td><b>$y3[2]</b></td>
</tr>
<tr bgcolor=#c0c0ff>
<td>参照</td>
<td><b>$y3[4]</b></td>
</tr>

<tr bgcolor=#d0d0ff>
<th rowspan=2 valign=top>リーフ</th>
<td>DLファイルURL</td>
<td>$downloadpath<input type="text" name="send2" size="40" value=$y3[3]></td>
</tr>
<tr bgcolor=#d0d0ff>
<td>カウント</td>
<td><input type="text" name="send4" size=5 value=$y3[5]></td>
</tr>
</table>
<input type="submit" value="決定">
<input type="hidden" name="act" value="ad_chg_l2">
<input type="hidden" name="pass" value="$pass">
<input type="hidden" name="sel" value="$sel">
</form>
<form method="post" action="dlcount.cgi">
<input type="submit" value="戻る">
<input type="hidden" name="act" value="ad_menu">
<input type="hidden" name="pass" value="$pass">
</form>
</div>
EOD
&hpfoot;

}

#******************************************************************************
sub ad_add_l2{
#リーフ追加
my @y0=split(/<>/,$sel);
my $a1=0;
my $a2=2;
my (@y1,@y2);

$send[4]||=0;
if ($send[2] eq ""){&error("リーフのダウンロードファイルURLを入力してください。");}
if ($send[4] =~ /[^\d]/){&error("リーフの初期カウントに数字以外の文字が含まれています。");}

open (IO,"+<$datafile");
eval{flock(IO,2)};
while(<IO>){
	@y2=split(/<>/,$_);
	if (($y2[0] == $y0[0]) && ($a1 !=2)){
		$a1=1;
		$a2=$y2[1]+1;
		}
	if (($a1 == 1) && ($y2[0] != $y0[0])){
		push(@y1,"$y0[0]<>$a2<>$y0[1]<>$send[2]<>$y0[2]<>$send[4]<>\n");
		$a1=2;
		}
	if ($y2[3] eq $send[2]){
		close (IO);
		&error("入力されたリーフのダウンロードファイルURLは、既に設定されています。");
		}
	push(@y1,$_);
	}
if ($a1 == 1){
	push(@y1,"$y0[0]<>$a2<>$y0[1]<>$send[2]<>$y0[2]<>$send[4]<>\n");
	}
truncate(IO,0);
seek(IO,0,0);
print IO @y1;
close (IO);

&hphead;
print <<EOD;
<div align=center>
リーフの追加が完了しました。<br>
<br>
今設定したファイルをダウンロードするには、<br>
<br>
<b>&lt;a href="$scriptpath\?f=$y0[0]\_$a2"&gt;ダウンロード&lt;/a&gt;</b><br>
<br>
このようにリンクを貼\ってください。<br>
<br>
<a href="./dlcount.cgi?f=$y0[0]\_$a2">こちら</a>をクリックしてダウンロードされるかを確認してください。<br>
<br>
<form method="post" action="dlcount.cgi">
<input type="submit" value="戻る">
<input type="hidden" name="act" value="ad_menu">
<input type="hidden" name="pass" value="$pass">
</form>
</div>
EOD
&hpfoot;
}
#******************************************************************************
sub ad_add_l1{
#リーフ追加
my @y2=split(/<>/,$sel);
if ($y2[3] ne "1"){&error("ルートを選択してください。");}
&hphead;
print <<EOD;
<div align=center>
リーフの追加を行います。<br>
<form method=post action="dlcount.cgi">
<table border=0 align=center>
<tr bgcolor=#c0c0ff>
<th rowspan=2>ルート</th>
<td>ファイルの題名</td>
<td><b>$y2[1]</b></td>
</tr>
<tr bgcolor=#c0c0ff>
<td>参照</td>
<td><b>$y2[2]</b></td>
</tr>

<tr bgcolor=#d0d0ff>
<th rowspan=2 valign=top>リーフ</th>
<td>DLファイルURL</td>
<td>$downloadpath<input type="text" name="send2" size="40"></td>
</tr>
<tr bgcolor=#d0d0ff>
<td>初期カウント</td>
<td><input type="text" name="send4" size=5 value="0"></td>
</tr>
</table>
<input type="submit" value="決定">
<input type="hidden" name="act" value="ad_add_l2">
<input type="hidden" name="pass" value="$pass">
<input type="hidden" name="sel" value="$sel">
</form>
<form method="post" action="dlcount.cgi">
<input type="submit" value="戻る">
<input type="hidden" name="act" value="ad_menu">
<input type="hidden" name="pass" value="$pass">
</form>
</div>
EOD
&hpfoot;
}
#******************************************************************************
sub ad_del_r2{
#ルート削除
my $a1=(split(/<>/,$sel))[0];
my @y1;

open (IO,"+<$datafile");
eval{flock(IO,2)};
while(<IO>){
	push(@y1,$_) if $_ !~ /^$a1/;
	}
truncate(IO,0);
seek(IO,0,0);
print IO @y1;
close (IO);

&hphead;
print <<EOD;
<div align=center>
ルートの削除が完了しました。<br>
<br>
<form method="post" action="dlcount.cgi">
<input type="submit" value="戻る">
<input type="hidden" name="act" value="ad_menu">
<input type="hidden" name="pass" value="$pass">
</form>
</div>
EOD
&hpfoot;
}
#******************************************************************************
sub ad_del_r1{
#ルート削除
my @y2=split(/<>/,$sel);
if ($y2[3] ne "1"){&error("ルートを選択してください。");}
&hphead;
print <<EOD;
<div align=center>
ルートの削除を行います。<br>
<form method="post" action="dlcount.cgi">
題名 <b>$y2[1]</b><br>
<br>
<input type="submit" value="削除">
<input type="hidden" name="act" value="ad_del_r2">
<input type="hidden" name="pass" value="$pass">
<input type="hidden" name="sel" value="$sel">
</form>
<form method="post" action="dlcount.cgi">
<input type="submit" value="戻る">
<input type="hidden" name="act" value="ad_menu">
<input type="hidden" name="pass" value="$pass">
</form>
</div>
EOD
&hpfoot;
}
#******************************************************************************
sub ad_chg_r2{
#ルート変更
if ($send[1] eq ""){&error("新題名を入力してください。");}
if (($send[2] ne "") && ($send[2] !~ /^https?:\/\/[\w|\:\@\-]+\.[\w|\:\!\#\%\=\&\-\|\@\~\+\.\?\/]+$/i)){&error("ルートの参照URLが不正です。");}

my $a1=(split(/<>/,$sel))[0];
my (@y1,@y2);

open (IO,"+<$datafile");
eval{flock(IO,2)};
while(<IO>){
	if ($_ =~ /^$a1<>/){
		@y2=split(/<>/,$_);
		push(@y1,"$y2[0]<>$y2[1]<>$send[1]<>$y2[3]<>$send[2]<>$y2[5]<>\n");
		}else{
		push(@y1,$_);
		}
	}
truncate(IO,0);
seek(IO,0,0);
print IO @y1;
close (IO);

&hphead;
print <<EOD;
<div align=center>
ルートの変更が完了しました。<br>
<br>
<form method="post" action="./dlcount.cgi">
<input type="submit" value="戻る">
<input type="hidden" name="act" value="ad_menu">
<input type="hidden" name="pass" value="$pass">
</form>
</div>
EOD
&hpfoot;

}
#******************************************************************************
sub ad_chg_r1{
#ルート変更

my @y2=split(/<>/,$sel);
if ($y2[3] ne "1"){&error("ルートを選択してください。");}
&hphead;
print <<EOD;
<div align=center>
ルートの変更を行います。<br>
<form method="post" action="dlcount.cgi">
<table border=0>
<tr bgcolor=#c0c0ff>
<td align=center>題名</th>
<td><input type="text" name="send1" value="$y2[1]" size=30><br>
</td>
</tr>
<tr bgcolor=#c0c0ff>
<td align=center>参照URL</th>
<td><input type="text" name="send2" value="$y2[2]" size=40><br>
</td>
</tr>

</table>
<br>
<input type="submit" value="決定">
<input type="hidden" name="act" value="ad_chg_r2">
<input type="hidden" name="pass" value="$pass">
<input type="hidden" name="sel" value="$sel">
</form>
<form method="post" action="dlcount.cgi">
<input type="submit" value="戻る">
<input type="hidden" name="act" value="ad_menu">
<input type="hidden" name="pass" value="$pass">
</form>
</div>
EOD
&hpfoot;

}
#******************************************************************************
sub ad_add_r2{
#ルート追加

my (@y2,$a1);

$send[4]||=0;
if ($send[1] eq ""){$send[1] = $send[2];}
if ($send[2] eq ""){&error("リーフのダウンロードファイルURLを入力してください。");}
if (($send[3] ne "") && ($send[3] !~ /^https?:\/\/[\w|\:\@\-]+\.[\w|\:\!\#\%\=\&\-\|\@\~\+\.\?\/]+$/i)){&error("ルートの参照URLが不正です。");}
if ($send[4] =~ /[^\d]/){&error("リーフの初期カウントに数字以外の文字が含まれています。");}
$a1="";
open (IO,"+<$datafile");
eval{flock(IO,2)};
while(<IO>){
	@y2=split(/<>/,$_);
	if ($y2[0] >= $a1){
		$a1=$y2[0]+1;
		}
	if ($y2[3] eq $send[2]){
		close (IO);
		&error("入力されたリーフのダウンロードファイルURLは、既に設定されています。");
		}
	}
if ($a1 eq ""){$a1=1;}
seek(IO,0,2);
print IO "$a1<>1<>$send[1]<>$send[2]<>$send[3]<>$send[4]<>\n";
close (IO);

&hphead;
print <<EOD;
<div align=center>
ルートの追加が完了しました。<br>
<br>
今設定したファイルをダウンロードするには、<br>
<br>
<b>&lt;a href="$scriptpath\?f=$a1\_1"&gt;ダウンロード&lt;/a&gt;</b><br>
<br>
このようにリンクを貼\ってください。<br>
<br>
<a href="./dlcount.cgi?f=$a1\_1">こちら</a>をクリックしてダウンロードされるかを確認してください。<br>
<br>
<form method="post" action="dlcount.cgi">
<input type="submit" value="戻る">
<input type="hidden" name="act" value="ad_menu">
<input type="hidden" name="pass" value="$pass">
</form>
</div>
EOD
&hpfoot;
}
#******************************************************************************
sub ad_add_r1{
#ルート追加
&hphead;
print <<EOD;
<div align=center>ルートの追加を行います。<br>
<form method=post action="dlcount.cgi">
<table border=0 align=center>
<tr bgcolor=#c0c0ff>
<th rowspan=2>ルート</th>
<td>ファイルの題名</td>
<td><input type="text" name="send1" size=30></td>
</tr>
<tr bgcolor=#c0c0ff>
<td>参照URL</td>
<td><input type="text" name="send3" size=40></td>
</tr>
<tr bgcolor=#d0d0ff>
<th rowspan=2 valign=top>リーフ</th>
<td>DLファイルURL</td>
<td>$downloadpath<input type="text" name="send2" size="40"></td>
</tr>
<tr bgcolor=#d0d0ff>
<td>初期カウント</td>
<td><input type="text" name="send4" size=5 value="0"></td>
</tr>
</table>
<input type="submit" value="決定">
<input type="hidden" name="act" value="ad_add_r2">
<input type="hidden" name="pass" value="$pass">
</form>
<form method="post" action="dlcount.cgi">
<input type="submit" value="戻る">
<input type="hidden" name="act" value="ad_menu">
<input type="hidden" name="pass" value="$pass">
</form>
</div>
EOD
&hpfoot;
}
#******************************************************************************
sub ad_menu{
#管理：メニュー表示準備

my (@y1,@y2,$data1,$a1);

open (IN,"$datafile");
eval{flock(IN,1)};
@y1=<IN>;
close (IN);

&hphead;
print <<EOD;
<center>BaseUrl : $downloadpath</center><br>
EOD

#ランキングテーブル設定・説明表示
print <<EOD;
<form method="post" action="dlcount.cgi">
<table border=0 align=center cellpadding=2>
<tr>
<th bgcolor=#c0c0ff>ルート</th>
<th bgcolor=#c0c0ff>題名</th>
<th bgcolor=#d0d0ff>参照URL</th>

<th bgcolor=#d0d0ff>リーフ</th>
<th bgcolor=#d0d0ff>番号</th>

<th bgcolor=#d0d0ff>DLURL</th>
<th bgcolor=#e0e0ff>カウント</th>

</tr>
EOD
$a1=" checked";

foreach(@y1){
	@y2=split(/<>/,$_);
	if ($data1{$y2[2]} == 0){
		$data1{$y2[2]}=1;
		print "<tr><td colspan=7></td></tr>";
		print "<tr bgcolor=#c0c0ff align=center><td bgcolor=#9090ff><input type=\"radio\" name=\"sel\" value=\"$y2[0]<>$y2[2]<>$y2[4]<>1\"$a1></td>";
		print "<th>$y2[2]</th>";
		print "<td><a href=\"$y2[4]\" target=\"_blank\">$y2[4]</a></td>";

		}else{
		print "<tr bgcolor=#d0d0ff align=center><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>";
		}

	print "<td bgcolor=#a0a0ff><input type=\"radio\" name=\"sel\" value=\"$y2[0]\_$y2[1]<>$y2[2]<>$y2[3]<>2\"></td>";
	print "<td>$y2[0]\_$y2[1]</td>";
	print "<td><a href=\"$downloadpath$y2[3]\" target=\"_blank\">$y2[3]</a></td>";
	print "<td>$y2[5]</td>";
	print "</tr>";
	$a1="";
	}
print <<EOD;
</table>
<br>
<div align=center>
<select name="act">
<option value="ad_add_r1" selected>ルートの追加</option>
<option value="ad_chg_r1">ルートの変更（要ルート選択）</option>
<option value="ad_del_r1">ルートの削除（要ルート選択）</option>
<option value="ad_add_l1">リーフの追加（要ルート選択）</option>
<option value="ad_chg_l1">リーフの変更（要リーフ選択）</option>
<option value="ad_del_l1">リーフの削除（要リーフ選択）</option>
</select>
<input type="submit" value="実行">
</div>
<input type="hidden" name="pass" value="$pass">
</form>
EOD
&hpfoot;
}
#******************************************************************************
sub download{
#ダウンロード

($f1,$f2)=split(/\_/,$filenum);
$f2||=1;
$flag = 1;
open (IO,"+<$datafile");
flock(IO,2);
@y1=<IO>;
for (0 .. $#y1){
	if ($y1[$_] =~ /^$f1<>$f2<>/){
		@y2=split(/<>/,$y1[$_]);
		$y2[5]++;
		$y1[$_]="$y2[0]<>$y2[1]<>$y2[2]<>$y2[3]<>$y2[4]<>$y2[5]<>\n";
		$flag=0;
		last;
		}
	}
if ($flag){
	close (IO);
	&error("指定されたファイルは設定されていません。");
	}
truncate(IO,0);
seek(IO,0,0);
print IO @y1;
close (IO);
print "Location: $downloadpath$y2[3]\n\n";
exit;
}
#******************************************************************************
sub error{
#エラー表示
&hphead;
print <<EOD;
<br>
<table border=0 bgcolor=#d0d0ff align=center cellpadding=0 cellspacing=0><tr><td>
<table border=0 width=100%><tr><td bgcolor=#ffffff align=center>
<br><br>
<b>$_[0]</b><br>
<br>
ブラウザのボタンで前のページに戻ってください。<br>
<br><br>
</td></tr></table>
</td></tr></table>
<br><br>
EOD
&hpfoot;
}
#******************************************************************************
sub hphead{
#ヘッダ設定
print "Content-type:text/html; charset=shift_jis\n\n";
print <<EOD;
<html lang="ja">
<head>
<meta http-equiv="Content-type" content="text/html; charset=shift_jis">
<meta http-equiv="pragma" content="no-cache">
<style = "text/css">
<!--
a:hover{color:#8080df}
-->
</style>
<title>Download Counter Ver.1.11</title>
</head>
<body bgcolor=#ffffff text=#000000 link=#303060 vlink=#303060 alink=#8080df>
<script type="text/javascript" src="https://ad.xdomain.ne.jp/js/server-php.js"></script>
<div align=center><b><font size=5>Download Counter Ver.1.11</font></b></div>
<br>
EOD
}
#******************************************************************************
sub hpfoot{
#フッタ設定
#
#著作権表示を消すことを禁じます。
print <<EOD;
<div align=center><a href="http://exdreams.net/room/" target="_blank">Download Counter by The Room</a></div><br>
</body></html>
EOD
exit;
}
#******************************************************************************
#これ以降のルーチンで、ダウンロードランキングの表示を行っています。
#******************************************************************************
sub ranking{
#ランキング表示
my (@y2,@y3,%data1,$a1,$a2,$a3,$maillg,$nowlg);
my $bfcount=-1;
my $addcount=1;
my $ct = 0;

open (IN,"$datafile");
eval{flock(IN,1)};
while (<IN>){
	@y2=split(/<>/,$_);
	$data1{"$y2[2]<>$y2[4]"}+=$y2[5];
	$allct+=$y2[5];
	}
close (IN);


#------------------------------------------------------------------------------
#ヘッダ表示
print "Content-type:text/html; charset=Shift-JIS\n\n";
print <<EOD;
<html lang="ja">
<head>
<meta http-equiv="Content-type" content="text/html; charset=Shift-JIS">
<meta http-equiv="pragma" content="no-cache">
<title>Download Counter Ver.1.11</title>
<style = "text/css">
<!--
a:hover{color:#8080df}
-->
</style>
</head>
<body bgcolor=#ffffff text=#000000 link=#303060 vlink=#303060 alink=#8080df>
<div align=center><b><font size=5>Download Counter Ver.1.11</font></b></div>
<br>
EOD
#------------------------------------------------------------------------------
#ランキングテーブル設定・説明表示
print <<EOD;
<table border=0 width=80% align=center cellpadding=2>
<tr>
<th colspan=5>総ダウンロード数 $allct</th>
</tr>
<tr>
<th bgcolor=$back1>ランク</th>
<th bgcolor=$back2>名前</th>
<th width=$barwidth bgcolor=$back3>&nbsp;</th>
<th bgcolor=$back4>カウント</th>
<th bgcolor=$back5>割合</th>
</tr>
EOD
#------------------------------------------------------------------------------

if ($allct != 0){
	foreach $a1 (sort {$data1{$b} <=> $data1{$a}} keys %data1){
		if ($data1{$a1} != 0){
			$a2 = int($data1{$a1}/$allct*100*10)/10;
			}else{
			$a2 = 0;
			}

		$mainlg||=$a2;
		$nowlg=int($a2/$mainlg*10*200)/10;

		if ($data1{$a1} != $bfcount){
			$ct+=$addcount;
			$addcount=1;
			$bfcount=$data1{$a1};
			}else{
			$addcount++;
			}
		@y3=split(/<>/,$a1);
		if ($y3[1] ne ""){
			$a3="<a href=\"$y3[1]\">$y3[0]</a>";
			}else{
			$a3=$y3[0];
			}

#------------------------------------------------------------------------------
#ランキングデータ表示
#
# $ct - 順位
# $a3 - 題名
# <img src=\"$bar\" width=\"$nowlg\" height=$barheight> - グラフ
# $data1{$a1} - カウント
# $a2 - 割合
#
print <<EOD;
<tr>
<th bgcolor=$back1>$ct</th>
<th bgcolor=$back2 align=center>$a3</th>
<td bgcolor=$back3 width=$barwidth align=left valign=middle><img src=\"$bar\" width=\"$nowlg\" height=$barheight></td>
<th bgcolor=$back4 align=center>$data1{$a1}</th>
<td bgcolor=$back5 align=center>$a2%</td>
</tr>
EOD
#------------------------------------------------------------------------------
		}
	}
#ランキングテーブルタグとじ
print "</table>";

if ($home ne ""){
	#「戻る」のリンク表示
	print "<br><div align=center><a href=\"$home\">&lt;&lt;戻る</a></div><br><br>";
	}

#------------------------------------------------------------------------------
#フッタ表示
print <<EOD;
<form method="post" action="./dlcount.cgi">
<div align=center><a href="http://exdreams.net/room/" target="_blank">Download Counter by The Room</a></div><br>
<div align=right>
<input type="password" name="pass" value="" size=8><input type="submit" value="管理"><input type="hidden" name="act" value="ad_menu">
</form>
</body></html>
EOD
#------------------------------------------------------------------------------
exit;
}
#*****************************************************************************