in reply to Form param checking

Check out Data::FormValidator. The docs might seem a bit daunting, but it should do the trick for you.

Update: As for your actual code snippet, I don't see how your $name, $email, and %emails variables are getting populated. Show us how you assign data to them and we might be able to answer your question more directly.

Cheers,
Ovid

New address of my CGI Course.

Replies are listed 'Best First'.
Re: Re: Form param checking
by Anonymous Monk on Dec 29, 2003 at 22:45 UTC
    This is a snippet: 
    if(param()){
    my $email   = param('email');
    my $name    = param('name');
    my $update  = param('update');
    my $add1 = param('add1');
    my $add2 = param('add2');
    my $city = param('city');
    my $zip  = param('zip');
    my $country = param('country');
    
    if($name)
       {
        if($email)
              {
            if(exists $emails{$email})
                     {
                    print "<center><b>Email already exists in database
+.</b></center>\n";
             }
             else
                     {

                                  my $info = join("::", $name, $add1, 
+$add2, $city, $zip, $country);

                                  $emails{$email} = "$info";
                    print "<center><b>Your information was added to ou
+r system!</b></center>\n";
                    
               }
        else 
              {
                     print "Email was missing";
                     exit;
              }
}
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom