ダウンロードをした人の一覧を表示するCGI

Question

色々ホームページを見てまわったのですが、
欲しいフリーのCGIが見つからなかったので、
もし「このHPにあるよ」など、情報を頂けたら幸いです。
私が欲しいCGIは、

あらかじめ登録されたメンバーが居て、
そのメンバーが、管理者の指定した圧縮ファイルなど、ファイルのダウンロードをしたかしてないか、一覧で表示できる様なCGIを探しています。
ダウンロード済みの方の行にはダウンロード済みと表示されて、日時も表示されるようなシステムです。

もしくは、「ダウンロード完了登録フォーム」を用意して、そこからコンボなどで自分の名前を選び、登録すると、一覧に「ダウンロード済み」「日時」が表示されるような仕組みでもかまいません。どちらかというとこちらの方が欲しいシステムです。

CGIの知識がほとんどないので、設置するくらいしかできません。
一から作ることが出来ないので、フリーで探しています。
凄くわがままな要望なんですが、過去にこういった事をした事がある方、いらっしゃいましたら情報を下さい。宜しくお願いします。

togino · Accepted Answer

#!/usr/local/bin/perl

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

if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
} else {
$query_string = $ENV{'QUERY_STRING'};
}
@a = split(/&/, $query_string);
foreach $a (@a) {
($name, $value) = split(/=/, $a);
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}

$user_name = $FORM{"user_name"};

@file_names = ("file1.zip", "file2.zip", "file3.zip");
@user_names = ("yamada", "sato", "inoue");

if($FORM{"file_name"}){
$file_name = $FORM{"file_name"};
open(OUT, ">> download.csv");
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time());
$mon ++;
print(OUT "${user_name},${file_name},${year}/${mon}/${mday} ${hour}:${min}:${sec}\n");
close(OUT);
}

open(IN, "< download.csv");
while($line = <IN>){
chop($line);
@line = split(",", $line);
$download{$line[0]}{$line[1]} = $line[2];
}
close(IN);

print <<_EOF_;
<html><head>
</head>
<body>
$user_name さんのダウンロード状況
<table border="1">
<tr>
<td>DL</td>
<td>ファイル名</td>
<td>日時</td>
</tr>
_EOF_

foreach $file_name (@file_names) {
if($download{$user_name}{$file_name}){

print <<_EOF_;
<tr>
<td>済</td>
<td>$file_name</td>
<td>$download{$user_name}{$file_name}}</td>
</tr>
_EOF_

}else{

print <<_EOF_;
<tr>
<td>未</td>
<td>$file_name</td>
<td><a href="download_view.php?user_name=${user_name}&file_name=${file_name}">ダウンロード</a></td>
</tr>
_EOF_

}
}
print <<_EOF_;
</table>
</body></html>
_EOF_

return 1;

以上 Perl の CGI に書き換えて見ました。
う～ん、なれない言語だとちょっとしんどいなぁ

DL	ファイル名	日時
済	$file_name	$download{$user_name}{$file_name}}
未	$file_name	ダウンロード

_EOF_ return 1; 以上 Perl の CGI に書き換えて見ました。う～ん、なれない言語だとちょっとしんどいなぁ

togino · Answer

> すべてを書いて、UPしてみましたが、
> ソースがブラウザに全部出てしまいました。

あちゃちゃ・・・たぶん、サーバが PHP に
対応していないという事だと思いますよ。

<?php
phpinfo();
?>

という３行の phpinfo.php というファイルを作って
サーバにアップして、ブラウザから見た場合に、
ソースがそのまま表示されるのであれば、サーバが
PHP を処理していない、つまり対応していないって
ことになりますね・・・

う～ん、Perl で書き直しますか

togino · Answer

> http://xxx.yyy.zzz/download_view?user_name=sato
はもちろん
http://xxx.yyy.zzz/download_view.php?user_name=sato
の間違えです。（汗）

togino · Answer

さんのダウンロード状況

DL	ファイル名	日時
済
未		ダウンロード

上記ファイルを download_view.php としてサーバーにアップしさらに下記のような download.csv を書き込み権限を与えてアップして下さい sato,file1.zip.2004/07/01 12:00:00 完了しましたら http://xxx.yyy.zzz/download_view?user_name=sato とアクセスしてみてください。いくつか仕様について質問があります。 ■ メンバーは固定ですか？Web から追加・削除しますか？ ■ ダウンロードするファイルは固定ですか？Web から追加・削除しますか？ Web から追加・削除するなら、そのページもつくりますが

togino · Answer

例えば、この OK Web も PHP を利用されていますが
設置することができるのかは、サーバによります。

下記のファイルを phpinfo.php という名前で
作成して、サーバにアップし
http://xxx.yyy.zzz/~aaa/phpinfo.php などの
ようにブラウザから見て、いろいろ情報が
見られれば PHP が使えるサーバってことになります。

<?php
phpinfo();
?>

というファイルです。

# 誰か Perl で書いてあるのがあればいいんですがね。

togino · Answer

CGI は Perl 言語で書かれたものでないと
いけないでしょうか？

もし PHP 言語での CGI でよろしければ、
これらくらいのものなら１０分でお作りして
ここに書き込みしてあげれますけど。

ダウンロードをした人の一覧を表示するCGI

#!/usr/local/bin/perl

この回答への補足

> すべてを書いて、UPしてみましたが、

この回答への補足

>

この回答への補足

<?php

この回答への補足

例えば、この OK Web も PHP を利用されていますが

この回答への補足

CGI は Perl 言語で書かれたものでないと

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング