ParseParams
|
sub ParseParams { LoadRules($_[0]); # load the rules my $cgi = new CGI(); foreach my $name ($cgi->param) { my $value = $cgi->param($name); next unless($value); $cgiparams{$name} = $value if($rules{$key} && $value =~ /^$rules{$key}$/); } } |