smeserver-xt_geoip/contribs9/smeserver-xt_geoip-1.0.1-bz10789-more_services.patch

diff -Nur smeserver-xt_geoip-1.0.1.old/root/etc/e-smith/db/configuration/migrate/20xt_geoip smeserver-xt_geoip-1.0.1/root/etc/e-smith/db/configuration/migrate/20xt_geoip
--- smeserver-xt_geoip-1.0.1.old/root/etc/e-smith/db/configuration/migrate/20xt_geoip   1969-12-31 19:00:00.000000000 -0500
+++ smeserver-xt_geoip-1.0.1/root/etc/e-smith/db/configuration/migrate/20xt_geoip       2019-09-21 12:16:20.521000000 -0400
@@ -0,0 +1,20 @@
+{
+my @addexclude = split(/,/,"imap,imaps,pop3,pop3s,pptpd,sshd,ftp,smtpd,ssmtpd");
+my $masq = $DB->get('masq') or return;
+
+my @exclude = split(/,/, $masq->prop('XtServices') || '');
+push @exclude, @addexclude;
+# remove duplicates
+undef %saw;
+@exclude = grep(!$saw{$_}++, @exclude);
+if ($#exclude > 0)
+        {
+            $masq->set_prop('XtServices', join(',', @exclude));
+
+        }
+else
+        {
+            $masq->delete_prop('XtServices');
+        }
+}
+
1	jpp	1.1	diff -Nur smeserver-xt_geoip-1.0.1.old/root/etc/e-smith/db/configuration/migrate/20xt_geoip smeserver-xt_geoip-1.0.1/root/etc/e-smith/db/configuration/migrate/20xt_geoip
2			--- smeserver-xt_geoip-1.0.1.old/root/etc/e-smith/db/configuration/migrate/20xt_geoip 1969-12-31 19:00:00.000000000 -0500
3			+++ smeserver-xt_geoip-1.0.1/root/etc/e-smith/db/configuration/migrate/20xt_geoip 2019-09-21 12:16:20.521000000 -0400
4			@@ -0,0 +1,20 @@
5			+{
6			+my @addexclude = split(/,/,"imap,imaps,pop3,pop3s,pptpd,sshd,ftp,smtpd,ssmtpd");
7			+my $masq = $DB->get('masq') or return;
8			+
9			+my @exclude = split(/,/, $masq->prop('XtServices') \|\| '');
10			+push @exclude, @addexclude;
11			+# remove duplicates
12			+undef %saw;
13			+@exclude = grep(!$saw{$_}++, @exclude);
14			+if ($#exclude > 0)
15			+ {
16			+ $masq->set_prop('XtServices', join(',', @exclude));
17			+
18			+ }
19			+else
20			+ {
21			+ $masq->delete_prop('XtServices');
22			+ }
23			+}
24			+