T wrote at Fri, 16 Aug 2002 15:27:54 +0200:
You change often your name ("No Longer Exists" -> "T") and
I'm a little bit afraid to talk too much with
schizophrenic person :-(
> Janek,
>
> YAY, that was the problem. So, now it sends it correctly. I am seeing one other
>problem now that i
> can get that to work, i have changed it to
>
> my $recipient = $q->param( "recipient" ) =~ /^[\w@\,\-]+$/;
I'm not sure what you want to realize.
Your regex matches,
whether the recipient contains only word chars, @',s commata and '-''s.
The result of this regexp,
in this case a simple boolean value (1 or 0)
is returned and assigned to $recipient,
so $recipient will be 1 or 0.
Could it be that you want to send emails to
a recipient with a valid email,
let's say something in Pseudocode like:
if (Email::Valid->address( my $recipient = $q->param('recipient') )) {
print MAIL <<EOM;
...
...
EOM
}
then you should definitly check the CPAN module
Email::Valid
>
> print MAIL <<EOM;
> To: $recipient
> From: mememememe\@yahoo.com
> Reply-To: cynkim\@yahoo.com
> Subject: Perl security test
>
> $recipient is a variable that was called from the form. In that particular form,
>$recipient was
> given the value of [EMAIL PROTECTED] But it won't send.
Best Wishes,
Janek
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
