Hola
En los anteriores post
vi un cgi y lo trate de adaptar a mis necesidades, pero obio no funciona, me puedes ayudar, la adaptacion es esta:
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
################################################## ##
#Este es un script que envia emails a una lista de usuarios
#Realizado por Ing. Remisel Naranjo Dieguez. Cuba
################################################## ##
use strict;
use CGI qw(:all);
##
my $pathfile = "hhtp//www.harveysuru.com/web/cgi-bin/user/userlist.txt";
# Asunto del email
my $subj = "Este es el Subject.";
# Cuerpo del mensaje
my $name = '';
my $body = ("Cuerpo del mensaje.");
my $email='';
my $count = 0;
# enviar email
open (FILE, "$pathfile");
while ($a = <FILE>) {
chomp $a;
&send_mail('[email protected]', $a, $subj, $body, $name, $email);
$count++;
}
close (FILE);
## Send email
sub send_mail{
my $sendmail = "/usr/sbin/sendmail -v -t";
# Envio email
open (MAIL, "|$sendmail");
print MAIL "TO: $a \n";
print MAIL "FROM: webmaster\@metunas.co.cu \n";
print MAIL "SUBJECT: $subj \n\n";
print MAIL "$body \n";
print MAIL "$name \n";
print MAIL "$email \n;
close(MAIL);
}
Me imagino que debo estar haciendo un monton de cosas mal pero no me doy cuenta; el archivo userlist.txt esta en su carpeta, pero tengo una duda sobre como tengo que poner los mail si con comillas solos o con punto y coma para separarlos , ademas como
llamo al cgi, con rutas relativas o absolutas (tipo http//www.....)
Desde ya gracias por tu tiempo
