1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
=head1 NAME
connection_time - log the duration of a connection
=head1 DESCRIPTION
The B<connection_time> plugin records the time of a connection between the
first and the last possible hook in qpsmtpd (I<pre-connection> and
I<post-connection>) and writes a C<LOGNOTICE> (default, see below) line to
the log.
=head1 CONFIG
One optional argument: the name of the log level (e.g. C<LOGNOTICE>,
C<LOGDEBUG>, ...) the message should be logged with. Defaults to C<LOGNOTICE>.
=cut
use Time::HiRes qw(gettimeofday tv_interval);
use Qpsmtpd::Constants;
sub register {
my ($self, $qp, @args) = @_;
die "too many arguments"
if @args > 1;
$self->{_level} = shift @args;
$self->{_level} = 'LOGNOTICE'
unless defined $self->{_level};
$self->{_level} = Qpsmtpd::Constants::log_level($self->{_level});
$self->{_level} = LOGNOTICE
unless defined $self->{_level};
}
sub hook_pre_connection {
my ($self, @foo) = @_;
$self->{_connection_start} = [gettimeofday];
return (DECLINED);
}
sub hook_post_connection {
my ($self, @foo) = @_;
if ($self->{_connection_start}) {
my $remote = $self->connection->remote_ip;
my $elapsed = sprintf(
"%.3f",
tv_interval(
$self->{_connection_start},
[gettimeofday]
)
);
$self->log($self->{_level},
"Connection time from $remote: $elapsed sec.");
}
return (DECLINED);
}
# vim: ts=4 sw=4 expandtab syn=perl
|
