#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); safe_symlink("../daemontools" , 'root/etc/rc.d/init.d/supervise/mailman'); safe_symlink("/var/service/mailman" , 'root/service/mailman'); safe_touch("root/var/service/mailman/down"); foreach my $event (qw/webapps-update ipasserelle-update bootstrap-ldap-save/){ event_link("ipasserelle-mailman-init-domain", "$event", "55"); }