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

@ -17,7 +17,7 @@ my $VERSION = '0.3-beta';
my ($help,$input,$verbose,$excel,$output,$pdf,$debug,$json,$quiet,$xml,$showversion); my ($help,$input,$verbose,$excel,$output,$pdf,$debug,$json,$quiet,$xml,$showversion);
GetOptions( GetOptions(
'h|help' => \$help, 'h|help' => \$help,
'i|input=s' => \$input, 'i|input=s' => \$input,
'v|verbose+' => \$verbose, 'v|verbose+' => \$verbose,
'E|excel' => \$excel, 'E|excel' => \$excel,
'o|output=s' => \$output, 'o|output=s' => \$output,
@ -1907,9 +1907,19 @@ END
<table class="list"> <table class="list">
<tr><td>name</td><td>uid</td></tr> <tr><td>name</td><td>uid</td></tr>
END END
foreach my $u ( @{$lynis_report_data{'real_user[]'}} ) { #print "Hash element data type: ".ref($lynis_report_data{'real_user[]'})."\n";
my ($name,$uid) = split(/,/, $u); if ((defined($lynis_report_data{'real_user[]'})) and ($lynis_report_data{'real_user[]'} ne "")) {
print OUT "\t\t\t\t\t\t\t<tr><td>$name</td><td>$uid</td></tr>\n"; 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"; 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"; } foreach my $d ( @{$lynis_report_data{'home_directory[]'}} ) { print OUT "\t\t\t\t\t\t\t<option>$d\n"; }