#!/user/bin/perl
use strict;
use CGI;
&httpHeader();
&weblog();
&httpFooter();
exit;
sub httpHeader
{
print "Content-Type: text/html\n\n";
print "\n";
print "Parameter Confirmation\n";
print "\n";
}
sub httpFooter
{
print "\n";
print "\n";
}
sub weblog
{
my $cgihan = CGI::new();
my @frmprm = $cgihan->param;
my $prmcnt = @frmprm;
#-----------------------------------------
# Debugging aid
#-----------------------------------------
print "Parameter count: $prmcnt\n";
foreach my $frmprm (@frmprm)
{
my $prmval = $cgihan->param($frmprm);
print "
\ \ \ \ '$frmprm' => '$prmval'\n";
}
#-----------------------------------------
print "
\n";
return;
}
__END__