--- rpms/smeserver-xt_geoip/contribs9/smeserver-xt_geoip-1.0.1-per_serv.patch	2019/05/01 20:43:25	1.1
+++ rpms/smeserver-xt_geoip/contribs9/smeserver-xt_geoip-1.0.1-per_serv.patch	2019/05/01 21:34:13	1.2
@@ -562,9 +562,10 @@ diff -urN smeserver-xt_geoip-1.0.1.old/r
  	<subroutine src="print_button('NEXT')"/>
      </page>
  
+
 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
 --- 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/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
 @@ -11,6 +11,7 @@
  use esmith::FormMagick;
  use esmith::ConfigDB;
@@ -573,10 +574,10 @@ diff -urN smeserver-xt_geoip-1.0.1.old/r
  use File::Basename;
  use Exporter;
  use POSIX qw(strftime);
-@@ -25,6 +26,15 @@
-     get_date_update
-     change_settings
-     must_exist
+@@ -22,6 +23,15 @@
+     get_value
+     get_badcountries
+     get_geoip
 +    print_service_table
 +    get_stat_geoip
 +    print_custom_button
@@ -586,9 +587,9 @@ diff -urN smeserver-xt_geoip-1.0.1.old/r
 +    remove_serv
 +    modify_serv
 +    srv_must_exist
- );
- 
- our $VERSION = sprintf '%d.%03d', q$Revision: 0.01 $ =~ /: (\d+).(\d+)/;
+     get_date_update
+     change_settings
+     must_exist
 @@ -214,7 +224,7 @@
      my @mq_bcs = split /[,:]/, $q->param("masq_badcountries");
      if (@mq_bcs) {