ore_else.cgi

sub sukinselectを修正する


if($c_kojin){
        print <<"_EOF_";
<br><br><font color="$tcolor" size="$tsize">パスワード変更</font>
<br><br><br>半角英数字6〜8文字
<form action="$cgifile" method="$method">
現在のパスワード：<input type=hidden name=oldpass size=10 value=$c_kojin>$c_kojin<br><br>
新しいパスワード：<input type=password name=kojin size=10><br><br>
<input type=hidden name=saku value=$c_saku>
<input type=hidden name=sakusya value=$c_sakusya>
<input type=submit name="passchange" value="パスワード変更">
</form>
_EOF_

}
↓

if($c_kojin){
        print <<"_EOF_";
<br><br><font color="$tcolor" size="$tsize">パスワード変更</font>
<br><br><br>半角英数字6〜8文字
<form action="$cgifile" method="$method">
現在のパスワード：<input type=hidden name=oldpass size=10 value=$c_kojin>$c_kojin<br><br>
新しいパスワード：<input type=password name=newkojin size=10><br>
新しい監督名：<input type=text name=newsaku size=10><br>
新しい選手名<input type=text name=newsensyu size=10><br>
新しいURL：<input type=text name=newurl size=100><input type=checkbox name=ulrdelet>URL削除時はチェック<br>
<input type=hidden name=saku value=$c_saku>
<input type=hidden name=sakusya value=$c_sakusya>
<input type=submit name="passchange" value="パスワード変更">
</form>
_EOF_

}

sub passchangeを修正する

################パス変更
sub passchange{

if($kousin eq 5){ &error("$leagu_name3期間中は変えられません"); }
if((length($form{'kojin'}) < 6) || (length($form{'kojin'}) > $passleng)){ &error("パスワードの長さは6〜$passleng文字までにしてね"); }
if($form{'kojin'} eq $form{'oldpass'}){ &error("パスワードが同じです"); }
$cangeflag = 0; 

        open(US,"+<$leaguefold/$userfile") || &error('指定されたファイルが開けません');
        eval 'flock(US,2);';
        @users = <US>;
        for($j=0; $j<6; $j++){
                ($saku[$j], $pass[$j], $home[$j], $team[$j], $icon[$j], $kyuuzyou[$j], $ryouyoku[$j], $date[$j], $ip[$j], $teamdata[$j], $pointdata[$j], $bosstype[$j], $charadata[$j], $gamedata[$j], $campflag[$j]) = split(/<p>/, $users[$j]);
                if($form{'saku'} eq $team[$j]){
                        @players = split(/<c>/, $charadata[$j]);
                        for($i=0; $i<9; $i++){
                                ($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i], $mit[$i], $run[$i], $kat[$i], $def[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $box[$i], $hit[$i], $ten[$i], $hr[$i], $ste[$i], $err[$i], $for[$i], $gid[$i], $tbox[$i], $thit[$i], $tten[$i], $thr[$i], $tste[$i] ,$terr[$i], $tfor[$i], $tgid[$i], $ytitle1[$i], $ytitle2[$i], $ytitle3[$i], $ytitle4[$i], $ynew[$i], $ymvp[$i], $yallmvp[$i], $ybest[$i]) = split(/<>/, $players[$i]);
                                if($form{'sakusya'} eq $sakusya[$i] && $form{'oldpass'} eq $kojin[$i]){ $kojin[$i] = $form{'kojin'}; $cangeflag = 1; &set_cookie; }
                                $players[$i] = "$id[$i]<>$jun[$i]<>$posit[$i]<>$yasyu[$i]<>$cond[$i]<>$pow[$i]<>$mit[$i]<>$run[$i]<>$kat[$i]<>$def[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$ato[$i]<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$box[$i]<>$hit[$i]<>$ten[$i]<>$hr[$i]<>$ste[$i]<>$err[$i]<>$for[$i]<>$gid[$i]<>$tbox[$i]<>$thit[$i]<>$tten[$i]<>$thr[$i]<>$tste[$i]<>$terr[$i]<>$tfor[$i]<>$tgid[$i]<>$ytitle1[$i]<>$ytitle2[$i]<>$ytitle3[$i]<>$ytitle4[$i]<>$ynew[$i]<>$ymvp[$i]<>$yallmvp[$i]<>$ybest[$i]";
                        }
                        for($i=9; $i<18; $i++){
                                ($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $pitwin[$i], $pitlose[$i], $kai[$i], $jiseki[$i], $san[$i], $four[$i], $hrp[$i], $save[$i], $tpitwin[$i], $tpitlose[$i], $tkai[$i], $tjiseki[$i], $tsan[$i], $tfour[$i], $thrp[$i], $tsave[$i], $ttitle1[$i], $ttitle2[$i], $ttitle3[$i], $ttitle4[$i], $tnew[$i], $tmvp[$i], $tallmvp[$i], $tbest[$i]) = split(/<>/, $players[$i]);
                                if($form{'sakusya'} eq $sakusya[$i] && $form{'oldpass'} eq $kojin[$i]){ $kojin[$i] = $form{'kojin'}; $cangeflag = 1; &set_cookie; }
                                $players[$i]  = "$id[$i]<>$jun[$i]<>$posit[$i]<>$pitch[$i]<>$cond[$i]<>$fas[$i]<>$hen1[$i]<>$henlv1[$i]<>$hen2[$i]<>$henlv2[$i]<>$hen3[$i]<>$henlv3[$i]<>$hen4[$i]<>$henlv4[$i]<>$hen5[$i]<>$henlv5[$i]<>$sei[$i]<>$def[$i]<>$sta[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$ato[$i]<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$pitwin[$i]<>$pitlose[$i]<>$kai[$i]<>$jiseki[$i]<>$san[$i]<>$four[$i]<>$hrp[$i]<>$save[$i]<>$tpitwin[$i]<>$tpitlose[$i]<>$tkai[$i]<>$tjiseki[$i]<>$tsan[$i]<>$tfour[$i]<>$thrp[$i]<>$tsave[$i]<>$ttitle1[$i]<>$ttitle2[$i]<>$ttitle3[$i]<>$ttitle4[$i]<>$tnew[$i]<>$tmvp[$i]<>$tallmvp[$i]<>$tbest[$i]";
                        }
                        $charadata[$j] = join('<c>', @players);
                        $users[$j] = "$saku[$j]<p>$pass[$j]<p>$home[$j]<p>$team[$j]<p>$icon[$j]<p>$kyuuzyou[$j]<p>$ryouyoku[$j]<p>$date[$j]<p>$ip[$j]<p>$teamdata[$j]<p>$pointdata[$j]<p>$bosstype[$j]<p>$charadata[$j]<p>$gamedata[$j]<p>$campflag[$j]<p>\n";
                }
        }
        truncate (US, 0);
        seek(US,0,0);   print US @users;
        close(US);
        eval 'flock(US,8);';

if($cangeflag eq 0){

        open(US,"+<$leaguefold/$userfile2") || &error('指定されたファイルが開けません');
        eval 'flock(US,2);';
        @users = <US>;
        for($j=0; $j<6; $j++){
                ($saku[$j], $pass[$j], $home[$j], $team[$j], $icon[$j], $kyuuzyou[$j], $ryouyoku[$j], $date[$j], $ip[$j], $teamdata[$j], $pointdata[$j], $bosstype[$j], $charadata[$j], $gamedata[$j], $campflag[$j]) = split(/<p>/, $users[$j]);
                if($form{'saku'} eq $team[$j]){
                        @players = split(/<c>/, $charadata[$j]);
                        for($i=0; $i<9; $i++){
                                ($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i], $mit[$i], $run[$i], $kat[$i], $def[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $box[$i], $hit[$i], $ten[$i], $hr[$i], $ste[$i], $err[$i], $for[$i], $gid[$i], $tbox[$i], $thit[$i], $tten[$i], $thr[$i], $tste[$i] ,$terr[$i], $tfor[$i], $tgid[$i], $ytitle1[$i], $ytitle2[$i], $ytitle3[$i], $ytitle4[$i], $ynew[$i], $ymvp[$i], $yallmvp[$i], $ybest[$i]) = split(/<>/, $players[$i]);
                                if($form{'sakusya'} eq $sakusya[$i] && $form{'oldpass'} eq $kojin[$i]){ $kojin[$i] = $form{'kojin'}; &set_cookie; }
                                $players[$i] = "$id[$i]<>$jun[$i]<>$posit[$i]<>$yasyu[$i]<>$cond[$i]<>$pow[$i]<>$mit[$i]<>$run[$i]<>$kat[$i]<>$def[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$ato[$i]<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$box[$i]<>$hit[$i]<>$ten[$i]<>$hr[$i]<>$ste[$i]<>$err[$i]<>$for[$i]<>$gid[$i]<>$tbox[$i]<>$thit[$i]<>$tten[$i]<>$thr[$i]<>$tste[$i]<>$terr[$i]<>$tfor[$i]<>$tgid[$i]<>$ytitle1[$i]<>$ytitle2[$i]<>$ytitle3[$i]<>$ytitle4[$i]<>$ynew[$i]<>$ymvp[$i]<>$yallmvp[$i]<>$ybest[$i]";
                        }
                        for($i=9; $i<18; $i++){
                                ($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $pitwin[$i], $pitlose[$i], $kai[$i], $jiseki[$i], $san[$i], $four[$i], $hrp[$i], $save[$i], $tpitwin[$i], $tpitlose[$i], $tkai[$i], $tjiseki[$i], $tsan[$i], $tfour[$i], $thrp[$i], $tsave[$i], $ttitle1[$i], $ttitle2[$i], $ttitle3[$i], $ttitle4[$i], $tnew[$i], $tmvp[$i], $tallmvp[$i], $tbest[$i]) = split(/<>/, $players[$i]);
                                if($form{'sakusya'} eq $sakusya[$i] && $form{'oldpass'} eq $kojin[$i]){ $kojin[$i] = $form{'kojin'}; &set_cookie; }
                                $players[$i]  = "$id[$i]<>$jun[$i]<>$posit[$i]<>$pitch[$i]<>$cond[$i]<>$fas[$i]<>$hen1[$i]<>$henlv1[$i]<>$hen2[$i]<>$henlv2[$i]<>$hen3[$i]<>$henlv3[$i]<>$hen4[$i]<>$henlv4[$i]<>$hen5[$i]<>$henlv5[$i]<>$sei[$i]<>$def[$i]<>$sta[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$ato[$i]<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$pitwin[$i]<>$pitlose[$i]<>$kai[$i]<>$jiseki[$i]<>$san[$i]<>$four[$i]<>$hrp[$i]<>$save[$i]<>$tpitwin[$i]<>$tpitlose[$i]<>$tkai[$i]<>$tjiseki[$i]<>$tsan[$i]<>$tfour[$i]<>$thrp[$i]<>$tsave[$i]<>$ttitle1[$i]<>$ttitle2[$i]<>$ttitle3[$i]<>$ttitle4[$i]<>$tnew[$i]<>$tmvp[$i]<>$tallmvp[$i]<>$tbest[$i]";
                        }
                        $charadata[$j] = join('<c>', @players);
                        $users[$j] = "$saku[$j]<p>$pass[$j]<p>$home[$j]<p>$team[$j]<p>$icon[$j]<p>$kyuuzyou[$j]<p>$ryouyoku[$j]<p>$date[$j]<p>$ip[$j]<p>$teamdata[$j]<p>$pointdata[$j]<p>$bosstype[$j]<p>$charadata[$j]<p>$gamedata[$j]<p>$campflag[$j]<p>\n";
                }
        }
        truncate (US, 0);
        seek(US,0,0);   print US @users;
        close(US);
        eval 'flock(US,8);';

}

}#end sub

↓

################パス変更
sub passchange{

        if($kousin ne 7){ &error("オフしか変えられません。"); }
        $newsaku        = $form{'newsaku'};
        $newsensyu      = $form{'newsensyu'};
        $newkojin       = $form{'newkojin'};
        $newurl         = $form{'newurl'};
        $ulrdelet       = $form{'ulrdelet'};

        foreach(@kinshiw){
                if($newsaku eq $_ || $newsensyu eq $_){ &error("禁止ワードが含まれています。"); }
        }
        if(length($newsaku) > $nameleng *2){ &error("名前は$nameleng文字までにしてね。"); }
        if(length($newsensyu) > $nameleng *2){ &error("選手名は$nameleng文字までにしてね。"); }
        if($newsaku =~ / / || $newsaku =~ /　/ || $newsensyu =~ / / || $newsensyu =~ /　/){&error("空白は使えないよ");}
        if(($newkojin && length($newkojin) < 6) || (length($newkojin) > $passleng)){ &error("パスワードの長さは6〜$passleng文字までにしてね"); }
        ($newurl =~ /^http:\/\/[a-zA-Z0-9]+/) || ($newurl = '');

# 名前＆重複チェック
for($n=0; $n<2; $n++){
        if($n eq 0){ open(US,"$leaguefold/$userfile") || &error('指定されたファイルが開けません。'); }
        else{            open(US,"$leaguefold/$userfile2") || &error('指定されたファイルが開けません。'); }
        eval 'flock(US,1);';
        while(<US>){
        ($saku, $d, $d, $team, $d, $d, $d, $date, $ip, $teamdata, $pointdata, $bosstype, $charadata) = split(/<p>/, $_);
        @players        = split(/<c>/, $charadata);
        for($i=0; $i<9; $i++){
                ($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i], $mit[$i], $run[$i], $kat[$i], $def[$i], $sakusya[$i], $kojin[$i], $d[$i], $host[$i]) = split(/<>/, $players[$i]);
                if($newsaku eq $sakusya[$i]){ &error('その製作者名はすでに使われています。'); }
                if($newsensyu eq $yasyu[$i]){ &error('その選手名はすでに使われています。'); }
        }
        for($i=9; $i<18; $i++){
                ($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $d[$i], $host[$i]) = split(/<>/, $players[$i]);
                if($newsaku eq $sakusya[$i]){ &error('その製作者名はすでに使われています。'); }
                if($newsensyu eq $pitch[$i]){ &error('その選手名はすでに使われています。'); }
                }
        }
        close(US);
        eval 'flock(US,8);';
}

$cangeflag = 0; 

        open(US,"+<$leaguefold/$userfile") || &error('指定されたファイルが開けません');
        eval 'flock(US,2);';
        @users = <US>;
        for($j=0; $j<6; $j++){
                ($saku[$j], $pass[$j], $home[$j], $team[$j], $icon[$j], $kyuuzyou[$j], $ryouyoku[$j], $date[$j], $ip[$j], $teamdata[$j], $pointdata[$j], $bosstype[$j], $charadata[$j], $gamedata[$j], $campflag[$j]) = split(/<p>/, $users[$j]);
                if($form{'saku'} eq $team[$j]){
                        @players = split(/<c>/, $charadata[$j]);
                        for($i=0; $i<9; $i++){
                                ($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i], $mit[$i], $run[$i], $kat[$i], $def[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $box[$i], $hit[$i], $ten[$i], $hr[$i], $ste[$i], $err[$i], $for[$i], $gid[$i], $tbox[$i], $thit[$i], $tten[$i], $thr[$i], $tste[$i] ,$terr[$i], $tfor[$i], $tgid[$i], $ytitle1[$i], $ytitle2[$i], $ytitle3[$i], $ytitle4[$i], $ynew[$i], $ymvp[$i], $yallmvp[$i], $ybest[$i]) = split(/<>/, $players[$i]);
                                if($form{'sakusya'} eq $sakusya[$i] && $form{'oldpass'} eq $kojin[$i]){ 
                                if ($newsensyu){
                                        $yasyu[$i]=$newsensyu;
                                }
                                if ($newsaku){
                                        $sakusya[$i]=$newsaku;
                                        $form{'sakusya'}=$newsaku;
                                }
                                if ($newkojin){
                                        $kojin[$i]=$newkojin;
                                        $form{'kojin'}=$newkojin;
                                }
                                if ($newurl){
                                        $home[$i]=$newurl;
                                }
                                if($ulrdelet){
                                        $home[$i]='';
                                }
                                $cangeflag = 1; &set_cookie; }
                                $players[$i] = "$id[$i]<>$jun[$i]<>$posit[$i]<>$yasyu[$i]<>$cond[$i]<>$pow[$i]<>$mit[$i]<>$run[$i]<>$kat[$i]<>$def[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$ato[$i]<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$box[$i]<>$hit[$i]<>$ten[$i]<>$hr[$i]<>$ste[$i]<>$err[$i]<>$for[$i]<>$gid[$i]<>$tbox[$i]<>$thit[$i]<>$tten[$i]<>$thr[$i]<>$tste[$i]<>$terr[$i]<>$tfor[$i]<>$tgid[$i]<>$ytitle1[$i]<>$ytitle2[$i]<>$ytitle3[$i]<>$ytitle4[$i]<>$ynew[$i]<>$ymvp[$i]<>$yallmvp[$i]<>$ybest[$i]";
                        }
                        for($i=9; $i<18; $i++){
                                ($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $pitwin[$i], $pitlose[$i], $kai[$i], $jiseki[$i], $san[$i], $four[$i], $hrp[$i], $save[$i], $tpitwin[$i], $tpitlose[$i], $tkai[$i], $tjiseki[$i], $tsan[$i], $tfour[$i], $thrp[$i], $tsave[$i], $ttitle1[$i], $ttitle2[$i], $ttitle3[$i], $ttitle4[$i], $tnew[$i], $tmvp[$i], $tallmvp[$i], $tbest[$i]) = split(/<>/, $players[$i]);
                                if($form{'sakusya'} eq $sakusya[$i] && $form{'oldpass'} eq $kojin[$i]){
                                if ($newsensyu){
                                        $pitch[$i]=$newsensyu;
                                }
                                if ($newsaku){
                                        $sakusya[$i]=$newsaku;
                                        $form{'sakusya'}=$newsaku;
                                }
                                if ($newkojin){
                                        $kojin[$i]=$newkojin;
                                        $form{'kojin'}=$newkojin;
                                }
                                if ($newurl){
                                        $home[$i]=$newurl;
                                }
                                if($ulrdelet){
                                        $home[$i]='';
                                }
                                $cangeflag = 1; &set_cookie; }
                                $players[$i]  = "$id[$i]<>$jun[$i]<>$posit[$i]<>$pitch[$i]<>$cond[$i]<>$fas[$i]<>$hen1[$i]<>$henlv1[$i]<>$hen2[$i]<>$henlv2[$i]<>$hen3[$i]<>$henlv3[$i]<>$hen4[$i]<>$henlv4[$i]<>$hen5[$i]<>$henlv5[$i]<>$sei[$i]<>$def[$i]<>$sta[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$ato[$i]<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$pitwin[$i]<>$pitlose[$i]<>$kai[$i]<>$jiseki[$i]<>$san[$i]<>$four[$i]<>$hrp[$i]<>$save[$i]<>$tpitwin[$i]<>$tpitlose[$i]<>$tkai[$i]<>$tjiseki[$i]<>$tsan[$i]<>$tfour[$i]<>$thrp[$i]<>$tsave[$i]<>$ttitle1[$i]<>$ttitle2[$i]<>$ttitle3[$i]<>$ttitle4[$i]<>$tnew[$i]<>$tmvp[$i]<>$tallmvp[$i]<>$tbest[$i]";
                        }
                        $charadata[$j] = join('<c>', @players);
                        $users[$j] = "$saku[$j]<p>$pass[$j]<p>$home[$j]<p>$team[$j]<p>$icon[$j]<p>$kyuuzyou[$j]<p>$ryouyoku[$j]<p>$date[$j]<p>$ip[$j]<p>$teamdata[$j]<p>$pointdata[$j]<p>$bosstype[$j]<p>$charadata[$j]<p>$gamedata[$j]<p>$campflag[$j]<p>\n";
                }
        }
        truncate (US, 0);
        seek(US,0,0);   print US @users;
        close(US);
        eval 'flock(US,8);';

if($cangeflag eq 0){

        open(US,"+<$leaguefold/$userfile2") || &error('指定されたファイルが開けません');
        eval 'flock(US,2);';
        @users = <US>;
        for($j=0; $j<6; $j++){
                ($saku[$j], $pass[$j], $home[$j], $team[$j], $icon[$j], $kyuuzyou[$j], $ryouyoku[$j], $date[$j], $ip[$j], $teamdata[$j], $pointdata[$j], $bosstype[$j], $charadata[$j], $gamedata[$j], $campflag[$j]) = split(/<p>/, $users[$j]);
                if($form{'saku'} eq $team[$j]){
                        @players = split(/<c>/, $charadata[$j]);
                        for($i=0; $i<9; $i++){
                                ($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i], $mit[$i], $run[$i], $kat[$i], $def[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $box[$i], $hit[$i], $ten[$i], $hr[$i], $ste[$i], $err[$i], $for[$i], $gid[$i], $tbox[$i], $thit[$i], $tten[$i], $thr[$i], $tste[$i] ,$terr[$i], $tfor[$i], $tgid[$i], $ytitle1[$i], $ytitle2[$i], $ytitle3[$i], $ytitle4[$i], $ynew[$i], $ymvp[$i], $yallmvp[$i], $ybest[$i]) = split(/<>/, $players[$i]);
                                if($form{'sakusya'} eq $sakusya[$i] && $form{'oldpass'} eq $kojin[$i]){ 
                                if ($newsensyu){
                                        $yasyu[$i]=$newsensyu;
                                }
                                if ($newsaku){
                                        $sakusya[$i]=$newsaku;
                                        $form{'sakusya'}=$newsaku;
                                }
                                if ($newkojin){
                                        $kojin[$i]=$newkojin;
                                        $form{'kojin'}=$newkojin;
                                }
                                if ($newurl){
                                        $home[$i]=$newurl;
                                }
                                if($ulrdelet){
                                        $home[$i]='';
                                }
                                $cangeflag = 1; &set_cookie; }
                                $players[$i] = "$id[$i]<>$jun[$i]<>$posit[$i]<>$yasyu[$i]<>$cond[$i]<>$pow[$i]<>$mit[$i]<>$run[$i]<>$kat[$i]<>$def[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$ato[$i]<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$box[$i]<>$hit[$i]<>$ten[$i]<>$hr[$i]<>$ste[$i]<>$err[$i]<>$for[$i]<>$gid[$i]<>$tbox[$i]<>$thit[$i]<>$tten[$i]<>$thr[$i]<>$tste[$i]<>$terr[$i]<>$tfor[$i]<>$tgid[$i]<>$ytitle1[$i]<>$ytitle2[$i]<>$ytitle3[$i]<>$ytitle4[$i]<>$ynew[$i]<>$ymvp[$i]<>$yallmvp[$i]<>$ybest[$i]";
                        }
                        for($i=9; $i<18; $i++){
                                ($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $pitwin[$i], $pitlose[$i], $kai[$i], $jiseki[$i], $san[$i], $four[$i], $hrp[$i], $save[$i], $tpitwin[$i], $tpitlose[$i], $tkai[$i], $tjiseki[$i], $tsan[$i], $tfour[$i], $thrp[$i], $tsave[$i], $ttitle1[$i], $ttitle2[$i], $ttitle3[$i], $ttitle4[$i], $tnew[$i], $tmvp[$i], $tallmvp[$i], $tbest[$i]) = split(/<>/, $players[$i]);
                                if($form{'sakusya'} eq $sakusya[$i] && $form{'oldpass'} eq $kojin[$i]){
                                if ($newsensyu){
                                        $pitch[$i]=$newsensyu;
                                }
                                if ($newsaku){
                                        $sakusya[$i]=$newsaku;
                                        $form{'sakusya'}=$newsaku;
                                }
                                if ($newkojin){
                                        $kojin[$i]=$newkojin;
                                        $form{'kojin'}=$newkojin;
                                }
                                if ($newurl){
                                        $home[$i]=$newurl;
                                }
                                if($ulrdelet){
                                        $home[$i]='';
                                }
                                $cangeflag = 1; &set_cookie; }
                                $players[$i]  = "$id[$i]<>$jun[$i]<>$posit[$i]<>$pitch[$i]<>$cond[$i]<>$fas[$i]<>$hen1[$i]<>$henlv1[$i]<>$hen2[$i]<>$henlv2[$i]<>$hen3[$i]<>$henlv3[$i]<>$hen4[$i]<>$henlv4[$i]<>$hen5[$i]<>$henlv5[$i]<>$sei[$i]<>$def[$i]<>$sta[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$ato[$i]<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$pitwin[$i]<>$pitlose[$i]<>$kai[$i]<>$jiseki[$i]<>$san[$i]<>$four[$i]<>$hrp[$i]<>$save[$i]<>$tpitwin[$i]<>$tpitlose[$i]<>$tkai[$i]<>$tjiseki[$i]<>$tsan[$i]<>$tfour[$i]<>$thrp[$i]<>$tsave[$i]<>$ttitle1[$i]<>$ttitle2[$i]<>$ttitle3[$i]<>$ttitle4[$i]<>$tnew[$i]<>$tmvp[$i]<>$tallmvp[$i]<>$tbest[$i]";
                        }
                        $charadata[$j] = join('<c>', @players);
                        $users[$j] = "$saku[$j]<p>$pass[$j]<p>$home[$j]<p>$team[$j]<p>$icon[$j]<p>$kyuuzyou[$j]<p>$ryouyoku[$j]<p>$date[$j]<p>$ip[$j]<p>$teamdata[$j]<p>$pointdata[$j]<p>$bosstype[$j]<p>$charadata[$j]<p>$gamedata[$j]<p>$campflag[$j]<p>\n";
                }
        }
        truncate (US, 0);
        seek(US,0,0);   print US @users;
        close(US);
        eval 'flock(US,8);';

}

}#end sub

パスワード変更で監督名・選手名・URLも変えられるようにする。

フレームが無かったらココをクリックしてください