smeserver-altqmail/createlinks

30 lines
1.3 KiB
Perl

#!/usr/bin/perl -w
use esmith::Build::CreateLinks qw(:all);
service_link_enhanced("altqmail", "S80", "7");
service_link_enhanced("altqmail", "K60", "6");
service_link_enhanced("altqmail", "K60", "0");
service_link_enhanced("altqmail", "K60", "1");
service_link_enhanced("altqmail-smtpd", "S80", "7");
service_link_enhanced("altqmail-smtpd", "K60", "6");
service_link_enhanced("altqmail-smtpd", "K60", "0");
service_link_enhanced("altqmail-smtpd", "K60", "1");
safe_touch("root/var/service/altqmail/down");
safe_touch("root/var/service/altqmail-smtpd/down");
safe_symlink("../daemontools" , 'root/etc/rc.d/init.d/supervise/altqmail');
safe_symlink("../daemontools" , 'root/etc/rc.d/init.d/supervise/altqmail-smtpd');
safe_symlink("/var/service/altqmail" , 'root/service/altqmail');
safe_symlink("/var/service/altqmail-smtpd" , 'root/service/altqmail-smtpd');
safe_symlink("sighup", "root/etc/e-smith/events/email-update/services2adjust/altqmail");
safe_symlink("sighup", "root/etc/e-smith/events/email-update/services2adjust/altqmail-smtpd");
foreach my $f (qw(me bouncehost smtproutes concurrencyremote)){
safe_touch("root/etc/e-smith/templates/var/service/altqmail/root/var/qmail/control/$f/template-begin");
templates2events("/var/service/altqmail/root/var/qmail/control/$f", qw(email-update bootstrap-console-save));
}