Revision 747

Date:
2018/11/15 20:07:05
Author:
ahitrov
Revision Log:
Error handling

Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/lib/Contenido/Mail.pm

     
    154 154 if ( ref $mailer ) {
    155 155 if ( $self->{login} && $self->{password} ) {
    156 156 $mailer->auth( $self->{login}, $self->{password} );
    157 unless ( $mailer->ok ) {
    158 $error = $mailer->message;
    159 }
    157 160 }
    158 $mailer->mail( $emailfrom );
    159 $mailer->to( $emailto );
    160 $mailer->data;
    161 $mailer->datasend( $email_body );
    162 $mailer->dataend;
    161 unless ( $error ) {
    162 $mailer->mail( $emailfrom );
    163 unless ( $mailer->ok ) {
    164 $error = $mailer->message;
    165 }
    166 }
    167 unless ( $error ) {
    168 $mailer->to( $emailto );
    169 unless ( $mailer->ok ) {
    170 $error = $mailer->message;
    171 }
    172 }
    173 unless ( $error ) {
    174 $mailer->data;
    175 $mailer->datasend( $email_body );
    176 $mailer->dataend;
    177 }
    163 178 $mailer->quit;
    164 179 } else {
    165 $error = "MAIL ERROR! Can't connect to SMTP";
    180 $error = "MAIL ERROR! Can't create SMTP object";
    166 181 warn "$error\n";
    167 182 }
    168 183 }