#!/usr/local/bin/perl
#SSIランダムメッセージ(ファイル方式)▲(c)p4room(http://p4room.mda.or.jp/)

print "<!--SSI FIELD-->";

$datafp="./ssi_file3.dat";

open(R,$datafp);
	while(<R>){
		chop;
		@member=split(/<>/,$_);
#----------
$txtfile = "../$member[0]/ssi_note.html";	#メッセージ保存ファイル
$txtname = "$member[1]";

open(FILE, "$txtfile");		#ファイルを読み込みモードでオープン
chop(@lines = <FILE>);		#全メッセージを配列に読み込む
print "<!--$txtname FIELD-->";
if($lines[0] ne ""){
print "<p><CENTER><HR WIDTH=80%><FONT SIZE=+2>≪<U>$txtname個人ページ</U>≫</FONT></CENTER>";
}
close(FILE);

open(FILE,$txtfile);
	while(<FILE>){
		chop;
		@display=split(/<>/,$_);
		print "$display[0]";
	}
close(FILE);
#----------
	}
close(R);


exit;