!Parts1
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Make New # Line:520</FONT></B> <BR>
<b>$line = join('<>',$id,$Fm{'name'},$Fm{'pass'},$jbn,$jig,$jsp,'','',$jak,$jdd,$jhp,$jhp,0,0,'alive',0,0,0,$jmn,'',$jxi,time,'','','???','',$host,'',0,0,"\n");</b><br>
<TEXTAREA name="textfield" cols="100" rows="3" wrap="OFF">
#-EDIT-	$line = join('&lt;&gt;',$id,$Fm{'name'},$Fm{'pass'},$jbn,$jig,$jsp,'','',$jak,$jdd,$jhp,$jhp,0,0,'alive',0,0,0,$jmn,'',$jxi,time,'','','???','',$host,'',0,0,&quot;\n&quot;);
	$line = join('&lt;&gt;',$id,$Fm{'name'},$Fm{'pass'},$jbn,$jig,$jsp,'','',$jak,$jdd,$jhp,$jhp,0,0,'alive',0,0,0,$jmn,'',$jxi,time,'','','???','',$host,'',0,0,0,&quot;\n&quot;);
#-END of EDIT- SION0001v1.02-1-1/8
</TEXTAREA><BR><BR><BR>
<FONT color="#0000FF"><B>sos2.cgi # Sub Get User # Line:2146-2148</B></FONT><BR>
<b>($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,<BR>
$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl) = split(/<>/,$_[0]);</b><BR>
<TEXTAREA name="textarea" cols="100" rows="5" wrap="OFF">
#-EDIT-	($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
#	$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl) = split(/&lt;&gt;/,$_[0]);
	chomp $_[0];
	($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
	$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,$ct) = split(/&lt;&gt;/,$_[0]);
	$_[0] .= &quot;\n&quot;;
#-END of EDIT- SOION0001v1.02-1-2/8
</TEXTAREA><BR><BR><BR>
<FONT color="#0000FF"><B>sos2.cgi # Sub Get Partner # Line:2163</B></FONT><br>(<b>$pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,<br>
$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl) = split(/<>/,$_[0]); </b><br>
<TEXTAREA name="textarea2" cols="100" rows="5" wrap="OFF">
#-EDIT-	($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
#	$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl) = split(/&lt;&gt;/,$_[0]);
	($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
	$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$pct) = split(/&lt;&gt;/,$_[0]);
#-END of EDIT- SION0001v1.02-1-3/8
</TEXTAREA><BR><BR><BR>
<FONT color="#0000FF"><B>sos2.cgi # Sub User Out # Line:2173</B></FONT><BR>
<b> $line = join('<>',$id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,<BR>
$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,"\n"); </b><br>
<TEXTAREA name="textarea3" cols="100" rows="5" wrap="OFF">
#-EDIT-	$line = join('&lt;&gt;',$id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
#			$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,&quot;\n&quot;);
	$line = join('&lt;&gt;',$id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
			$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,$ct,&quot;\n&quot;);
#-END of EDIT- SION0001v1.02-1-4/8
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000CC">sos2.cgi # Sub Partner Out # Line:2181</FONT></B><BR>
<b>$pline = join('<>',$pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,<BR>
$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,"\n"); </b><br>
<TEXTAREA name="textarea4" cols="100" rows="5" wrap="OFF">
#-EDIT-		$pline = join('&lt;&gt;',$pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
#			$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,&quot;\n&quot;);
	$pline = join('&lt;&gt;',$pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
			$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$pct,&quot;\n&quot;);
#-END of EDIT- SION0001v1.02-1-5/8
</TEXTAREA>

!Parts2
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Add Record # Line1881</FONT></B> <BR>
<b>&partnerout; </b><br>
<TEXTAREA name="textarea6" cols="100" rows="4" wrap="OFF">
#-ADD-
	$pct++;
#-END of ADD- SION0001v1.02-2-6/8
	&amp;partnerout;
</TEXTAREA>

!Parts3
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub My Record # Line2001</FONT></B> <BR>
<b>foreach $line (@rcdlines) { print qq|$line&lt;BR&gt;&lt;HR&gt;\n| } </b><br>
<TEXTAREA name="textarea5" cols="100" rows="5" wrap="OFF">	foreach $line (@rcdlines) { print qq|$line&lt;br&gt;&lt;hr&gt;\n| }
#-ADD-
	$ct = 0;
	&amp;userout;
#-END of ADD- SION0001v1.02-3-7/8
</TEXTAREA>

!Parts4
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Player's Data # Line584</FONT></B> <BR>
<b>&OKbuttoninform('n','my_record'); </b><br>
<TEXTAREA name="textarea7" cols="100" rows="5" wrap="OFF">
#-ADD-
	if ($ct) {
		push (@editor,&quot;新着記事の告知 Ver 1.01 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWIKI &lt;/A&gt;&quot;);
		print qq|&lt;FONT color=&quot;red&quot;&gt;&lt;B&gt;$ct New-Rec.&lt;/B&gt;&lt;/FONT&gt;|;
	}
#-END of ADD- SION0001v1.02-4-8/8
	&amp;OKbuttoninform('n','my_record');
</TEXTAREA>

!Parts5
<BR>
<B><FONT color="#0000FF">ufs2.cgi # Sub Made From # Line607</FONT></B> <BR>
<b>$line = join('<>',$id,$Fm{'name'},$Fm{'ps1'},$jbn,$jig,$jsp,'','',$jak,$jdd,$jhp,$jhp,0,0,'alive',0,0,0,$jmn,'',$jxi,time,'','','???','','','SS',0,0,"\n"); </b><br>
<TEXTAREA name="textarea9" cols="100" rows="3" wrap="OFF">
#-EDIT-		$line = join('&lt;&gt;',$id,$Fm{'name'},$Fm{'ps1'},$jbn,$jig,$jsp,'','',$jak,$jdd,$jhp,$jhp,0,0,'alive',0,0,0,$jmn,'',$jxi,time,'','','???','','','SS',0,0,&quot;\n&quot;);
	$line = join('&lt;&gt;',$id,$Fm{'name'},$Fm{'ps1'},$jbn,$jig,$jsp,'','',$jak,$jdd,$jhp,$jhp,0,0,'alive',0,0,0,$jmn,'',$jxi,time,'','','???','','','SS',0,0,0,&quot;\n&quot;);
#-END of EDIT- SION0001v1.02-5-1/4
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">ufs2.cgi # Sub Made Free # Line649</FONT></B> <BR>
<b>$line = join('<>',$id,$Fm{'name'},$Fm{'ps1'},$Fm{'job'},$Fm{'ig'},$Fm{'sp'},'','',$Fm{'ak'},$Fm{'dd'},$Fm{'xp'},$Fm{'xp'},0,0,'alive',0,0,0,$Fm{'mn'},'',$Fm{'xi'},time,'','',$Fm{'cm'},$Fm{'is'},'','NS',0,0,"\n"); </b><br>
<TEXTAREA name="textarea11" cols="100" rows="3" wrap="OFF">
#-EDIT-	$line = join('&lt;&gt;',$id,$Fm{'name'},$Fm{'ps1'},$Fm{'job'},$Fm{'ig'},$Fm{'sp'},'','',$Fm{'ak'},$Fm{'dd'},$Fm{'xp'},$Fm{'xp'},0,0,'alive',0,0,0,$Fm{'mn'},'',$Fm{'xi'},time,'','',$Fm{'cm'},$Fm{'is'},'','NS',0,0,&quot;\n&quot;);
	$line = join('&lt;&gt;',$id,$Fm{'name'},$Fm{'ps1'},$Fm{'job'},$Fm{'ig'},$Fm{'sp'},'','',$Fm{'ak'},$Fm{'dd'},$Fm{'xp'},$Fm{'xp'},0,0,'alive',0,0,0,$Fm{'mn'},'',$Fm{'xi'},time,'','',$Fm{'cm'},$Fm{'is'},'','NS',0,0,0,&quot;\n&quot;);
#-END of EDIT- SION0001v1.02-5-2/4
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">ufs2.cgi # Sub Get User # Line951-952</FONT></B><BR>
<b>($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,<BR>
$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl) = split(/<>/,$_[0]); </b><br>
<TEXTAREA name="textarea12" cols="100" rows="5" wrap="OFF">
#-EDIT-		($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
#	$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl) = split(/&lt;&gt;/,$_[0]);
	($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
	$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,$ct) = split(/&lt;&gt;/,$_[0]);
#-END of EDIT- SION0001v1.02-5-3/4
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">ufs2.cgi # Sub User Out # Line961-962</FONT></B><BR>
<b>$line = join('<>',$id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,<BR>
$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,"\n"); </b><br>
<TEXTAREA name="textarea13" cols="100" rows="5" wrap="OFF">
#-EDIT-	$line = join('&lt;&gt;',$id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
#			$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,&quot;\n&quot;);
	$line = join('&lt;&gt;',$id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
			$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,$ct,&quot;\n&quot;);
#-END of EDIT- SION0001v1.02-5-4/4
</TEXTAREA>

!Parts6
<BR>
<FONT color="#0000FF"><B>record.cgi # Sub My Record # Line:25</B></FONT><BR>
<b>print qq|&lt;/font&gt;|; </b><br>
<TEXTAREA name="textarea10" cols="100" rows="5" wrap="OFF">
	print qq|&lt;/font&gt;|;
#-ADD-
	$ct = 0;
	&amp;userout;
#-END of ADD- SION0001v1.02-1-1/3
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">perl/option.cgi # Sub Make Continue # Line:155</FONT></B> <BR>
<b>if($ct){ push(@msg,'マイレコードが更新されています'); undef $ct; } </b><br>
<TEXTAREA name="textarea14" cols="100" rows="2" wrap="OFF">
#-DEL-	if($ct){ push(@msg,'マイレコードが更新されています'); undef $ct; } 
#-END of DEL- SION0001v1.02-1-2/3
</TEXTAREA><BR><BR><BR>
<FONT color="#0000FF"><B>perl/players.cgi # Sub Player's Data # Line:60</B></FONT><BR>
<b>&OKbuttoninform('n','my_record'); </b><Br>
<TEXTAREA name="textarea15" cols="100" rows="5" wrap="OFF">
#-ADD-
	if ($ct) {
		push (@editor,&quot;新着記事の告知 Ver 1.01 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWiki &lt;/A&gt;&quot;);
		print qq|&lt;FONT color=&quot;red&quot;&gt;&lt;B&gt;$ct New-Rec.&lt;/B&gt;&lt;/FONT&gt;|;
#-END of ADD- SION0001v1.02-1-3/3
	&amp;OKbuttoninform('n','my_record');
</TEXTAREA>