displayPage-Test.cgi-pl

#!/usr/bin/perl

use LAM::LAM qw(displaySource displayPage namedParameters viewFormData);
use CGI qw(:all); # CGI - load standard functions
use strict;     # Force me to use strict variable syntax.
use warnings;  # Enable all warnings.

LAM::displaySource(                   # Display source, rlog, etc. if requested.
"https://github.com/LAMurakami/no-ssl/blob/master/html/Public/Scripts/displayPage-Test.cgi-pl");

if (param('Submit')) { my $submitRequest = param('Submit');
	if ($submitRequest eq 'View Form Data') {LAM::viewFormData()}
	elsif ($submitRequest eq 'displayPage') {LAM::displayPage('-c',
	  '<center>LAM::displayPage() Test</center>', '$submitRequest: '
	  . "$submitRequest<br />\n" . LAM::namedParameters())
	} # Report request that this program is unprepared for as error
	LAM::displayPage('-e', '-c', 'Unknown request!',
	  '$submitRequest: ' . "$submitRequest<br />\n" . LAM::namedParameters())
} else { # No Submit button was used => Display the form
my $formText = start_form() . div({-align=>'center'}
    , submit({-name=>'Submit',-value=>'displayPage'}). "\n". reset()
    . submit({-name=>'Submit',-value=>'View Form Data'}). br().
	"\n". LAM::namedParameters());
LAM::displayPage('-c', '<center>LAM::displayPage() Test</center>', $formText)}
# ..:....|....:....|....:....|....:....|....:....|....:....|....:....|....:....|