ぜろちゃんねるスクリプトを改造するスレ

408 ：名無しさん＠ぜろちゃんねる：04/11/16 22:53 ID:???

どなたか教えてください。
test040221＋repair040803で指定したスレだけを
強制ID表示にしたくスクリプトを書き直したましたのですが、
指定外のスレについても、1だけはIDが表示されてしまいます。
(2以降はID非表示になります。また、指定したスレは全レスID強制表示になります)

弄ったのはgaladriel.plの670行目付近　sub ConvertDateで、
次のソースを書き加え、logディレクトリにforceid.cgiファイル(スレッドキーを羅列したもの)
を置きました。

※↓my $host = $S->Get('host');　の次行に追加
my $key = $S->Get('key');
my $force=0;
open(forceID_file,'../板ディレクトリ/log/forceid.cgi');
my @force=<forceID_file>;
foreach $forceid(@force){
if($forceid =~/$key/){$force = 1;}
}
close(forceID_file);
※↓CAP権限ない場合の条件分岐に追加
elsif ($force == 1) {$id = " ID:$id";}

長くなってしまい申し訳ありません。
どうか宜しくお願い致します。

409 ：408：04/11/20 20:13 ID:???

すみません、>>408の件、解決しました。

6行目を訂正
if($forceid =~/$key/){$force = 1;}
↓
if( ($forceid =~/$key/) && ($key ne '') ){$force = 1;}

新スレにはkeyが存在しないため、「forceid.cgiファイル」内の
空改行等にマッチングしてしまったことが原因みたいです。

あと、↓も直さないとダメだ・・・
open(forceID_file,'../板ディレクトリ/log/forceid.cgi');
　　　　　　　　　　　 ~~~~~~~~~~~~~~
板が二つ以上あったら対応できないです。
初心者ですみません・・・

410 ：408：04/11/20 20:53 ID:???

度々すみません。>>409後段 ファイルパスの指定について
次のようにしたいのですが、500エラーが出てしまいます。

my $M;
my $keypath = $M->Get('BBSPATH') . '/' . $M->Get('BBS') . '/log/forceid.cgi';
open(forceID_file,$keypath);

試しに2行目を次のようにしてみたら、問題なく動きました。
my $keypath = '../板ディレクトリ/log/forceid.cgi';

melkor.plは、設置サーバーパス以外は弄っていません。
何がいけないのでしょうか。