Log de l'utilisateur authentifié

This commit is contained in:
Daniel Berteaud 2012-10-14 22:10:54 +02:00
parent b56e73795a
commit ebf4c1e73d
2 changed files with 17 additions and 0 deletions

View File

@ -25,6 +25,8 @@ sub register {
my (%args) = @_;
$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("rcpt", "rcpt_handler");
$self->register_hook("data_post", "data_post_handler");
@ -92,6 +94,20 @@ sub connect_handler {
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 {
my ($self, $transaction, $sender) = @_;

View File

@ -5,6 +5,7 @@ CREATE TABLE `messages` (
`remote_ip` varchar(255) default NULL,
`remote_host` varchar(255) default NULL,
`remote_info` varchar(255) default NULL,
`auth_user` varchar(30) default NULL,
`sender` varchar(255) default NULL,
`subject` varchar(255) default NULL,
`header_size` int(11) default NULL,