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 '',$q->p($self->localise('CURRENT_DENY_DESC')),''; - my %vals = (); - if (open(DENY, "/etc/hosts.deny_ssh") ) { - %vals = map { m{DenyHosts: (.*) \| (.*)$}; $2 => $1; } grep /DenyHosts:/, ; - close DENY; - } my @strvals = `/usr/bin/sfail2ban`; - if (%vals) + if (@strvals) { print '', $q->start_table({class => "sme-border"}),"\n";