46 lines
1.4 KiB
Perl
Executable File
46 lines
1.4 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use esmith::Build::CreateLinks qw(:all);
|
|
|
|
foreach my $event (qw(
|
|
bootstrap-console-save network-delete network-create email-update))
|
|
{
|
|
foreach (qw(pop3/peers/0 pop3/peers/local pop3s/peers/0 pop3s/peers/local))
|
|
{
|
|
templates2events("/var/service/$_", $event);
|
|
}
|
|
}
|
|
|
|
templates2events("/etc/pam.d/pop3", "console-save");
|
|
|
|
foreach my $file (qw(/etc/pam.d/pop3 /var/service/pop3/runenv /var/service/pop3s/runenv /var/service/pop3s/stunnel.conf))
|
|
{
|
|
templates2events($file, "bootstrap-console-save");
|
|
templates2events($file, "email-update");
|
|
}
|
|
|
|
foreach my $event (qw(network-delete network-create email-update))
|
|
{
|
|
safe_symlink("sigusr1",
|
|
"root/etc/e-smith/events/$event/services2adjust/pop3");
|
|
safe_symlink("sigusr1",
|
|
"root/etc/e-smith/events/$event/services2adjust/pop3s");
|
|
}
|
|
|
|
templates2events("/var/service/pop3s/stunnel.conf", "ssl-update");
|
|
safe_symlink("sigusr1",
|
|
"root/etc/e-smith/events/ssl-update/services2adjust/pop3s");
|
|
|
|
safe_symlink("daemontools", "root/etc/rc.d/init.d/pop3");
|
|
service_link_enhanced("pop3", "S55", "7");
|
|
service_link_enhanced("pop3", "K45", "6");
|
|
service_link_enhanced("pop3", "K45", "0");
|
|
service_link_enhanced("pop3", "K45", "1");
|
|
|
|
safe_symlink("daemontools", "root/etc/rc.d/init.d/pop3s");
|
|
service_link_enhanced("pop3s", "S55", "7");
|
|
service_link_enhanced("pop3s", "K45", "6");
|
|
service_link_enhanced("pop3s", "K45", "0");
|
|
service_link_enhanced("pop3s", "K45", "1");
|
|
|