SION0001
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('<>',$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");
$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,0,"\n");
#-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(/<>/,$_[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(/<>/,$_[0]); $_[0] .= "\n";
#-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(/<>/,$_[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(/<>/,$_[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('<>',$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,"\n");
$line = join('<>',$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,"\n");
#-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('<>',$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,"\n");
$pline = join('<>',$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,"\n");
#-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
&partnerout;
</TEXTAREA>
Parts3
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub My Record # Line2001</FONT></B> <BR>
<b>foreach $line (@rcdlines) { print qq|$line<BR><HR>\n| } </b><br>
<TEXTAREA name="textarea5" cols="100" rows="5" wrap="OFF"> foreach $line (@rcdlines) { print qq|$line<br><hr>\n| }
#-ADD-
$ct = 0; &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,"新着記事の告知 Ver 1.01 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWIKI </A>");
print qq|<FONT color="red"><B>$ct New-Rec.</B></FONT>|;
}
#-END of ADD- SION0001v1.02-4-8/8
&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('<>',$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");
$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,0,"\n");
#-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('<>',$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");
$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,0,"\n");
#-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(/<>/,$_[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(/<>/,$_[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('<>',$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,"\n");
$line = join('<>',$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,"\n");
#-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|</font>|; </b><br>
<TEXTAREA name="textarea10" cols="100" rows="5" wrap="OFF">
print qq|</font>|;
#-ADD-
$ct = 0; &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,"新着記事の告知 Ver 1.01 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki </A>");
print qq|<FONT color="red"><B>$ct New-Rec.</B></FONT>|;
#-END of ADD- SION0001v1.02-1-3/3
&OKbuttoninform('n','my_record');
</TEXTAREA>