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

tweaks to XML output

Browse Source
This commit is contained in:
dataking 2016-11-20 11:41:10 -08:00
parent aaa76071bd
commit 97c19c02ce
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lynis-report-converter.pl
View File

@ -177,6 +177,23 @@ if ($json) {
my $tmpkey = $key; my $tmpkey = $key;
$tmpkey =~ s/\[\]//g; $tmpkey =~ s/\[\]//g;
given ($key) { 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/) { when (/installed_packages_array/) {
$writer->startTag('installed_packages'); $writer->startTag('installed_packages');
foreach my $ele ( sort @{$lynis_report_data{$key}} ) { foreach my $ele ( sort @{$lynis_report_data{$key}} ) {