fix non-array error with 'real_user[]' element.

This commit is contained in:
d4t4king 2018-04-18 11:39:30 -07:00
parent 280aa72293
commit 8be83cb75b

View File

@ -1907,10 +1907,20 @@ END
<table class="list">
<tr><td>name</td><td>uid</td></tr>
END
#print "Hash element data type: ".ref($lynis_report_data{'real_user[]'})."\n";
if ((defined($lynis_report_data{'real_user[]'})) and ($lynis_report_data{'real_user[]'} ne "")) {
if (ref($lynis_report_data{'real_user[]'}) eq 'ARRAY') {
foreach my $u ( @{$lynis_report_data{'real_user[]'}} ) {
my ($name,$uid) = split(/,/, $u);
print OUT "\t\t\t\t\t\t\t<tr><td>$name</td><td>$uid</td></tr>\n";
}
} else {
my ($name,$uid) = split(/,/, $lynis_report_data{'real_user[]'});
print OUT "\t\t\t\t\t\t\t<tr><td>$name</td><td>$uid</td></tr>\n";
}
} else {
print OUT "\t\t\t\t\t\t\t<tr><td>NA</td><td>NA</td></tr>\n";
}
print OUT "\t\t\t\t\t\t</table></td><td><select size=\"10\" name=\"lbHomeDirectories\">\n";
foreach my $d ( @{$lynis_report_data{'home_directory[]'}} ) { print OUT "\t\t\t\t\t\t\t<option>$d\n"; }
print OUT <<END;