use CGI qw(:standard);
print header();

my $loginoutlink='';
my $loginout='';
my $usersilver='';
my $ore='';
my $userhp='';
my $usermana='';
my $userlvl='';
my $userexp='';
my $userexpnext='';
my $pagetext='';
my $pagetitle='';
my $mainpagename='';
my $specificpagename='';
my $pagerep='';
my $pageaction='';
$pageaction=param('link');
my $textpage='';
if($pageaction eq 'news') {
	open(NEWS,"news.html");
	while(<>) {
		$pagetext .= $_;
	}
	close NEWS;
	open(PAGE,"template.htmlt");
	while(<PAGE>) {
		$pagerep .=$_;
	}
	close PAGE;
	$pagerep=~s/PAGETITLE/KnightScape News/; 
	$pagerep=~s/MAINPAGENAME/KnightScape News-Your TableSpoon of KnightScape Info!/;
	$pagerep=~s/SPECIFICPAGENAME/Recent News/;
	$pagerep=~s/PAGETEXT/$pagetext/;
}elsif($pageaction eq 'records') {
	
}elsif($pageaction eq 'quests') {
	
}elsif($pageaction eq 'help') {
	
}elsif($pageaction eq 'ask') {
	
}elsif($pageaction eq 'login') {
	
}elsif($pageaction eq 'logout') {
	
} else {
	
}
print "$pagerep";
print "PieFart.";