#!/usr/bin/perl
######################################################
#
# index.cgi
# Ver 1.00
# 2002/02/13 www.mybenjo.net
#
######################################################

require './lib/common.pl';

######################################################
#入力情報取得
######################################################

	if ( $ENV{'REQUEST_METHOD'} eq "GET" ) {
		$argv = $ENV{'QUERY_STRING'};
	}
	foreach ( split('&',$argv)) {
		($arg, $val) = split('=');
		$val =~ s/\+/ /g;
		$val =~ s/\r//g;
		$val =~ s/%(..)/pack("C",hex($1))/eg;
		$Arg{$arg} = $val;
	}

######################################################
#モードの設定
######################################################
	if ( $Arg{"id"} ne "" && ($Arg{"id"} * 1)==$Arg{"id"} && $Arg{"id"}!=0 ) {
		$LOG_ID=$Arg{"id"}."/";
		$ID = $Arg{"id"};
	} else {
		$LOG_ID="";
		$ID = "";
	}

	print "Content-type: text/html\n\n";

######################################################
#ヘッダー表示
######################################################
	open (IN,"./$LOG_ID$HEADDER");
	$buff="";
	while(<IN>){$buff.=$_;}
	close (IN);
	print $buff;

######################################################
#コンテンツ表示
######################################################
	open (IN,"./$LOG_ID$CONTENTS");
	$buff="";
	while(<IN>){$buff.=$_;}
	close (IN);
	print $buff;

######################################################
#カウンター表示
######################################################
	&counter;
	&count_foot;

######################################################
#フッター表示
######################################################
	open (IN,"./$LOG_ID$FOOTER");
	$buff="";
	while(<IN>){$buff.=$_;}
	close (IN);
	print $buff;

exit 0;