|
|
#!/usr/local/bin/perl
#use "../KCatch" qw( execdata );__DATA__
my($homedir,$ban,@ban,$text,$sanko,$folder);
$folder="heiwazemi";
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;
$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>$title</h1></center>\n";
print "$body\n";
if($sanko){
print "<ul>\n";
print "$sanko\n";
print "</ul>\n";
}</td>
</tr>
<center>
<tr>
<td width="1" style="border-bottom-style: solid; border-bottom-color: #800080">
<p align="center">
<b><font size="5"><a href="whatsnew.shtml">
<img border="0" src="uresi2.gif" align="middle" width="40" height="40"></a></font></b></p>
</td>
<td width="1141" style="border-bottom-style: solid; border-bottom-color: #800080" valign="bottom">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%">
<b><font size="4"><a href="whatsnew.shtml">新着情報</a></font></b></td>
</center>
</tr>
</table>
</div>
</td>
</tr>
<center>
<tr>
<td width="1" height="16">
</td>
<td width="1821" height="16">
</tr>
<tr>
<td width="1" height="1">
</td>
<td width="1821" height="1">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
#!/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(/:=:/);
($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=\"/heiwazemi/whatsnew.shtml\"><font size='2'>→続き</font><img border='0' src='garrow.gif' width='8' height='11'></a></td></tr>" ;
close IN;
</table>
</div>
</tr>
<tr>
<td width="980" style="border-bottom-style: solid; border-bottom-color: #800080" colspan="2" height="20">
</td>
</tr>
<tr>
<td width="980" style="border-bottom-style: solid; border-bottom-color: #800080" height="46" colspan="2" valign="middle">
<p align="center"><strong><font size="5">
<img border="0" src="hate1.gif" align="middle" width="40" height="40"></font></strong><b><font size="4">平</font></b><b><font size="4">和ゼミって？ </font></b><img border="0" src="nohohon.gif" align="middle" width="40" height="40"><a href="bbs/ir-i-bbs.cgitmp"><b><font size="4">掲示板</font></b></a><b><font size="4"> </font><font size="5"><img border="0" src="naruhodo.gif" align="middle" width="40" height="40"></font><font size="4"><a href="cmflink/cmflink.cgi?mode=link&id=1">リンク</a> </font></b></p>
</td>
</tr>
<tr>
<td width="748" colspan="2" height="46">
<p align="center"><a href="http://www.lovely-garden.net/kaoani/"><br>
<img border="0" src="../kaoaniland_bn.gif" align="middle" width="88" height="31"></a><b>このページは、アクセス</b><b>するたびに壁紙が変わります。明日の天気は何かな？</b><p align="center"><img src="count/dayx.cgi?gif"> Since 2003/1/20
本日：<img src="count/dayx.cgi?today"> 昨日：<img src="count/dayx.cgi?yes"></p></td>
</tr>
</table>
</center>
</div>
</layer>
<script language="JavaScript"><!--
kabe_henko();
function kabe_henko(){
kazu=4;
gazou=new Array(kazu);
gazou[0]="./bg_rain.gif";
gazou[1]="./bg_snow.gif";
gazou[2]="./bg_sun.gif";
gazou[3]="./bg_thunder.gif";
bango=Math.floor(Math.random()*kazu);
if (navigator.appName == "Netscape")
{
document.layers[0].background.src=gazou[bango];
}
else
{
document.body.background=gazou[bango];
}
}
// --></script>
<p align="center"> </p>
</body>
</html> |
