diff --git a/lynis_report.pl b/lynis_report.pl index bbffc1e..0a7d72c 100755 --- a/lynis_report.pl +++ b/lynis_report.pl @@ -114,14 +114,6 @@ if (exists($lynis_report_data{'pam_auth_brute_force_protection_module[]'})) { my $pass_score = &calc_password_complexity_score; my (%warnings, %suggestions); -#foreach my $warn ( sort @{$lynis_report_data{'warning[]'}} ) { -# my ($warn_id,$descr, $sev, $field4) = split(/\|/, $warn); -# $warnings{$warn_id}{'id'} = $warn_id; -# $warnings{$warn_id}{'descr'} = $descr; -# $warnings{$warn_id}{'severity'} = $sev; -# $warnings{$warn_id}{'f4'} = $field4; -#} -#delete($lynis_report_data{'warning[]'}); # process "string array" values delimited by a pipe (|) foreach my $key ( sort keys %lynis_report_data ) { @@ -143,8 +135,6 @@ delete($lynis_report_data{'tests_skipped'}); @tests_executed = @{$lynis_report_data{'tests_executed'}}; delete($lynis_report_data{'tests_executed'}); -#print Dumper(\%warnings); - if ($excel) { require Excel::Writer::XLSX; my $i = 0; @@ -1261,7 +1251,11 @@ END Name Cache Used:$to_bool{$lynis_report_data{'name_cache_used'}} END - print OUT "\t\t\t\t\t\tname servers:".join("
\n", @{$lynis_report_data{'nameserver[]'}})."\n"; + if (ref($lynis_report_data{'nameserver[]'}) eq 'ARRAY') { + print OUT "\t\t\t\t\t\tname servers:".join("
\n", @{$lynis_report_data{'nameserver[]'}})."\n"; + } else { + print OUT "\t\t\t\t\t\tname servers:$lynis_report_data{'nameserver[]'}\n"; + } print OUT < resolv.conf search domain: