#!/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");