#!/usr/local/bin/perl
#
#--------------------------------------------------------------
# Includes
#--------------------------------------------------------------
require "../../../../cgi-bin/cgi-lib.pl";
# Global Varibles SETUP HERE!!
#--------------------------------------------------------------
# Main Program
#--------------------------------------------------------------
&ReadParse(*input);
if (&MethGet) {
print &PrintHeader;
if ($input{page} eq "0" || $input{page} eq "") {
print qq#
Hot Java
<![CDATA[
#;
print &PrintFile("Docs/page0.html");
print qq#
]]>
#;
exit;
}
print qq#
Hot Java
<![CDATA[
#;
print &PrintFile("Docs/page$input{page}.html");
print qq#
]]>
#;
}
exit;
# Functions
#--------------------------------------------------------------