borekon/lynis-report-converter
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Excel WIP

Browse Source
This commit is contained in:
dataking 2016-08-24 01:46:31 -07:00
parent 12e866f520
commit 23c2b911c5
1 changed files with 40 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
lynis_report.pl
View File

@ -163,26 +163,49 @@ if ($excel) {
$summary_ws->write('A4', "Host Findings:", $subtitle_format);
$summary_ws->write('A5', "hardening index:");
$summary_ws->write('B5', $lynis_report_data{'hardening_index'});
$summary_ws->write('A7', "warnings \(".scalar(@{$lynis_report_data{'warning[]'}})."\):", $subsub_format);
my @table_data;
my $header_row = [ 'Warning ID', 'Description', 'Severity', 'F4' ];
if (exists($lynis_report_data{'warning[]'})) {
if (ref($lynis_report_data{'warning[]'}) eq 'ARRAY') {
if ($lynis_report_data{'warning[]'}[0] =~ /\|/) {
foreach my $warn ( sort @{$lynis_report_data{'warning[]'}} ) {
my ($warn_id,$warn_desc,$warn_sev,$warn_f4) = split(/\|/, $warn);
push @table_data, [$warn_id,$warn_desc,$warn_sev,$warn_f4];
}
my %params; my @table_data; my $last_row_number = 0; my $header_row;
if ((exists($lynis_report_data{'warning[]'})) and (ref($lynis_report_data{'warning[]'}) eq 'ARRAY')) {
$summary_ws->write('A7', "warnings \(".scalar(@{$lynis_report_data{'warning[]'}})."\):", $subsub_format);
$header_row = [ 'Warning ID', 'Description', 'Severity', 'F4' ];
if ($lynis_report_data{'warning[]'}[0] =~ /\|/) {
foreach my $warn ( sort @{$lynis_report_data{'warning[]'}} ) {
my ($warn_id,$warn_desc,$warn_sev,$warn_f4) = split(/\|/, $warn);
push @table_data, [$warn_id,$warn_desc,$warn_sev,$warn_f4];
}
}
%params = (
'data' => \@table_data,
'header_row' => $header_row,
'autofilter' => 0,
);
$last_row_number = 8 + scalar(@table_data);
$summary_ws->add_table("A8:D$last_row_number", \%params);
} else {
$summary_ws->write('A7', "warnings (0):", $subsub_format);
}
@table_data = undef; my $next_row = 0;
if ((exists($lynis_report_data{'suggestion[]'})) and (ref($lynis_report_data{'suggestion[]'}) eq 'ARRAY')) {
$last_row_number++;
$next_row = $last_row_number;
$summary_ws->write("A${next_row}", "suggestions \(".scalar(@{$lynis_report_data{'suggestion[]'}})."\):", $subsub_format);
$next_row++;
$header_row = [ 'Suggestion ID', 'Description', 'Severity', 'F4' ];
if ($lynis_report_data{'warning[]'}[0] =~ /\|/) {
foreach my $sugg (sort @{$lynis_report_data{'suggestion[]'}}) {
my ($sugg_id,$sugg_desc,$sugg_sev,$sugg_f4) = split(/\|/, $sugg);
push @table_data, [$sugg_id,$sugg_desc,$sugg_sev,$sugg_f4];
}
}
%params = (
'data' => \@table_data,
'header_row' => $header_row,
'autofilter' => 0,
);
$last_row_number = $next_row + scalar(@table_data);
$summary_ws->add_table("A${next_row}:D${last_row_number}", \%params);
} else {
$summary_ws->write("A$next_row", "suggestions (0):", $subsub_format);
}
my %params = (
'data' => \@table_data,
'header_row' => $header_row,
);
my $last_row_number = 8 + scalar(@table_data);
$summary_ws->add_table("A8:D$last_row_number", \%params);
} else {
open OUT, ">$htmldoc" or die colored("There was a problem opening the output file ($htmldoc): $! \n", "bold red");
print OUT <<END;