--- rpms/smeserver-denyhosts/contribs9/smeserver-denyhosts-2.9-bz9458-ease_to_deban.patch	2019/03/25 03:01:04	1.2
+++ rpms/smeserver-denyhosts/contribs9/smeserver-denyhosts-2.9-bz9458-ease_to_deban.patch	2019/04/04 05:24:14	1.3
@@ -103,7 +103,7 @@ diff -Nur smeserver-denyhosts-2.9.old/ro
 diff -Nur smeserver-denyhosts-2.9.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm smeserver-denyhosts-2.9/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm
 --- smeserver-denyhosts-2.9.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm	2019-03-24 22:37:21.756000000 -0400
 +++ smeserver-denyhosts-2.9/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm	2019-03-24 22:38:20.584000000 -0400
-@@ -10,21 +10,25 @@
+@@ -10,10 +10,12 @@
  use File::Basename;
  use Exporter;
  use Carp;
@@ -113,24 +113,10 @@ diff -Nur smeserver-denyhosts-2.9.old/ro
  
 -our @EXPORT = qw(get_value get_prop change_settings);
 +our @EXPORT = qw(get_value get_prop change_settings RemoveIP);
++my $scriptname = basename($0);
  
  our $VERSION = sprintf '%d.%03d', q$Revision: 1.00 $ =~ /: (\d+).(\d+)/;
  our $db = esmith::ConfigDB->open
-     || warn "Couldn't open configuration database (permissions problems?)";
--
-+my $scriptname = basename($0);
- 
- sub new {
-     shift;
-     my $self = esmith::FormMagick->new();
-     $self->{calling_package} = (caller)[0];
-     bless $self;
-+#    if (defined($self->cgi->param('action')) && $self->cgi->param('action') eq 'RemoveIP') {
-+#        RemoveIP($self);
-+#    }
-     return $self;
- }
- 
 @@ -55,6 +59,7 @@
      return CGI::FormMagick::Validator::ip_number($self, $ip);
  }