KENT-WEB サポートコーナー 過去ログ [ 0357 ]


記事No: 10611
投稿日: 2012/06/11(Mon) 01:29:04
タイトルWebProtect ID表示
ID情報: web25
投稿者: ha-dai
URLhttp://cgi20.plala.or.jp/Hara/protect/protect.cgi?page=1


毎度この手の質問で申し訳ありません。。。

過去スレ(http://www.kent-web.com/support/bbs/?list=log&no=10314)
にてcgiprot.cgiを使用して表示させる方法を試みたのですが、

 単体のCGI(http://cgi20.plala.or.jp/~Hara/protect/id.cgi)
では上手く作動するのですが、protect.cgiないのページ
(protect.cgi?page=0)等では置き換えを利用しても上手くいきません。
なぜでしょうか・・・?

スクリプトはhttp://cgi20.plala.or.jp/Hara/protect/protect.txtにあります(残骸がひどいですが・・・)
cgiprot.cgiのなかはhttp://cgi20.plala.or.jp/Hara/protect/prot.txtになります。

どうか、ご教授をお願いします。


記事No: 10612
投稿日: 2012/06/11(Mon) 09:30:43
タイトルRe: WebProtect ID表示
ID情報: Fuyuki
投稿者: BAL
URLhttp://www26.tok2.com/home/sumire1100/

>  単体のCGI(http://cgi20.plala.or.jp/~Hara/protect/id.cgi)
> では上手く作動するのですが、protect.cgiないのページ
> (protect.cgi?page=0)等では置き換えを利用しても上手くいきません。

ジャンプ先がHTMLファイルの場合は以下で。

●protect.cgi
#-----------------------------------------------------------
# 認証ページ表示
#-----------------------------------------------------------
sub open_file {
#▼ここから▼
my $id2;
my ($host,$addr) = &get_host;
open(IN,"$cf{logfile}") || &error("Open Error: $cf{logfile}");
while (<IN>) {
my ($id,$dat,$hos) = split(/<>/);
if ($host eq $hos) {
$id2=$id; last;
}
}
close(IN);
#▲ここまで追加▲
# バイナリファイル

-- 省略 --

# HTMLファイルなら読み出し
} else {
open(IN,"$cf{prvdir}/$target") or &error("open err: $target");
print "Content-type: text/html\n\n";
print"ID:<b>$id2</b>"; ## ★追加
print <IN>;
close(IN);


記事No: 10613
投稿日: 2012/06/11(Mon) 17:13:51
タイトルRe^2: WebProtect ID表示
ID情報: web25
投稿者: ha-dai
URLhttp://cgi20.plala.or.jp/Hara/protect/protect.cgi?page


BALさん、早速のご返信ありがとうございました!
見事正しく動作しました。大変感謝いたしますm(_ _)m


[検索ページ] [掲示板]