$backdata2 = "./backdata/"; # キャラバックアップデータ格納ディレクトリ。
$back = $DAT{'back'};
# キャラデータバックアップ
sub dat_backup{
&error("open error no such a file!",1) if(!$nm || !$id);
$dat[0] = "〜略〜,back;$back,\n";
$dat[1] = "$date<>$addr<>$host<>$agent<>\n";
open (OUT,">$backdata2$id\.cgi") || &error("open error:$backdata2$id\.cgi",1);
print OUT @dat;
close(OUT) or die "Can't close : $!";
}
$log .= "キャラデータのバックアップを取りますか？<br><br>\n";
if($back ne ''){
$log .= "あなたの最後のバックアップは、$back です。このデータは上書きされます。<br>\n";
}
$tm=1111;
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
$log2 .=qq|<input type="hidden" name="id" value="$id">\n|;
$log2 .=qq|<input type="hidden" name="pw" value="$pw">\n|;
$log2 .=qq|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="99">やめる</option>\n|;
$log2 .=qq|<option value="111">ＯＫ♪</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}elsif($tm==1111){#バックアップ
&dat_backup;
$back=$date;#←保存日を記録。
chmod($chmod,"$backdata2$id\.cgi");
$log .= "キャラデータを保存しました。<br>管理人の定期ﾊﾞｯｸｱｯﾌﾟがこれより古い場合は、このﾃﾞｰﾀがある旨を連絡ください。<br>\n";
$tm = $ck =$cmd = 0;
$type="";
&call_main_st;
}
