5,576
edits
Changes
From SME Server
Jump to navigationJump to searchCreate 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
Line 783:
Line 783:
#define expression to test+#advice to user+#get input+#test 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})';
Line 789:
Line 789:
−* 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
Line 796:
Line 796:
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'));
