57 lines
2.0 KiB
Perl
57 lines
2.0 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("reload-or-restart", "root/etc/e-smith/events/email-update/services2adjust/altqmail");
|
|
safe_symlink("reload-or-restart", "root/etc/e-smith/events/email-update/services2adjust/altqmail-smtpd");
|
|
|
|
foreach my $f (qw(me bouncehost smtproutes concurrencyremote outratelimit)){
|
|
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));
|
|
}
|
|
|
|
my $pkg= "smeserver-altqmail";
|
|
my $event = "${pkg}-update";
|
|
|
|
event_actions($event, qw(
|
|
systemd-default 88
|
|
systemd-reload 89
|
|
));
|
|
|
|
event_templates($event, qw(
|
|
/var/service/altqmail/root/var/qmail/control/me
|
|
/var/service/altqmail/root/var/qmail/control/bouncehost
|
|
/var/service/altqmail/root/var/qmail/control/smtproutes
|
|
/var/service/altqmail/root/var/qmail/control/concurrencyremote
|
|
/var/service/altqmail/root/var/qmail/control/outratelimit
|
|
));
|
|
|
|
event_services($event, qw(
|
|
altqmail reload-or-restart
|
|
altqmail-smtpd reload-or-restart
|
|
qmail restart
|
|
));
|
|
|
|
#nothing to backup restore
|
|
#use esmith::Build::Backup qw(:all);
|
|
#backup_includes($pkg, qw(
|
|
#/opt/foo/
|
|
#));
|