103 |
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 |
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 |
104 |
--- 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.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm 2019-03-24 22:37:21.756000000 -0400 |
105 |
+++ smeserver-denyhosts-2.9/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm 2019-03-24 22:38:20.584000000 -0400 |
+++ smeserver-denyhosts-2.9/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm 2019-03-24 22:38:20.584000000 -0400 |
106 |
@@ -10,21 +10,25 @@ |
@@ -10,10 +10,12 @@ |
107 |
use File::Basename; |
use File::Basename; |
108 |
use Exporter; |
use Exporter; |
109 |
use Carp; |
use Carp; |
113 |
|
|
114 |
-our @EXPORT = qw(get_value get_prop change_settings); |
-our @EXPORT = qw(get_value get_prop change_settings); |
115 |
+our @EXPORT = qw(get_value get_prop change_settings RemoveIP); |
+our @EXPORT = qw(get_value get_prop change_settings RemoveIP); |
116 |
|
+my $scriptname = basename($0); |
117 |
|
|
118 |
our $VERSION = sprintf '%d.%03d', q$Revision: 1.00 $ =~ /: (\d+).(\d+)/; |
our $VERSION = sprintf '%d.%03d', q$Revision: 1.00 $ =~ /: (\d+).(\d+)/; |
119 |
our $db = esmith::ConfigDB->open |
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; |
|
|
} |
|
|
|
|
120 |
@@ -55,6 +59,7 @@ |
@@ -55,6 +59,7 @@ |
121 |
return CGI::FormMagick::Validator::ip_number($self, $ip); |
return CGI::FormMagick::Validator::ip_number($self, $ip); |
122 |
} |
} |