computer:2:know

nagios log readable

 makeNagiosLogReadable.pl



#!/usr/bin/perl

$param1=$ARGV[0];

$file='/var/log/nagios/nagios.log';

if ($param1 ne ''){

        $file = $param1;

}

open(IN,"$file") or die "kann Nagios Log Datei $file nicht lesen.";

while(<IN>){

        $line = $_;

        chomp($line);



        if ($line =~ /^\[(\d*)\](.*)$/){

                ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($1);

                my $datum = sprintf "%02d.%02d.%04d %02d:%02d:$sec" , $mday , $mon+=1 ,$year+=1900 , $hour , $min, $sec ;

                print "\[$datum\]$2\n";

        }else{

                print "$line\n";

        }



}

close(IN);

Computer and IT knowledge - things to know

nagios log readable