$dbh->disconnect;
if everything checks out re-direct the user here
print "Location: http://CustomerAdd.html\nURI:";
print "http://CustomerAdd.html\n\n" ;
If there is an error with the submission this
sends a message to the user
sub PrintError {
print "Content-type: text/html\n\n";
print $message ;
exit 0 ;
return 1 ;
}
Routine that parses out the name/value pairs of the form
sub GetFormInput {
(*fval) = @ if @ ;
local ($buf);
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
}
else {
$buf=$ENV{'QUERY_STRING'};
}