#!/usr/bin/perl


require 'library.pl';

require 'jcode.pl';

##################################################

$title   = "BBS";



$body_color = "#ccffff";	#背景色
$text_color="#000000";		#文字の色
$link="#ff0000";		#リンクテキストの色
$vlink="#800080";		#クリック後のリンクテキストの色

$sub_color = "#000066";

$cell_color = "#ffFFFF";

$homepage = "../top.html";

$cgifile = "bbs.cgi";

$datafile = "bbs/data.log";

$max = 50;

$method = 'POST';

$pass = 'ytakeda';

#####################################
&do_read;

&do_check;

if ($command eq "regist") { &do_write; }
elsif ($command eq "master") { &master; }

&display_form;

open(DATA,"<$datafile");
@lines = <DATA>;
close(DATA);

foreach (@lines) {

	($num,$date,$name,$email,$sub,$comment,$url,$host) = split(/,/,$_);

	if ($email) { $name="<a href=\"mailto\:$email\">$name</a>"; }
	if ($url) { $url = "<a href=\"http://$url\" target=_top>http://$url</a>\n"; }

	&display_message

	}

	print "</body></html>\n";
	exit;