smeserver-mailman/createlinks

112 lines
2.9 KiB
Perl
Executable File

#!/usr/bin/perl -w
use esmith::Build::CreateLinks qw(:all);
# For the panel link
panel_link('mailman', 'manager');
for my $event ( qw(
mailman-addlist
mailman-rmlist
))
{
event_link($event, $event, "02");
templates2events("/var/service/qpsmtpd/config/goodrcptto", $event);
templates2events("/var/qmail/users/assign", $event);
safe_symlink("/var/qmail/bin/qmail-newu",
"root/etc/e-smith/events/$event/S55email-assign");
safe_symlink("sighup",
"root/etc/e-smith/events/$event/services2adjust/qpsmtpd");
safe_symlink("sighup",
"root/etc/e-smith/events/$event/services2adjust/sqpsmtpd");
}
for my $event ( qw(
bootstrap-console-save
))
{
templates2events( "/usr/lib/mailman/Mailman/mm_cfg.py", $event);
templates2events( "/etc/httpd/conf/httpd.conf", $event);
}
for my $event ( qw(
mailman-update
domain-create
domain-delete
))
{
templates2events( "/usr/lib/mailman/Mailman/mm_cfg.py", $event);
templates2events( "/etc/httpd/conf/httpd.conf", $event);
safe_symlink("/usr/lib/mailman/bin/post-install",
"root/etc/e-smith/events/$event/S20mailman-post-install");
# removed because cause signal-event and panel to hang
# safe_symlink("restart",
# "root/etc/e-smith/events/$event/services2adjust/mailman");
safe_symlink("restart",
"root/etc/e-smith/events/$event/services2adjust/mailman");
#safe_symlink("../actions/mailman-restart",
# "root/etc/e-smith/events/$event/S94mailman-restart");
}
for my $event ( qw(
mailman-update
))
{
safe_symlink("sigusr1",
"root/etc/e-smith/events/$event/services2adjust/httpd-e-smith");
}
my $event= "smeserver-mailman-update";
templates2events( "/etc/dar/DailyBackup.dcf", $event);
templates2events( "/usr/lib/mailman/Mailman/mm_cfg.py", $event);
templates2events( "/etc/httpd/conf/httpd.conf", $event);
templates2events("/var/qmail/users/assign", $event);
templates2events("/var/service/qpsmtpd/config/goodrcptto", $event);
safe_symlink("/usr/lib/mailman/bin/post-install",
"root/etc/e-smith/events/$event/S20mailman-post-install");
safe_symlink("/var/qmail/bin/qmail-newu",
"root/etc/e-smith/events/$event/S55email-assign");
#systemd-specific action mandatory for this package-update event
event_link("systemd-reload", $event, "89");
event_link("systemd-default", $event, "88");
safe_symlink("sigusr1",
"root/etc/e-smith/events/$event/services2adjust/httpd-e-smith");
safe_symlink("restart",
"root/etc/e-smith/events/$event/services2adjust/mailman");
safe_symlink("sighup",
"root/etc/e-smith/events/$event/services2adjust/qpsmtpd");
safe_symlink("sighup",
"root/etc/e-smith/events/$event/services2adjust/sqpsmtpd");
use esmith::Build::Backup qw(:all);
backup_includes("smeserver-mailman", qw(
/var/lib/mailman/
/usr/lib/mailman/aliases/
));