From 26092aff3ebbf181803baef1aa95b5ca38bf4d8c Mon Sep 17 00:00:00 2001 From: Alexandre Anriot Date: Wed, 12 Oct 2005 08:18:50 +0000 Subject: [PATCH] changement d'ip. --- admin/lib/Evoauth/Functions.pm | 28 +++++++++++++++++++++------- 1 file changed, 21 insertions(+), 7 deletions(-) diff --git a/admin/lib/Evoauth/Functions.pm b/admin/lib/Evoauth/Functions.pm index fb50aba..8e2a6c6 100644 --- a/admin/lib/Evoauth/Functions.pm +++ b/admin/lib/Evoauth/Functions.pm @@ -42,13 +42,27 @@ sub Mail() { my $login; $sth->bind_columns(undef, \$login) && $sth->fetch(); - my $msg = new MIME::Lite - From => 'evoauth@shaktiware.fr', - To => 'auth@shaktiware.fr', - CC => '', - Subject => "$event de $login", - Type => 'TEXT', - Data => "$temps : $event de $login ($ip)"; + my $msg; + + if ($login eq "") { + $msg = new MIME::Lite + From => 'evoauth@shaktiware.fr', + To => 'auth@shaktiware.fr', + CC => '', + Subject => "$event annulée", + Type => 'TEXT', + Data => "L'ip $ip de l'utilisateur a changé, suppression!"; + } + + else { + $msg = new MIME::Lite + From => 'evoauth@shaktiware.fr', + To => 'auth@shaktiware.fr', + CC => '', + Subject => "$event de $login", + Type => 'TEXT', + Data => "$temps : $event de $login ($ip)"; + } $msg -> send && &Log("Un mail a été envoyé."); }