Nenhuma resposta neste tópico

[Seraphim]

Prezados colegas, estou com o seguinte problema: Uso o pacote Net::SMTP para envio de informações por e-mail em um programa em Perl. Ele funciona normalmente; porém preparei um programa para envio de informações de texto (tipo 120 colunas e 30 linhas), ele envia normalmente alguns campos mas sempre falha em um deles. Sendo que essa falha não é sempre no mesmo campo. Alguém sabe o que pode ser?

Segue o exemplo do código:

$smtp = Net::SMTP->new('000.000.00.0'); -> número qualquer de IP do servidor de e-mail


$smtp->mail('$emailaval');
$smtp->to('jose@gmail.com');
$smtp->data();
$smtp->datasend("From: $nomeaval\n");
$smtp->datasend("To: Departamento de análise\n");
$smtp->datasend("Subject: Relatório de avaliação\n");
$smtp->datasend("\n");
$smtp->datasend("Código do departamento: $coddepart\t");
$smtp->datasend("Código da pesquisa: $codpesq\n");
$smtp->datasend("Título do projeto: $titprojeto\n");
$smtp->datasend("Nome do pesquisador: $nomepesq\n\n");
$smtp->datasend("Projeto em andamento: $andamento\n\n");
$smtp->datasend("Período a que se refere o relatório: $periodo\n\n");
$smtp->datasend("Atendeu aos objetivos propostos, anualmente, no projeto?: $atendeu1\n");
$smtp->datasend("Pontuação: $nota1\n\n");
$smtp->datasend("Apresentou conclusões (ainda que parciais)?: $apresentou\n");
$smtp->datasend("Pontuação: $nota2\n\n");
$smtp->datasend("Atendeu ao cronograma proposto?: $atendido\n"); -> Já houve algumas falhas nesse ele possuia o nome $atendeu2 e eu mudei para $atendido, após isso voltou a funcionar.
$smtp->datasend("Pontuação: $nota3\n\n");
$smtp->datasend("Obteve produção científica (publicações)?: $obteve\n"); -> Agora o problema se repete nesse.
$smtp->datasend("Pontuação: $nota4\n\n");
$smtp->datasend("Resultou em produto (Ex.: produção artística ou tecnológica)?\n(No caso de não aplicabilidade conceder pontuação integral): $resultou\n");
$smtp->datasend("Pontuação: $nota5\n\n");
$smtp->datasend("Somatório: $soma pontos\n");
$smtp->datasend("Parecer: $parecer\n\n");
$smtp->datasend("Nome completo do avaliador: $nomeaval\n");
$smtp->dataend();
$smtp->quit;

Vale lembra que cada variável dessa possui em média 120 colunas e 30 linhas.

Desde já agradeço a todos.