From 8be83cb75b196b678278d9c76b716058a89f43c7 Mon Sep 17 00:00:00 2001 From: d4t4king Date: Wed, 18 Apr 2018 11:39:30 -0700 Subject: [PATCH] fix non-array error with 'real_user[]' element. --- lynis-report-converter.pl | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) diff --git a/lynis-report-converter.pl b/lynis-report-converter.pl index ec10d9a..070cc1f 100755 --- a/lynis-report-converter.pl +++ b/lynis-report-converter.pl @@ -17,7 +17,7 @@ my $VERSION = '0.3-beta'; my ($help,$input,$verbose,$excel,$output,$pdf,$debug,$json,$quiet,$xml,$showversion); GetOptions( 'h|help' => \$help, - 'i|input=s' => \$input, + 'i|input=s' => \$input, 'v|verbose+' => \$verbose, 'E|excel' => \$excel, 'o|output=s' => \$output, @@ -1907,9 +1907,19 @@ END END - foreach my $u ( @{$lynis_report_data{'real_user[]'}} ) { - my ($name,$uid) = split(/,/, $u); - print OUT "\t\t\t\t\t\t\t\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\n"; + } + } else { + my ($name,$uid) = split(/,/, $lynis_report_data{'real_user[]'}); + print OUT "\t\t\t\t\t\t\t\n"; + } + } else { + print OUT "\t\t\t\t\t\t\t\n"; } print OUT "\t\t\t\t\t\t
nameuid
$name$uid
$name$uid
$name$uid
NANA