borekon/lynis-report-converter
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed non-existent issue with 'systemd_unit_file[]'

Browse Source
This commit is contained in:
dataking 2017-04-27 13:44:19 -07:00
parent 9197f84f3d
commit 87d2f90dfc
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lynis-report-converter.pl
View File

@ -198,13 +198,16 @@ if ($debug) {
if ($json) {
require JSON;
# tidy up some of the "object" variables
my @sduf = @{$lynis_report_data{'systemd_unit_file[]'}};
my @sduf_new;
foreach my $uf ( @sduf ) {
my ($name,$status) = split(/\|/, $uf);
push @sduf_new, { 'name' => $name, 'state' => $status };
my @sduf;
if ((ref($lynis_report_data{'systemd_unit_file[]'}) eq 'ARRAY') and ($lynis_report_data{'systemd_unit_file[]'} ne 'NA')) {
@sduf = @{$lynis_report_data{'systemd_unit_file[]'}};
my @sduf_new;
foreach my $uf ( @sduf ) {
my ($name,$status) = split(/\|/, $uf);
push @sduf_new, { 'name' => $name, 'state' => $status };
}
$lynis_report_data{'systemd_unit_file[]'} = \@sduf_new;
}
$lynis_report_data{'systemd_unit_file[]'} = \@sduf_new;
my @ipa = @{$lynis_report_data{'installed_packages_array'}};
my @ipa_new;
foreach my $pkg ( @ipa ) {