Parameter Confirmation

##



##

##

Parameter count: 2 
    'signoff' => 'review' 
    'button' => 'Save' 

##

##

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