[AsteriskBrasil] Script em perl - Asterisk-Fax

[Elieser Junior]

Lista boa tarde.

Alguém que conhece da linguagem de programação em perl, pode ajudar como eu
adiciono a *porta 587* e o uso de *TLS *nesse script em anexo

*?*
Trata-se de um script de recebimento de fax por email via asterisk
desenvolvido pelo nosso amigo Mike.

Muito grato,

Elieser Júnior
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://asteriskbrasil.org/pipermail/asteriskbrasil/attachments/20141014/235cdadc/attachment.html>
-------------- next part --------------
  1 #!/usr/bin/perl
  2 
  3 use MIME::Lite;;
  4 use Net::SMTP;
  5 
  6 @ARGV;
  7 
  8 my $faxfile = $ARGV['0'];
  9 my $faxname = $ARGV['1'];
 10 my $destination = $ARGV['2'];
 11 my $faxname2 = "/var/spool/asterisk/fax/" . $faxname;
 12 
 13 system("tiff2pdf -o $faxname2 $faxfile");
 14 
 15 my ($sec,$min,$hour,$mday,$mon,$year,
 16 
 17           $wday,$yday,$isdst) = localtime time;
 18 
 19 if(!$destination){
 20     $destination = "elieser.junior\@santacasaba.org.br";
 21 }
 22 
 23 $msg = MIME::Lite->new(
 24     From => 'fax at santacasaba.org.br',
 25     To => '$destination',
 26     Subject => "Fax recebido em $mday/" . ($mon + 1) . "/" . ($year + 1900) . " as $hour:$min:$sec ",
 27     Type => 'multipart/mixed'
 28 );
 29 
 30 $msg->attach(
 31     Type => 'TEXT',
 32     Data => "Ola!, \n\nVoce recebeu um novo fax, o arquivo esta em anexo.\n\nAtt. Equipe de Tecnologia de Informacao e Comunicacao\n"
 33 );
 34 
 35 $msg->attach(
 36     Type => 'application/x-pdf',
 37     Path => "$faxname2",
 38     Filename => "$faxname",
 39     Disposition => 'attachment'
 40 );
 41 
 42 $smtp = Net::SMTP->new(Host => "IP_do_Servidor",
 43     Debug => 1,
 44 );
 45 $smtp->auth("fax\@santacasaba.org.br", "XXXXX");
 46 $smtp->mail("fax\@santacasaba.org.br");
 47 $smtp->to("$destination");
 48 $smtp->data();
 49 $smtp->datasend( $msg->as_string );
 50 $smtp->dataend();
 51 $smtp->quit();