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	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	+