Foro - Perl en Español

por **felloz** » 2018-12-10 14:12 @633

Buenas tardes.

Tengo un problema con el siguiente código y un conocido en Stackoverflow me recomendó utilizar esta plataforma para buscar ayuda.

El siguiente código dejó de funcionar después de una actualización que hizo en una oportunidad una persona.

Desconozco qué actualización hizo pero logramos hacer funcionar bien la información que llega a la bandeja de devueltos. Sin embargo, el perl, por alguna extraña razón, no logra procesar de forma eficiente las query.

Cualquier ayuda que me puedan brindar estaría infinitamente agradecido.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use warnings;
 
#use diagnostics;
use File::Copy;
use Mail::Box;
use Mail::Box::Mbox;
use POSIX qw(strftime);
use DBI;
use Encode qw(decode encode);
use Net::SMTP;
use MIME::Lite;
 
my %config;
 
my $mbox_user;
my $mbox_uid_user;
my $mbox_mode;
my $mbox_guid;
my $mbox_uid_grp;
my $mbox_uid;
my $mbox_file;
my $mbox_file_tmp;
my $folder;
my $messageID;
my $body;
my $email;
my $smtpCode;
my $smtpAction;
my $smtpStatus;
my $smtpDiagnosticCode;
my $smtpRemoteMta;
my $smtpLastAttemptDate;
my $smtpCodeDetail;
my $adminId;
my $usuarioId;
my $campanaId;
my $listaId;
my $ipTempFiler;
my $devueltosTotal;
my $campanasTotal;
my %devueltos;
my %campanas;
my $startDate;
my $endDate;
my $dbh;
my $sth;
my $sth2;
my $query;
my $query1;
my $queryColumns;
my $queryValues;
my $emailFromName;
my $emailFrom;
my $emailTo;
my $emailSubject;
my $emailMensaje;
my $emailBody;
my $directoryDevueltos;
my $fileNameDevueltos;
my $string;
 
$mbox_user     = "devueltos";
$mbox_uid_user = "devueltos";
$mbox_mode     = "0660";
$mbox_uid_grp  = "mail";
 
#$mbox_guid = "mail";
$mbox_file     = "/var/spool/mail/$mbox_user";
$mbox_file_tmp = "/var/spool/mail/$mbox_user-tmp";
 
$directoryDevueltos = "/home/directorio/data/devueltos";
$fileNameDevueltos = "devueltos-virt-" . strftime( "%Y%m%d-%H%M%S", localtime(time) ) . ".sql";
 
$config{'dbhost'}         = "127.0.0.1";
$config{'dbname'}         = "basededatosnombre";
$config{'dbusername'}     = "usuariobasededatos";
$config{'dbuserpassword'} = "contrasenabasededatos";
 
$emailFromName = 'Administrador Devueltos';
$emailFrom     = '[email protected]';
$emailTo       = '[email protected]';
 
#$emailTo       = '';
#$emailTo       = '';
$emailSubject = '';
$emailMensaje = "";
 
print $mbox_file. "\n";
print $mbox_file_tmp. "\n";
 
$startDate = strftime( "%Y/%m/%d %H:%M:%S", localtime(time) );
 
if ( -e $mbox_file ) {
 
    move( $mbox_file, $mbox_file_tmp );
 
    open( OUTFILE, ">$mbox_file" ) || die "No se puede crear el archivo : $mbox_file";
    close(OUTFILE);
 
    $mbox_uid  = ( getpwnam($mbox_uid_user) )[2];
    $mbox_guid = ( getpwnam($mbox_uid_grp) )[3];
 
    chown( $mbox_uid, $mbox_guid, $mbox_file );
    system("chmod  $mbox_mode $mbox_file");
 
    #   if( -e $mbox_file_tmp ){
 
    system("chmod  $mbox_mode $mbox_file_tmp");
 
    $folder = new Mail::Box::Mbox( 'folder' => $mbox_file_tmp, 'access' => 'rw' );
 
    my $i = 0;
 
    %devueltos = ();
 
    foreach my $message ( $folder->messages ) {
 
        $smtpCode            = undef;
        $smtpCodeDetail      = undef;
        $email               = undef;
        $smtpAction          = undef;
        $smtpStatus          = undef;
        $smtpDiagnosticCode  = undef;
        $smtpCodeDetail      = undef;
        $smtpRemoteMta       = undef;
        $smtpLastAttemptDate = undef;
        $usuarioId           = undef;
        $adminId             = undef;
        $campanaId           = undef;
        $listaId             = undef;
        $ipTempFiler         = undef;
 
        $body = $message->decoded();
 
        foreach ( split( /\n/, $body ) ) {
            next if (/^\s*$/);
 
            if ( $_ =~ /^(\d{3}\s\d{1}\.\d{1}\.\d{1})/ig ) {
                $smtpCode = $1;
            }
            elsif ( $_ =~ /^\d{3}\s\d{1}\.\d{1}\.\d{1}\s(.*)$/ig ) {
                $smtpCodeDetail = $1;
            }
            elsif ( $_ =~ /^Final-Recipient:\sRFC822;\s([A-z0-9_\-\.]+@[A-z0-9_\-\.]+\.\w+)+$/ig ) {
                $email = $1;
            }
            elsif ( $_ =~ /^Action:\s(\w+)$/ ) {
                $smtpAction = $1;
            }
            elsif ( $_ =~ /^Status:\s(\d\.\d\.\d)$/ ) {
                $smtpStatus = $1;
            }
            elsif ( $_ =~ /^Diagnostic-Code:\sSMTP;\s(.*)$/ ) {
                $smtpDiagnosticCode = $1;
 
                if (   ( $smtpDiagnosticCode =~ /(550\sSC\-[\d]{3})/ )
                    or ( $smtpDiagnosticCode =~ /(550\sOU\-[\d]{3})/ )
                    or ( $smtpDiagnosticCode =~ /(550\sDY\-[\d]{3})/ )
                    or ( $smtpDiagnosticCode =~ /(421\sRP\-[\d]{3})/ ) ) {
                    $ipTempFiler = 1;
                }
            }
            elsif ( $_ =~ /^Remote-MTA:\sDNS;\s([A-Za-z0-9\.\-]+)$/ ) {
                $smtpRemoteMta = $1;
            }
            elsif ( $_ =~ /^Last-Attempt-Date:\s[A-Za-z]+\,\s(\d{1,2}\s[A-Za-z]+\s\d{4}\s[0-9:]{8}\s[0-9\-]{5})/ig ) {
                $smtpLastAttemptDate = convert_date($1);
            }
            elsif ( $_ =~ /^X-RSidusuario:\s(\d+)$/ ) {
                $usuarioId = $1;
            }
            elsif ( $_ =~ /^X-RS-idadmin:\s(\d+)$/ ) {
                $adminId = $1;
            }
            elsif ( $_ =~ /^X-RS-idcamp:\s(\d+)$/ ) {
                $campanaId = $1;
            }
            elsif ( $_ =~ /^X-RS-idlist:\s(\d+)$/ ) {
                $listaId = $1;
            }
            if ( defined $smtpCode ) {
                if ( $smtpCode =~ /^550\s\d\.\d\.\d$/ ) {
                    if (    ( defined $usuarioId )
                        and ( defined $adminId )
                        and ( defined $campanaId )
                        and ( defined $listaId ) ) {
                        $devueltos{$i}{'smtpcode'}   = $smtpCode;
                        $devueltos{$i}{'email'}      = $email;
                        $devueltos{$i}{'smtpaction'} = $smtpAction;
                        $devueltos{$i}{'smtpstatus'} = $smtpStatus;
                        if ( defined $smtpCodeDetail ) {
                            $smtpDiagnosticCode .= " | " . $smtpCodeDetail;
                        }
                        if ( defined $smtpDiagnosticCode ) {
                            $devueltos{$i}{'smtpdiagnosticcode'} = strip_slashes($smtpDiagnosticCode);
                        }
                        $devueltos{$i}{'smtpremotemta'}      = $smtpRemoteMta;
                        $devueltos{$i}{'smtplastattempdate'} = $smtpLastAttemptDate;
                        $devueltos{$i}{'userid'}             = $usuarioId;
                        $devueltos{$i}{'adminid'}            = $adminId;
                        $devueltos{$i}{'campanaid'}          = $campanaId;
                        $devueltos{$i}{'listaid'}            = $listaId;
                        if ( not defined $ipTempFiler ) {
                            $devueltos{$i}{'status'} = 1;
                        }
                    }
                }
            }
            else {
                if (    ( defined $usuarioId )
                    and ( defined $adminId )
                    and ( defined $campanaId )
                    and ( defined $listaId ) ) {
                    $devueltos{$i}{'email'}      = $email;
                    $devueltos{$i}{'smtpaction'} = $smtpAction;
                    $devueltos{$i}{'smtpstatus'} = $smtpStatus;
                    if ( defined $smtpDiagnosticCode ) {
                        $devueltos{$i}{'smtpdiagnosticcode'} = strip_slashes($smtpDiagnosticCode);
                    }
                    if ( defined $smtpRemoteMta ) {
                        $devueltos{$i}{'smtpremotemta'} = $smtpRemoteMta;
                    }
                    $devueltos{$i}{'smtplastattempdate'} = $smtpLastAttemptDate;
                    $devueltos{$i}{'userid'}             = $usuarioId;
                    $devueltos{$i}{'adminid'}            = $adminId;
                    $devueltos{$i}{'campanaid'}          = $campanaId;
                    $devueltos{$i}{'listaid'}            = $listaId;
                }
            }
 
        }                                      #end foreach body
 
        $message->delete();
 
        $i++;
    }                                          #end foreach $folder->messages
 
    $folder->close( 'write' => 'MODIFIED' );
 
    $devueltosTotal = scalar keys(%devueltos);
 
    if ( scalar keys(%devueltos) > 0 ) {
 
        $dbh = DBI->connect( "DBI:Pg:dbname=$config{'dbname'};host=$config{'dbhost'}",
            "$config{'dbusername'}", "$config{'dbuserpassword'}" );
        $dbh->{RaiseError} = 1;
        $dbh->{PrintError} = 0;
        $dbh->{AutoCommit} = 0;
        if ( !$dbh ) {
            print "Error al conectar a DB";
        }
 
        open( FSQL, ">$directoryDevueltos/$fileNameDevueltos" )
            || die "No se puede crear el archivo : $directoryDevueltos/$fileNameDevueltos";
 
        $string = "BEGIN;\n";
 
        for my $row ( sort keys %devueltos ) {
 
            $query        = undef;
            $queryColumns = undef;
            $queryValues  = undef;
 
            if ( exists( $campanas{ $devueltos{$row}{'campanaid'} } ) ) {
                $campanas{ $devueltos{$row}{'campanaid'} }{'count'}++;
                $campanas{ $devueltos{$row}{'campanaid'} }{'adminid'} = $devueltos{$row}{'adminid'};
            }
            else {
                $campanas{ $devueltos{$row}{'campanaid'} }{'count'}   = 1;
                $campanas{ $devueltos{$row}{'campanaid'} }{'adminid'} = $devueltos{$row}{'adminid'};
            }
 
            if ( defined $devueltos{$row}{'smtpcode'} ) {
                $queryColumns .= "smtpcode1, ";
                $queryValues  .= " '" . $devueltos{$row}{'smtpcode'} . "', ";
            }
            if ( defined $devueltos{$row}{'email'} ) {
                $queryColumns .= "email, ";
                $queryValues  .= " '" . $devueltos{$row}{'email'} . "', ";
            }
            if ( defined $devueltos{$row}{'smtpaction'} ) {
                $queryColumns .= "smtpaction, ";
                $queryValues  .= " '" . $devueltos{$row}{'smtpaction'} . "', ";
            }
            if ( defined $devueltos{$row}{'smtpstatus'} ) {
                $queryColumns .= "smtpcode, ";
                $queryValues  .= " '" . $devueltos{$row}{'smtpstatus'} . "', ";
            }
            if ( defined $devueltos{$row}{'smtpdiagnosticcode'} ) {
                my $deletechar = $devueltos{$row}{'smtpdiagnosticcode'} =~ s/'//g;
                $queryColumns .= "smtpprefixdetail, ";
 
                #                                       $queryValues .= " E'".encode('utf8', decode('iso-8859-1', $devueltos{$row}{'smtpdiagnosticcode'}))."', ";
                $queryValues .= " '" . encode( 'utf8', decode( 'iso-8859-1', $deletechar ) ) . "', ";
            }
            if ( defined $devueltos{$row}{'smtpremotemta'} ) {
                $queryColumns .= "smtpremote, ";
                $queryValues  .= " '" . $devueltos{$row}{'smtpremotemta'} . "', ";
            }
            if ( defined $devueltos{$row}{'smtplastattempdate'} ) {
                $queryColumns .= "smtpdate, ";
                $queryValues  .= " '" . $devueltos{$row}{'smtplastattempdate'} . "', ";
            }
            if ( defined $devueltos{$row}{'userid'} ) {
                $queryColumns .= "id_usuario, ";
                $queryValues  .= "$devueltos{$row}{'userid'}, ";
            }
            if ( defined $devueltos{$row}{'adminid'} ) {
                $queryColumns .= "id_admin, ";
                $queryValues  .= "$devueltos{$row}{'adminid'}, ";
            }
            if ( defined $devueltos{$row}{'campanaid'} ) {
                $queryColumns .= "id_campana, ";
                $queryValues  .= "$devueltos{$row}{'campanaid'}, ";
            }
            if ( defined $devueltos{$row}{'listaid'} ) {
                $queryColumns .= "id_lista, ";
                $queryValues  .= "$devueltos{$row}{'listaid'}, ";
            }
            if ( defined $devueltos{$row}{'status'} ) {
                $queryColumns .= "status, ";
                $queryValues  .= "true, ";
            }
 
            $queryColumns .= "fecha ";
            $queryValues  .= "now() ";
 
            $query = "INSERT INTO ex_tbl_devueltos ($queryColumns) VALUES ($queryValues);";
            $string .= $query . "\n";
            $sth = $dbh->prepare($query) or die "Can't prepare SQL statement: ", $dbh->errstr(), "\n";
            $sth->execute() or die "Can't execute SQL statement: ", $sth->errstr(), "\n";
 
        }
 
        $dbh->commit();
 
        if ($@) {
            $dbh->rollback();
            move( $mbox_file_tmp, $mbox_file_tmp . "_" . strftime( "%Y%m%d%H%M%S", localtime(time) ) );
        }
 
        $campanasTotal = scalar keys(%campanas);
 
        if ( scalar keys(%campanas) > 0 ) {
 
            for my $idcampana ( sort keys %campanas ) {
 
                $query
                    = "SELECT id_campana FROM tablas WHERE id_admin = '"
                    . $campanas{$idcampana}{'adminid'}
                    . "' AND id_campana =  '"
                    . $idcampana . "'; ";
                $sth = $dbh->prepare($query) or die "Can't prepare SQL statement: ", $dbh->errstr(), "\n";
                $sth->execute() or die "Can't execute SQL statement: ", $sth->errstr(), "\n";
                if ( $sth->rows > 0 ) {
 
                    $query1
                        = "UPDATE tablas SET devueltos = devueltos + "
                        . $campanas{$idcampana}{'count'}
                        . ", recibidos = recibidos - "
                        . $campanas{$idcampana}{'count'}
                        . "  WHERE id_campana = '"
                        . $idcampana . "'; ";
                    print $query1 . "\n";
                    $sth2 = $dbh->prepare($query1) or die "Can't prepare SQL statement: ", $dbh->errstr(), "\n";
                    $sth2->execute() or die "Can't execute SQL statement: ", $sth2->errstr(), "\n";
                }
            }
        }
 
        if ( defined($sth) ) {
            $sth->finish() or warn "finish failed: $!\n";
        }
 
        if ( defined($sth2) ) {
            $sth2->finish() or warn "finish failed: $!\n";
        }
 
        if ( defined($dbh) ) {
            $dbh->disconnect() or warn "Disconnection failed: $!\n";
        }
        $string .= "COMMIT;\n";
        print FSQL $string;
        close FSQL;
    }
 
    $endDate = strftime( "%Y/%m/%d %H:%M:%S", localtime(time) );
 
    $emailBody = "El proceso finalizo con exito\n\n";
    $emailBody .= "================================\n";
    $emailBody .= "Total devueltos procesados: " . $devueltosTotal . "\n";
    $emailBody .= "\n";
    $emailBody .= "Total campanas procesados: " . $campanasTotal . "\n";
    $emailBody .= "================================\n";
    $emailBody .= "Hora Inicio: " . $startDate . "\n";
    $emailBody .= "Hora Final: " . $endDate . "\n";
    $emailBody .= "================================\n\n";
    $emailBody .= "Administrador\n";
    $emailMensaje = encode( 'utf8', decode( 'iso-8859-1', $emailBody ) );
 
    &send_mail( $emailFromName, $emailFrom, $emailTo, $emailSubject, $emailMensaje );
 
    #   }#end if $mbox_file_tmp
 
}                                              #end if $mbox_file;
 
print "Finalizo " . $startDate . "--" . $endDate . "\n";
 
sub convert_date {
 
    my ( $dateString, @datePart );
    my ( $dateDay,    $dateMonth, $dateYear, $dateTime, $dateZone );
    my ( $month,      $date );
 
    $dateString = shift;
 
    @datePart = split( " ", $dateString );
 
    $dateDay   = $datePart[0];
    $dateMonth = $datePart[1];
    $dateYear  = $datePart[2];
    $dateTime  = $datePart[3];
    $dateZone  = $datePart[4];
 
    $month = 0;
 
    if ( $dateMonth eq 'Jan' ) {
        $month = "01";
    }
    elsif ( $dateMonth eq 'Feb' ) {
        $month = "02";
    }
    elsif ( $dateMonth eq 'Mar' ) {
        $month = "03";
    }
    elsif ( $dateMonth eq 'Apr' ) {
        $month = "04";
    }
    elsif ( $dateMonth eq 'May' ) {
        $month = "5";
    }
    elsif ( $dateMonth eq 'Jun' ) {
        $month = "06";
    }
    elsif ( $dateMonth eq 'Jul' ) {
        $month = "07";
    }
    elsif ( $dateMonth eq 'Aug' ) {
        $month = "08";
    }
    elsif ( $dateMonth eq 'Sep' ) {
        $month = "09";
    }
    elsif ( $dateMonth eq 'Oct' ) {
        $month = "10";
    }
    elsif ( $dateMonth eq 'Nov' ) {
        $month = "11";
    }
    elsif ( $dateMonth eq 'Dec' ) {
        $month = "12";
    }
 
    $month   = sprintf( "%02d", $month );
    $dateDay = sprintf( "%02d", $dateDay );
 
    $date = "$dateYear/$month/$dateDay $dateTime $dateZone";
 
    if ( $dateZone eq '-0480' ) {
        $date = "$dateYear/$month/$dateDay $dateTime";
    }
    return $date;
}
 
sub strip_slashes {
 
    my $string = shift;
 
    $string =~ s/\'/\\'/g;
    $string =~ s/\"/\\"/g;
 
    return $string;
}
 
sub send_mail {
 
    my $emailFromName = shift;
    my $emailFrom     = shift;
    my $emailTo       = shift;
    my $emailSubject  = shift;
    my $emailMensaje  = shift;
 
    my $smtp = Net::SMTP->new(
        'Host'     => '127.0.0.1',
        'Hello'    => 'url',
        'Timeout'  => 10,
        'Debug'    => 0,                       # Change to a 1 to turn on debug messages
        'Port'     => 25,
        'User'     => 'usuario',
        'Password' => 'contrasena',
    );
 
    if ( not $smtp ) {
        die "Imposible conectar a servidor SMTP\n";
        next;
    }
    $smtp->mail($emailFrom);
 
    $smtp->to($emailTo);
 
    my $msg      = "";
    my $maildata = "";
 
    $msg = MIME::Lite::->build(
        From     => '' . $emailFromName . ' <' . $emailFrom . '>',
        To       => '' . $emailTo . '',
        Subject  => $emailSubject,
        Encoding => '8bit',
        Type     => 'multipart/alternative'
    );
 
    $msg->attr( 'content-type.charset' => 'utf-8' );
    $msg->delete("X-Mailer");
    $msg->add( "X-Mailer" => 'X-RS-Mailer' );
 
    $msg->attach(
        Type     => 'text/plain; charset=utf-8',
        Encoding => 'quoted-printable',
        Data     => $emailMensaje
    );
 
    $maildata = $msg->as_string();
    $smtp->data();
    $smtp->datasend($maildata);
    $smtp->dataend();
    $smtp->quit();
 
    return 1;
}
 
Coloreado en 0.016 segundos,  usando GeSHi 1.0.8.4

Utilizo la tabla donde se hace el INSERT para insertar en el campo smtpcode y en el smtpcode1, pero en el campo smtpcode1 insertamos solo si él consigue en el texto algo así como un error 550 acompañado de la descripción del error que pueden ser unos números como 5.1.1, es decir: en el campo smtpcode1 se insertaría algo como esto si es que se cumple la condición: 550 5.1.1.

El problema es que en ese campo no se está insertando nada a pesar de que están las validaciones y el contenido se encuentra en el texto. Se hace el INSERT sin el campo mencionado, es decir, que esa variable posiblemente está llegando vacía a la hora de hacer el INSERT lo que me trae como consecuencia que no pueda procesar los códigos que comienzan por 550 en el campo smtpcode1.

Adicionalmente, para que el campo smptcode1 se llene, el campo status debe venir con valor true.

Exactamente, ¿qué hace esto?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

nextif(/^\s*$/);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y, ¿qué significa el \s*? He estado buscando en la documentación y no lo consigo encontrar.

por **explorer** » 2018-12-11 23:06 @004

Perdón por no contestar, pero el código es algo largo.

Primero te contesto a lo sencillo, y mañana lo miro con más calma.

El patrón "^\s*$" quiere decir:

Lo que buscamos debe coincidir entre el principio (^) y el final del patrón ($).
Lo que buscamos debe componerse únicamente de 0 o más espacios en blanco (\s*)

O sea, que

next if /^\s*$/;

lo que hace es "saltar" el procesamiento de la línea contenida en $_, si esta línea está completamente vacía o se compone exclusivamente de espacios en blanco.

Tienes información sobre las expresiones regulares en el documento perlre (en tu ordenador, ejecuta el comando perldoc perlre en la línea de comandos; o en la web, en inglés o en español. De la misma manera tienes una guía rápida en perlrequick y un tutorial en perlretut.

Viendo el código, hay algunas cosas que están mal.

Lo primero, todas las '/g' que están al final de las expresiones regulares EN los if(), debes quitarlas. Solo son útiles en bucles o en casos especiales de análisis de tokens, pero este no es el caso. Lo que quieres es probar una línea contra una serie de patrones. Solo necesitas el '/i' en los casos en los que aparezca texto dentro del patrón. No necesitas la 'g'.

En la línea 141 (del código que se muestra arriba, que lo he formateado un poco para que se leyera mejor), estamos buscando por el código de tres dígitos más la descripción del error con los tres dígitos separados por puntos. Hasta ahí, bien, porque se almacena en la variable "$smtpCode".

El problema está en que ese patrón no tiene indicada una marca de fin de cadena o no indica qué es lo que puede seguir a continuación de la descripción del error. Quiero decir que la línea que estamos procesando del cuerpo del mensaje contiene un texto que se ajusta a lo indicado por el patrón de la línea 144, el efecto final es que el patrón de la 141 sucede ANTES, y por el efecto del "elsif", nunca se prueba el patrón de la 144.

En resumen: si la línea coincide con el patrón de la 141, nunca se prueba el patrón de la 144.

O sea... que si tenemos varios patrones que "se parecen" o "son casi lo mismo", debemos probar siempre primero uno y luego el otro, pero no de forma alternativa (uno u otro).

Yo lo haría así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

            if ( /^(\d{3}\s+\d[.]\d[.]\d)\s*(.*)$/ ) {
                $smtpCode = $1;
                $smtpCodeDetail = (defined $2) ? $2 : "";
            }
            elsif # de la línea 147
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo he probado en la línea de comandos, y funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

> perl -E ' $_="550 5.1.1"; if ( /^(\d{3}\s+\d[.]\d[.]\d)\s*(.*)$/ ) { $smtpCode = $1; $smtpCodeDetail = (defined $2) ? $2 : ""; } say "[$smtpCode]:[$smtpCodeDetail]";'                                                     

[550 5.1.1]:[]

> perl -E ' $_="550 5.1.1   "; if ( /^(\d{3}\s+\d[.]\d[.]\d)\s*(.*)$/ ) { $smtpCode = $1; $smtpCodeDetail = (defined $2) ? $2 : ""; } say "[$smtpCode]:[$smtpCodeDetail]";' 

[550 5.1.1]:[]

> perl -E ' $_="550 5.1.1   ERROR Connect to server"; if ( /^(\d{3}\s+\d[.]\d[.]\d)\s*(.*)$/ ) { $smtpCode = $1; $smtpCodeDetail = (defined $2) ? $2 : ""; } say "[$smtpCode]:[$smtpCodeDetail]";' 

[550 5.1.1]:[ERROR Connect to server]Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

La línea 184 y siguientes filtra solamente los casos en los que el código de error sea "^550\s\d\.\d\.\d$". Pero a continuación, en la 186 y siguientes, realiza una serie de comprobaciones para ver si tiene definidos cuatro variables más, para meter en %devueltos todos los datos. Aquí surge la duda: ¿estamos completamente seguros de que cuando leemos una línea con el smtpCode, YA tenemos definidas (hemos leído antes) las otras cuatro variables? Dicho de otro modo: ¿estamos seguros de que el código de error sucede DESPUÉS de las otras cuatro líneas?

Sería interesante que publicaras un ejemplo de lo que estás procesando. Ponlo en formato texto. Si tiene información sensible (IP, nombres, direcciones, etc.) los falseas. Es más: sería interesante un ejemplo con el 550 y otro sin él. Solo las líneas imprescindibles para poder trabajar.

por **felloz** » 2018-12-12 08:05 @378

Hay que recordar que el texto se decodifica en la línea 147 con el código: $body = $message->decoded();

Una vez el texto decodificado, es esta información la que busca:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Final-Recipient: rfc822; [email protected]

Original-Recipient: rfc822;[email protected]

Action: failed

Status: 5.7.1

Remote-MTA: dns; otromail-com.olc.protection.outmail.com

Diagnostic-Code: smtp; 550 5.7.1 Unfortunately, messages from [192.168.0.24]

    weren't sent. Please contact your Internet service provider since part of

    their network is on our block list (S3140). You can also refer your

    provider to htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [SN1NAM01FT021.eop-nam01.prod.protection.outmail.com]

--123454321123.1544038977/mailasd.dominio.com

Content-Type: text/rfc822-headers; charset="PERL"

Content-Description: Undelivered Message Headers

Return-Path: <[email protected]>

Received: from localhost (localhost.localdomain [127.0.0.1])

        by mailasd.dominio.com (Postfix) with SMTP id 123454321123

        for <[email protected]>; Wed,  5 Dec 2018 15:42:57 -0400 (-04)

DKIM-Filter: OpenDKIM Filter v2.11.0 mailasd.dominio.com 123454321123

From: Amigos Car Rental <[email protected]>

Subject: Bienvenidas Criptomonedas en Amigos Car Rental

To:Belkis Bello <[email protected]>

Sender: Amigos Car Rental <[email protected]>

Errors-To: [email protected]

Reply-To: [email protected]

List-unsubscribe: <malto:[email protected]?subject=unsubscribe>,<htps://domimio.com/directory/?accion=frmremover&A=1117&[email protected]&L=28719&C=177301>

X-RSidusuario: 16860

X-RS-idadmin: 1117

X-RS-idcamp: 177301

X-RS-idlist: 28719

MIME-Version: 1.0

X-Priority: 3

Content-Type: multipart/alternative;

        boundary="2093dac2f0086131dd5b633d4999071e"

Message-Id: <[email protected]>

Date: Wed,  5 Dec 2018 15:42:57 -0400 (-04)

--123454321123.1544038977/mailasd.dominio.com--

16860

1117

177301

28719

This is a MIME-encapsulated message.

--D6FB715140C5.1544038978/mailasd.dominio.com

Content-Type: text/plain; charset="PERL"

Content-Description: Notification

<[email protected]>: host

    otromail-com.olc.protection.outmail.com[104.47.34.33] said: 550 5.7.1

    Unfortunately, messages from [192.168.0.24] weren't sent. Please contact

    your Internet service provider since part of their network is on our block

    list (S3140). You can also refer your provider to

    htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [BY2NAM01FT048.eop-nam01.prod.protection.outmail.com] (in reply to MAIL

    FROM command)

--D6FB715140C5.1544038978/mailasd.dominio.com

Content-Type: message/delivery-status

Content-Description: Delivery report

Reporting-MTA: dns; mailasd.dominio.com

X-Postfix-Queue-ID: D6FB715140C5

X-Postfix-Sender: rfc822; [email protected]

Arrival-Date: Wed,  5 Dec 2018 15:42:57 -0400 (-04)

Final-Recipient: rfc822; [email protected]

Original-Recipient: rfc822;[email protected]

Action: failed

Status: 5.7.1

Remote-MTA: dns; otromail-com.olc.protection.outmail.com

Diagnostic-Code: smtp; 550 5.7.1 Unfortunately, messages from [192.168.0.24]

    weren't sent. Please contact your Internet service provider since part of

    their network is on our block list (S3140). You can also refer your

    provider to htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [BY2NAM01FT048.eop-nam01.prod.protection.outmail.com]

--D6FB715140C5.1544038978/mailasd.dominio.com

Content-Type: text/rfc822-headers; charset="PERL"

Content-Description: Undelivered Message Headers

Return-Path: <[email protected]>

Received: from localhost (localhost.localdomain [127.0.0.1])

        by mailasd.dominio.com (Postfix) with SMTP id D6FB715140C5

        for <[email protected]>; Wed,  5 Dec 2018 15:42:57 -0400 (-04)

DKIM-Filter: OpenDKIM Filter v2.11.0 mailasd.dominio.com D6FB715140C5

From: Amigos Car Rental <[email protected]>

Subject: Bienvenidas Criptomonedas en Amigos Car Rental

To:Khristi Idler <[email protected]>

Sender: Amigos Car Rental <[email protected]>

Errors-To: [email protected]

Reply-To: [email protected]

List-unsubscribe: <malto:[email protected]?subject=unsubscribe>,<htps://dominio.com/aa/?accion=frmremover&A=1117&[email protected]&L=28719&C=177301>

X-RSidusuario: 16864

X-RS-idadmin: 1117

X-RS-idcamp: 177301

X-RS-idlist: 28719

MIME-Version: 1.0

X-Priority: 3

Content-Type: multipart/alternative;

        boundary="98c4e85078be8d8cf22145e10e2b8d59"

Message-Id: <[email protected]>

Date: Wed,  5 Dec 2018 15:42:57 -0400 (-04)

--D6FB715140C5.1544038978/mailasd.dominio.com--

16864

1117

177301

28719

This is a MIME-encapsulated message.

--651EC15140CF.1544038978/mailasd.dominio.com

Content-Type: text/plain; charset="PERL"

Content-Description: Notification

<[email protected]>: host

    otromail-com.olc.protection.outmail.com[104.47.33.33] said: 550 5.7.1

    Unfortunately, messages from [192.168.0.24] weren't sent. Please contact

    your Internet service provider since part of their network is on our block

    list (S3140). You can also refer your provider to

    htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [BN3NAM01FT019.eop-nam01.prod.protection.outmail.com] (in reply to MAIL

    FROM command)

--651EC15140CF.1544038978/mailasd.dominio.com

Content-Type: message/delivery-status

Content-Description: Delivery report

Reporting-MTA: dns; mailasd.dominio.com

X-Postfix-Queue-ID: 651EC15140CF

X-Postfix-Sender: rfc822; [email protected]

Arrival-Date: Wed,  5 Dec 2018 15:42:58 -0400 (-04)

Final-Recipient: rfc822; [email protected]

Original-Recipient: rfc822;[email protected]

Action: failed

Status: 5.7.1

Remote-MTA: dns; otromail-com.olc.protection.outmail.com

Diagnostic-Code: smtp; 550 5.7.1 Unfortunately, messages from [192.168.0.24]

    weren't sent. Please contact your Internet service provider since part of

    their network is on our block list (S3140). You can also refer your

    provider to htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [BN3NAM01FT019.eop-nam01.prod.protection.outmail.com]

--651EC15140CF.1544038978/mailasd.dominio.com

Content-Type: text/rfc822-headers; charset="PERL"

Content-Description: Undelivered Message Headers

Return-Path: <[email protected]>

Received: from localhost (localhost.localdomain [127.0.0.1])

        by mailasd.dominio.com (Postfix) with SMTP id 651EC15140CF

        for <[email protected]>; Wed,  5 Dec 2018 15:42:58 -0400 (-04)

DKIM-Filter: OpenDKIM Filter v2.11.0 mailasd.dominio.com 651EC15140CF

From: Amigos Car Rental <[email protected]>

Subject: Bienvenidas Criptomonedas en Amigos Car Rental

To:Ruben Bastardo <[email protected]>

Sender: Amigos Car Rental <[email protected]>

Errors-To: [email protected]

Reply-To: [email protected]

List-unsubscribe: <malto:[email protected]?subject=unsubscribe>,<htps://dominio.com/aa/?accion=frmremover&A=1117&[email protected]&L=28719&C=177301>

X-RSidusuario: 16869

X-RS-idadmin: 1117

X-RS-idcamp: 177301

X-RS-idlist: 28719

MIME-Version: 1.0

X-Priority: 3

Content-Type: multipart/alternative;

        boundary="548fffa1ca8ef39ac51eb12b43939e9b"

Message-Id: <[email protected]>

Date: Wed,  5 Dec 2018 15:42:58 -0400 (-04)

--651EC15140CF.1544038978/mailasd.dominio.com--

16869

1117

177301

28719

This is a MIME-encapsulated message.

--406A515140CC.1544038978/mailasd.dominio.com

Content-Type: text/plain; charset="PERL"

Content-Description: Notification

<[email protected]>: host

    otromail-com.olc.protection.outmail.com[104.47.34.33] said: 550 5.7.1

    Unfortunately, messages from [192.168.0.24] weren't sent. Please contact

    your Internet service provider since part of their network is on our block

    list (S3140). You can also refer your provider to

    htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [BY2NAM01FT040.eop-nam01.prod.protection.outmail.com] (in reply to MAIL

    FROM command)

--406A515140CC.1544038978/mailasd.dominio.com

Content-Type: message/delivery-status

Content-Description: Delivery report

Reporting-MTA: dns; mailasd.dominio.com

X-Postfix-Queue-ID: 406A515140CC

X-Postfix-Sender: rfc822; [email protected]

Arrival-Date: Wed,  5 Dec 2018 15:42:58 -0400 (-04)

Final-Recipient: rfc822; [email protected]

Original-Recipient: rfc822;[email protected]

Action: failed

Status: 5.7.1

Remote-MTA: dns; otromail-com.olc.protection.outmail.com

Diagnostic-Code: smtp; 550 5.7.1 Unfortunately, messages from [192.168.0.24]

    weren't sent. Please contact your Internet service provider since part of

    their network is on our block list (S3140). You can also refer your

    provider to htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [BY2NAM01FT040.eop-nam01.prod.protection.outmail.com]

--406A515140CC.1544038978/mailasd.dominio.com

Content-Type: text/rfc822-headers; charset="PERL"

Content-Description: Undelivered Message Headers

Return-Path: <[email protected]>

Received: from localhost (localhost.localdomain [127.0.0.1])

        by mailasd.dominio.com (Postfix) with SMTP id 406A515140CC

        for <[email protected]>; Wed,  5 Dec 2018 15:42:58 -0400 (-04)

DKIM-Filter: OpenDKIM Filter v2.11.0 mailasd.dominio.com 406A515140CC

From: Amigos Car Rental <[email protected]>

Subject: Bienvenidas Criptomonedas en Amigos Car Rental

To:Rafael Angarita <[email protected]>

Sender: Amigos Car Rental <[email protected]>

Errors-To: [email protected]

Reply-To: [email protected]

List-unsubscribe: <malto:[email protected]?subject=unsubscribe>,<htps://dominio.com/aa/?accion=frmremover&A=1117&[email protected]&L=28719&C=177301>

X-RSidusuario: 16868

X-RS-idadmin: 1117

X-RS-idcamp: 177301

X-RS-idlist: 28719

MIME-Version: 1.0

X-Priority: 3

Content-Type: multipart/alternative;

        boundary="0bb51a09ec3e4c9f2fb017ee99235197"

Message-Id: <[email protected]>

Date: Wed,  5 Dec 2018 15:42:58 -0400 (-04)

--406A515140CC.1544038978/mailasd.dominio.com--

16868

1117

177301

28719

This is a MIME-encapsulated message.

--F217215140CE.1544038979/mailasd.dominio.com

Content-Type: text/plain; charset="PERL"

Content-Description: Notification

<[email protected]>: host

    multinacional-com-ve.mail.protection.outmail.com[104.47.42.36] said: 550

    5.7.606 Access denied, banned sending IP [192.168.0.24]. To request removal

    from this list please visit htps://sender.office.com/ and follow the

    directions. For more information please go to

    htp://go.microsoft.com/fwlink/?LinkID=526655 (AS16012609) (in reply to

    RCPT TO command)

--F217215140CE.1544038979/mailasd.dominio.com

Content-Type: message/delivery-status

Content-Description: Delivery report

Reporting-MTA: dns; mailasd.dominio.com

X-Postfix-Queue-ID: F217215140CE

X-Postfix-Sender: rfc822; [email protected]

Arrival-Date: Wed,  5 Dec 2018 15:42:56 -0400 (-04)

Final-Recipient: rfc822; [email protected]

Original-Recipient: rfc822;[email protected]

Action: failed

Status: 5.7.606

Remote-MTA: dns; multinacional-com-ve.mail.protection.outmail.com

Diagnostic-Code: smtp; 550 5.7.606 Access denied, banned sending IP

    [192.168.0.24]. To request removal from this list please visit

    htps://sender.office.com/ and follow the directions. For more information

    please go to  htp://go.microsoft.com/fwlink/?LinkID=526655 (AS16012609)

--F217215140CE.1544038979/mailasd.dominio.com

Content-Type: text/rfc822-headers; charset="PERL"

Content-Description: Undelivered Message Headers

Return-Path: <[email protected]>

Received: from localhost (localhost.localdomain [127.0.0.1])

        by mailasd.dominio.com (Postfix) with SMTP id F217215140CE

        for <[email protected]>; Wed,  5 Dec 2018 15:42:56 -0400 (-04)

DKIM-Filter: OpenDKIM Filter v2.11.0 mailasd.dominio.com F217215140CE

From: Amigos Car Rental <[email protected]>

Subject: Bienvenidas Criptomonedas en Amigos Car Rental

To:Jesus Marin <[email protected]>

Sender: Amigos Car Rental <[email protected]>

Errors-To: [email protected]

Reply-To: [email protected]

List-unsubscribe: <malto:[email protected]?subject=unsubscribe>,<htps://dominio.com/aa/?accion=frmremover&A=1117&[email protected]&L=28719&C=177301>

X-RSidusuario: 16859

X-RS-idadmin: 1117

X-RS-idcamp: 177301

X-RS-idlist: 28719

MIME-Version: 1.0

X-Priority: 3

Content-Type: multipart/alternative;

        boundary="2c97fbbaf69061bb4f0ff6d028fdd8f4"

Message-Id: <[email protected]>

Date: Wed,  5 Dec 2018 15:42:56 -0400 (-04)

--F217215140CE.1544038979/mailasd.dominio.com--si cargo smptcodeNo hay 550

16859

1117

177301

28719

This is a MIME-encapsulated message.

--2BF6915140CA.1544038979/mailasd.dominio.com

Content-Type: text/plain; charset="PERL"

Content-Description: Notification

<[email protected]>: host

    otromail-com.olc.protection.outmail.com[104.47.32.33] said: 550 5.7.1

    Unfortunately, messages from [192.168.0.24] weren't sent. Please contact

    your Internet service provider since part of their network is on our block

    list (S3140). You can also refer your provider to

    htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [SN1NAM01FT043.eop-nam01.prod.protection.outmail.com] (in reply to MAIL

    FROM command)

--2BF6915140CA.1544038979/mailasd.dominio.com

Content-Type: message/delivery-status

Content-Description: Delivery report

Reporting-MTA: dns; mailasd.dominio.com

X-Postfix-Queue-ID: 2BF6915140CA

X-Postfix-Sender: rfc822; [email protected]

Arrival-Date: Wed,  5 Dec 2018 15:42:59 -0400 (-04)

Final-Recipient: rfc822; [email protected]

Original-Recipient: rfc822;[email protected]

Action: failed

Status: 5.7.1

Remote-MTA: dns; otromail-com.olc.protection.outmail.com

Diagnostic-Code: smtp; 550 5.7.1 Unfortunately, messages from [192.168.0.24]

    weren't sent. Please contact your Internet service provider since part of

    their network is on our block list (S3140). You can also refer your

    provider to htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [SN1NAM01FT043.eop-nam01.prod.protection.outmail.com]

--2BF6915140CA.1544038979/mailasd.dominio.com

Content-Type: text/rfc822-headers; charset="PERL"

Content-Description: Undelivered Message Headers

Return-Path: <[email protected]>

Received: from localhost (localhost.localdomain [127.0.0.1])

        by mailasd.dominio.com (Postfix) with SMTP id 2BF6915140CA

        for <[email protected]>; Wed,  5 Dec 2018 15:42:59 -0400 (-04)

DKIM-Filter: OpenDKIM Filter v2.11.0 mailasd.dominio.com 2BF6915140CA

From: Amigos Car Rental <[email protected]>

Subject: Bienvenidas Criptomonedas en Amigos Car Rental

To:Jairo Silva <[email protected]>

Sender: Amigos Car Rental <[email protected]>

Errors-To: [email protected]

Reply-To: [email protected]

List-unsubscribe: <malto:[email protected]?subject=unsubscribe>,<htps://dominio.com/aa/?accion=frmremover&A=1117&[email protected]&L=28719&C=177301>

X-RSidusuario: 16872

X-RS-idadmin: 1117

X-RS-idcamp: 177301

X-RS-idlist: 28719

MIME-Version: 1.0

X-Priority: 3

Content-Type: multipart/alternative;

        boundary="d24c4d3c2cf06a25ab333bb5f115862b"

Message-Id: <[email protected]>

Date: Wed,  5 Dec 2018 15:42:59 -0400 (-04)

--2BF6915140CA.1544038979/mailasd.dominio.com--

16872

1117

177301

28719

This is a MIME-encapsulated message.

--1F51215140C7.1544038978/mailasd.dominio.com

Content-Type: text/plain; charset="PERL"

Content-Description: Notification

<[email protected]>: host

    otromail-com.olc.protection.outmail.com[104.47.32.33] said: 550 5.7.1

    Unfortunately, messages from [192.168.0.24] weren't sent. Please contact

    your Internet service provider since part of their network is on our block

    list (S3140). You can also refer your provider to

    htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [SN1NAM01FT003.eop-nam01.prod.protection.outmail.com] (in reply to MAIL

    FROM command)

--1F51215140C7.1544038978/mailasd.dominio.com

Content-Type: message/delivery-status

Content-Description: Delivery report

Reporting-MTA: dns; mailasd.dominio.com

X-Postfix-Queue-ID: 1F51215140C7

X-Postfix-Sender: rfc822; [email protected]

Arrival-Date: Wed,  5 Dec 2018 15:42:58 -0400 (-04)

Final-Recipient: rfc822; [email protected]

Original-Recipient: rfc822;[email protected]

Action: failed

Status: 5.7.1

Remote-MTA: dns; otromail-com.olc.protection.outmail.com

Diagnostic-Code: smtp; 550 5.7.1 Unfortunately, messages from [192.168.0.24]

    weren't sent. Please contact your Internet service provider since part of

    their network is on our block list (S3140). You can also refer your

    provider to htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [SN1NAM01FT003.eop-nam01.prod.protection.outmail.com]

--1F51215140C7.1544038978/mailasd.dominio.com

Content-Type: text/rfc822-headers; charset="PERL"

Content-Description: Undelivered Message Headers

Return-Path: <[email protected]>

Received: from localhost (localhost.localdomain [127.0.0.1])

        by mailasd.dominio.com (Postfix) with SMTP id 1F51215140C7

        for <[email protected]>; Wed,  5 Dec 2018 15:42:58 -0400 (-04)

DKIM-Filter: OpenDKIM Filter v2.11.0 mailasd.dominio.com 1F51215140C7

From: Amigos Car Rental <[email protected]>

Subject: Bienvenidas Criptomonedas en Amigos Car Rental

To:Nadheztka Ponce <[email protected]>

Sender: Amigos Car Rental <[email protected]>

Errors-To: [email protected]

Reply-To: [email protected]

List-unsubscribe: <malto:[email protected]?subject=unsubscribe>,<htps://dominio.com/aa/?accion=frmremover&A=1117&[email protected]&L=28719&C=177301>

X-RSidusuario: 16866

X-RS-idadmin: 1117

X-RS-idcamp: 177301

X-RS-idlist: 28719

MIME-Version: 1.0

X-Priority: 3

Content-Type: multipart/alternative;

        boundary="c4a89c76ed262bca930b5fc4c41f0914"

Message-Id: <[email protected]>

Date: Wed,  5 Dec 2018 15:42:58 -0400 (-04)

--1F51215140C7.1544038978/mailasd.dominio.com--

16866

1117

177301

28719

This is a MIME-encapsulated message.

--B654615140CC.1544038980/mailasd.dominio.com

Content-Type: text/plain; charset="PERL"

Content-Description: Notification

<[email protected]>: host

    otromail-com.olc.protection.outmail.com[104.47.8.33] said: 550 5.7.1

    Unfortunately, messages from [192.168.0.24] weren't sent. Please contact

    your Internet service provider since part of their network is on our block

    list (S3140). You can also refer your provider to

    htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [AM5EUR03FT032.eop-EUR03.prod.protection.outmail.com] (in reply to MAIL

    FROM command)

--B654615140CC.1544038980/mailasd.dominio.com

Content-Type: message/delivery-status

Content-Description: Delivery report

Reporting-MTA: dns; mailasd.dominio.com

X-Postfix-Queue-ID: B654615140CC

X-Postfix-Sender: rfc822; [email protected]

Arrival-Date: Wed,  5 Dec 2018 15:42:59 -0400 (-04)

Final-Recipient: rfc822; [email protected]

Original-Recipient: rfc822;[email protected]

Action: failed

Status: 5.7.1

Remote-MTA: dns; otromail-com.olc.protection.outmail.com

Diagnostic-Code: smtp; 550 5.7.1 Unfortunately, messages from [192.168.0.24]

    weren't sent. Please contact your Internet service provider since part of

    their network is on our block list (S3140). You can also refer your

    provider to htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [AM5EUR03FT032.eop-EUR03.prod.protection.outmail.com]

--B654615140CC.1544038980/mailasd.dominio.com

Content-Type: text/rfc822-headers; charset="PERL"

Content-Description: Undelivered Message Headers

Return-Path: <[email protected]>

Received: from localhost (localhost.localdomain [127.0.0.1])

        by mailasd.dominio.com (Postfix) with SMTP id B654615140CC

        for <[email protected]>; Wed,  5 Dec 2018 15:42:59 -0400 (-04)

DKIM-Filter: OpenDKIM Filter v2.11.0 mailasd.dominio.com B654615140CC

From: Amigos Car Rental <[email protected]>

Subject: Bienvenidas Criptomonedas en Amigos Car Rental

To:Gabriela Villalobos <[email protected]>

Sender: Amigos Car Rental <[email protected]>

Errors-To: [email protected]

Reply-To: [email protected]

List-unsubscribe: <malto:[email protected]?subject=unsubscribe>,<htps://dominio.com/aa/?accion=frmremover&A=1117&[email protected]&L=28719&C=177301>

X-RSidusuario: 16876

X-RS-idadmin: 1117

X-RS-idcamp: 177301

X-RS-idlist: 28719

MIME-Version: 1.0

X-Priority: 3

Content-Type: multipart/alternative;

        boundary="38471aeaf3fc47abdcb679ed374f1fcc"

Message-Id: <[email protected]>

Date: Wed,  5 Dec 2018 15:42:59 -0400 (-04)

--B654615140CC.1544038980/mailasd.dominio.com--

16876

1117

177301

28719

This is a MIME-encapsulated message.

--E3BD415140C7.1544038980/mailasd.dominio.com

Content-Type: text/plain; charset="PERL"

Content-Description: Notification

<[email protected]>: host

    otromail-com.olc.protection.outmail.com[104.47.8.33] said: 550 5.7.1

    Unfortunately, messages from [192.168.0.24] weren't sent. Please contact

    your Internet service provider since part of their network is on our block

    list (S3140). You can also refer your provider to

    htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [AM5EUR03FT014.eop-EUR03.prod.protection.outmail.com] (in reply to MAIL

    FROM command)

--E3BD415140C7.1544038980/mailasd.dominio.com

Content-Type: message/delivery-status

Content-Description: Delivery report

Reporting-MTA: dns; mailasd.dominio.com

X-Postfix-Queue-ID: E3BD415140C7

X-Postfix-Sender: rfc822; [email protected]

Arrival-Date: Wed,  5 Dec 2018 15:42:59 -0400 (-04)

Final-Recipient: rfc822; [email protected]

Original-Recipient: rfc822;[email protected]

Action: failed

Status: 5.7.1

Remote-MTA: dns; otromail-com.olc.protection.outmail.com

Diagnostic-Code: smtp; 550 5.7.1 Unfortunately, messages from [192.168.0.24]

    weren't sent. Please contact your Internet service provider since part of

    their network is on our block list (S3140). You can also refer your

    provider to htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [AM5EUR03FT014.eop-EUR03.prod.protection.outmail.com]

--E3BD415140C7.1544038980/mailasd.dominio.com

Content-Type: text/rfc822-headers; charset="PERL"

Content-Description: Undelivered Message Headers

Return-Path: <[email protected]>

Received: from localhost (localhost.localdomain [127.0.0.1])

        by mailasd.dominio.com (Postfix) with SMTP id E3BD415140C7

        for <[email protected]>; Wed,  5 Dec 2018 15:42:59 -0400 (-04)

DKIM-Filter: OpenDKIM Filter v2.11.0 mailasd.dominio.com E3BD415140C7

From: Amigos Car Rental <[email protected]>

Subject: Bienvenidas Criptomonedas en Amigos Car Rental

To:Yanira Medina <[email protected]>

Sender: Amigos Car Rental <[email protected]>

Errors-To: [email protected]

Reply-To: [email protected]

List-unsubscribe: <malto:[email protected]?subject=unsubscribe>,<htps://dominio.com/aa/?accion=frmremover&A=1117&[email protected]&L=28719&C=177301>

X-RSidusuario: 16879

X-RS-idadmin: 1117

X-RS-idcamp: 177301

X-RS-idlist: 28719

MIME-Version: 1.0

X-Priority: 3

Content-Type: multipart/alternative;

        boundary="05bd3a2d5dc67115e249fd35c5f8498c"

Message-Id: <[email protected]>

Date: Wed,  5 Dec 2018 15:42:59 -0400 (-04)

--E3BD415140C7.1544038980/mailasd.dominio.com--

16879

1117

177301

28719

This is a MIME-encapsulated message.

--5282B15140C7.1544038979/mailasd.dominio.com

Content-Type: text/plain; charset="PERL"

Content-Description: Notification

<[email protected]>: host

    otromail-com.olc.protection.outmail.com[104.47.32.33] said: 550 5.7.1

    Unfortunately, messages from [192.168.0.24] weren't sent. Please contact

    your Internet service provider since part of their network is on our block

    list (S3140). You can also refer your provider to

    htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [SN1NAM01FT044.eop-nam01.prod.protection.outmail.com] (in reply to MAIL

    FROM command)

--5282B15140C7.1544038979/mailasd.dominio.com

Content-Type: message/delivery-status

Content-Description: Delivery report

Reporting-MTA: dns; mailasd.dominio.com

X-Postfix-Queue-ID: 5282B15140C7

X-Postfix-Sender: rfc822; [email protected]

Arrival-Date: Wed,  5 Dec 2018 15:42:59 -0400 (-04)

Final-Recipient: rfc822; [email protected]

Original-Recipient: rfc822;[email protected]

Action: failed

Status: 5.7.1

Remote-MTA: dns; otromail-com.olc.protection.outmail.com

Diagnostic-Code: smtp; 550 5.7.1 Unfortunately, messages from [192.168.0.24]

    weren't sent. Please contact your Internet service provider since part of

    their network is on our block list (S3140). You can also refer your

    provider to htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [SN1NAM01FT044.eop-nam01.prod.protection.outmail.com]

--5282B15140C7.1544038979/mailasd.dominio.com

Content-Type: text/rfc822-headers; charset="PERL"

Content-Description: Undelivered Message Headers

Return-Path: <[email protected]>

Received: from localhost (localhost.localdomain [127.0.0.1])

        by mailasd.dominio.com (Postfix) with SMTP id 5282B15140C7

        for <[email protected]>; Wed,  5 Dec 2018 15:42:59 -0400 (-04)

DKIM-Filter: OpenDKIM Filter v2.11.0 mailasd.dominio.com 5282B15140C7

From: Amigos Car Rental <[email protected]>

Subject: Bienvenidas Criptomonedas en Amigos Car Rental

To:Juan Boada <[email protected]>

Sender: Amigos Car Rental <[email protected]>

Errors-To: [email protected]

Reply-To: [email protected]

List-unsubscribe: <malto:[email protected]?subject=unsubscribe>,<htps://dominio.com/aa/?accion=frmremover&A=1117&[email protected]&L=28719&C=177301>

X-RSidusuario: 16873

X-RS-idadmin: 1117

X-RS-idcamp: 177301

X-RS-idlist: 28719

MIME-Version: 1.0

X-Priority: 3

Content-Type: multipart/alternative;

        boundary="68dba39400b711a1d41c06c1b110af89"

Message-Id: <[email protected]>

Date: Wed,  5 Dec 2018 15:42:59 -0400 (-04)

--5282B15140C7.1544038979/mailasd.dominio.com--

16873

1117

177301

28719

This is a MIME-encapsulated message.

--06A1615140CA.1544038981/mailasd.dominio.com

Content-Type: text/plain; charset="PERL"

Content-Description: Notification

<[email protected]>: host

    otromail-com.olc.protection.outmail.com[104.47.9.33] said: 550 5.7.1

    Unfortunately, messages from [192.168.0.24] weren't sent. Please contact

    your Internet service provider since part of their network is on our block

    list (S3140). You can also refer your provider to

    htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [VE1EUR03FT003.eop-EUR03.prod.protection.outmail.com] (in reply to MAIL

    FROM command)

--06A1615140CA.1544038981/mailasd.dominio.com

Content-Type: message/delivery-status

Content-Description: Delivery report

Reporting-MTA: dns; mailasd.dominio.com

X-Postfix-Queue-ID: 06A1615140CA

X-Postfix-Sender: rfc822; [email protected]

Arrival-Date: Wed,  5 Dec 2018 15:43:01 -0400 (-04)

Final-Recipient: rfc822; [email protected]

Original-Recipient: rfc822;[email protected]

Action: failed

Status: 5.7.1

Remote-MTA: dns; otromail-com.olc.protection.outmail.com

Diagnostic-Code: smtp; 550 5.7.1 Unfortunately, messages from [192.168.0.24]

    weren't sent. Please contact your Internet service provider since part of

    their network is on our block list (S3140). You can also refer your

    provider to htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [VE1EUR03FT003.eop-EUR03.prod.protection.outmail.com]

--06A1615140CA.1544038981/mailasd.dominio.com

Content-Type: text/rfc822-headers; charset="PERL"

Content-Description: Undelivered Message Headers

Return-Path: <[email protected]>

Received: from localhost (localhost.localdomain [127.0.0.1])

        by mailasd.dominio.com (Postfix) with SMTP id 06A1615140CA

        for <[email protected]>; Wed,  5 Dec 2018 15:43:01 -0400 (-04)

DKIM-Filter: OpenDKIM Filter v2.11.0 mailasd.dominio.com 06A1615140CA

From: Amigos Car Rental <[email protected]>

Subject: Bienvenidas Criptomonedas en Amigos Car Rental

To:Lusiano Candosin <[email protected]>

Sender: Amigos Car Rental <[email protected]>

Errors-To: [email protected]

Reply-To: [email protected]

List-unsubscribe: <malto:[email protected]?subject=unsubscribe>,<htps://dominio.com/aa/?accion=frmremover&A=1117&[email protected]&L=28719&C=177301>

X-RSidusuario: 16888

X-RS-idadmin: 1117

X-RS-idcamp: 177301

X-RS-idlist: 28719

MIME-Version: 1.0

X-Priority: 3

Content-Type: multipart/alternative;

        boundary="75d8a0b796be3b415d14fbf672cfbce6"

Message-Id: <[email protected]>

Date: Wed,  5 Dec 2018 15:43:01 -0400 (-04)

--06A1615140CA.1544038981/mailasd.dominio.com--

16888

1117

177301

28719

This is a MIME-encapsulated message.

--292EE15140CC.1544038981/mailasd.dominio.com

Content-Type: text/plain; charset="PERL"

Content-Description: Notification

<[email protected]>: host

    otromail-com.olc.protection.outmail.com[104.47.9.33] said: 550 5.7.1

    Unfortunately, messages from [192.168.0.24] weren't sent. Please contact

    your Internet service provider since part of their network is on our block

    list (S3140). You can also refer your provider to

    htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [VE1EUR03FT057.eop-EUR03.prod.protection.outmail.com] (in reply to MAIL

    FROM command)

--292EE15140CC.1544038981/mailasd.dominio.com

Content-Type: message/delivery-status

Content-Description: Delivery report

Reporting-MTA: dns; mailasd.dominio.com

X-Postfix-Queue-ID: 292EE15140CC

X-Postfix-Sender: rfc822; [email protected]

Arrival-Date: Wed,  5 Dec 2018 15:43:01 -0400 (-04)

Final-Recipient: rfc822; [email protected]

Original-Recipient: rfc822;[email protected]

Action: failed

Status: 5.7.1

Remote-MTA: dns; otromail-com.olc.protection.outmail.com

Diagnostic-Code: smtp; 550 5.7.1 Unfortunately, messages from [192.168.0.24]

    weren't sent. Please contact your Internet service provider since part of

    their network is on our block list (S3140). You can also refer your

    provider to htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [VE1EUR03FT057.eop-EUR03.prod.protection.outmail.com]

--292EE15140CC.1544038981/mailasd.dominio.com

Content-Type: text/rfc822-headers; charset="PERL"

Content-Description: Undelivered Message Headers

Return-Path: <[email protected]>

Received: from localhost (localhost.localdomain [127.0.0.1])

        by mailasd.dominio.com (Postfix) with SMTP id 292EE15140CC

        for <[email protected]>; Wed,  5 Dec 2018 15:43:01 -0400 (-04)

DKIM-Filter: OpenDKIM Filter v2.11.0 mailasd.dominio.com 292EE15140CC

From: Amigos Car Rental <[email protected]>

Subject: Bienvenidas Criptomonedas en Amigos Car Rental

To:Lino De Abreu <[email protected]>

Sender: Amigos Car Rental <[email protected]>

Errors-To: [email protected]

Reply-To: [email protected]

List-unsubscribe: <malto:[email protected]?subject=unsubscribe>,<htps://dominio.com/aa/?accion=frmremover&A=1117&[email protected]&L=28719&C=177301>

X-RSidusuario: 16890

X-RS-idadmin: 1117

X-RS-idcamp: 177301

X-RS-idlist: 28719

MIME-Version: 1.0

X-Priority: 3

Content-Type: multipart/alternative;

        boundary="34ba39f040e98d1bd18c3ecc4fae9867"

Message-Id: <[email protected]>

Date: Wed,  5 Dec 2018 15:43:01 -0400 (-04)

--292EE15140CC.1544038981/mailasd.dominio.com--

16890

1117

177301

28719

This is a MIME-encapsulated message.

--9EF6915140D1.1544038982/mailasd.dominio.com

Content-Type: text/plain; charset="PERL"

Content-Description: Notification

<[email protected]>: host

    otromail-com.olc.protection.outmail.com[104.47.33.33] said: 550 5.7.1

    Unfortunately, messages from [192.168.0.24] weren't sent. Please contact

    your Internet service provider since part of their network is on our block

    list (S3140). You can also refer your provider to

    htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [BN3NAM01FT020.eop-nam01.prod.protection.outmail.com] (in reply to MAIL

    FROM command)

--9EF6915140D1.1544038982/mailasd.dominio.com

Content-Type: message/delivery-status

Content-Description: Delivery report

Reporting-MTA: dns; mailasd.dominio.com

X-Postfix-Queue-ID: 9EF6915140D1

X-Postfix-Sender: rfc822; [email protected]

Arrival-Date: Wed,  5 Dec 2018 15:43:01 -0400 (-04)

Final-Recipient: rfc822; [email protected]

Original-Recipient: rfc822;[email protected]

Action: failed

Status: 5.7.1

Remote-MTA: dns; otromail-com.olc.protection.outmail.com

Diagnostic-Code: smtp; 550 5.7.1 Unfortunately, messages from [192.168.0.24]

    weren't sent. Please contact your Internet service provider since part of

    their network is on our block list (S3140). You can also refer your

    provider to htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [BN3NAM01FT020.eop-nam01.prod.protection.outmail.com]

--9EF6915140D1.1544038982/mailasd.dominio.com

Content-Type: text/rfc822-headers; charset="PERL"

Content-Description: Undelivered Message Headers

Return-Path: <[email protected]>

Received: from localhost (localhost.localdomain [127.0.0.1])

        by mailasd.dominio.com (Postfix) with SMTP id 9EF6915140D1

        for <[email protected]>; Wed,  5 Dec 2018 15:43:01 -0400 (-04)

DKIM-Filter: OpenDKIM Filter v2.11.0 mailasd.dominio.com 9EF6915140D1

From: Amigos Car Rental <[email protected]>

Subject: Bienvenidas Criptomonedas en Amigos Car Rental

To:Maria Calo <[email protected]>

Sender: Amigos Car Rental <[email protected]>

Errors-To: [email protected]

Reply-To: [email protected]

List-unsubscribe: <malto:[email protected]?subject=unsubscribe>,<htps://dominio.com/aa/?accion=frmremover&A=1117&[email protected]&L=28719&C=177301>

X-RSidusuario: 16894

X-RS-idadmin: 1117

X-RS-idcamp: 177301

X-RS-idlist: 28719

MIME-Version: 1.0

X-Priority: 3

Content-Type: multipart/alternative;

        boundary="1252a44bb5e93e04c54fea388df56a24"

Message-Id: <[email protected]>

Date: Wed,  5 Dec 2018 15:43:01 -0400 (-04)

--9EF6915140D1.1544038982/mailasd.dominio.com--

16894

1117

177301

28719

This is a MIME-encapsulated message.

--8344F15140CC.1544038982/mailasd.dominio.com

Content-Type: text/plain; charset="PERL"

Content-Description: Notification

<[email protected]>: host

    otromail-com.olc.protection.outmail.com[104.47.34.33] said: 550 5.7.1

    Unfortunately, messages from [192.168.0.24] weren't sent. Please contact

    your Internet service provider since part of their network is on our block

    list (S3140). You can also refer your provider to

    htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [BY2NAM01FT026.eop-nam01.prod.protection.outmail.com] (in reply to MAIL

    FROM command)

--8344F15140CC.1544038982/mailasd.dominio.com

Content-Type: message/delivery-status

Content-Description: Delivery report

Reporting-MTA: dns; mailasd.dominio.com

X-Postfix-Queue-ID: 8344F15140CC

X-Postfix-Sender: rfc822; [email protected]

Arrival-Date: Wed,  5 Dec 2018 15:43:02 -0400 (-04)

Final-Recipient: rfc822; [email protected]

Original-Recipient: rfc822;[email protected]

Action: failed

Status: 5.7.1

Remote-MTA: dns; otromail-com.olc.protection.outmail.com

Diagnostic-Code: smtp; 550 5.7.1 Unfortunately, messages from [192.168.0.24]

    weren't sent. Please contact your Internet service provider since part of

    their network is on our block list (S3140). You can also refer your

    provider to htp://mail.live.com/mail/troubleshooting.aspx#errors.

    [BY2NAM01FT026.eop-nam01.prod.protection.outmail.com]

--8344F15140CC.1544038982/mailasd.dominio.com

Content-Type: text/rfc822-headers; charset="PERL"

Content-Description: Undelivered Message Headers

Return-Path: <[email protected]>

Received: from localhost (localhost.localdomain [127.0.0.1])

        by mailasd.dominio.com (Postfix) with SMTP id 8344F15140CC

        for <[email protected]>; Wed,  5 Dec 2018 15:43:02 -0400 (-04)

DKIM-Filter: OpenDKIM Filter v2.11.0 mailasd.dominio.com 8344F15140CC

From: Amigos Car Rental <[email protected]>

Subject: Bienvenidas Criptomonedas en Amigos Car Rental

To:Ivan Rodriguez <[email protected]>

Sender: Amigos Car Rental <[email protected]>

Errors-To: [email protected]

Reply-To: [email protected]

List-unsubscribe: <malto:[email protected]?subject=unsubscribe>,<htps://dominio.com/aa/?accion=frmremover&A=1117&[email protected]&L=28719&C=177301>

X-RSidusuario: 16903

X-RS-idadmin: 1117

X-RS-idcamp: 177301

X-RS-idlist: 28719

MIME-Version: 1.0

X-Priority: 3

Content-Type: multipart/alternative;

        boundary="6ab9b7d83f1b0b546f01ab00db6cf3c6"

Message-Id: <[email protected]>

Date: Wed,  5 Dec 2018 15:43:02 -0400 (-04)

--8344F15140CC.1544038982/mailasd.dominio.com--si cargo smptcodeNo hay 550

Coloreado en 0.010 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2018-12-12 12:29 @561

De acuerdo... modificando las URL un poco, y eligiendo la opción de "No convertir automáticamente las URL" que aparece en la pestaña Opciones debajo de la caja de edición del mensaje, me ha permitido publicar tu código.

Lo que no puedo apreciar ahora, es si se trata de un solo mensaje o de un conjunto de ellos, pegados. ¿Es uno solo?

por **explorer** » 2018-12-12 20:39 @902

¡je,je,je! La primera es la más fácil.

El patrón de búsqueda del código de estado empieza por '^' indicando que queremos que inicie la coincidencia desde la primera letra de la línea... pero... no hay NINGUNA línea que empiece de ese modo...

Sospecho que el carácter '^' sobra en el patrón.

por **explorer** » 2018-12-12 22:50 @993

He escrito una prueba, porque los patrones que estás utilizando no coinciden muy bien con lo que se muestra en el ejemplo.

Primero te pongo el código, luego te pongo el resultado, y luego te explico las diferencias que he encontrado hasta ahora.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.14;
use strict;
use warnings;
use diagnostics;
 
# Leer ejemplo
my $body_file = 'bodydecode';
my @body      = do { open my($F), $body_file; <$F> };   # leer todas las líneas
 
#say @body;
 
# Plegado del texto recortado por el formato de correo electrónico.
# Las líneas que eran demasiado largas fueron repartidas por líneas sucesivas, incluyendo un espacio inicial.
# Ejemplo:
# Content-Type: multipart/alternative;
#         boundary="2093dac2f0086131dd5b633d4999071e"
#
# En este trozo de código reconstruiremos las líneas originales.
# Esta facilita la extracción de información más adelante.
#
# Además aprovechamos para quitar las líneas que estén en blanco.
my @nuevo_body;
my $en_cabecera = 0;
 
for my $linea (@body) {
    next if $linea =~ /^\s*$/;          # saltar si está en blanco
 
    # ver si la línea comienza con el formato "palabra: algo"
    if ($linea =~ /^\S+[:] ./) {
        $en_cabecera = 1;
    }
    # ver si la línea comienza con espacio en blanco
    elsif ($en_cabecera  and  $linea =~ /^\s+(.+)/) {
        chomp $nuevo_body[-1];          # quitamos el retorno de carro de la línea anterior
        $nuevo_body[-1] .= " $1\n";     # agregamos el resto de la línea a la línea anterior
        next;                           # y vemos la siguiente línea
    }
    # si no coincide con estos patrones, ya no estamos en una cabecera
    else {
        $en_cabecera = 0;
    }
 
    # guardamos la línea
    push @nuevo_body, $linea;
}
 
@body = @nuevo_body;
#say @body;
 
my(
    $smtpCode,
    $smtpCodeDetail,
    $email,
    $smtpAction,
    $smtpStatus,
    $smtpDiagnosticCode,
    $smtpRemoteMta,
    $usuarioId,
    $adminId,
    $campanaId,
    $listaId,
    $ipTempFiler,
);
 
for (my $j = 0; $j < @body; $j++) {             # recorrer todas las líneas
    my $linea = $body[$j];
 
    #print $linea;
 
    # Ver si es una línea con el diagnóstico
    if ( $linea =~ /^Diagnostic-Code:.*?(\d{3} \d[.]\d[.]\d)\s*(.*)/ ) {
        $smtpCode = $1;
        $smtpCodeDetail = (defined $2) ? $2 : "";
        say "CODE ==> $smtpCode:$smtpCodeDetail";
    }
 
    # Ver si es una línea de diagnóstico pero con código de error de buzón lleno
    elsif ( $linea =~ /^Diagnostic-Code: SMTP; (.*)/ ) {
        $smtpDiagnosticCode = $1;
 
        if (   $smtpDiagnosticCode =~ /550 SC-\d{3}/ 
            or $smtpDiagnosticCode =~ /550 OU-\d{3}/ 
            or $smtpDiagnosticCode =~ /550 DY-\d{3}/ 
            or $smtpDiagnosticCode =~ /421 RP-\d{3}/
        ) {
                $ipTempFiler = 1;
        }
        say "DIAGNOSTIC ==> $smtpDiagnosticCode";
    }
 
    # Ver si es el destinatario
    elsif ( $linea =~ /^Final-Recipient: rfc822; ([\w.-]+[@][\w-]+(?:[.][\w-]+)+)/i ) {
        $email = $1;
        say "EMAIL ==> $email";
    }
 
    # Ver el resultado de la acción
    elsif ( $linea =~ /^Action: (\w+)/ ) {
        $smtpAction = $1;
        say "ACTION ==> $smtpAction";
    }
 
    # Ver el código de estado
    elsif ( $linea =~ /^Status: (\d[.]\d[.]\d)/ ) {
        $smtpStatus = $1;
        say "STATUS ==> $smtpStatus";
    }
 
    # Ver el agente de transporte de correo
    elsif ( $linea =~ /^Remote-MTA: DNS; ([\w.-]+)/i ) {
        $smtpRemoteMta = $1;
        say "REMOTE ==> $smtpRemoteMta";
    }
 
    # Ver los distintos campos RS
    elsif ( $linea =~ /^X-RSidusuario: (\d+)/ ) {
        $usuarioId = $1;
        say "USUARIOID ==> $usuarioId";
    }
    elsif ( $linea =~ /^X-RS-idadmin: (\d+)/ ) {
        $adminId = $1;
        say "ADMINID ==> $adminId";
    }
    elsif ( $linea =~ /^X-RS-idcamp: (\d+)/ ) {
        $campanaId = $1;
        say "CAMPANAID ==> $campanaId";
    }
    elsif ( $linea =~ /^X-RS-idlist: (\d+)/ ) {
        $listaId = $1;
        say "LISTAID ==> $listaId";
    }
 
}
Coloreado en 0.007 segundos,  usando GeSHi 1.0.8.4

Lo que sale, aplicando al bodydecode anterior:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

EMAIL ==> [email protected]

ACTION ==> failed

STATUS ==> 5.7.1

REMOTE ==> otromail-com.olc.protection.outmail.com

CODE ==> 550 5.7.1:Unfortunately, messages from [192.168.0.24] weren't sent. Please contact your Internet service provider since part of their network is on our block list (S3140). You can also refer your provider to htp://mail.live.com/mail/troubleshooting.aspx#errors. [SN1NAM01FT021.eop-nam01.prod.protection.outmail.com]

USUARIOID ==> 16860

ADMINID ==> 1117

CAMPANAID ==> 177301

LISTAID ==> 28719

EMAIL ==> [email protected]

ACTION ==> failed

STATUS ==> 5.7.1

REMOTE ==> otromail-com.olc.protection.outmail.com

CODE ==> 550 5.7.1:Unfortunately, messages from [192.168.0.24] weren't sent. Please contact your Internet service provider since part of their network is on our block list (S3140). You can also refer your provider to htp://mail.live.com/mail/troubleshooting.aspx#errors. [BY2NAM01FT048.eop-nam01.prod.protection.outmail.com]

USUARIOID ==> 16864

ADMINID ==> 1117

CAMPANAID ==> 177301

LISTAID ==> 28719

EMAIL ==> [email protected]

ACTION ==> failed

STATUS ==> 5.7.1

REMOTE ==> otromail-com.olc.protection.outmail.com

CODE ==> 550 5.7.1:Unfortunately, messages from [192.168.0.24] weren't sent. Please contact your Internet service provider since part of their network is on our block list (S3140). You can also refer your provider to htp://mail.live.com/mail/troubleshooting.aspx#errors. [BN3NAM01FT019.eop-nam01.prod.protection.outmail.com]

USUARIOID ==> 16869

ADMINID ==> 1117

CAMPANAID ==> 177301

LISTAID ==> 28719

EMAIL ==> [email protected]

ACTION ==> failed

STATUS ==> 5.7.1

REMOTE ==> otromail-com.olc.protection.outmail.com

CODE ==> 550 5.7.1:Unfortunately, messages from [192.168.0.24] weren't sent. Please contact your Internet service provider since part of their network is on our block list (S3140). You can also refer your provider to htp://mail.live.com/mail/troubleshooting.aspx#errors. [BY2NAM01FT040.eop-nam01.prod.protection.outmail.com]

USUARIOID ==> 16868

ADMINID ==> 1117

CAMPANAID ==> 177301

LISTAID ==> 28719

EMAIL ==> [email protected]

ACTION ==> failed

STATUS ==> 5.7.6

REMOTE ==> multinacional-com-ve.mail.protection.outmail.com

CODE ==> 550 5.7.6:06 Access denied, banned sending IP [192.168.0.24]. To request removal from this list please visit htps://sender.office.com/ and follow the directions. For more information please go to  htp://go.microsoft.com/fwlink/?LinkID=526655 (AS16012609)

USUARIOID ==> 16859

ADMINID ==> 1117

CAMPANAID ==> 177301

LISTAID ==> 28719

EMAIL ==> [email protected]

ACTION ==> failed

STATUS ==> 5.7.1

REMOTE ==> otromail-com.olc.protection.outmail.com

CODE ==> 550 5.7.1:Unfortunately, messages from [192.168.0.24] weren't sent. Please contact your Internet service provider since part of their network is on our block list (S3140). You can also refer your provider to htp://mail.live.com/mail/troubleshooting.aspx#errors. [SN1NAM01FT043.eop-nam01.prod.protection.outmail.com]

USUARIOID ==> 16872

ADMINID ==> 1117

CAMPANAID ==> 177301

LISTAID ==> 28719

EMAIL ==> [email protected]

ACTION ==> failed

STATUS ==> 5.7.1

REMOTE ==> otromail-com.olc.protection.outmail.com

CODE ==> 550 5.7.1:Unfortunately, messages from [192.168.0.24] weren't sent. Please contact your Internet service provider since part of their network is on our block list (S3140). You can also refer your provider to htp://mail.live.com/mail/troubleshooting.aspx#errors. [SN1NAM01FT003.eop-nam01.prod.protection.outmail.com]

USUARIOID ==> 16866

ADMINID ==> 1117

CAMPANAID ==> 177301

LISTAID ==> 28719

EMAIL ==> [email protected]

ACTION ==> failed

STATUS ==> 5.7.1

REMOTE ==> otromail-com.olc.protection.outmail.com

CODE ==> 550 5.7.1:Unfortunately, messages from [192.168.0.24] weren't sent. Please contact your Internet service provider since part of their network is on our block list (S3140). You can also refer your provider to htp://mail.live.com/mail/troubleshooting.aspx#errors. [AM5EUR03FT032.eop-EUR03.prod.protection.outmail.com]

USUARIOID ==> 16876

ADMINID ==> 1117

CAMPANAID ==> 177301

LISTAID ==> 28719

EMAIL ==> [email protected]

ACTION ==> failed

STATUS ==> 5.7.1

REMOTE ==> otromail-com.olc.protection.outmail.com

CODE ==> 550 5.7.1:Unfortunately, messages from [192.168.0.24] weren't sent. Please contact your Internet service provider since part of their network is on our block list (S3140). You can also refer your provider to htp://mail.live.com/mail/troubleshooting.aspx#errors. [AM5EUR03FT014.eop-EUR03.prod.protection.outmail.com]

USUARIOID ==> 16879

ADMINID ==> 1117

CAMPANAID ==> 177301

LISTAID ==> 28719

EMAIL ==> [email protected]

ACTION ==> failed

STATUS ==> 5.7.1

REMOTE ==> otromail-com.olc.protection.outmail.com

CODE ==> 550 5.7.1:Unfortunately, messages from [192.168.0.24] weren't sent. Please contact your Internet service provider since part of their network is on our block list (S3140). You can also refer your provider to htp://mail.live.com/mail/troubleshooting.aspx#errors. [SN1NAM01FT044.eop-nam01.prod.protection.outmail.com]

USUARIOID ==> 16873

ADMINID ==> 1117

CAMPANAID ==> 177301

LISTAID ==> 28719

EMAIL ==> [email protected]

ACTION ==> failed

STATUS ==> 5.7.1

REMOTE ==> otromail-com.olc.protection.outmail.com

CODE ==> 550 5.7.1:Unfortunately, messages from [192.168.0.24] weren't sent. Please contact your Internet service provider since part of their network is on our block list (S3140). You can also refer your provider to htp://mail.live.com/mail/troubleshooting.aspx#errors. [VE1EUR03FT003.eop-EUR03.prod.protection.outmail.com]

USUARIOID ==> 16888

ADMINID ==> 1117

CAMPANAID ==> 177301

LISTAID ==> 28719

EMAIL ==> [email protected]

ACTION ==> failed

STATUS ==> 5.7.1

REMOTE ==> otromail-com.olc.protection.outmail.com

CODE ==> 550 5.7.1:Unfortunately, messages from [192.168.0.24] weren't sent. Please contact your Internet service provider since part of their network is on our block list (S3140). You can also refer your provider to htp://mail.live.com/mail/troubleshooting.aspx#errors. [VE1EUR03FT057.eop-EUR03.prod.protection.outmail.com]

USUARIOID ==> 16890

ADMINID ==> 1117

CAMPANAID ==> 177301

LISTAID ==> 28719

EMAIL ==> [email protected]

ACTION ==> failed

STATUS ==> 5.7.1

REMOTE ==> otromail-com.olc.protection.outmail.com

CODE ==> 550 5.7.1:Unfortunately, messages from [192.168.0.24] weren't sent. Please contact your Internet service provider since part of their network is on our block list (S3140). You can also refer your provider to htp://mail.live.com/mail/troubleshooting.aspx#errors. [BN3NAM01FT020.eop-nam01.prod.protection.outmail.com]

USUARIOID ==> 16894

ADMINID ==> 1117

CAMPANAID ==> 177301

LISTAID ==> 28719

EMAIL ==> [email protected]

ACTION ==> failed

STATUS ==> 5.7.1

REMOTE ==> otromail-com.olc.protection.outmail.com

CODE ==> 550 5.7.1:Unfortunately, messages from [192.168.0.24] weren't sent. Please contact your Internet service provider since part of their network is on our block list (S3140). You can also refer your provider to htp://mail.live.com/mail/troubleshooting.aspx#errors. [BY2NAM01FT026.eop-nam01.prod.protection.outmail.com]

USUARIOID ==> 16903

ADMINID ==> 1117

CAMPANAID ==> 177301

LISTAID ==> 28719Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Como ves, se trata de varias cabeceras, lo que me lleva a pensar que el bodydecode anterior es un conjunto de mensajes, en lugar de ser uno solo.

Ahora te cuento las diferencias con respecto a tu código. Y después te cuento lo más grave que he visto.

Previo

Antes de procesar las líneas, hago un trabajo previo que consiste en a) quitar las líneas que están en blanco, y b) reagrupar las líneas que están partidas según el formato estándar de correo electrónico (unir las líneas consecutivas de cabecera que comienzan con espacios en blanco). Esto facilita mucho el trabajo posterior.

$smtpCode

Como ya te he comentado en un mensaje anterior, los patrones que buscan por $smtpCode y $smtpCodeDetail nunca encontrarán nada... porque no hay ninguna línea que comience de esa manera.

Por eso en mi código he quitado el ancla '^', y así captura los códigos que están en las cabeceras. Lo verás en el resultado, en las líneas CODE. He limpiado la expresión regular.

$smtpDiagnosticCode

Veo que hay un patrón que busca en esta cabecera, pero es casi lo mismo que $smtpCode y $smtpCodeDetail, solo que además busca por códigos de error específicos. He limpiado la expresión regular.

$email, $smtpAction, $smtpStatus, $smtpRemoteMta, $usuarioId, $adminId, $campanaId, $listaId

He limpiado la expresión regular.

Last-Attempt-Date

No he puesto este patrón porque no veo ninguna línea así en el ejemplo.

Y ahora el comentario sobre esta forma de interpretar el bodydecode.

Si... el bodydecode se compone de una serie de mensajes con informes de errores, Y TODOS los mensajes tienen la misma estructura, todo este procesado debería funcionar bien a partir de la línea donde se comprueba que están definidas las variables (líneas 184 y siguientes).

El problema viene si esa estructura no es la misma en todos los casos. Por ejemplo, que falte una cabecera Final-Recipient o Action. En ese caso, lo que se grabará en %devueltos es una entrada con el valor de la cabecera anterior que sí definiera las variables correspondientes.

Viendo el bodydecode de ejemplo, parece que todos los casos siguen el mismo formato, así que este caso de error no se da. Pero podría ocurrir en el futuro.

Bueno... pues después de todo este rollo... La respuesta a tu pregunta inicial es que $smtpCode nunca se inicializa, por efecto de la presencia de '^' en el patrón.

por **felloz** » 2019-05-16 11:39 @527

Muchas gracias por su respuesta, te pido disculpas por haber esperado tanto tiempo para responderte, pero lamentablemente en la empresa donde laboro somos solo 2 programadores y debemos programar en 5 lenguajes distintos y no damos abasto con tanto trabajo.

Nuevamente muchas gracias y tomaré en consideración todas tus recomendaciones. ¿Sería un abuso preguntar por un número o correo de contacto directo para, posiblemente contratar tus servicios?

Foro - Perl en Español

Extracción de código de estado en una respuesta por correo

Extracción de código de estado en una respuesta por correo

Publicidad

Re: Extracción de código de estado en una respuesta por corr

Re: Extracción de código de estado en una respuesta por corr

Re: Extracción de código de estado en una respuesta por corr

Re: Extracción de código de estado en una respuesta por corr

Re: Problema en codigo perl

Re: Extracción de código de estado en una respuesta por corr

Re: Extracción de código de estado en una respuesta por corr

Re: Extracción de código de estado en una respuesta por corr

¿Quién está conectado?