{
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');
        }
}