| 記事No | ： 10611 |
| 投稿日 | ： 2012/06/11(Mon) 01:29:04 |
| タイトル | ： WebProtect ID表示 |
| ID情報 | ： web25 |
| 投稿者 | ： ha-dai |
| URL | ： http://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 |
| URL | ： http://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 |
| URL | ： http://cgi20.plala.or.jp/Hara/protect/protect.cgi?page |
BALさん、早速のご返信ありがとうございました！
見事正しく動作しました。大変感謝いたしますm(_ _)m