21 lines
464 B
Plaintext
21 lines
464 B
Plaintext
|
{
|
||
|
|
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');
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|