$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">OK♪</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; }