5,576
edits
Changes
Jump to navigation
Jump to search
Line 783:
Line 783: − #define expression to test+ Line 789:
Line 789: − #advice to user+ Line 796:
Line 796: − #get input+ − #test input+
Create server-manager panels by perl cgi (deprecated) (view source)
Revision as of 16:58, 9 June 2015
, 16:58, 9 June 2015→Testing user input
If you have a lot of tests you can define a set of expressions, describe them, and test for them
If you have a lot of tests you can define a set of expressions, describe them, and test for them
* define expression to test
my $REGEXPHostname = '([a-z0-9][a-z0-9-\.]*)';
my $REGEXPHostname = '([a-z0-9][a-z0-9-\.]*)';
my $REGEXPIPAddress = '(self|\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})';
my $REGEXPIPAddress = '(self|\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})';
* advice to user
esmith::cgi::genTextRow ($q, $q->p ( 'The IP address displayed
esmith::cgi::genTextRow ($q, $q->p ( 'The IP address displayed
is the IP address of the e-smith server. If this hostname
is the IP address of the e-smith server. If this hostname
address in the format "aaa.bbb.ccc.ddd"' )),
address in the format "aaa.bbb.ccc.ddd"' )),
* get input
esmith::cgi::genNameValueRow ($q,
esmith::cgi::genNameValueRow ($q,
"Hostname",
"Hostname",
"HostName",
"HostName",
""),
""),
* test input
my $MACAddress = lc($q->param ('MACAddress'));
my $MACAddress = lc($q->param ('MACAddress'));