#!/usr/bin/perl
use CGI;
use strict;
my $q = new CGI;
print "Content-type: text/html\n\n";
#GET VARIABLES FROM SUBMITTED FORM
############################################
my %form = (var1 => $q->param('var1'),
var2 => $q->param('var2'),
var3 => $q->param('var3'));
#SET ARRAY WITH REQUIRED FIELDS
############################################
@reqform = (var1,var2,var3);
#CHECK THAT REQUIRED FIELDS FILLED else PRINT ERROR
###################################################
foreach (@reqform) {
if ($form{$_} eq '') {@errormsg = (@errormsg, $_);}
}
if(@errormsg) {
&PrintError;} else
{&CARRY_ON_PROCESSING_FORM;
}
#PRINT ERROR
###################################################
sub PrintError {
print "";
foreach (@errormsg) {
print "You need to enter something for $_
";
}
}