fixed a bunch of ref and missing ker errors
This commit is contained in:
parent
61a9cb68dc
commit
ff964c7b95
|
@ -1441,7 +1441,15 @@ END
|
|||
</tr>
|
||||
<tr>
|
||||
END
|
||||
if (exists($lynis_report_data{'available_shell[]'})) {
|
||||
if (ref($lynis_report_data{'available_shell[]'}) eq 'ARRAY') {
|
||||
print OUT "\t\t\t\t\t\t<td class=\"field_label\">Available shells:</td><td>".join("<br />\n", @{$lynis_report_data{'available_shell[]'}})."</td>\n";
|
||||
} else {
|
||||
print OUT "\t\t\t\t\t\t<td class=\"field_label\">Available shells:</td><td>$lynis_report_data{'available_shell[]'}</td>\n";
|
||||
}
|
||||
} else {
|
||||
print OUT "\t\t\t\t\t\t<td class=\"field_label\">Available shells:</td><td> </td>\n";
|
||||
}
|
||||
$lynis_report_data{'locate_db'} = " " if ((!defined($lynis_report_data{'locate_db'})) or ($lynis_report_data{'locate_db'} eq ""));
|
||||
#print STDERR colored($lynis_report_data{'vm'}."\n", "bold magenta");
|
||||
$lynis_report_data{'vm'} = 0 if ((!defined($lynis_report_data{'vm'})) or ($lynis_report_data{'vm'} eq ""));
|
||||
|
@ -1607,10 +1615,34 @@ END
|
|||
<td class="field_label">IPv6 Only:</td><td>$to_bool{$lynis_report_data{'ipv6_only'}}</td>
|
||||
</tr>
|
||||
END
|
||||
if (exists($lynis_report_data{'network_interface[]'})) {
|
||||
if (ref($lynis_report_data{'network_interface[]'}) eq 'ARRAY') {
|
||||
print OUT "\t\t\t\t\t<tr><td class=\"field_label\" colspan=\"2\">network interfaces:</td><td colspan=\"2\">".join("<br />\n", @{$lynis_report_data{'network_interface[]'}})."</td></tr>\n";
|
||||
} else {
|
||||
print OUT "\t\t\t\t\t\t<tr><td class=\"field_label\" colspan=\"2\">network interfaces:</td><td colspan=\"2\">$lynis_report_data{'network_interface[]'}</td></tr>\n";
|
||||
}
|
||||
} else {
|
||||
print OUT "\t\t\t\t\t\t<tr><td class=\"field_label\" colspan=\"2\">network interfaces:</td><td colspan=\"2\"> </td></tr>\n";
|
||||
}
|
||||
print OUT "\t\t\t\t\t\t<tr><td class=\"field_label\" colspan=\"2\">localhost mapped to:</td><td colspan=\"2\">$lynis_report_data{'localhost-mapped-to'}</td></tr>\n";
|
||||
if (exists($lynis_report_data{'network_ipv4_address[]'})) {
|
||||
if (ref($lynis_report_data{'network_ipv4_address[]'}) eq 'ARRAY') {
|
||||
print OUT "\t\t\t\t\t<tr><td class=\"field_label\" colspan=\"2\">ipv4 addresses:</td><td colspan=\"2\">".join("<br />\n", @{$lynis_report_data{'network_ipv4_address[]'}})."</td></tr>\n";
|
||||
} else {
|
||||
print OUT "\t\t\t\t\t<tr><td class=\"field_label\" colspan=\"2\">ipv4 addresses:</td><td colspan=\"2\">$lynis_report_data{'network_ipv4_address[]'}</td></tr>\n";
|
||||
}
|
||||
} else {
|
||||
print OUT "\t\t\t\t\t<tr><td class=\"field_label\" colspan=\"2\">ipv4 addresses:</td><td colspan=\"2\"> </td></tr>\n";
|
||||
}
|
||||
if (exists($lynis_report_data{'network_ipv6_address[]'})) {
|
||||
if (ref($lynis_report_data{'network_ipv6_address[]'}) eq 'ARRAY') {
|
||||
print OUT "\t\t\t\t\t<tr><td class=\"field_label\" colspan=\"2\">ipv6 addresses:</td><td colspan=\"2\">".join("<br />\n", @{$lynis_report_data{'network_ipv6_address[]'}})."</td></tr>\n";
|
||||
} else {
|
||||
print OUT "\t\t\t\t\t<tr><td class=\"field_label\" colspan=\"2\">ipv6 addresses:</td><td colspan=\"2\">$lynis_report_data{'network_ipv6_address[]'}</td></tr>\n";
|
||||
}
|
||||
} else {
|
||||
print OUT "\t\t\t\t\t<tr><td class=\"field_label\" colspan=\"2\">ipv6 addresses:</td><td colspan=\"2\"> </td></tr>\n";
|
||||
}
|
||||
print OUT "\t\t\t\t\t<tr><td class=\"field_label\" colspan=\"2\">Default Gateway</td><td colspan=\"2\">$lynis_report_data{'default_gateway[]'}</td></tr>\n";
|
||||
print OUT "\t\t\t\t\t<tr>\n";
|
||||
#print STDERR "Should be ARRAY: |".ref($lynis_report_data{'network_mac_address[]'})."|\n";
|
||||
|
@ -1647,6 +1679,7 @@ END
|
|||
<tr><td>IP Address</td><td>Port</td><td>Protocol</td><td>Daemon/Process</td><td>???</td></tr>
|
||||
END
|
||||
|
||||
if (exists($lynis_report_data{'network_listen_port[]'})) {
|
||||
foreach my $obj ( sort @{$lynis_report_data{'network_listen_port[]'}} ) {
|
||||
my ($ipp,$proto,$daemon,$dunno) = split(/\|/, $obj);
|
||||
my ($ip,$port);
|
||||
|
@ -1661,6 +1694,7 @@ END
|
|||
}
|
||||
print OUT "\t\t\t\t\t<tr><td>$ip</td><td>$port</td><td>$proto</td><td>$daemon</td><td>$dunno</td></tr>\n";
|
||||
}
|
||||
}
|
||||
#######################################
|
||||
### SECURITY INFO
|
||||
#######################################
|
||||
|
@ -1895,6 +1929,7 @@ END
|
|||
<h4>kernel modules loaded:</h4><a id="kernelModLink" href="javascript:toggle('kernelModLink', 'kernelModToggle');">> show <</a>
|
||||
<div id="kernelModToggle" style="display: none">
|
||||
END
|
||||
if (ref($lynis_report_data{'loaded_kernel_module[]'}) eq 'ARRAY') {
|
||||
if (scalar(@{$lynis_report_data{'loaded_kernel_module[]'}}) < 25) {
|
||||
print OUT "\t\t\t\t\t\t<select size=\"".scalar(@{$lynis_report_data{'loaded_kernel_module[]'}})."\">\n";
|
||||
} else {
|
||||
|
@ -1902,6 +1937,7 @@ END
|
|||
}
|
||||
foreach my $m ( sort @{$lynis_report_data{'loaded_kernel_module[]'}} ) { print OUT "\t\t\t\t\t\t\t<option>$m\n"; }
|
||||
print OUT "\t\t\t\t\t\t</select>\n";
|
||||
}
|
||||
$lynis_report_data{'journal_oldest_bootdate'} = " " if ((!defined($lynis_report_data{'journal_oldest_bootdate'})) or ($lynis_report_data{'journal_oldest_bootdate'} eq ""));
|
||||
$lynis_report_data{'journal_contains_errors'} = 0 if ((!defined($lynis_report_data{'journal_contains_errors'})) or ($lynis_report_data{'journal_contains_errors'} eq ""));
|
||||
print OUT <<END;
|
||||
|
|
Loading…
Reference in New Issue
Block a user