#!/usr/local/bin/perl

use strict;


require "./jcode.pl";
require "./common.pl";

sub debug{
	print STDERR "? ",@_,"\n";
}


MAIN:{
	my %conf  = common::load_conf();
	my %query = common::get_query();
	my $file  = $query{file} || 'default';

	if(!common::taint_check($file,'^[-\w]+$')){
		die "Taint file name [$file]";
	}
	my $path  = $conf{hinp_path}{value} || '';
	my $safix = $conf{safix}{value} || '';
	my $html  = common::eval_file("$path/$file.$safix");
##	my $html  = common::eval_file("/home2/www/www.kadokawa.co.jp/cgi-bin/fujimi/mk/notice/hinp/default.hinp");

	if($html){
		print $html;
	}else{
		print "Content-type: text/html\n\nNo Document!";
	}
}