| 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"; |
Parent Directory
| 
Revision Log
| 
Revision Graph
