- kernel version: $lynis_report_data{'linux_kernel_version'}
- full kernel version: $lynis_report_data{'os_kernel_version_full'}
+END
+ print OUT "\t\t\t\t\tkernel version: $lynis_report_data{'linux_kernel_version'} \n";
+ print OUT "\t\t\t\t\tfull kernel version: $lynis_report_data{'os_kernel_version_full'} \n";
+ print OUT <
- kernel release version: $lynis_report_data{'linux_kernel_release'}
- kernel IO scheduler: $lynis_report_data{'linux_kernel_io_scheduler[]'}
+END
+ print OUT "\t\t\t\t\tkernel release version: $lynis_report_data{'linux_kernel_release'} \n";
+ if (exists($lynis_report_data{'linux_kernel_io_scheduler[]'})) {
+ print OUT "\t\t\t\t\tkernel IO scheduler: $lynis_report_data{'linux_kernel_io_scheduler[]'} \n";
+ } else {
+ print OUT "\t\t\t\t\tkernel IO scheduler: \n";
+ }
+ print OUT <
- linux kernel type: $lynis_report_data{'linux_kernel_type'}
- number of kernels available: $lynis_report_data{'linux_amount_of_kernels'}
+END
+ print OUT "\t\t\t\t\tlinux kernel type: $lynis_report_data{'linux_kernel_type'} \n";
+ print OUT "\t\t\t\t\tnumber of kernels available: $lynis_report_data{'linux_amount_of_kernels'} \n";
+ print OUT <
kernel modules loaded: > show <
@@ -849,12 +868,24 @@ END
- oldest boot date: $lynis_report_data{'journal_oldest_bootdate'}
- journal errors: $to_bool{$lynis_report_data{'journal_contains_errors'}} \
+END
+ print OUT "\t\t\t\t\toldest boot date: $lynis_report_data{'journal_oldest_bootdate'} \n";
+ print OUT "\t\t\t\t\tjournal errors: $to_bool{$lynis_report_data{'journal_contains_errors'}} \n";
+ print OUT <
- journal disk size: $lynis_report_data{'journal_disk_size'}
- last cordumps: $lynis_report_data{'journal_coredumps_lastday'}
+END
+ if (exists($lynis_report_data{'journal_disk_size'})) {
+ print OUT "\t\t\t\t\tjournal disk size: $lynis_report_data{'journal_disk_size'} \n";
+ } else {
+ print OUT "\t\t\t\t\tjournal disk size: \n";
+ }
+ if (exists($lynis_report_data{'journal_coredumps_lastday'})) {
+ print OUT "\t\t\t\t\tlast cordumps: $lynis_report_data{'journal_coredumps_lastday'} \n";
+ } else {
+ print OUT "\t\t\t\t\tlast cordumps: \n";
+ }
+ print OUT <
END
@@ -1097,11 +1128,27 @@ END
- systemd version: $lynis_report_data{'systemd_version'}
- systemd status: $lynis_report_data{'systemd_status'}
+END
+ if (exists($lynis_report_data{'systemd_version'})) {
+ print OUT "\t\t\t\t\t\tsystemd version: $lynis_report_data{'systemd_version'} \n";
+ } else {
+ print OUT "\t\t\t\t\t\tsystemd version: \n";
+ }
+ if (exists($lynis_report_data{'systemd_status'})) {
+ print OUT "\t\t\t\t\t\tsystemd status: $lynis_report_data{'systemd_status'} \n";
+ } else {
+ print OUT "\t\t\t\t\t\tsystemd status: \n";
+ }
+ print OUT <
- systemd builtin components: $lynis_report_data{'systemd_builtin_components'}
+END
+ if (exists($lynis_report_data{'systemd_builtin_components'})) {
+ print OUT "\t\t\t\t\t\tsystemd builtin components: $lynis_report_data{'systemd_builtin_components'} \n";
+ } else {
+ print OUT "\t\t\t\t\t\tsystemd builtin components: \n";
+ }
+ print OUT <
END
@@ -1172,44 +1219,21 @@ END
> show <
-
END
- #print OUT "\t\t\t\t\t\t".join(" | ", @{$lynis_report_data{'installed_packages_array'}})."\n";
- $arrlen = scalar(@{$lynis_report_data{'installed_packages_array'}});
- #print "ARRLEN: $arrlen \n";
-MAKECOLUMNS3:
- if (($arrlen % 5) == 0) {
- #print "ARRLEN divisible by 5. \n";
- for (my $i=0;$i<$arrlen;$i+=5) {
- print OUT "\t\t\t\t\t${$lynis_report_data{'installed_packages_array'}}[$i] ${$lynis_report_data{'installed_packages_array'}}[($i + 1)] ${$lynis_report_data{'installed_packages_array'}}[($i + 2)] ${$lynis_report_data{'installed_packages_array'}}[($i + 3)] ${$lynis_report_data{'installed_packages_array'}}[($i + 4)] \n";
+ if (exists($lynis_report_data{'installed_packages_array'})) {
+ if (ref($lynis_report_data{'installed_packages_array'}) eq 'ARRAY') {
+ if (scalar(@{$lynis_report_data{'installed_packages_array'}}) < 25) {
+ print OUT "\t\t\t\t\t\n";
+ } else {
+ print OUT "\t\t\t\t\t\n";
+ }
+ foreach my $p ( sort @{$lynis_report_data{'installed_packages_array'}} ) { print OUT "\n\n\n\n\n\n$p\n"; }
+ print OUT "\t\t\t\t\t \n";
}
- } elsif (($arrlen % 4) == 0) {
- #print "ARRLEN divisible by 4. \n";
- for (my $i=0;$i<$arrlen;$i+=4) {
- print OUT "\t\t\t\t\t${$lynis_report_data{'installed_packages_array'}}[$i] ${$lynis_report_data{'installed_packages_array'}}[($i + 1)] ${$lynis_report_data{'installed_packages_array'}}[($i + 2)] ${$lynis_report_data{'installed_packages_array'}}[($i + 3)] \n";
- }
- } elsif (($arrlen % 3) == 0) {
- #print "ARRLEN divisible by 3. \n";
- for (my $i=0;$i<$arrlen;$i+=3) {
- print OUT "\t\t\t\t\t${$lynis_report_data{'installed_packages_array'}}[$i] ${$lynis_report_data{'installed_packages_array'}}[($i + 1)] ${$lynis_report_data{'installed_packages_array'}}[($i + 2)] \n";
- }
- } elsif (($arrlen % 2) == 0) {
- #print "ARRLEN divisible by 2. \n";
- for (my $i=0;$i<$arrlen;$i+=3) {
- print OUT "\t\t\t\t\t${$lynis_report_data{'installed_packages_array'}}[$i] ${$lynis_report_data{'installed_packages_array'}}[($i + 1)] \n";
- }
- } else {
- if (&is_prime($arrlen)) {
- print colored("Number ($arrlen) is prime. \n", "bold yellow");
- $arrlen++;
- goto MAKECOLUMNS3;
- }
- die colored("ARRLEN appears to be number with a divisor larger than 5 or 1 ($arrlen) \n", "bold red");
}
print OUT <
-
-
+
+
+
+