次期バージョンβリリーステストスレッド

273 ：1：2003/06/23 16:18 ID:???

バグ報告です
スレッドをpoolに送ったとき、CGI側でdatファイル名が変わっているため
read.cgiがpool内のスレッドを確認できていません
datファイル名　1047139652.dat　がpoolに送ると　1047139652.cgi になってます
ついでに、改善方法も書いときます

長文で拒否られたので分割

274 ：2：2003/06/23 16:18 ID:???

[read.cgi] (dat検索結果出力 - PrintDiscovery)

if (-e "$spath/pool/$key.dat"){ # poolにあり←ここの行に問題
$T->Print("$key.datはhtml化を待っています<br>");
$T->Print("ここは待つしかない・・・<br>");
}
elsif (-e "$spath/kako/$key.html"){ # 過去ログにあり
$T->Print("隊長！過去ログ倉庫に<a href=\"$lpath/kako/$key.html\">");
$T->Print("$key.html</a><br>を発見しました！<br>");
}
else{ # どこにもない
$T->Print("過去ログ倉庫にもありませんでした<br>");
$T->Print("問い合わせても見つかる可\能\性はほとんどありません<br>");
}

問題箇所修正したのがこちら

[read.cgi] (dat検索結果出力 - PrintDiscovery)

if (-e "$spath/pool/$key.cgi"){ # poolにあり←ここの行を改善
$T->Print("$key.datはhtml化を待っています<br>");
$T->Print("ここは待つしかない・・・<br>");
}
elsif (-e "$spath/kako/$key.html"){ # 過去ログにあり
$T->Print("隊長！過去ログ倉庫に<a href=\"$lpath/kako/$key.html\">");
$T->Print("$key.html</a><br>を発見しました！<br>");
}
else{ # どこにもない
$T->Print("過去ログ倉庫にもありませんでした<br>");
$T->Print("問い合わせても見つかる可\能\性はほとんどありません<br>");
}

つまり
(-e "$spath/pool/$key.dat")→(-e "$spath/pool/$key.cgi")
にするだけで直る罠ですｗ

長文＆分かりにくい説明でｽﾏｿ
管理人様、お忙しいとは思いますががんばってください