TSperl 発言

極悪です。

>       if ($dtype==0) {
>           if ($ddel eq '') { &error_("このデータにパスワードは設定されていません！"); }
>           elsif (crypt($form{'pass'}, $salt) ne $ddel) { &error_("パスワードが一致しません！"); }
>           else {
>               push(@wri, $dno);
>               for ($y=0; $databank[$y]; $y++) {
>                   my ($cno, $ctitle, $cname, $ccomment, $cmail, $clink, $ccolor, $ctype, $cip,
>                                       $cico, $cdel, $cfiller, $ctime)=split(/<>/, $databank[$y]);
>                   if ($dno==$ctype) { push(@wri, $dno); }
>               }
>           }
>       }

ぱっと見、if ($dno==$ctype) { push(@wri, $dno); } は
          if ($cno==$ctype) { push(@wri, $cno); } でないと
意味がないような。

まぁ、$datfile の中身を自分で用意して、期待した結果とどう
違うかを調べればデバッグできると思います。


-- 
FZH01112@..., http://homepage1.nifty.com/dune/