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