envio de un mail, pero lo que quiero es hacer que este funcione para varios destinatarios. pongo mi aplicacion para ver si alguien me puede ayudar
gracias.aplicacion cgi
#/usr/local/bin/perl
use CGI;
$cgi=new CGI;
$sendmail="/usr/lib/sendmail";
$recommendSubject = "Una amiga quiere que visites beinggirl.net";
$recommendSender = "";
$recommendText = "------------------------------------------------------------".
"\n\n_MESSAGE_CONTENT\n\n".
"------------------------------------------------------------".
$relativeAddress="";
$recommendRedirect = $relativeAddress."";
sub validate_email {
$_ = shift;
return (m/^([A-Z0-9]+[._]?){1,}[A-Z0-9]+\@(([A-Z0-9]+[-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i);
}
$referer = $cgi->param('referer');
if ($referer eq "RECOMMEND") {
$subject = $recommendSubject;
$from = $recommendSender;
$to = $cgi->param('email');
$message = $cgi->param('message');
$content = $recommendText;
$redirect = $recommendRedirect;
$_ = $content;
s/_MESSAGE_CONTENT/$message/g;
$content = $_;
$isValidAddress = validate_email($to);
}
open (MAIL,"| $sendmail -i -t" );
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
print MAIL $content;
close (MAIL);
print $cgi->header;
print "<html><head><meta http-equiv=\"refresh\" content=\"1; URL=$redirect\"></head></html>";
exit 0;
Aplicacion html
[/b]
