evolix
/
evoauth
Archived
18
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

changement d'ip.

This commit is contained in:
Alexandre Anriot 2005-10-12 08:18:50 +00:00
parent c9f504da9a
commit 26092aff3e
1 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
admin/lib/Evoauth/Functions.pm
View File

@ -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é.");
}