|
|
|
#!/usr/local/bin/perl
#use "../KCatch" qw( execdata );__DATA__
my($homedir,$ban,@ban,$text,$sanko,$folder);
$folder="tokushu/furiekisokyu";
require '../../server.ini';
$homedir=$server::homedir;
open(BAN,"$homedir/$folder/top_number.txt") or die $!;
@ban=;
close(BAN);
$ban=$ban[0];
open(IN,"$homedir/$folder/messages/$ban.shtml") or die $!;
while(){
$text.=$_;
}
close(IN);
$text=~/(.+)<\/title>/;
my $title=$1;
my $body_title=$title;
$body_title=~s/\//<br>/g;
$text=~/<!--bs-->([\s\S]+)<!--be-->/;
my $body=$1;
if($text=~/<!--rs-->\n([\s\S]+)\n<!--re-->/){
$sanko=$1;
}
$body =~s/src="(.+?)"/src="\/$folder\/messages\/$1"/g;
print "content-type: text/html\n\n";
print "<center><h1>$body_title</h1></center>\n";
print "$body\n";
if($sanko){
print "<ul>\n";
print "$sanko\n";
print "</ul>\n";
}
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" align="center" style="border-bottom-style: solid; border-bottom-color: #0000FF" bgcolor="#00FFFF" height="22">
<p align="left"><font size="4"><b>
<font color="#FF0000">■</font><a href="whatsnew.shtml">新着情報</a></b></font></p>
</td>
</tr>
<tr>
<td width="100%" align="center" valign="top" height="2">
<table>
#!/usr/local/bin/perl
use Time::Local;
$newmark = '<img src="/new.gif">';
$newdates=2;
$time=time;
open IN,"message.idx";
print "content-type: text/html\n\n";
while(<IN>){
if ($line++==10){
last;
}
@fields=split(/:=:/);
@fields[1]=~s/<br>/\//g;
($year,$mon,$day)=split(/\//,$fields[3]);
$updatetime=timelocal(0,0,0,$day,$mon-1,$year);
if (($time-$updatetime) > $newdates*24*60*60*2) { $newsign = ""; }
else { $newsign = "$newmark"; }
if(not($fields[0]=~/^\*/)){
print "<tr><td width=\"4%\" valign=\"top\"><img src=\"BD14578_.GIF\"><td width='80%'><a href=\"messages/$fields[0]\">$fields[1]</a>$newsign</td><td width=11%' valign=\"top\">$fields[2]</td></tr>\n" ;
}
}
print "<tr><td></td><td></td><td align=\"right\"><a href=\"/tokushu/kenpo/whatsnew.shtml\"><font size='2'>→続き</font><img border='0' src='garrow.gif' width='8' height='11'></a></td></tr>" ;
close IN;
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html> | |