| 記事No | ： 12775 |
| 投稿日 | ： 2014/03/22(Sat) 18:57:09 |
| タイトル | ： WEBPROTECTのHTMLの任意位置でのID表示 |
| ID情報 | ： divers |
| 投稿者 | ： ひではる |
| URL | ： http://divers-hi.xsrv.jp/protect/enter.cgi |
KENT様
いつも大変お世話になっております。
このほどWEBPROTECTのバージョンをVer.3.22からVer.4.33にしました。
以前のバージョンのさいには、こちらのサポート掲示板でHTMLへの任意位置での挿入が可能でしたが、今回のはどうしたら良いのかわかりません。
サポート掲示板の過去ログ
http://www.kent-web.com/support/oldlog/0005/0357.html
でHTMLの上部にIDは表示できたのですが、
できれば、隠しTOPページにあるように「こんにちは、!id! さん」の「!id!」にIDを表示したいのです。
そういったことは可能でしょうか？
ID：test
PASSWORD：test
CGIファイル
http://divers-hi.xsrv.jp/init.txt
http://divers-hi.xsrv.jp/protect.txt
宜しくお願いいたします。
| 記事No | ： 12787 |
| 投稿日 | ： 2014/03/26(Wed) 20:57:27 |
| タイトル | ： Re: WEBPROTECTのHTMLの任意位置でのID表示 |
| ID情報 | ： kent |
| 投稿者 | ： KENT |
> KENT様
>
> いつも大変お世話になっております。
> このほどWEBPROTECTのバージョンをVer.3.22からVer.4.33にしました。
> 以前のバージョンのさいには、こちらのサポート掲示板でHTMLへの任意位置での挿入が可能でしたが、今回のはどうしたら良いのかわかりません。
> サポート掲示板の過去ログ
> http://www.kent-web.com/support/oldlog/0005/0357.html
> でHTMLの上部にIDは表示できたのですが、
> できれば、隠しTOPページにあるように「こんにちは、!id! さん」の「!id!」にIDを表示したいのです。
> そういったことは可能でしょうか？
>
> ID：test
> PASSWORD：test
>
> CGIファイル
> http://divers-hi.xsrv.jp/init.txt
> http://divers-hi.xsrv.jp/protect.txt
>
> 宜しくお願いいたします。
現行バージョンでは、CGI::Sessionを使用しているので、多少複雑になりますね。
■隠しファイル (HTML)
IDを表示させるところに、!id! を記述しておく。
■enter.cgi 55行目
# 新規セッション発行
my $ses = new CGI::Session(undef, undef, {Directory => $cf{sesdir}}) or die CGI::Session->errstr;
$ses->param('uid', $in{id}); # 追加
■protect.cgi 29行目
# セッション認識
my $ses = CGI::Session->load(undef, undef, {Directory => $cf{sesdir}});
my $uid = $ses->param('uid'); # 追加
■同 47行目
open_file();
↓
open_file($uid);
■同 52行目
sub open_file {
my $uid = shift; # 追加
■同 76行目
open(IN,"$cf{prvdir}/$target") or error("open err: $target");
print "Content-type: text/html\n\n";
print <IN>;
close(IN);
↓
open(IN,"$cf{prvdir}/$target") or error("open err: $target");
print "Content-type: text/html\n\n";
while(<IN>) {
s/!id!/$uid/g;
print;
}
close(IN);
| 記事No | ： 12796 |
| 投稿日 | ： 2014/03/27(Thu) 20:54:01 |
| タイトル | ： Re^2: WEBPROTECTのHTMLの任意位置でのID表示 |
| ID情報 | ： divers |
| 投稿者 | ： ひではる |
| URL | ： http://divers-hi.xsrv.jp/protect/enter.cgi |
KENT様
早速のご教授いただきましてありがとうございます。
無事、表示できました。
私Perlについて全くの無知のため、無謀なお願いをしてしまい
申し訳ございませんでした。
心より感謝申し上げます。