"Jason Gray" <[EMAIL PROTECTED]> wrote in message news:... > Could I do this? > > sub check_fields { > my $q = shift; > my $match; > my @fields = ('name', 'email', 'city', 'state', 'message'); > foreach my $field (@fields) { > next if ($q->param($field)); > $match = 0; > print "Please fill in your " . ucfirst($field) . ".\n"; > exit; > } > $match = 1; > } > > > "Jason Gray" <[EMAIL PROTECTED]> wrote in message > news:[EMAIL PROTECTED] > > #!/usr/bin/perl -w > > > > use strict; > > use warnings; > > > > use CGI(); > > use Mail::Mailer; > > > > my $q = CGI->new(); > > > > print $q->header(); > > > > #----------------------------------------- > > # * startup methods -> global variables. > > > > check_fields(); > > > > #----------------------------------------- > > > > sub check_fields { > > my $blanks; > > my @fields = qw(name email city state message); > > foreach my $field (@fields) { > > $blanks++ if !$q->param($field); > > } > > if($blanks) { > > print qq(Error: There were some blank fields.); > > exit; > > } > > unless($q->param('email') =~ /[EMAIL PROTECTED]/) { > > print qq(Error: Please enter a valid email address.); > > } > > send_email(); > > } > > > > > > sub send_email { > > my $m = Mail::Mailer->new('sendmail'); > > $m->open({ From => $q->param('email'), > > To => 'perl <[EMAIL PROTECTED]>', > > Subject => '[INFO] Site Comment', > > }) or die $!; > > print $m "Name: " . ucfirst($q->param('name')) . "\n"; > > print $m "Location: " . ucfirst($q->param('city')) . ", " . > > $q->param('state') . "\n\n"; > > print $m $q->param('message'); > > $m->close(); > > print qq(Thank you for emailing us. We will contact you in the next 24 > > hours.); > > } > > > > > >
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>