#!/usr/bin/perl


sub print_header {
	my ($title) = @_;
	my $ctitle = $title;
	$ctitle =~ s/<([^<>])>//g;
	print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/1999/REC-html401-19991224/loose.dtd\">
<html>
	<head>
		<title>$ctitle</title>
		<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-15\">
	</head>
	<body bgcolor=\"#5b7fa3\" text=\"#000000\" link=\"#000460\" alink=\"#000460\" vlink=\"#000460\">
		<center>
			<table border=0 cellspacing=0 cellpadding=1 width=450>
				<tr><td bgcolor=\"#000000\">
					<table border=0 cellspacing=0 cellpadding=4 width=\"100%\">
						<tr><td bgcolor=\"#d6d6d6\" align=\"center\">
							<font size=\"+3\">$title</font>
						</td></tr>
					</table>
				</td></tr>
			</table>
			<p></p>
			<table border=0 cellspacing=0 cellpadding=1 width=\"80%\">
				<tr><td bgcolor=\"#000000\">
					<table border=0 cellspacing=0 cellpadding=6 width=\"100%\">
						<tr><td bgcolor=\"#d6d6d6\" width=150 valign=\"top\">
							<table border=0 cellspacing=0 cellpadding=1 width=\"100%\">
								<tr><td bgcolor=\"#454545\">
									<table border=0 cellspacing=0 cellpadding=3 width=\"100%\">
										<tr><td bgcolor=\"#c6c6c6\">
											<p><b>Latest Release</b><br>
											&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;1.5.6<br>
											&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;08 July 2004
											</p>
											<p><b>BeAIM</b><br>
											&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"index.cgi\">BeAIM Home</a><br>
											&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"index.cgi?updates\">Updates</a><br>
											&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"index.cgi?download\">Download</a><br>
											&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"index.cgi?shots\">Screen Shots</a><br>
											&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"index.cgi?archive\">Archive</a><br>
											</p>
										</td></tr>
									</table>
								</td></tr>
							</table>
						</td><td bgcolor=\"#d6d6d6\" valign=\"top\">\n";
}

sub print_footer {
	print "						</td></tr>
					</table>
				</td></tr>
			</table>
			<p></p>
			<table border=0 cellspacing=0 cellpadding=1 width=350>
				<tr><td bgcolor=\"#000000\">
					<table border=0 cellspacing=0 cellpadding=1 width=\"100%\">
						<tr><td bgcolor=\"#d6d6d6\" align=\"center\">
							<font size=\"0\">
								Copyright &copy; 2003-2004 Kyle Donaldson &lt;gile <i>at</i> csh.rit.edu&gt;<br>
								Copyright &copy; 1999-2003 Greg Nichols &lt;greg <i>at</i> fifthace.com&gt;
							</font>
						</td></tr>
					</table>
				</td></tr>
			</table>
		</center>
	</body>
</html>\n";
}


my ($page) = @ARGV;
if ($page eq "") { $page = "home" }

print "Content-Type: text/html\r\n\r\n";
print_header("<font color=\"#0000ff\">B</font><font color=\"#ff0000\">e</font>AIM: Chat for the <font color=\"#0000ff\">B</font><font color=\"#ff0000\">e</font>OS");

open(FILE, "$page.html") or die("<b>No such page as $page is available</b>");
print <FILE>;
close(FILE);

print_footer();

