END
- foreach my $u ( @{$lynis_report_data{'real_user[]'}} ) {
- my ($name,$uid) = split(/,/, $u);
- print OUT "\t\t\t\t\t\t\t
$name
$uid
\n";
+ #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
$name
$uid
\n";
+ }
+ } else {
+ my ($name,$uid) = split(/,/, $lynis_report_data{'real_user[]'});
+ print OUT "\t\t\t\t\t\t\t