#!/usr/bin/perl -w
use strict;
use CGI ':standard';

my $title = 'Page not found';
my $page = 'Page not found';

if (open(PAGE, "page/" . (param('page') || 'about'))) {
  chomp ($title = <PAGE>);
  $page = join "", <PAGE>;
}

print <<END
Content-Type: text/html

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html
  PUBLIC "-//W3C/DTD XHTML 1.0 Strict//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>Rensselaer | Nickle</title>
<link rel="stylesheet" href="page.css" />
</head>
<body>

<p>
<span class="title">Rensselaer | Nickle</span>
<span class="subtitle">$title</span>
</p>
 
<div class="sidebar">
<div class="navtitle">Club</div>
<div class="link"><a href="?page=about">About</a></div>
<div class="link"><a href="?page=const">Constitution</a></div>
<br />
<div class="navtitle">Nickle</div>
<div class="link"><a href="?page=nickle">About Nickle</a></div>
<div class="link"><a href="?page=getting">Getting Nickle</a></div>
<div class="link"><a href="?page=name">Why "Nickle"?</a></div>
<div class="link"><a href="http://nickle.org/tutorial/">Tutorial</a></div>
<div class="link"><a href="http://nickle.org/manual.html">Manual</a></div>
<br />
<div class="navtitle">Nickle home</div>
<div class="link"><a href="http://nickle.org/">nickle.org</a></div>
</div>

$page

</body>
</html>
END
