Ajuda para rodar script de envio de Email em Perl.

paulosapo
(usa Ubuntu)

Enviado em 28/09/2015 - 11:56h

bom dia galera,
estou com um script em Perl para envio de email, porém não estou conseguindo fazer ele funcionar, tenho uma maquina com Ubuntu, e gostaria que alguem me ajudasse em como devo configurar essa maquina para que possa rodar esse script, sou iniciante em linux e gostaria de uma ajuda.
Segue script:
#!/usr/local/bin/perl

$ARGC=@ARGV;
if ($ARGC !=4) {
printf "Você digitou de uma forma errada. Siga as instruções.\n";
printf "INSTRUÇÕES - UND3F1N3D\n";
printf "perl $0 <mailist> <remetente\@mail.com> <assunto> <corpo.html>\n";
printf "Exemplo: perl $0 lista01.txt peu\@msn.com Ola index.html\n";
exit(1);
}

$mailtype = "content-type: text/html";
$sendmail = '/usr/sbin/sendmail';
$sender = $ARGV[1];
$subject = $ARGV[2];
$efile = $ARGV[0];
$emar = $ARGV[0];
open(FOO, $ARGV[3]);
@foo = <FOO>;
$corpo = join("\n", @foo);
open (BANDFIT, "$emar") || die "Can't Open $emar";
$cont=0;

while(<BANDFIT>) {
($ID,$options) = split(/\|/,$_);
chop($options);
foreach ($ID) {
$recipient = $ID;
open (SENDMAIL, "| $sendmail -t");
print SENDMAIL "$mailtype\n";
print SENDMAIL "Subject: $subject\n";
print SENDMAIL "From: $sender\n";
print SENDMAIL "To: $recipient\n\n";
print SENDMAIL "$corpo\n\n";
close (SENDMAIL);
$cont=$cont+1;
printf "$cont Enviado para $recipient";
}
}
close(BANDFIT);

stefaniobrunhara
(usa CentOS)

Enviado em 28/09/2015 - 13:02h

Amigo, não entendo nada de perl ! mas acho que para enviar email não importa o meio, vc precisa que o sendmail ou postfix esteja configurado. Você já fez isto?

paulosapo
(usa Ubuntu)

Enviado em 28/09/2015 - 13:13h

pois essas configurações tambem não sei como fazer.... ja instalei o postfix mas acredito que não esta configurado. acredito que se postfix estiver configurado essa script possa funcionar.....

stefaniobrunhara
(usa CentOS)

Enviado em 28/09/2015 - 14:58h

http://www.aprendendolinux.com/gmail-postfix-relay-smtp-autenticado/

Quando sito estiver funcionando você será capaz de enviar uma email com o comando abaixo.



mail -s "teste de envio" estefanio@brunhara.com
TESTE
teste
. <-- veja o ponto finaliza o corpo da mensagem
EOT