whitelist: added pass prefix to log entries

This commit is contained in:
Matt Simerson 2013-03-13 02:02:41 -04:00
parent 30b7662a63
commit a0212347bf

View File

@ -138,7 +138,7 @@ sub check_host {
# From tcpserver
if (exists $ENV{WHITELISTCLIENT}) {
$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;
}
@ -146,7 +146,7 @@ sub check_host {
for my $h ($self->qp->config('whitelisthosts', $config_arg)) {
if ($h eq $ip or $ip =~ /^\Q$h\E/) {
$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;
}
}