16 lines
711 B
Perl
16 lines
711 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use esmith::Build::CreateLinks qw(:all);
|
|
|
|
foreach my $event (qw/bootstrap-console-save workgroup-update/){
|
|
templates2events("/etc/e-smith/sql/init/sambadblogd", $event);
|
|
}
|
|
safe_symlink("restart", "root/etc/e-smith/events/workgroup-update/services2adjust/squid-db-logd");
|
|
safe_touch('root/var/service/samba-db-logd/down');
|
|
safe_symlink("../daemontools" , 'root/etc/rc.d/init.d/supervise/samba-db-logd');
|
|
safe_symlink("/var/service/samba-db-logd" , 'root/service/samba-db-logd');
|
|
service_link_enhanced("samba-db-logd", "S98", "7");
|
|
service_link_enhanced("samba-db-logd", "K15", "6");
|
|
service_link_enhanced("samba-db-logd", "K35", "0");
|
|
service_link_enhanced("samba-db-logd", "K35", "1");
|