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]

Reply via email to