You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
906 B
27 lines
906 B
11 years ago
|
{
|
||
|
|
|
||
|
|
my $llng = $DB->get("lemonldap") ||
|
||
|
|
$DB->new_record("lemonldap", { type => "service" });
|
||
|
|
|
||
|
|
my @soapaccess = split(/[;,]/, ($llng->prop('SoapAllowFrom') || ''));
|
||
|
|
my $internal = $DB->get('InternalInterface')->prop('IPAddress');
|
||
|
|
push @soapaccess, $internal if (!grep {$internal eq $_} @soapaccess);
|
||
|
|
$llng->set_prop('SoapAllowFrom', join(',',@soapaccess));
|
||
|
|
|
||
|
|
# httpd-admin handler
|
||
|
|
my @reload = split(/[;,]/, ($llng->prop('Reload') || ''));
|
||
|
|
my $reloadurl = 'localhost:980=http://localhost:980/lm-reload';
|
||
|
|
push @reload, $reloadurl if (!grep {$reloadurl eq $_} @reload);
|
||
|
|
|
||
|
|
# httpd-pki handler
|
||
|
|
$reloadurl = 'localhost:940=http://localhost:940/lm-reload';
|
||
|
|
my $phpki = $DB->get('httpd-pki');
|
||
|
|
if($phpki){
|
||
|
|
my $status = $phpki->prop('status') || 'disabled';
|
||
|
|
push @reload, $reloadurl if ((!grep {$reloadurl eq $_} @reload) && ($status eq 'enabled'));
|
||
|
|
}
|
||
|
|
|
||
|
|
$llng->set_prop('Reload', join(',',@reload));
|
||
|
|
|
||
|
|
}
|