11 lines
257 B
Plaintext
11 lines
257 B
Plaintext
|
{
|
||
|
|
|
||
|
|
# Remove old, unused services from the configuration database
|
||
|
|
my @services = qw(haldaemon smolt udev-post messagebus ctrlaltdel pptpd klogd);
|
||
|
|
foreach my $service (@services){
|
||
|
|
my $entry = $DB->get($service);
|
||
|
|
$entry->delete if $entry;
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|