<a href="http://search.cpan.org/~dagolden/CPAN-Reporter-1.1704/lib/CPAN/Reporter/FAQ.pod#Why_don't_you_support_sending_reports_via_HTTP_or_authenticated_SMTP">http://search.cpan.org/~dagolden/CPAN-Reporter-1.1704/lib/CPAN/Reporter/FAQ.pod#Why_don't_you_support_sending_reports_via_HTTP_or_authenticated_SMTP</a>?<br>
<br>Alceu,<br><br>Você pode fazer o STMP com autenticação no próprio Reporter:<br><a href="http://search.cpan.org/~dagolden/CPAN-Reporter-1.1704/lib/CPAN/Reporter/Config.pod">http://search.cpan.org/~dagolden/CPAN-Reporter-1.1704/lib/CPAN/Reporter/Config.pod</a><br>
<br>[]s,<br>Russo<br><br><div class="gmail_quote">2009/1/9 Alceu R. de Freitas Jr. <span dir="ltr"><<a href="mailto:glasswalk3r@yahoo.com.br">glasswalk3r@yahoo.com.br</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Esse assunto está relacionado com esse aqui: <a href="http://mail.pm.org/pipermail/cascavel-pm/2009-January/014477.html" target="_blank">http://mail.pm.org/pipermail/cascavel-pm/2009-January/014477.html</a><br>
<br>
Eu tive dificuldades em usar o CPAN::Reporter por não conseguir usar um servidor SMTP sem autenticação. O Alexei propôs uma solução de usar um servidor Postfix para fazer relay para o Gmail, mas isso não funciona em ambientes puramente Windows.<br>
<br>
Eu aindei fuçando a documentação e aparentemente (eu não testei) é possível usar SMTP autenticado. Mas para fazer isso é necessário ler também a documentação do CPAN::Reporter::Config e do Test::Reporter (e módulos no mesmo namespace dele). Eu usei o "transporte" File e funcionou normalmente.<br>
<br>
Como estou numa máquina Windows com ActivePerl num ambiente aonde eu não posso usar um servidor SMTP diretamente, eu resolvi usar o Outlook. Criei o código abaixo e aparentemente o envio do relatório funciona normalmente (mas eu não consegui configurar o header específico X-Reported-Via, já que para configurar isso no Outlook é preciso usar o Redemption e eu não tenho tempo pra isso).<br>
<br>
Segue abaixo o código que escrevi:<br>
<br>
use strict;<br>
use warnings;<br>
package Test::Reporter::Transport::Outlook;<br>
use base 'Test::Reporter::Transport';<br>
use vars qw/$VERSION/;<br>
use Mail::Outlook;<br>
$VERSION = '0.01';<br>
$VERSION = eval $VERSION;<br>
sub new {<br>
my $class = shift;<br>
my $self = { _outlook => Mail::Outlook->new() };<br>
return bless $self, $class;<br>
}<br>
sub get_outlook {<br>
my $self = shift;<br>
return $self->{_outlook};<br>
}<br>
sub send {<br>
my ( $self, $report ) = @_;<br>
my $message = $self->get_outlook()->create();<br>
$message->To( $report->address() );<br>
$message->Subject( $report->subject() );<br>
$message->Body( $report->report() );<br>
$message->display();<br>
return;<br>
}<br>
1;<br>
<br>
Detalhe: patches de segurança não permitem o envio de emails automaticamente. A mensagem será aberta no Outlook e o programador vai ter que enviar manualmente. Pelo menos dá para ver o relatório antes de mandar. :-)<br>
<br>
Se alguém topar testar e me dar um retorno de que está OK, eu publico isso no CPAN (se receber a autorização para usar o namespace, é claro).<br>
<br>
[]'s<br>
Alceu Rodrigues de Freitas Junior<br>
--------------------------------------<br>
<a href="mailto:glasswalk3r@yahoo.com.br">glasswalk3r@yahoo.com.br</a><br>
---<br>
A well-used door needs no oil on its hinges.<br>
A swift-flowing stream does not grow stagnant.<br>
Neither sound nor thoughts can travel through a vacuum.<br>
Software rots if not used.<br>
These are great mysteries -- The Tao Of Programming, 5.1<br>
<br>
<br>
Veja quais são os assuntos do momento no Yahoo! +Buscados<br>
<a href="http://br.maisbuscados.yahoo.com" target="_blank">http://br.maisbuscados.yahoo.com</a><br>
_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
</blockquote></div><br><br clear="all"><br>-- <br>Alexei Znamensky [russoz_gmail_com] [<a href="http://russoz.wordpress.com">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz">www.flickr.com/photos/alexeiz</a>]<br>
"Though we live in trying times, we're the ones who have to try"<br>