#!/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

Navigation

wvHome
   wvWare
   wvOnlineDemo
      wvBugReport

wvBugReport

Your Bug Report for wvHtml

wvHtml Online Demonstration

__END_OF_HTML_CODE1__ print "\n"; print "\n"; print "\n"; print "\n"; print "

Filename	Comment	Status
$in{'name'}	$in{'comments'}	Pending

\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; }