smeserver-xt_geoip/root/etc/e-smith/db/configuration/migrate/20xt_geoip

21 lines
464 B
Plaintext
Raw Permalink Normal View History

{
my @addexclude = split(/,/,"imap,imaps,pop3,pop3s,pptpd,sshd,ftp,qpsmtpd,sqpsmtpd");
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');
}
}