#!/usr/bin/perl # --------------------------------------------------------------------------------------------- # K's DownLoad Counter v1.1（ダウンロードカウンター） # Programing By ジェッターＫ (99-12-01) # E-Mail: webmaster@ks-power.net # HomePage: http://www.ks-power.net/ # --------------------------------------------------------------------------------------------- # ■スクリプトの概要及び注意事項 # 1.このスクリプトは、ダウンロード数をカウントするスクリプトです。 # ソフト等のダウンロード数をカウントしたい場合にご使用になれます。 # ダウンロード情報がＣＳＶ形式の為、ＦＴＰ等でダウンロードする事によりＥｘｃｅｌ等の表計算 # ソフトで簡単にデータの処理が行えます。 # また、アクセスログも合わせて取得しています。 # 2.先頭行のPerlのパスをご使用のプロバイダに合わせて下さい。 # 3.このスクリプトは個人使用に限り、フリーソフトです。但し、著作権は放棄していません。 # 転載、再配布の際にはオリジナルのまま配布をお願いします。 # また、商用目的でご使用の場合は別途メールにて連絡をお願い致します。 # （著作権表示部の削除・編集は行わないで下さい。） # 4.このスクリプト使用における損害の発生に対して作者（MK-NET）は一切の責任を負いません。 # 5.設置に関する質問はサポート掲示板にお願い致します。メールによる質問はご遠慮下さい。 # --------------------------------------------------------------------------------------------- # ■設置方法 # 入力フォームのタグを \n"; print "ダウンロード情報\n"; print "\n"; print "
\n"; print "[ ホーム ] [ ダウンロード情報 ] [ アクセス情報 ]\n"; print "
\n"; print "

\n"; } sub footer { print "

\n"; print "

\n"; print "
$ver
\n"; print "


\n"; print "\n"; print "\n"; } sub down { # ダウンロードデータファイルの取得 open(DAT,"$file") || &error("File Not Found ! (error 01)"); @data = ; close(DAT); $n = 0; $total = 0; foreach (@data) { chop($_); ($name,$value) = split(/\,/,$_); $n++; $cname{$n} = $name; $count{$n} = $value; $total = $total + $value; } &header; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; $n = 0; foreach (sort {$count{$b} <=> $count{$a}} keys(%count)) { $n++; $grp = int($count{$_} * $k + 0.5); print "\n"; print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "
RankingDownLoad NameDownLoad CountDownLoad Graph
$n$cname{$_}$count{$_}
Total$total
\n"; print "
\n"; &footer; exit; } sub acs { # アクセスファイルの取得 open(ACS,"$access") || &error("File Not Found ! (error 03)"); @data = ; close(ACS); &header; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; foreach (@data) { ($date,$name,$host) = split(/\,/,$_); print "\n"; print "\n"; print "\n"; } print "
DownLoad DateDownLoad FileHost Name
$date$name$host
\n"; print "
\n"; &footer; exit; } ### ■Error処理 sub error { print "Content-type: text/html\n\n"; print "\n\n"; print "\n"; print "\"$_[0]\"
\n"; print "

\n"; print "\n"; print "ホームへ戻る\n"; print "\n"; print "\n"; exit; }