my $cgi = CGI->new();
my %params = $cgi->Vars();
my $errorMessages = "";
foreach my $key (qw(numeric integer id)) {
if ($params{$_} =~ /\D/) {
$errorMessages .= "Error: $key contains chars that are not numeric
";
} # if
} # foreach
foreach my $key (qw(string1 string2 text)) {
if ($params{$_} =~ /[^a-zA-Z0-9 ]/) {
$errorMessages .= "Error: field $_ contains other characters than letters, numbers or spaces
";
} # if
} # foreach
if ($errorMessages) {
&PrintError($errorMessages);
exit;
}