Caros boa noite.<div><br></div><div>Novamente venho a vocês para solicitar seus conhecimentos.</div><div><br></div><div>Estou tentando fazer um script para envio de e-mails no Win. Preciso utilizar Win pois os usuários não estão familiarizados com Unix. O objetivo do script, que aqui é mostrado apenas parcialmente, é após algumas alterações de arquivo específico realizadas em perl, eu receber em meu e-mail um relatório destas alterações.</div>
<div><br></div><div>Mando o código abaixo.</div><div><br></div><div><div>#!/Perl64/bin/perl –w</div><div>use strict;</div><div>use warnings;</div><div>use diagnostics;</div><div>use Carp;</div><div>use Net::SMTP;</div><div>
<br></div><div>my $alt = "Alteração realizada";</div><div>my $from = "emailfrom\@<a href="http://gmail.com">gmail.com</a>";</div><div>my $to = "emailto\@<a href="http://gmail.br">gmail.br</a>";</div>
<div>my $msg = $alt;</div><div>#my $tolist = $to;</div><div>#my $cclist = "";</div><div>#my $logstr = "";</div><div><br></div><div>my $smtp = Net::SMTP->new("<a href="http://smtp.gmail.com">smtp.gmail.com</a>", Port=> 25, Timeout => 30, Debug => 1 );</div>
<div><br></div><div>$smtp->auth("DIGEST-MD5", "gfsilveira", "6relays6");# or CRAM-MD5</div><div>$smtp->mail($from);</div><div>$smtp->to($to);</div><div>$smtp->data($msg);</div><div>
$smtp->datasend("testing the Net::SMTP mail\n");</div><div>$smtp->datasend("line 2\n");</div><div>$smtp->dataend();</div><div>$smtp->quit;</div><div>exit;</div><div><br></div><div>O problema ocorre quando eu rodo o script, e aparentemente ele não gera a conexão necessário pelo SMTP. A mensagem de erro que recebo é:</div>
<div><br></div><div>Can't call method "auth" on an undefined value at Test_mail.pl.</div><div><br></div><div>Testei alguns outros códigos usando Net::SMTP_auth, ou MIME::Lite::TT::HTML, para html, mas a mensagem é a mesma.;</div>
<div><br></div><div>Agradeço caso alguém possa me dar alguma ajuda.</div><div><br></div><div>Guilherme.</div><div><br></div><div><br></div>-- <br>Guilherme Ferreira Silveira, BMD, MSc.<br>PhD's Student<br>Bioscience and Biotechnology<br>
Carlos Chagas Institute/FIOCRUZ <br>Rua Prof Algacyr Munhoz Máder 3775<br>81350-010, Curitiba, Paraná, Brazil. <br>tel: +55 41 21043330<br>fax: +55 41 21043267<br>e-mail: <a href="mailto:gfsilveira@gmail.com" target="_blank">gfsilveira@gmail.com</a><br>
skype: g.fsilveira<br>\w/<br><br>
</div>