#!/usr/bin/perl
print "Content-type:text/html\n\n";
require ("cgi-lib.pl");
&ReadParse;
if ($in{'name'})
{
&print_web_page;
&print_file;
}
else
{
&print_error_page;
}
exit;
sub print_error_page
{
print "\n";
print "
\n";
print "There was an error in submitting this bug report\n, sorry\n";
print "\n";
print "\n";
}
sub print_web_page
{
print <<__END_OF_HTML_CODE1__;
wvBugReport, Your Bug Report
|
|
wvBugReport
Your Bug Report for wvHtml
|
|
|
|
|
|
wvHtml Online Demonstration
__END_OF_HTML_CODE1__
print "Filename | Comment | Status | \n";
print "$in{'name'} | \n";
print "$in{'comments'} | \n";
print "Pending | \n";
print " \n";
print "Full Bug Listing\n";
print <<__END_OF_HTML_CODE2__;
|
|
|
|
__END_OF_HTML_CODE2__
}
sub print_file
{
open(DATAFILE,">>wvBugList.shtml") || die print "Failed to open links.htm";
print DATAFILE "\n";
print DATAFILE "$in{'name'} | \n";
print DATAFILE "$in{'comments'} | \n";
print DATAFILE "Pending | \n";
print DATAFILE " | \n";
print DATAFILE "
\n";
close DATAFILE;
}