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]