#!/usr/local/bin/perl

#------------------------
# I-BOARD/2001 SSI表示用
# Copyright(C) りゅういち
#------------------------

#--- 設定 ---------------------
#
# ibbs.cgiの設定と同じにします

$set[0]="./set.cgi";
$set[1]="./set1.cgi";
$set[2]="./set2.cgi";
$set[3]="./set3.cgi";
$set[4]="./set4.cgi";

# CGIのあるURL http://〜のURLで書いてください
$CGI ="http://www.---.com/cgi-bin/ibbs.cgi";

# 表示する記事数(0だとすべて表示)
$KIJI= 20;

#------------------------------

print "Content-type: text/html\n\n";
foreach (0..$#set){
	if($set[$_]){
		unless(-e $set[$_]){next;}
		else{
			require "$set[$_]"; $no=$_;
			if($t_img){print"<img src=\"$t_img\" width=$twid height=$thei>\n";}
			else{print"<font color=$tcolor face=\"$tface\" size=$tsize>$title</font>\n";}

			open(LOG,"$log") || &er_("Can't open $log");
			@lines = <LOG>;
			close(LOG);

			@RES=(); $List=""; $PAH=0; $K=0; $Rno=0; @N=();
			foreach (0 .. $#lines) {
				($namber,$date,$name,$email,$d_may,$comment,$url,
					$font,$ico,$type) = split(/<>/,$lines[$_]);
				if($type){if($date){$N[$type]++;}}
				else{
					if($d_may eq ""){$d_may="無題";}
					if($N[$namber] eq ""){$N[$namber]=0;} $Rno++; $PAH=$a_max*$K;
					if($PAH < $Rno){$PAL="&page=$PAH$RLB"; $K++;}
					$List.="<a href=\"$CGI?mode=alk&W=$W&no=$no$pp$PAL\#$namber\">$d_may($N[$namber])</a> /\n";
				}
				if($Rno >= $KIJI && $KIJI){last;}
			}
			@lines=();
		}
		print<<"_TOP_";
<table width=80\% border=1 bordercolor=$ttb><tr>
<td bgcolor=$k_back><center><b>記事リスト</b> ( )内の数字はレス数</center>
$List</td></tr>
<tr><td bgcolor=$k_back align=right><a href="$CGI?no=$no">＞＞ この掲示板へ移動</th></tr>
</table><br>
_TOP_
	}
}
exit;