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	jpp	1.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";