byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

connection_time: make compatible with tcpserver deployment

Browse Source
This commit is contained in:
Matt Simerson 2012-06-03 21:39:32 -04:00 committed by Ask Bjørn Hansen
parent 0e2384cceb
commit 086b31c546
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
plugins/connection_time
View File

@ -26,9 +26,10 @@ Adjust the quantity of logging for this plugin. See docs/logging.pod
use strict;
use warnings;
use Time::HiRes qw(gettimeofday tv_interval);
use Qpsmtpd::Constants;
use Time::HiRes qw(gettimeofday tv_interval);
sub register {
my ($self, $qp) = shift, shift;
if ( @_ == 1 ) { # backwards compatible
@ -43,18 +44,27 @@ sub register {
}
else {
$self->{_args} = { @_ }; # named args, inherits loglevel
}
};
}
sub hook_pre_connection {
my ($self, @foo) = @_;
my $self = shift;
$self->{_connection_start} = [gettimeofday];
$self->log(LOGDEBUG, "started at " . $self->{_connection_start} );
return (DECLINED);
}
sub hook_connect {
my $self = shift;
# this method is needed to function with the tcpserver deployment model
return (DECLINED) if defined $self->{_connection_start};
$self->{_connection_start} = [gettimeofday];
$self->log(LOGDEBUG, "started at " . $self->{_connection_start} );
return (DECLINED);
}
sub hook_post_connection {
my ($self, @foo) = @_;
my $self = shift;
if ( ! $self->{_connection_start} ) {
$self->log(LOGERROR, "Start time not set?!");