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