tweaks to XML output

This commit is contained in:
dataking 2016-11-20 11:41:10 -08:00
parent aaa76071bd
commit 97c19c02ce

View File

@ -177,6 +177,23 @@ if ($json) {
my $tmpkey = $key;
$tmpkey =~ s/\[\]//g;
given ($key) {
when (/home_directory\[\]/) {
$writer->startTag("home_directories");
foreach my $ele ( sort @{$lynis_report_data{$key}} ) {
$writer->dataElement($tmpkey, $ele);
}
$writer->endTag();
}
when (/network_listen_port\[\]/) {
$writer->startTag($tmpkey);
foreach my $ele ( sort @{$lynis_report_data{$key}} ) {
my ($port,$proto,$proc) = split(/\|/, $ele);
$writer->startTag('network_listen_port', 'protocol' => $proto, 'owner_process' => $proc);
$writer->characters($port);
$writer->endTag();
}
$writer->endTag();
}
when (/installed_packages_array/) {
$writer->startTag('installed_packages');
foreach my $ele ( sort @{$lynis_report_data{$key}} ) {