SION0020

Parts1

<BR>
<FONT color="#0000FF"><B>sos2.cgi # ---------- USER DIRECTORY Line:34<BR>
perl/filepath.cgi # ---------- USER DIRECTORY Line:19</B></FONT><BR>
<b>$usrdir = 'userdata/'; # ユーザデータを格納するフォルダ</b><BR>
<TEXTAREA name="textfield" cols="100" rows="4" wrap="OFF">
$usrdir = 'userdata/'; # ユーザデータを格納するフォルダ
#-ADD
$error = 'error.log'; # 同一ＰＣ複数キャラ警告を送るファイル
#-END of ADD-SOSWiki0020v1.00-1-1/3
</TEXTAREA><BR>
<FONT color="#FF0000">※ error.log の部分は任意のファイル名にします。<BR>
※ userdata/0000.dat とすれば、ＩＤ：0000 のマイレコードに記録されます。<BR>
※ 時々ログ整理を行わないとファイルサイズが無限に膨らみます。<BR>
新規ファイルにエラーログを記録する際は、事前にそのファイルを作成して下さい。</FONT><BR>
（空のファイルでＯＫ。）<FONT color="#FF00FF">パーミッションは（666|606）</FONT><BR>

Parts2

<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Make New # Line:523<BR>
perl/option.cgi # Sub Make New # Line:143<BR></FONT></B>
<b>chmod(0666,"$usrdir$id\.dat");</b><BR>
<TEXTAREA name="textarea2" cols="100" rows="5" wrap="OFF">

chmod(0666,"$usrdir$id\.dat");

#-ADD-

&cookie_get;
if ($c_id && $c_id ne $id && $ps ne $admpas) {
	@errorline = &opendat("$error");
	push (@errorline,"$c_id\t$c_name\t$c_pass\t$id\t$Fm{'name'}\t$Fm{'pass'}\n");
	&writedat($error,@errorline);
}

#-END of ADD- SION0020v1.00-2-3/3
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Make Continue # Line:548<BR>
perl/option.cgi # Sub Make Continue # Line:168<BR></FONT></B>
<B>$fg = ''; &userout;</b><BR>
<TEXTAREA name="textarea" cols="100" rows="5" wrap="OFF">

$fg = ''; &userout;

#-ADD-

&cookie_get;
if ($c_id && $c_id ne $id && $ps ne $admpas) {
	@errorline = &opendat("$error");
	push (@errorline,"$c_id\t$c_name\t$c_pass\t$id\t$nm\t$ps\n");
	&writedat($error,@errorline);
}

#-END of ADD- SAIL0020v1.00-2-2/3
</TEXTAREA>