Назад | Перейти на главную страницу

Apache: можно ли настроить ErrorLog для регистрации имен хостов вместо IP-адресов?

Наличие разных серверов Apache в int с низкой нагрузкойраnet с почти только DHCP-клиентами, нам нужно регистрировать имена хостов вместо IP-адресов. Поскольку среда DHCP довольно динамична, любая последующая попытка переназначить IP-адреса на имена хостов, скорее всего, приведет к ложным результатам.

Хотя у нас есть "HostnameLookups On", только журнал доступа послушно регистрирует имена хостов, а журнал ошибок - нет.

Читая о ErrorLogFormat, Я заметил, что нет %час, но просто % a (имеется в виду «IP-адрес и порт клиента»).

Итак, действительно ли нет способа, чтобы apache также регистрировал имена хостов в журнале ошибок ...?

Не является родным с директивой ErrorLog.

Что бы я сделал, так это написать сценарий, который выполняет решение за вас и пропустить через него ErrorLog. В вашей конфигурации apache примерно так:

Errorlog "|/usr/local/bin/errorlog_resolver.pl"

А затем образец сценария Perl:

#!/usr/bin/perl -w
# errorlog_resolver.pl

# Give apache ErrorLog on STDIN, outputs them with numeric IP addresses
# in the likely (host) field converted to hostnames (where possible).

# based on clf_lookup.plx from "Perl for Web Site Management"
# http://oreilly.com/catalog/perlwsmng/chapter/ch08.html
#

use strict;
use Socket;

open LOGFILE, ">>/tmp/my_error_log" or die "Couldn't open file: $!";
my %hostname;

while (<>) {
    my $line = $_;
    my($day, $month, $dayn, $hour, $year, $err, $client, $host, $rest) = split / /, $line, 9;
    if ( $client ~~ "[client" ) {
    # remove the ] trailing the likely ip-address.
      my $chr = chop($host);

      if ($host =~ /^\d+\.\d+\.\d+\.\d+$/) {
        # looks vaguely like an IP address
        unless (exists $hostname{$host}) {
            # no key, so haven't processed this IP before
            $hostname{$host} = gethostbyaddr(inet_aton($host), AF_INET);
        }
        if ($hostname{$host}) {
            # only processes IPs with successful lookups
            $line = "$day $month $dayn $hour $year $err $client $hostname{$host}\($host\)\] $rest)";
        }
      }
    }
    print LOGFILE $line;
}