diff -urN smeserver-xt_geoip-1.0.1.old/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/xt_geoip smeserver-xt_geoip-1.0.1/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/xt_geoip --- smeserver-xt_geoip-1.0.1.old/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/xt_geoip 2020-01-11 09:35:29.000000000 +0400 +++ smeserver-xt_geoip-1.0.1/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/xt_geoip 2020-01-11 09:43:11.161000000 +0400 @@ -286,5 +286,9 @@ Available Services + + ERROR_LICENSE_KEY + GEOIP license key unavailable. Downloading is inactive ]]> + diff -urN smeserver-xt_geoip-1.0.1.old/root/etc/e-smith/web/functions/xt_geoip smeserver-xt_geoip-1.0.1/root/etc/e-smith/web/functions/xt_geoip --- smeserver-xt_geoip-1.0.1.old/root/etc/e-smith/web/functions/xt_geoip 2020-01-11 09:35:29.000000000 +0400 +++ smeserver-xt_geoip-1.0.1/root/etc/e-smith/web/functions/xt_geoip 2020-01-11 10:04:19.498000000 +0400 @@ -99,6 +99,13 @@ + + + + COUNTRY_LIST_DESCRIPTION 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 2020-01-11 09:35:29.000000000 +0400 +++ smeserver-xt_geoip-1.0.1/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/xt_geoip.pm 2020-01-11 10:38:43.843000000 +0400 @@ -25,6 +25,7 @@ get_value get_badcountries get_geoip + get_stat_license_key get_reverse print_service_table get_stat_geoip @@ -189,6 +190,20 @@ } } +=head2 get_stat_license_key + +method to retrieve the status of geoip license_key for the site +=cut + +sub get_stat_license_key { + + my $fm = shift; + if ( (get_value( $fm, 'xt_geoip_LicenseKey' ) || '') eq '' ) { + return $fm->localise('ERROR_LICENSE_KEY'); + } + return ''; +} + =head2 get_date_update =cut