139 lines
4.2 KiB
Perl
139 lines
4.2 KiB
Perl
#!/usr/bin/perl -w
|
|
|
|
use esmith::Build::CreateLinks qw(:all);
|
|
use File::Basename;
|
|
use File::Path;
|
|
|
|
# email-conf - console-save, bootstrap-console-save, domain-create, domain-delete,
|
|
# ip-change, email-update, host-create, host-delete, host-modify, post-upgrade
|
|
|
|
|
|
foreach (qw(
|
|
/etc/fetchmail
|
|
/etc/startmail
|
|
))
|
|
{
|
|
templates2events($_, qw(
|
|
console-save
|
|
bootstrap-console-save
|
|
domain-create
|
|
domain-delete
|
|
ip-change
|
|
email-update
|
|
host-create
|
|
host-delete
|
|
host-modify
|
|
post-upgrade
|
|
));
|
|
}
|
|
|
|
event_link('fetchmail-migrate-fetchids', "bootstrap-console-save", '91');
|
|
# pine-conf
|
|
|
|
for ( qw(/etc/pine.conf /etc/Muttrc) )
|
|
{
|
|
templates2events($_, qw(console-save bootstrap-console-save email-update));
|
|
}
|
|
|
|
#--------------------------------------------------
|
|
# functions for manager panel
|
|
#--------------------------------------------------
|
|
my $panel = "manager";
|
|
|
|
panel_link("emailsettings", $panel);
|
|
panel_link("pseudonyms", $panel);
|
|
|
|
#--------------------------------------------------
|
|
# actions for console-save event:
|
|
# write config files and create startup link
|
|
#--------------------------------------------------
|
|
$event = "console-save";
|
|
|
|
safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/smtp-auth-proxy");
|
|
event_link('fetchmail-migrate-fetchids', $event, '91');
|
|
|
|
#--------------------------------------------------
|
|
# actions for domain-create event:
|
|
# rewrite config files and restart server
|
|
#--------------------------------------------------
|
|
$event = "domain-create";
|
|
|
|
#--------------------------------------------------
|
|
# actions for domain-delete event:
|
|
# rewrite config files and restart server
|
|
#--------------------------------------------------
|
|
$event = "domain-delete";
|
|
|
|
#--------------------------------------------------
|
|
# actions for email-update event:
|
|
# email parameters have been changed in the e-smith
|
|
# manager; update system security, rewrite email config
|
|
# files, configure other system files (crontab is the
|
|
# important one), and restart server
|
|
#--------------------------------------------------
|
|
$event = "email-update";
|
|
|
|
safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/smtp-auth-proxy");
|
|
event_link('fetchmail-migrate-fetchids', $event, '91');
|
|
|
|
#--------------------------------------------------
|
|
# actions for group-create event:
|
|
#--------------------------------------------------
|
|
$event = "group-create";
|
|
|
|
#--------------------------------------------------
|
|
# actions for group-delete event:
|
|
#--------------------------------------------------
|
|
$event = "group-delete";
|
|
|
|
#--------------------------------------------------
|
|
# actions for group-modify event:
|
|
#--------------------------------------------------
|
|
$event = "group-modify";
|
|
|
|
#--------------------------------------------------
|
|
# actions for user-create event:
|
|
#--------------------------------------------------
|
|
$event = "user-create";
|
|
|
|
#--------------------------------------------------
|
|
# actions for user-modify event
|
|
#--------------------------------------------------
|
|
$event = "user-modify";
|
|
|
|
#--------------------------------------------------
|
|
# actions for user-delete event
|
|
#--------------------------------------------------
|
|
$event = "user-delete";
|
|
|
|
#--------------------------------------------------
|
|
# actions for ip-up event:
|
|
#--------------------------------------------------
|
|
$event = "ip-up";
|
|
|
|
event_link("email-ipup", $event, "20");
|
|
|
|
#--------------------------------------------------
|
|
# actions for ip-up event:
|
|
#--------------------------------------------------
|
|
$event = "ip-change";
|
|
|
|
#--------------------------------------------------
|
|
# actions for e-smith-email-update event:
|
|
#--------------------------------------------------
|
|
$event = "e-smith-email-update";
|
|
# systemd-specific action mandatory for this package-update event
|
|
event_link("systemd-reload", $event, "89");
|
|
event_link("systemd-default", $event, "88");
|
|
event_link('fetchmail-migrate-fetchids', $event, '91');
|
|
safe_symlink("try-restart", "root/etc/e-smith/events/$event/services2adjust/smtp-auth-proxy");
|
|
|
|
#--------------------------------------------------
|
|
# actions for pseudonym-{create,delete,modify}
|
|
#--------------------------------------------------
|
|
foreach $event ( qw(pseudonym-create pseudonym-modify pseudonym-delete) )
|
|
{
|
|
}
|
|
|
|
|