initial commit of file from CVS for smeserver-lemonldap-ng on Sat Sep 7 20:31:17 AEST 2024
This commit is contained in:
@@ -0,0 +1,12 @@
|
||||
{
|
||||
|
||||
my $mp = $DB->get('modPerl') || $DB->new_record("modPerl", { type => "service", status => "enabled" });
|
||||
|
||||
if ( ($mp->prop('status') || 'disabled') eq 'enabled'){
|
||||
return "";
|
||||
}
|
||||
else{
|
||||
$DB->set_prop('modPerl', 'status', 'enabled');
|
||||
}
|
||||
|
||||
}
|
Reference in New Issue
Block a user