!Parts1

この改造はユーザーデータを多く扱う為、改造時の危険度は高くなっています。

●作業開始前に、ユーザーデータをコピーし、万一に備えてください。
●改造作業中、ＳＯＳは動作しないよう停止してください。
●作業開始前に、全ての改造ポイントに目を通し、どういった処理に変更しているのか理解してください。
●この改造については、原則として自力で理解できる方を対象としています。それ以外の方はこの改造はご遠慮下さい。
●この改造によって生じたいかなる障害・損害についても、当方では一切責任を取れません。改造を適用した時点で、この事をご理解・ご承諾戴いたものと致します。

この改造により、次の通り変更となります。
●ユーザーリストや販売リスト、ベストユーザーなどの表示は、最後にセーブした時の状態が反映されるようになります。

!Parts2
exterior_accsess.cgi<< ダウンロードしてお使い下さい。
１）１行目 perl pass 及び 35-40行目を修正して下さい（設定は sos2.cgi に併せてください）。　３６行目が、新しく作るストックファイル名となります。
２）パーミッション 755 でサーバーにアップロードし、実行して下さい。
３）正常に動作し、ストックファイルの完成を確認したら、このプログラムはサーバーから削除して下さい。
!Parts3
sos2.cgi # ---------- FILE PATH Line31
$bitdat = './bit.dat'; # bit.datのパス 666(606)
!Parts4
sos2.cgi 任意の場所
次のルーチンを追加します。
#=======《 Sub List OUT 》===============================================# sub list_out { $del_fg = 1 if (@_[0] eq 'del'); &userout if (!$del_fg); &list_in; undef @newlines; $now = time - 7200; $del_check = time - $def_dl * 86400; foreach (0 .. $#lstlines) { ($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb, $pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$other) = split(/<>/,$lstlines[$_],23); if ($pid eq $id && $pnm eq $nm && $pps eq $ps) { next; } elsif ($now > $ptm && $pps eq $admpas) { @prclines = &get_partner("$pid"); ($php,$ptm) = &hprecover($php,$pxp,$psp,$pav,$ptm,$pfg); &partnerout; $getpartnerflag = 0; push(@newlines,$pline); } elsif ($del_check < $ptm || $pps eq $admpas) { push(@newlines,$lstlines[$_]); } else { unlink("$usrdir$id\.dat"); } } push(@newlines,$line) if (!$del_fg); @newlines = sort @newlines; &writedat($listin,@newlines); }
※フラグ足しを行っている場合は、このルーチンも修正を行ってください。
このルーチンの動作：
１）ユーザーのデータを更新します。
２）ＮＰＣキャラ(パスワードが管理者パスワード)のデータが２時間以上過去の物であれば更新します。
３）ユーザーデータ削除期限を越えているユーザーを削除します。この際、ユーザーデータも削除します。
４）それ以外のユーザーは、既存のデータのまま保存します。
!Parts5
sos2.cgi # Sub List In # Line2229-2234
foreach $no (0 .. $#usrfile) {
open(IN,"$usrdir$usrfile[$no]") || &error("Can't open $usrfile[$no]");
$line = ; close(IN);
push(@lstlines,$line);
}
#-EDIT- # foreach $no (0 .. $#usrfile) { # open(IN,"$usrdir$usrfile[$no]") || &error("Can't open $usrfile[$no]"); # $line = <IN>; # close(IN); # push(@lstlines,$line); # } push (@editor,"get_file&list_in 軽量化 Ver1.01 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>"); open(IN,"$listin") || &error("Can't open $listin"); @lstlines = <IN>; close(IN); #-END of EDIT- SION0009v1.02-4-2/14
※フラグ足しを行っている場合は、このルーチンも修正を行ってください。 !Parts6
sos2.cgi # Sub Delete After # Line1833
unlink("$usrdir$id\.dat");
unlink("$usrdir$id\.dat"); #-ADD- &list_out('del'); #-END of ADD- SION0009v1.02-5-3/14 !Parts7
sos2.cgi # Sub Save Game # Line1781
&userout; $printmsg = 1; &main_form;
#-EDIT- &userout; $printmsg = 1; &main_form; &list_out; $printmsg = 1; &main_form; #-END of EDIT- SION0009v1.02-6-4/14

sos2.cgi # Sub Make Continue # Line548
$fg = ''; &userout;
#-EDIT- $fg = ''; &userout; $fg = ''; &list_out; #-END of EDIT- SION0009v1.02-6-5/14 !Parts8
sos2.cgi # Sub List In Order # Line1935
&find_del; &find_best;
#-EDIT- &find_del; &find_best; &find_best; #-END of EDIT- SION0009v1.02-7-6/14

sos2.cgi # Sub Find to Delete # Line1983-1986
# Sub Find to Delete #
sub find_del {
if ($now > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat"); }
}
#-DEL- # Sub Find to Delete # #sub find_del { # if ($now > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat"); } #} #-END of DEL- SION0009v1.02-7-7/14 !Parts9
sos2.cgi # Sub Normal Action # Line642
if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp }
#-EDIT- if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp } if ($Fm{'id'} eq $pid) { @rcdlines = &getuser("$Fm{'id'}"); } #-END of EDIT- SION0009v1.02-8-8/14
※# Sub Normal Action #内の全ての [ $my** ] という変数を [ $**] と置き換えて下さい。
無改造であれば： $mysp ⇒ $sp $mybp ⇒ $bp
代表的な改造は： $myhp ⇒ $hp $mytw ⇒ $tw 等 !Parts10
sos2.cgi # Sub Levy # Line1788
&get_file;
#-EDIT- &get_file; opendir(DIR,"$usrdir") || &error("ユーザデータ読みこみエラー"); @usrfile = sort grep /\.dat/,readdir(DIR); closedir(DIR); #-END of EDIT- SION0009v1.02-9-9/14
※改造により税金以外にも &get_file を追加している場合、同様に修正するか、改造ポイント１１を飛ばして下さい。 !Parts11
sos2.cgi # Sub Make New # Line506
&get_file; &list_in; &get_host; &find_user;
#-EDIT- &get_file; &list_in; &get_host; &find_user; &list_in; &get_host; &find_user; #-END of EDIT- SION0009v1.02-10-10/14

sos2.cgi # Sub Normal Action # Line633
&get_file; &list_in;
#-EDIT- &get_file; &list_in; &list_in; #-END of EDIT- SION0009v1.02-10-11/14

sos2.cgi # Sub List In Order # Line1929
&get_file; &list_in; &unlock;
#-EDIT- &get_file; &list_in; &unlock; &list_in; &unlock; #-END of EDIT- SION0009v1.02-10-12/14

sos2.cgi # Sub Sales In Order # Line1960
&get_file; &list_in; &unlock;
#-EDIT- &get_file; &list_in; &unlock; &list_in; &unlock; #-END of EDIT- SION0009v1.02-10-13/14 !Parts12
sos2.cgi # Sub Get User File # Line2186-2193
# Sub Get User File #
sub get_file {
return if $getfileflag;
opendir(DIR,"$usrdir") || &error("ユーザデータ読みこみエラー");
@usrfile = sort grep /\.dat/,readdir(DIR);
closedir(DIR);
$getfileflag = 1;
}
#-DEL- # Sub Get User File # #sub get_file { # return if $getfileflag; # opendir(DIR,"$usrdir") || &error("ユーザデータ読みこみエラー"); # @usrfile = sort grep /\.dat/,readdir(DIR); # closedir(DIR); # $getfileflag = 1; #} #-END of DEL- SION0009v1.02-11-14/14 !Parts13
ufs2.cgi # ------------ FILE PATH Line32
$bupdat = './bup.dat'; # bup.datのパス 666(606)
$bupdat = './bup.dat'; # bup.datのパス 666(606) #-ADD- $listin = './listin.cgi'; # listin.dat のパス 666(606) #-END of ADD- SION0009v1.02-12-1/7

ufs2.cgi 任意の場所
次のルーチンを追加します。
#=======《 Sub List OUT 》===============================================# sub list_out { $del_fg = 1 if (@_[0] eq 'del'); &list_in; undef @newlines; $now = time - 7200; $del_check = time - $def_dl * 86400; foreach (0 .. $#lstlines) { ($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb, $pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$other) = split(/<>/,$lstlines[$_]); if ($pid eq $id && $pnm eq $nm && $pps eq $ps) { next; } elsif ($now > $ptm && $pps eq $admpas) { &get_partner($pid); ($php,$ptm) = &hprecover($php,$pxp,$psp,$pav,$ptm,$pfg); &partnerout; $getpartnerflag = 0; push(@newlines,$pline); } elsif ($del_check < $ptm) { push(@newlines,$lstlines[$_]); } else { unlink("$usrdir$id\.dat"); } } push(@newlines,$line) if (!$del_fg); @newlines = sort @newlines; &writedat($listin,@newlines); }
※sos2.cgi に追加した同名ルーチンとは、&useroutの取り扱いで若干異なります。

ufs2.cgi # Sub List In # Line970-975
foreach $no (0 .. $#usrfile) {
open(IN,"$usrdir$usrfile[$no]") || &error("Can't open $usrfile[$no]");
$line = ; close(IN);
push(@lstlines,$line);
}
#-EDIT- # foreach $no (0 .. $#usrfile) { # open(IN,"$usrdir$usrfile[$no]") || &error("Can't open $usrfile[$no]"); # $line = <IN>; # close(IN); # push(@lstlines,$line); # } open(IN,"$listin") || &error("Can't open $listin"); @lstlines = <IN>; close(IN); #-END of EDIT- SION0009v1.02-12-2/7

ufs2.cgi # Sub Made From # Line612
&make_from;
#-ADD- $nm = $Fm{'name'}; $ps = $Fm{'ps1'}; &list_out; #-END of ADD- SION0009v1.02-12-3/7 &make_from;

ufs2.cgi # Sub Made Free # Line654
&make_free;
#-ADD-line $nm = $Fm{'name'}; $ps = $Fm{'ps1'}; &list_out; #-END of ADD- SION0009v1.02-12-4/7 &make_from;

ufs2.cgi # Sub Recover Player # Line765
&admin;
#-ADD-line $line = $newdata; ($id,$nm,$ps) = split('<>',$line); &list_out; #-END of ADD- SION0009v1.02-12-5/7 &admin;

ufs2.cgi # Sub Delete # Line776
&admin;
#-ADD-line &list_out('del'); #-END of ADD- SION0009v1.02-12-6/7 &admin;

ufs2.cgi # Sub User Out # Line964
&writedat("$usrdir$id\.dat",@rcdlines);
&writedat("$usrdir$id\.dat",@rcdlines); #-ADD-line &list_out; #-END of ADD- SION0009v1.02-12-7/7