#!/usr/local/bin/perl5.001
############################################################################
#                                                                          #
# The contents of this file are subject to the WebStone Public License     #
# Version 1.0 (the "License"); you may not use this file except in         #
# compliance with the License. You may obtain a copy of the License        #
# at http://www.mindcraft.com/webstone/license10.html                      #
#                                                                          #
# Software distributed under the License is distributed on an "AS IS"      #
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See      #
# the License for the specific language governing rights and limitations   #
# under the License.                                                       #
#                                                                          #
# The Original Code is WebStone 2.5.                                       #
#                                                                          #
# The Initial Developer of the Original Code is Silicon Graphics, Inc.     #
# and Mindcraft, Inc.. Portions created by Silicon Graphics. and           #
# Mindcraft. are Copyright (C) 1995#1998 Silicon Graphics, Inc. and        #
# Mindcraft, Inc. All Rights Reserved.                                     #
#                                                                          #
# Contributor(s): ______________________________________.                  #
#                                                                          #
############################################################################

# @(#) WebStone-help.wpl 1.2@(#)
push(@INC, "$wd/bin");
require('WebStone-common.pl');

html_begin("WebStone Documents");

print CLIENT  <<EOF
<H2>WebStone Documents</H2>
<UL>
<LI><A HREF="$wd/INSTALL">Installation Notes</A>
<LI><A HREF="$wd/RELEASE">Release Notes</A>
<LI><A HREF="$wd/doc/FAQ-webstone.html">WebStone FAQ</A>
<LI><A HREF="$wd/README.FIRST">Quick Start</A>
<LI><A HREF="$wd/README.nt">WebStone on Windows NT</A>
<LI><A HREF="$wd/README.DynamicWorkload">Dynamic Workload</A>
</UL>
EOF
	;

print CLIENT "<H2>WebStone Online Manual</H2>\n";
&list_man();

html_end();

# End of main program

sub list_man {
	print CLIENT "<P>\n<UL>\n";
	opendir(MAN, "$wd/man") || die "open $wd/man: $!";
	foreach $file (sort readdir(MAN)) {
		if ( $file =~ /.*.html/ ) {
			( $fname ) = split('\.', $file);
			print CLIENT "<LI><A HREF=\"$wd/man/$file\">$fname</A>\n"
		}
	}
	closedir(MAN);
	print CLIENT "</UL>\n<P>\n";
}

# end
