From 96c395fe869e80c712bbf6668775d12f90a86df8 Mon Sep 17 00:00:00 2001
From: dataking <dataking@gmail.com>
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<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><td>${$lynis_report_data{'pam_module[]'}}[($i + 4)]</td></tr>\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<tr><td>${$lynis_report_data{'loaded_kernel_module[]'}}[$i]</td><td>${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 1)]</td><td>${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 2)]</td><td>${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 3)]</td><td>${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 4)]</td></tr>\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<tr><td>${$lynis_report_data{'loaded_kernel_module[]'}}[$i]</td><td>${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 1)]</td><td>${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 2)]</td><td>${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 3)]</td></tr>\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<tr><td>${$lynis_report_data{'loaded_kernel_module[]'}}[$i]</td><td>${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 1)]</td><td>${$lynis_report_data{'loaded_kernel_module[]'}}[($i + 2)]</td></tr>\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");
 }