ipasserelle-listes/createlinks

13 lines
395 B
Perl

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