From 96c395fe869e80c712bbf6668775d12f90a86df8 Mon Sep 17 00:00:00 2001 From: dataking Date: Tue, 26 Jul 2016 13:42:17 -0700 Subject: [PATCH] warn for unhandled column parsing --- lynis_report.pl | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lynis_report.pl b/lynis_report.pl index fdbbb2d..f2a1e99 100755 --- a/lynis_report.pl +++ b/lynis_report.pl @@ -486,7 +486,7 @@ if (($arrlen % 5) == 0) { print OUT "\t\t\t\t\t${$lynis_report_data{'pam_module[]'}}[$i]${$lynis_report_data{'pam_module[]'}}[($i + 1)]${$lynis_report_data{'pam_module[]'}}[($i + 2)]${$lynis_report_data{'pam_module[]'}}[($i + 3)]${$lynis_report_data{'pam_module[]'}}[($i + 4)]\n"; } } elsif (($arrlen % 4) == 0) { - print "ARRLEN divisible by 4. \n"; + warn colored("ARRLEN divisible by 4. \n", "yellow"); } elsif (($arrlen % 3) == 0) { #print "ARRLEN divisible by 3. \n"; for (my $i=0;$i<$arrlen;$i+=3) { @@ -528,19 +528,22 @@ END $arrlen = scalar(@{$lynis_report_data{'loaded_kernel_module[]'}}); #print "ARRLEN: $arrlen \n"; if (($arrlen % 5) == 0) { - print "ARRLEN divisible by 5. \n"; + #warn colored("ARRLEN divisible by 5. \n", "yellow"); + for (my $i=0;$i<$arrlen;$i+=5) { + print OUT "\t\t\t\t\t\t${$lynis_report_data{'loaded_kernel_module[]'}}[$i]${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 1)]${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 2)]${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 3)]${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 4)]\n"; + } } elsif (($arrlen % 4) == 0) { - #print "ARRLEN divisible by 4. \n"; + #warn colored("ARRLEN divisible by 4. \n", "yellow"); for (my $i=0;$i<$arrlen;$i+=4) { print OUT "\t\t\t\t\t\t${$lynis_report_data{'loaded_kernel_module[]'}}[$i]${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 1)]${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 2)]${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 3)]\n"; } } elsif (($arrlen % 3) == 0) { - #print "ARRLEN divisible by 3. \n"; + #warn colored("ARRLEN divisible by 3. \n", "yellow"); for (my $i=0;$i<$arrlen;$i+=3) { print OUT "\t\t\t\t\t\t${$lynis_report_data{'loaded_kernel_module[]'}}[$i]${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 1)]${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 2)]\n"; } } elsif (($arrlen % 2) == 0) { - print "ARRLEN divisible by 2. \n"; + warn colored("ARRLEN divisible by 2. \n", "yellow"); } else { die colored("ARRLEN appears to be number with a divisor larger than 5 or 1 ($arrlen) \n","bold red"); }