《Perl関連》助けてください。KentWebさんが配布しているアクセスレポート（http://www.kent-web.com/data/report.html）を複数のユーザーで使えるようにしたいのですがなかなかうまくいきません。
ひとつのCGIを複数のユーザーで共用するためreport.cgi?ID のように引数をつけユーザーごとにログを吐くようにしています。
replist.cgi(ログを見やすくグラフにするスクリプト）の複数使用に対応するように改造ししっかり動いてくれましたがログを作成するreport.cgiの複数使用化がうまいいきません。
ユーザーIDを認識させログを書かせるため以下のように書き換えました。
--------
#引数を取得
$id = $ENV{’QUERY_STRING’};
# ログファイル
$logfile = ’./￥$id￥replog.cgi’;
-------
しかし何回やっても500で作動してくれません。どうしたらいいのでしょうか。見事解決してくれた方には少ないですが100P以上差し上げます。
みんなの回答
-
o0o0o0o0o
満足40pt
■対策案１
$logfile = ’./￥$id￥replog.cgi’;
というのは、おそらく$idディレクトリごとにファイルを作成する
という理解でよろしいでしょうか。
としますと存在しない場合は、作成する必要があります。
そこで、
「$logfile = ’./￥$id￥replog.cgi’;」を
「# $logfile = ’./￥$id￥replog.cgi’;」とコメントにします。
次に、
「# ログ読み込み
open(IN,”$logfile”) || &error(”Open Error : $logfile”);」を
「# open(IN,”$logfile”) || &error(”Open Error : $logfile”);」とコメントにし、以下を加えます。
#ディレクトリ存在チェック・作成
if (-d $id){
mkdir $id, 0777 || &error(”ディレクトリ作成エラー”);
}
#ファイル存在チェック・作成
if (-e ”$id/$logfile”){
open(INOUT,”$id/$logfile”) || &error(”オープンエラー”);
}else {
open(INOUT,”+>$id/$logfile”) || &error(”ファイルリ作成エラー”);
}
そして、
「# 更新
open(OUT,”>$logfile”) || &error(”Write Error: $logfile”);」を
「# open(OUT,”>$logfile”) || &error(”Write Error: $logfile”);」とコメントにし、以下を加えます。
open(OUT,”>$id/$logfile”) || &error(”Write Error: $id/$logfile”);
■対策案2
$id = $ENV{’QUERY_STRING’};
の$idは、ちゃんと文字列がとれていますでしょうか？
もし取れていなければ、こうしては、いかがでしょうか？
&decode;
$id=$in{’ID’};
#-------------------------------------------------
# デコード処理
#-------------------------------------------------
sub decode {
local($buf, $key, $val);
if ($ENV{’REQUEST_METHOD’} eq ”POST”) {
read(STDIN, $buf, $ENV{’CONTENT_LENGTH’});
} else {
$buf = $ENV{’QUERY_STRING’};
}
foreach ( split(/&/, $buf) ) {
($key, $val) = split(/=/);
$val =~ tr/+/ /;
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(”H2”, $1)/eg;
# 不要コード削除
$val =~ s/&/&/g;
$val =~ s/”/"/g;
$val =~ s/</</g;
$val =~ s/>/>/g;
$val =~ s/￥r|￥n|￥0//g;
$in{$key} = $val;
}
}
-
esecua
-
- その他の回答を読む
esecua
この質問へのコメント
質問の情報
- 登録日時
- 2005-11-17 11:00:37
- 終了日時
- --
- 回答条件
- 回答にURL必須 1人2回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
3
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者21
-
内定してほしいポケモンはいますか？匿名質問者