1#@!#!123s

: / proc / self / root / lib / nxlog / modules / extension / perl /

Filename : Functions.pm

back

#!/usr/bin/perl

use strict;
use warnings;

use Log::Nxlog;
use Socket;

sub a_record_lookup {

    # The event data is passed here when this method is invoked by the module
    my ($event) = @_;
    Log::Nxlog::log_info('a_record_lookup triggered');
    my $ptr = Log::Nxlog::get_field( $event, 'user_ip' );
    my $ip = inet_ntoa( inet_aton($ptr) );
    if ($ip) {
        Log::Nxlog::set_field_string( $event, 'user_ip', $ip );
    }
}