#!/usr/bin/perl
#
# print header stuff
#
print "Content-type: text/html", "\n\n";
print "<html>\n";
print "<body background=\"nevada.gif\">\n";
#
#define stuff to grab data entered on form
#
require CGI;
use CGI;
$cgi = new CGI;
#
# get the data they entered in the text bos
#
$formtext=$cgi->param('text');
$formfile=$cgi->param('file');
$zfilename=$cgi->param('zfilename');
print "<tt>";
print "<html><br>";
print "<tt><br>";
open(ALL,"$zfilename");
while(<ALL>) {
s/&/&amp;/g;
s/</&lt;/g;
s/>/&gt;/g;
s/ /&nbsp;/g;
s/\n/<br><br>\n/;
print "$_";
}
close(ALL);
print "</html><br>";
print "</pre>";
print "</tt>";
print "<form action=\"dump_to_html.pl\" method=\"post\">";
print "<input type=\"submit\" name=submit value=\"SUBMIT\">";
print "<input type=\"text\" name=\"zfilename\" value=\"$zfilename\">";
print "<br>";
print "<textarea name=\"text\" cols=\"100\" rows=\"20\">";
print "</textarea>";
print "<hr>";
print "<input type=\"reset\" name=reset value=\"CLEAR MENU\">";
print "<input type=\"hidden\" name=\"formname\" value=\"resume.form\">";
print "</form>";
print "</html>\n";
exit;