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