smeserver-fail2ban/contribs9/smeserver-fail2ban-0.1.18-bz10814-denylist-display.patch

diff -Nur smeserver-fail2ban-0.1.18.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fail2ban.pm smeserver-fail2ban-0.1.18/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fail2ban.pm
--- smeserver-fail2ban-0.1.18.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fail2ban.pm  2019-10-16 21:38:42.919000000 -0400
+++ smeserver-fail2ban-0.1.18/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fail2ban.pm      2019-10-16 21:40:00.007000000 -0400
@@ -169,14 +169,9 @@
 
     print '<tr><td colspan=2>',$q->p($self->localise('CURRENT_DENY_DESC')),'</td></tr>';
 
-    my %vals = ();
-    if (open(DENY, "/etc/hosts.deny_ssh") ) {
-        %vals = map { m{DenyHosts: (.*) \| (.*)$}; $2 => $1; } grep /DenyHosts:/, <DENY>;
-        close DENY;
-    }
     my @strvals = `/usr/bin/sfail2ban`;
     
-    if (%vals)
+    if (@strvals)
     {
         print '<tr><td colspan=2>',
               $q->start_table({class => "sme-border"}),"\n";
1	diff -Nur smeserver-fail2ban-0.1.18.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fail2ban.pm smeserver-fail2ban-0.1.18/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fail2ban.pm
2	--- smeserver-fail2ban-0.1.18.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fail2ban.pm 2019-10-16 21:38:42.919000000 -0400
3	+++ smeserver-fail2ban-0.1.18/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fail2ban.pm 2019-10-16 21:40:00.007000000 -0400
4	@@ -169,14 +169,9 @@
5
6	print '<tr><td colspan=2>',$q->p($self->localise('CURRENT_DENY_DESC')),'</td></tr>';
7
8	- my %vals = ();
9	- if (open(DENY, "/etc/hosts.deny_ssh") ) {
10	- %vals = map { m{DenyHosts: (.) \\| (.)$}; $2 => $1; } grep /DenyHosts:/, <DENY>;
11	- close DENY;
12	- }
13	my @strvals = `/usr/bin/sfail2ban`;
14
15	- if (%vals)
16	+ if (@strvals)
17	{
18	print '<tr><td colspan=2>',
19	$q->start_table({class => "sme-border"}),"\n";