罪罰改造掲示板/107

# キャラデータ書き込み
sub dat_write{

	&error("open error no such a file!",1) if(!$nm || !$id);
                ↓このように soko;$soko,  を追加します
	$dat[0] = "soko;$soko,la;$time,nm;$nm,pw;$pw,id;$id,sei;$sei,type;$type,

	          #・・・（１行が長すぎるので省略）・・・

	           sogo;$sogo,mes;$mes,info_mes;$info_mes,\n";

	$dat[1] = "$date<>$addr<>$host<>$agent<>\n";

	open (OUT,">$usrdata$id\.cgi") || &error("open error:$usrdata$id\.cgi",1);
	print OUT @dat;
	close(OUT)		or die "Can't close   : $!";
}