changement d'ip.
This commit is contained in:
parent
c9f504da9a
commit
26092aff3e
1 changed files with 21 additions and 7 deletions
|
@ -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é.");
|
||||
}
|
||||
|
|
Reference in a new issue