562 |
<subroutine src="print_button('NEXT')"/> |
<subroutine src="print_button('NEXT')"/> |
563 |
</page> |
</page> |
564 |
|
|
565 |
|
|
566 |
diff -urN smeserver-xt_geoip-1.0.1.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/xt_geoip.pm smeserver-xt_geoip-1.0.1/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/xt_geoip.pm |
diff -urN smeserver-xt_geoip-1.0.1.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/xt_geoip.pm smeserver-xt_geoip-1.0.1/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/xt_geoip.pm |
567 |
--- smeserver-xt_geoip-1.0.1.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/xt_geoip.pm 2019-05-02 00:12:10.000000000 +0400 |
--- smeserver-xt_geoip-1.0.1.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/xt_geoip.pm 2019-05-02 00:12:10.000000000 +0400 |
568 |
+++ smeserver-xt_geoip-1.0.1/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/xt_geoip.pm 2019-04-25 20:33:34.000000000 +0400 |
+++ smeserver-xt_geoip-1.0.1/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/xt_geoip.pm 2019-05-02 01:28:49.000000000 +0400 |
569 |
@@ -11,6 +11,7 @@ |
@@ -11,6 +11,7 @@ |
570 |
use esmith::FormMagick; |
use esmith::FormMagick; |
571 |
use esmith::ConfigDB; |
use esmith::ConfigDB; |
574 |
use File::Basename; |
use File::Basename; |
575 |
use Exporter; |
use Exporter; |
576 |
use POSIX qw(strftime); |
use POSIX qw(strftime); |
577 |
@@ -25,6 +26,15 @@ |
@@ -22,6 +23,15 @@ |
578 |
get_date_update |
get_value |
579 |
change_settings |
get_badcountries |
580 |
must_exist |
get_geoip |
581 |
+ print_service_table |
+ print_service_table |
582 |
+ get_stat_geoip |
+ get_stat_geoip |
583 |
+ print_custom_button |
+ print_custom_button |
587 |
+ remove_serv |
+ remove_serv |
588 |
+ modify_serv |
+ modify_serv |
589 |
+ srv_must_exist |
+ srv_must_exist |
590 |
); |
get_date_update |
591 |
|
change_settings |
592 |
our $VERSION = sprintf '%d.%03d', q$Revision: 0.01 $ =~ /: (\d+).(\d+)/; |
must_exist |
593 |
@@ -214,7 +224,7 @@ |
@@ -214,7 +224,7 @@ |
594 |
my @mq_bcs = split /[,:]/, $q->param("masq_badcountries"); |
my @mq_bcs = split /[,:]/, $q->param("masq_badcountries"); |
595 |
if (@mq_bcs) { |
if (@mq_bcs) { |