|
Lines 283-289
sub SendAlerts {
Link Here
|
| 283 |
Message => "" . $innerletter->{content}, |
283 |
Message => "" . $innerletter->{content}, |
| 284 |
'Content-Type' => 'text/plain; charset="utf8"', |
284 |
'Content-Type' => 'text/plain; charset="utf8"', |
| 285 |
); |
285 |
); |
| 286 |
sendmail(%mail); |
286 |
sendmail(%mail) or carp $Mail::Sendmail::error; |
| 287 |
|
287 |
|
| 288 |
# warn "sending to $mail{To} From $mail{From} subj $mail{Subject} Mess $mail{Message}"; |
288 |
# warn "sending to $mail{To} From $mail{From} subj $mail{Subject} Mess $mail{Message}"; |
| 289 |
} |
289 |
} |
|
Lines 344-350
sub SendAlerts {
Link Here
|
| 344 |
Message => "" . $innerletter->{content}, |
344 |
Message => "" . $innerletter->{content}, |
| 345 |
'Content-Type' => 'text/plain; charset="utf8"', |
345 |
'Content-Type' => 'text/plain; charset="utf8"', |
| 346 |
); |
346 |
); |
| 347 |
sendmail(%mail); |
347 |
sendmail(%mail) or carp $Mail::Sendmail::error; |
| 348 |
warn |
348 |
warn |
| 349 |
"sending to $mail{To} From $mail{From} subj $mail{Subject} Mess $mail{Message}"; |
349 |
"sending to $mail{To} From $mail{From} subj $mail{Subject} Mess $mail{Message}"; |
| 350 |
} |
350 |
} |
|
Lines 422-428
sub SendAlerts {
Link Here
|
| 422 |
Message => $mail_msg, |
422 |
Message => $mail_msg, |
| 423 |
'Content-Type' => 'text/plain; charset="utf8"', |
423 |
'Content-Type' => 'text/plain; charset="utf8"', |
| 424 |
); |
424 |
); |
| 425 |
sendmail(%mail); |
425 |
sendmail(%mail) or carp $Mail::Sendmail::error; |
| 426 |
logaction( |
426 |
logaction( |
| 427 |
"ACQUISITION", |
427 |
"ACQUISITION", |
| 428 |
"CLAIM ISSUE", |
428 |
"CLAIM ISSUE", |
|
Lines 453-459
sub SendAlerts {
Link Here
|
| 453 |
Message => $letter->{'content'}, |
453 |
Message => $letter->{'content'}, |
| 454 |
'Content-Type' => 'text/plain; charset="utf8"', |
454 |
'Content-Type' => 'text/plain; charset="utf8"', |
| 455 |
); |
455 |
); |
| 456 |
sendmail(%mail); |
456 |
sendmail(%mail) or carp $Mail::Sendmail::error; |
| 457 |
} |
457 |
} |
| 458 |
} |
458 |
} |
| 459 |
|
459 |
|
|
Lines 804-821
sub _send_message_by_email ($) {
Link Here
|
| 804 |
$sendmail_params{ Bcc } = $bcc; |
804 |
$sendmail_params{ Bcc } = $bcc; |
| 805 |
} |
805 |
} |
| 806 |
|
806 |
|
| 807 |
my $success = sendmail( %sendmail_params ); |
|
|
| 808 |
|
807 |
|
| 809 |
if ( $success ) { |
808 |
if ( sendmail( %sendmail_params ) ) { |
| 810 |
# warn "Sendmail OK. Log says: " . $Mail::Sendmail::log; |
|
|
| 811 |
_set_message_status( { message_id => $message->{'message_id'}, |
809 |
_set_message_status( { message_id => $message->{'message_id'}, |
| 812 |
status => 'sent' } ); |
810 |
status => 'sent' } ); |
| 813 |
return $success; |
811 |
return 1; |
| 814 |
} else { |
812 |
} else { |
| 815 |
# warn "Mail::Sendmail::error - " . $Mail::Sendmail::error; |
|
|
| 816 |
# warn "Mail::Sendmail::log - " . $Mail::Sendmail::log; |
| 817 |
_set_message_status( { message_id => $message->{'message_id'}, |
813 |
_set_message_status( { message_id => $message->{'message_id'}, |
| 818 |
status => 'failed' } ); |
814 |
status => 'failed' } ); |
|
|
815 |
carp $Mail::Sendmail::error; |
| 819 |
return; |
816 |
return; |
| 820 |
} |
817 |
} |
| 821 |
} |
818 |
} |
| 822 |
- |
|
|