changement d'ip.
This commit is contained in:
parent
c9f504da9a
commit
26092aff3e
|
@ -42,13 +42,27 @@ sub Mail() {
|
||||||
my $login;
|
my $login;
|
||||||
$sth->bind_columns(undef, \$login) && $sth->fetch();
|
$sth->bind_columns(undef, \$login) && $sth->fetch();
|
||||||
|
|
||||||
my $msg = new MIME::Lite
|
my $msg;
|
||||||
From => 'evoauth@shaktiware.fr',
|
|
||||||
To => 'auth@shaktiware.fr',
|
if ($login eq "") {
|
||||||
CC => '',
|
$msg = new MIME::Lite
|
||||||
Subject => "$event de $login",
|
From => 'evoauth@shaktiware.fr',
|
||||||
Type => 'TEXT',
|
To => 'auth@shaktiware.fr',
|
||||||
Data => "$temps : $event de $login ($ip)";
|
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é.");
|
$msg -> send && &Log("Un mail a été envoyé.");
|
||||||
}
|
}
|
||||||
|
|
Reference in a new issue