Initial commit

This commit is contained in:
dataking 2016-06-02 10:52:08 -07:00
parent 4ccc948c15
commit a26192f633
2 changed files with 40 additions and 0 deletions

View File

@ -1,2 +1,9 @@
# lynis_report
Manageable report from lynix text output.
==Help Statement
* HTML out features (default)
* Excel out features
==TODO:
* Other output formats?

33
lynis_report.pl Normal file
View File

@ -0,0 +1,33 @@
#!/usr/bin/perl -w
use strict;
use warnings;
use Term::ANSIColor;
use Getopt::Long qw( :config no_ignore_case bundling );
use Data::Dumper;
my ($help,$verbose,$excel);
GetOptions(
'h|help' => \$help,
'v|verbose+' => \$verbose,
'E|excel' => \$excel,
);
my $lynis_log = '/var/log/lynis.log';
my $lynis_report = '/var/log/lynis-report.dat';
my $audit_run = 0; #assume false
if ( -e $lynis_log and ! -z $lynis_log ) {
print colored("Found lynis output log. \n", "cyan") if ($verbose);
$audit_run++;
}
if ( -e $lynis_report and ! -z $lynis_report ) {
print colored("Found lynis report. \n", "cyan") if ($verbose);
$audit_run++;
}
if ($audit_run) and ($audit_run >= 1) {
print "Looks like the audit has been run. \n";
} else {
print colored("Couldn't find one or more of the lynis output files. Try running the audit again. \n", "bold red");
}