#!/usr/local/bin/perl5
#
#     show.cgi is a cgi not to be confused with the subroutine show.
# 
#     show.cgi takes the name of a file in /home/www/script for
# display.  Its strips off anything that would change the directory.
# 
#      After it displays the posting, it creates a form that calls
# mailme.cgi, not to be confused with mailme/mailme2.cgi.  mailme.cgi
# takes the same name of the file and sends it to the user.
# 
 
require "clean";
 
$line = &clean(@ARGV[0]);
if ($line eq "") {exit;}
 
$data =`cat /home/www/theproof/script/$line`;
 
$data =~ s/&/&amp\;/g;
$data =~ s/</&lt\;/g;
$data =~ s/>/&gt\;/g;
$data =~ s/"/&quot\;/g;
 
print `cat open2.html`;
 
print "<center> ";
print "<form method=post action=mailme.cgi> ";
print "MAIL ME THIS POSTING! <br> ";
print "MY E-MAIL ADDRESS: <br> ";
print "For example: homer\@lightlink.com <br> ";
print "<input type=hidden name=file value=$line> ";
print "<input type=text   name=email size=40> <br> ";
print "<input type=submit value=Submit> ";
print "<input type=reset  value='Clear form'> ";
print "</form> ";
print "</center> ";
 
print "<pre>";
print $data;
print "</pre>";
 
exit;