whitelist: added pass prefix to log entries

This commit is contained in:
Matt Simerson 2013-03-13 02:02:41 -04:00
parent 96ee32106a
commit d8a242b050

View File

@ -138,7 +138,7 @@ sub check_host {
# From tcpserver # From tcpserver
if (exists $ENV{WHITELISTCLIENT}) { if (exists $ENV{WHITELISTCLIENT}) {
$self->qp->connection->notes('whitelistclient', 1); $self->qp->connection->notes('whitelistclient', 1);
$self->log(2, "host $ip is a whitelisted client"); $self->log(2, "pass, host $ip is a whitelisted client");
return OK; return OK;
} }
@ -146,7 +146,7 @@ sub check_host {
for my $h ($self->qp->config('whitelisthosts', $config_arg)) { for my $h ($self->qp->config('whitelisthosts', $config_arg)) {
if ($h eq $ip or $ip =~ /^\Q$h\E/) { if ($h eq $ip or $ip =~ /^\Q$h\E/) {
$self->qp->connection->notes('whitelisthost', 1); $self->qp->connection->notes('whitelisthost', 1);
$self->log(2, "host $ip is a whitelisted host"); $self->log(2, "pass, host $ip is a whitelisted host");
return OK; return OK;
} }
} }