source: trunk/scripts/report.pl@ 1

#! /usr/bin/perl


#

# This tool will help extract the XML log file produced by Samhain
# Put it into a more readable format that can then be run by CRON
# and e-mailed to a user.
#
# Created: Ben <ben@deephouse.co.za>
#
#
# Updates:
# JUL 05 ver 1.1: - Updata to add in checkpint subroutine, this checks 
#                   the scalar length
#                   that is return from the log file if is is a good size
#                   the program gets the value, if not value is returned it will not print it
#                   to the report.
#
# JUL 07 ver 1.2: - Update to the Code to handle reporting selection 
#                   from the command line.
#                   Users are able to pass in [ReadOnly][LogFiles][Attributes].
#                   Better support for date
#
# Version: 1.2





use strict;

use XML::Simple;

use Tie::File;

use POSIX qw(strftime);

my $date=strftime("%a %b %d %H:%M:%S %Y", localtime());

my $tdate = `date +'%m%d%y'`;   # Just to time stamp the files

my $hostname = `hostname`; chomp($hostname);

my $policy = $ARGV[1];



&main();



sub main {



       unless (@ARGV == 2) { printf("Usage: $0 Samhain_report.xml <policyname. ReadOnly> \n"); exit(0); }

        printf("## Reporting Starting\n");

        &eatfile();

        &extractdata($policy);

        printf("## Report completed\n");

        printf("## Your new report file has been created : Samhain-report-$hostname.$tdate\n");

}



# This routine will pull the data from the XML file, and sort through it

# and look for the policy for [ReadOnly], once it has bfound that it will detected all the changes

# within the policy

#

sub extractdata {

   my $xmlfile = $ARGV[0];

   my $config = XMLin($xmlfile);

   # Create new report file

   open(RP, ">fmre_report-$hostname.$tdate") || die ("Unable to open new report file, $!\n");

    printf RP ("Samhain CRITICAL REPORT FOR $hostname\n");

    printf RP ("\n");

    printf RP ("This report was created on : $date\n");

    printf RP ("Samhain Reporting Tool version 1.0\n");

    printf RP ("Created: Ben Cuthbert <benjamin.cuthbert\@db.com>\n");

    printf RP ("\n");

    printf RP ("Report for !! $_[0] Policy !!\n");

    printf RP ("\n");

    # STart getting all of the data from xml file

   foreach my $alert (@{$config->{'LOG'}}) {

         if($alert->{msg} =~ /POLICY \[$_[0]]/) {       # Check we are on the correct policy

          print RP ("File Changed: $alert->{path}\n");

          &checkprint("$alert->{mtime_new}","Time Changed Old:   $alert->{mtime_new}");

          &checkprint("$alert->{mtime_new}","Time Changed New:   $alert->{mtime_old}");

          &checkprint("$alert->{mode_old}","Mode Old:   $alert->{mode_old}");

          &checkprint("$alert->{mode_new}","Mode New:   $alert->{mode_new}");

          &checkprint("$alert->{chksum_old}","CheckSum Old:     $alert->{chksum_old}");

          &checkprint("$alert->{chksum_new}","CheckSum New:     $alert->{chksum_new}");

          &checkprint("$alert->{size_new}","Size New:     $alert->{size_new}");

          &checkprint("$alert->{size_old}","Size Old:     $alert->{size_old}");

          printf RP ("\n");

         }

   }

   printf RP ("Created Using: Samhain XML Reporting tool.\n");

   printf RP ("Created By: Ben Cuthbert ben\@deephouse.co.za.\n");

   close(RP);

}



# This helps with logs that do not have Entires for Certain modes ie --rwx

# Get the scalar back, check the lenght then print out if the lenght is

# bigger than 1

sub checkprint {

        chomp;

        my $l = length($_[0]);

        if($l gt 1) {

                printf RP ("$_[1]\n");

        }

}

# We need to change the structure of the HRML file from FMRE

# so that we have the following tree structure.

#VAR1 = {

#        'LOG' => [

#                  {

#                       'msg' = 'value'

#

# The reason for this is it makes extraction better.

#

# So we open XML file and enter the following details.

# <config> please at top of file

# </config> place at bottom of file

# </trail><trail> remove trails, as we do not require them as

# log files are rotated every day.

# reports will only run on the day.

sub eatfile {

        # Search and reaplce log with LOG, makes it easy

        open(FH, "$ARGV[0]") || die ("Unable to ammend file \n");

        open(FW, ">tmp.xml") || die ("Unable to ammend file \n");

        while (<FH>) {

         $_ =~ s/^---*//g; $_ =~ s/log/LOG/g; $_ =~ s/<trail>//g; $_ =~ s/<\/trail>//g; $_ =~ s/Log file printed//g;

         printf FW $_;

        }

        close(FW); close(FH); system("mv tmp.xml $ARGV[0]");

        # Put in <config> & </config> at top and bottom

        open(FH, ">>$ARGV[0]") || die ("Unable to ammend file \n");

        seek FH,0,2;

        printf FH "</config>";

        close(FH);

        ## Star the insert at the top and bottom, close the config </config>

        tie(my @FH1, 'Tie::File', $ARGV[0]) or die("Unable to read file, $!\n");

        unshift @FH1, '<config>';

        untie @FH1;

        printf ("Xml file has been modified to run with this program \n");

}