1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
|
sub send_mail {
my ( $r_log, $r_h_env, $r_t_new ,$r_t_del, $r_t_chg ) = @_;
my $to = 'xxx@yyy';
my $cc = 'xxx@yyy, xxx@yyy';
my $from = 'xxx@yyy';
my $subject = 'Action Production - Interventions ODA';
my $message;
if ( scalar(@$r_t_new) > 0 ) {
my $str = 'Nouvelles entrées oratab => Créer traitements VTOM de sauvegardes';
$message .= outlook_encode ( $str ) . "\n" . $r_h_env->{'dash132'} . "\n" ;
$message .= outlook_encode ( $_ ) . "\n" foreach @$r_t_new;
$message .= "\n";
}
if ( scalar(@$r_t_del) > 0 ) {
my $str = 'Entrées oratab manquantes => Désactiver ou supprimer traitements VTOM correspondants';
$message .= outlook_encode ( $str ) . "\n" . $r_h_env->{'dash132'} . "\n" ;
$message .= outlook_encode ( $_ ) . "\n" foreach @$r_t_del;
$message .= "\n";
}
if ( scalar(@$r_t_chg) > 0 ) {
my @t_str = ( 'Statut changé pour entrées oratab' ,
'Si fin du nouveau primaire se termine par ORA0 alors dans VTOM switcher les machines physiques des machines logiques PPMLORA01 et PS1LORA01, ' ,
'sinon si fin du nouveau primaire se termine par ORA1 alors dans VTOM switcher les machines physiques des machines logiques BPMLORA01 et BS1LORA01' );
$message .= outlook_encode ( $_ ) . "\n" foreach @t_str;
$message .= $r_h_env->{'dash132'} . "\n" ;
$message .= outlook_encode ( $_ ) . "\n" foreach @$r_t_chg;
$message .= "\n";
print '---------------------TEST-----------------------';
print outlook_encode ( $_ ) . "\n" foreach @$r_t_chg;
print outlook_encode ( $_ ) . "\n" foreach @t_str;
print '-------------------FIN TEST---------------------';
}
my $msg = MIME::Lite->new(
From => $from,
To => $to,
Cc => $cc,
Subject => $subject,
Type => 'multipart/mixed'
);
$msg->attach(Type => 'text',
Data => $message,
);
# $msg->attr('content-type.charset' => 'CP1252');
$msg->send;
} |
Partager