I'd also use Mail::Send or Mail::Mailer instead of opening a pipe directly to sendmail.#!/usr/bin/perl -wT use CGI; my $q = CGI->new(); my $fax = $q->param('fax'); my $email = $q->param('email'); print $q->header(); error('Please fill in all the required blanks') unless ($fax && $email); mail(); # print success method, redirect? sub error { print <<HTML; <HTML><HEAD></HEAD><BODY> <H3>$_[0]</H3><BR> </BODY></HTML> HTML exit 1; }
In reply to Re: Re: form help
by chromatic
in thread form help
by tomfitz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |