#!perl -w
# $Id: make_help_html.pl,v 1.2 2004/09/30 07:34:13 jlinoff Exp $
#
# Make help.html from help.txt.
#
use strict;
&Main;
# ================================================
# MAIN
# ================================================
sub Main
{
open(TXT,"help.txt") || die "ERROR: Can't read 'help.txt'.\n";
open(HTML,">help.html") || die "ERROR: Can't write 'help.html'.\n";
print HTML "\n";
print HTML "\n";
print HTML "\n";
while()
{
if( /^$/ ) {
print HTML "
\n";
next;
}
s/\&/&/g;
s/\/>/g;
print HTML $_;
}
print HTML "\n";
print HTML "\n";
print HTML "\n";
close(HTML);
close(TXT);
}