Log de l'utilisateur authentifié
This commit is contained in:
parent
b56e73795a
commit
ebf4c1e73d
|
@ -25,6 +25,8 @@ sub register {
|
||||||
my (%args) = @_;
|
my (%args) = @_;
|
||||||
|
|
||||||
$self->register_hook("connect", "connect_handler");
|
$self->register_hook("connect", "connect_handler");
|
||||||
|
$self->register_hook("auth-plain", "auth_handler");
|
||||||
|
$self->register_hook("auth-login", "auth_handler");
|
||||||
$self->register_hook("mail", "mail_handler");
|
$self->register_hook("mail", "mail_handler");
|
||||||
$self->register_hook("rcpt", "rcpt_handler");
|
$self->register_hook("rcpt", "rcpt_handler");
|
||||||
$self->register_hook("data_post", "data_post_handler");
|
$self->register_hook("data_post", "data_post_handler");
|
||||||
|
@ -92,6 +94,20 @@ sub connect_handler {
|
||||||
return(DECLINED);
|
return(DECLINED);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub auth_handler {
|
||||||
|
my ($self, $transaction, $method, $user) = @_;
|
||||||
|
|
||||||
|
my ($statement) = "UPDATE ".$mail_table." SET auth_user=".
|
||||||
|
$dbh->quote($user).
|
||||||
|
" WHERE mail_id=".$mail_id;
|
||||||
|
|
||||||
|
$self->log(LOGDEBUG,"auth_handler statement:".$statement);
|
||||||
|
|
||||||
|
$dbh->do($statement)
|
||||||
|
|| $self->log(LOGERROR,$dbh->errstr());
|
||||||
|
|
||||||
|
return(DECLINED);
|
||||||
|
}
|
||||||
|
|
||||||
sub mail_handler {
|
sub mail_handler {
|
||||||
my ($self, $transaction, $sender) = @_;
|
my ($self, $transaction, $sender) = @_;
|
||||||
|
|
|
@ -5,6 +5,7 @@ CREATE TABLE `messages` (
|
||||||
`remote_ip` varchar(255) default NULL,
|
`remote_ip` varchar(255) default NULL,
|
||||||
`remote_host` varchar(255) default NULL,
|
`remote_host` varchar(255) default NULL,
|
||||||
`remote_info` varchar(255) default NULL,
|
`remote_info` varchar(255) default NULL,
|
||||||
|
`auth_user` varchar(30) default NULL,
|
||||||
`sender` varchar(255) default NULL,
|
`sender` varchar(255) default NULL,
|
||||||
`subject` varchar(255) default NULL,
|
`subject` varchar(255) default NULL,
|
||||||
`header_size` int(11) default NULL,
|
`header_size` int(11) default NULL,
|
||||||
|
|
Loading…
Reference in New Issue