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

Minor bug fixes

Browse Source
This commit is contained in:
dataking 2016-07-28 10:58:18 -07:00
parent 25f0c28449
commit 53030c2994
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
README.md
View File

@ -4,6 +4,9 @@ Manageable report from lynix text output.
## Help Statement ## Help Statement
* HTML out features (default) * HTML out features (default)
* Excel out features * Excel out features
* PDF out features
## TODO: ## TODO:
* Excel out WIP!
* PDF out needs refinement
* Other output formats? * Other output formats?

10
lynis_report.pl
View File

@ -536,6 +536,7 @@ END
END END
my $arrlen = scalar(@{$lynis_report_data{'pam_module[]'}}); my $arrlen = scalar(@{$lynis_report_data{'pam_module[]'}});
#print "ARRLEN: $arrlen \n"; #print "ARRLEN: $arrlen \n";
MAKECOLUMNS1:
if (($arrlen % 5) == 0) { if (($arrlen % 5) == 0) {
#print "ARRLEN divisible by 5. \n"; #print "ARRLEN divisible by 5. \n";
for (my $i=0;$i<$arrlen;$i+=5) { for (my $i=0;$i<$arrlen;$i+=5) {
@ -543,6 +544,9 @@ END
} }
} elsif (($arrlen % 4) == 0) { } elsif (($arrlen % 4) == 0) {
warn colored("ARRLEN divisible by 4. \n", "yellow"); warn colored("ARRLEN divisible by 4. \n", "yellow");
for (my $i=0;$i<$arrlen;$i+=4) {
print OUT "\t\t\t\t\t<tr><td>${$lynis_report_data{'pam_module[]'}}[$i]</td><td>${$lynis_report_data{'pam_module[]'}}[($i + 1)]</td><td>${$lynis_report_data{'pam_module[]'}}[($i + 2)]</td><td>${$lynis_report_data{'pam_module[]'}}[($i + 3)]</td></tr>\n";
}
} elsif (($arrlen % 3) == 0) { } elsif (($arrlen % 3) == 0) {
#print "ARRLEN divisible by 3. \n"; #print "ARRLEN divisible by 3. \n";
for (my $i=0;$i<$arrlen;$i+=3) { for (my $i=0;$i<$arrlen;$i+=3) {
@ -554,7 +558,11 @@ END
print OUT "\t\t\t\t\t<tr><td>${$lynis_report_data{'pam_module[]'}}[$i]</td><td>${$lynis_report_data{'pam_module[]'}}[($i + 1)]</td></tr>\n"; print OUT "\t\t\t\t\t<tr><td>${$lynis_report_data{'pam_module[]'}}[$i]</td><td>${$lynis_report_data{'pam_module[]'}}[($i + 1)]</td></tr>\n";
} }
} else { } else {
if (&is_prime($arrlen)) { print colored("Number ($arrlen) is prime. \n", "bold yellow"); } if (&is_prime($arrlen)) {
print colored("Number ($arrlen) is prime. \n", "bold yellow");
$arrlen++;
goto MAKECOLUMNS1;
}
die colored("ARRLEN appears to be number with a divisor larger than 5 or 1 ($arrlen) \n", "bold red"); die colored("ARRLEN appears to be number with a divisor larger than 5 or 1 ($arrlen) \n", "bold red");
} }
print OUT <<END; print OUT <<END;