Foro - Perl en Español

por **alberpilot** » 2012-01-12 06:57 @331

Hola a todos

Escribo para ver si me pueden ayudar con un problema que tengo. Quiero mediante un script en Perl enviar un correo mediante cuenta de Gmail con archivo adjunto de tipo zip. He probado con archivo de texto plano y no hay problema pero no me deja con un tar.gz.

Este es el script.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
#use Net::SMTP::SSL;
use Net::SMTP::TLS;
use MIME::Base64;
use MIME::Decoder::Gzip64;
use File::Spec;
use LWP::MediaTypes;
 
sub send_mail_with_attachments {
 my $to = shift(@_);
 my $subject = shift(@_);
 my $body = shift(@_);
 my @attachments = @_;
 
 my $from = 'remitentearrobagmail.com';
 my $password = 'mipassword';
 
 my $smtp;
 if (not $smtp = new  Net::SMTP::TLS('smtp.gmail.com',Hello=>'smtp.gmail.com',Port=>587,User=>'remitentearrobagmail.com',Password=>'mipass')) {
     die "Could not connect to server\n";
 }
 
 
 # Create arbitrary boundary text used to seperate
 # different parts of the message
 my ($bi, $bn, @bchrs);
 my $boundry = "";
 foreach $bn (48..57,65..90,97..122) {
     $bchrs[$bi++] = chr($bn);
 }
 foreach $bn (0..20) {
     $boundry .= $bchrs[rand($bi)];
 }
 
 # Send the header
 $smtp->mail($from . "\n");
 my @recepients = split(/,/, $to);
 foreach my $recp (@recepients) {
     $smtp->to($recp . "\n");
 }
 $smtp->data();
 $smtp->datasend("From: " . $from . "\n");
 $smtp->datasend("To: " . $to . "\n");
 $smtp->datasend("Subject: " . $subject . "\n");
 $smtp->datasend("MIME-Version: 1.0\n");
 $smtp->datasend("Content-Type: multipart/mixed; BOUNDARY=\"$boundry\"\n");
 
 # Send the body
 $smtp->datasend("\n--$boundry\n");
 $smtp->datasend("Content-Type: application/zip\n");
 $smtp->datasend($body . "\n\n");
 
 # Send attachments
 foreach my $file (@attachments) {
     unless (-f $file) {
         die "Unable to find attachment file $file\n";
         next;
     }
     my($bytesread, $buffer, $data, $total);
     open(FH, "$file") || die "Failed to open $file\n";
     binmode(FH);
     while (($bytesread = sysread(FH, $buffer, 1024)) == 1024) {
         $total += $bytesread;
         $data .= $buffer;
     }
     if ($bytesread) {
         $data .= $buffer;
         $total += $bytesread;
     }
     close FH;
 
     # Get the file name without its directory
     my ($volume, $dir, $fileName) = File::Spec->splitpath($file);
  
     # Try and guess the MIME type from the file extension so
     # that the email client doesn't have to
     my $contentType = guess_media_type($file);
  
     if ($data) {
         $smtp->datasend("--$boundry\n");
         $smtp->datasend("Content-Type: $contentType; name=\"$fileName\"\n");
         $smtp->datasend("Content-Transfer-Encoding: base64\n");
         $smtp->datasend("Content-Disposition: attachment; =filename=\"$fileName\"\n\n");
         $smtp->datasend(encode_base64($data));
         $smtp->datasend("--$boundry\n");
     }
 }
 
 # Quit
 $smtp->datasend("\n--$boundry--\n"); # send boundary end message
 $smtp->datasend("\n");
 $smtp->dataend();
 $smtp->quit;
}
 
# Send away!
 
&send_mail_with_attachments('destinatarioarrobagmail.com', 'Envio de backup BD diaria', ' ', 'archivo1.tgz', 'archivo2.tgz');
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Y me lanza el siguiente error:

Sintáxis: [ Descargar ] [ Ocultar ]

Couldn't send mail: 552 5.7.0 Our system detected an illegal attachment on your message.

Sé que tendrá algo que ver con el tipo de archivo pero le he cambiado el "application/"

Gracias por la ayuda, un saludo.

Bienvenido a los foros de Perl en español, alberpilot.

Haz la prueba siguiente: coge un fichero de texto, sencillo. Y lo comprimes de la misma manera que el adjunto que quieres mandar. Y luego ejecuta el programa para que envíe ese texto comprimido.

Si sale el mensaje de error, es que a Gmail no le gustan los adjuntos comprimidos de esa manera.

El mensaje de error dice que el adjunto es ilegal. Habría que ver qué significa ilegal para Gmail. ¿La extensión, el tipo de adjunto, lo que contiene el adjunto comprimido?

por **alberpilot** » 2012-01-12 08:39 @402

Efectivamente. He probado a comprimir un texto plano sencillo y me lo ha enviado bien. Pero necesito enviar un comprimido que contiene varios .sql ¿Cómo podría hacerlo?

¡Muchas gracias por la respuesta!

por **explorer** » 2012-01-12 14:00 @625

Pues no sé... ¿cambiando la extensión de .sql a .txt?

¿O comprimiendo en un .rar y luego en .zip?

¿No usar Gmail?

por **alberpilot** » 2012-01-13 04:05 @212

Vale. Quería asegurarme de que mi código hacía lo que pretendía. Muchísimas gracias por la ayuda, ¡un saludo!

Foro - Perl en Español

Envio adjunto gzip con SMTP Gmail

Envio adjunto gzip con SMTP Gmail

Publicidad

Re: Envio adjunto gzip con SMTP Gmail

Re: Envio adjunto gzip con SMTP Gmail

Re: Envio adjunto gzip con SMTP Gmail

Re: Envio adjunto gzip con SMTP Gmail

¿Quién está conectado?