新着記事の告知

• 青色は、改造箇所を示します。ファイル名：　ルーチン名：　行番号　を示します。
• 黒色文字は、「改造前の状態」を示します。
• テキストボックスの中のプログラムを、該当の場所に上書きして下さい。

新着記事の告知 Ver 1.02 ★★☆☆☆☆☆☆

My Report に新着の記事が存在する場合に、告知メッセージを表示する改造です。 dollEx版にも同様の機能が存在しますが、より認識率が高いです。
※この 改造を取り入れる際には、併せて 【 改造者表示 】 の改造を取り入れて頂けると嬉しいです。（非強制）

履歴
2007/02/17　Wikiにて公開
2003/09/03　Version 1.02　細かなバグの修正作業
2003/07/15　Version 1.01　記載ミスを指摘して頂きました。（Thanks トール 様）
2003/07/10　Version 1.00　公開 

本家版改造ポイント

◆改造ポイント０１ 新着記事の記録数を示すフラグ $ct を追加します。

sos2.cgi # Sub Make New # Line:520
$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");
#-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


sos2.cgi # Sub Get User # Line:2146-2148
($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]);
#-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


sos2.cgi # Sub Get Partner # Line:2163
($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]);
#-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


sos2.cgi # Sub User Out # Line:2173
$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");
#-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


sos2.cgi # Sub Partner Out # Line:2181
$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");
#-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

◆改造ポイント０２ 新着記事が発生した場合に、$ct の値を１追加します。$ct はドンドン増えていきます。

sos2.cgi # Sub Add Record # Line1881
&partnerout;
#-ADD- $pct++; #-END of ADD- SION0001v1.02-2-6/8 &partnerout;

◆改造ポイント０３ 記事を読んだ場合に、$ct の値を０にリセットします。

sos2.cgi # Sub My Record # Line2001
foreach $line (@rcdlines) { print qq|$line<BR><HR>\n| }
foreach $line (@rcdlines) { print qq|$line<br><hr>\n| } #-ADD- $ct = 0; &userout; #-END of ADD- SION0001v1.02-3-7/8

◆改造ポイント０４ 新着記事がある場合に、告知する表示を行います。

sos2.cgi # Sub Player's Data # Line584
&OKbuttoninform('n','my_record');
#-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');

◆改造ポイント０５ ufs2.cgi の修正です。

ufs2.cgi # Sub Made From # Line607
$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");
#-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


ufs2.cgi # Sub Made Free # Line649
$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");
#-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


ufs2.cgi # Sub Get User # Line951-952
($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]);
#-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


ufs2.cgi # Sub User Out # Line961-962
$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");
#-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

dollEx版改造ポイント

◆改造ポイント０１ 人形版のメッセージ告知用フラグ $ct をそのまま流用する為、改造点は少ないです。

record.cgi # Sub My Record # Line:25
print qq|</font>|;
print qq|</font>|; #-ADD- $ct = 0; &userout; #-END of ADD- SION0001v1.02-1-1/3


perl/option.cgi # Sub Make Continue # Line:155
if($ct){ push(@msg,'マイレコードが更新されています'); undef $ct; }
#-DEL- if($ct){ push(@msg,'マイレコードが更新されています'); undef $ct; } #-END of DEL- SION0001v1.02-1-2/3


perl/players.cgi # Sub Player's Data # Line:60
&OKbuttoninform('n','my_record');
#-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');