26 lines
1.0 KiB
Perl
26 lines
1.0 KiB
Perl
#! /usr/bin/perl -w
|
|
|
|
use esmith::Build::CreateLinks qw(:all);
|
|
|
|
|
|
#link to services2adjust and templates2expand for dhcp-dns event
|
|
for my $event (qw( dhcp-dns smeserver-dhcp-dns-update))
|
|
{
|
|
# services to launch on event
|
|
safe_symlink("sigusr1", "root/etc/e-smith/events/$event/services2adjust/dnscache");
|
|
safe_symlink("sigusr1", "root/etc/e-smith/events/$event/services2adjust/tinydns");
|
|
safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/dhcp-dns");
|
|
}
|
|
|
|
my $event = "smeserver-dhcp-dns-update";
|
|
event_link("systemd-reload", $event, "89");
|
|
event_link("systemd-default", $event, "88");
|
|
|
|
#creation of dhcp-dns service
|
|
# safe_symlink("daemontools", "root/etc/rc.d/init.d/dhcp-dns");
|
|
# service_link_enhanced("dhcp-dns", "S85", "7");
|
|
# service_link_enhanced("dhcp-dns", "K65", "6");
|
|
# service_link_enhanced("dhcp-dns", "K65", "0");
|
|
# service_link_enhanced("dhcp-dns", "K65", "1");
|
|
# safe_symlink("/var/service/dhcp-dns/", "root/service/dhcp-dns");
|