#!/usr/bin/perl 

use CGI qw/:standard/; 
use CGI::Carp 'fatalsToBrowser'; 
use CGI;
$q = new CGI;  
  
read (STDIN, $forminfo, $ENV{'CONTENT_LENGTH'});
($ENV{'REQUEST_METHOD'} =~ /get/i) 
  and $forminfo = $ENV{'QUERY_STRING'};

@forminfo = split(/&/,$forminfo);
foreach $pair (@forminfo) {
  ($var, $value) = split(/=/,$pair);
  $value =~ s/%([a-fA-F\d][a-fA-F\d])/pack("C",hex($1))/eg;
  $value =~ s/\+/ /g;
  $forminfo{$var} = $value;
	}
	  
$template = "template.html";
$in = $ENV{'QUERY_STRING'}; 
$link = $forminfo{'link'};


if ($in eq "") {
	open(INDEX,"home.html") || die "can't open ";
    @insert = <INDEX>;       
	close (INDEX);
}

else {
	open (FILE,"$link.html");
	@insert = <FILE>;
	close (FILE);  
}


#################################################
#################################################
############     PRINT OUT TO BROWSER   ############
#################################################

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

open(TEMPLATE, "$template") or die "can't open $!";
    local($/) = undef;
    $temp = <TEMPLATE>;

	$temp =~ s/\$INSERT/@insert/g;
    print $temp;

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