▼スレッド
│
└◇492:Re:勢力の掲示板 [masaki] 04/20 22:14

　└◇493:Re[2]:勢力の掲示板 [moon] 04/20 22:33
　　└◇494:Re[3]:勢力の掲示板 [masaki] 04/21 06:28
　　　└◇495:Re[4]:勢力の掲示板 [moon] 04/21 09:08
　　　　└◇496:Re[5]:勢力の掲示板 [masaki] 04/21 19:38<-last

> sub normal_actionの、
> 　　foreach $line (@lstlines) {
> 　　　　($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$others) = split(/<>/,$line);
> 　　　　if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp }
> 　　　　else { print qq|<option value="$pid">$pid：$pnm($pjb)\n| }
> 　　}
> のあたりかな？
> ここで$pidとかではなく$idなどにしているか、逆にplayer_dataのほうで$pidとかを利用しているとか、が考えられます。
> どちらにしても他人のIDや名前が意図しないときに表示されているのはパスワードさえ載っている可能性があるのでかなり危険な状態ですね。
直りました（＾＾
あと、最後の質問ですが（＾＾；
# Sub Ability bbs #
sub abl_bbs {

$reid = $Fm{'id'};
open(IN,"$usrdir$reid\.cgi") || &error("Can't open logfile");
@lines = <IN>;
close(IN);
$own = ($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,$tw) = split(/<>/,$lines[0]);

if($ps ne $Fm{'pass'}){&error("伝言板データ読みこみエラー")}
require 'ability.pl'; &sosiki_name;
if($s_id eq 'S1'){$ab_dat = $s_id;}
if($s_id eq 'S2'){$ab_dat = $s_id;}
if($s_id eq 'S3'){$ab_dat = $s_id;}
if($s_id eq 'S4'){$ab_dat = $s_id;}
if($s_id eq 'S5'){$ab_dat = $s_id;}
if($s_id eq 'S6'){$ab_dat = $s_id;}
if($s_id eq 'S7'){$ab_dat = $s_id;}
if($s_id eq 'S8'){$ab_dat = $s_id;}
if($s_id eq 'S9'){$ab_dat = $s_id;}

@bbslines = &opendat("$ab_dat\.cgi",@bbslines);
&header;
print qq|<center><b>[アビィティ《 $sst 》の伝言板]</b></center><hr>\n|;
foreach $line (@bbslines) { print qq|$line<br><hr>\n| }
}
↑でCan't open logfileというエラーが出る場合は、どのような場合でしょうか？（＾＾；；

> 直りました（＾＾

何が問題だったかを書いてもらえるとすっきりするのですが・・・。

> ↑でCan't open logfileというエラーが出る場合は、どのような場合でしょうか？（＾＾；；

> $reid = $Fm{'id'};
> open(IN,"$usrdir$reid\.cgi") || &error("Can't open logfile");
とあるので、ユーザファイルが.cgiではなくデフォルトの.datのままとかなのでは？

> 何が問題だったかを書いてもらえるとすっきりするのですが・・・。
よくわかりませんが、不用なものを削除していったら直りました（＾＾；↓
if($nm eq $e1hero||$nm eq $e2hero||$nm eq $e3hero||$nm eq $e4hero||$nm eq $e5hero||$nm eq $e6hero||$nm eq $e7hero||$nm eq $e8hero||$nm eq $e9hero){
$mn -=0;}else{$mn -=30;}
と
if($mynm eq $e1hero||$mynm eq $e2hero||$mynm eq $e3hero||$mynm eq $e4hero||$mynm eq $e5hero||$mynm eq $e6hero||$mynm eq $e7hero||$mynm eq $e8hero||$mynm eq $e9hero){
&input('radio','mode','abl_bbs_before','',"<font color=blue>アビリティ伝言板に記入</font><br>\n");}
else{&input('radio','mode','abl_bbs_before','',"アビリティ伝言板に記入 書込み料 ３０Ｇ／回<br>\n");}
}
を
&input('radio','mode','abl_bbs_before','',"<font color=blue>アビリティ伝言板に記入</font><br>\n");
にしたくらいですが（＾＾；
$mynmがどこでも代入されてなかったので（笑
> > ↑でCan't open logfileというエラーが出る場合は、どのような場合でしょうか？（＾＾；；
>
> > $reid = $Fm{'id'};
> > open(IN,"$usrdir$reid\.cgi") || &error("Can't open logfile");
> とあるので、ユーザファイルが.cgiではなくデフォルトの.datのままとかなのでは？
ユーザーファイルを.cgiにするのですか（＾＾；；
.datのままやる方法はないでしょうか？？（＾＾；

> > 何が問題だったかを書いてもらえるとすっきりするのですが・・・。
> よくわかりませんが、不用なものを削除していったら直りました（＾

ありがとうございます。

> ユーザーファイルを.cgiにするのですか（＾＾；；
> .datのままやる方法はないでしょうか？？（＾＾；

ただ、open(IN,"$usrdir$reid\.cgi") || &error("Can't open logfile");のcgiをdatに変更するだけです。

> > > 何が問題だったかを書いてもらえるとすっきりするのですが・・・。
> > よくわかりませんが、不用なものを削除していったら直りました（＾
>
> ありがとうございます。
いえ。
教えていただいたのですから（＾＾；；
> > ユーザーファイルを.cgiにするのですか（＾＾；；
> > .datのままやる方法はないでしょうか？？（＾＾；
>
> ただ、open(IN,"$usrdir$reid\.cgi") || &error("Can't open logfile");のcgiをdatに変更するだけです。
できました（＾＾
ありがとうございます！！
これからもよろしくお願いします！