#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); templates2events("/etc/e-smith/sql/init/phplistdb", qw/webapps-update bootstrap-console-save/); templates2events("/etc/phplist/config.php", qw/webapps-update bootstrap-console-save/); safe_symlink("/var/qmail/bin/qmail-newu", "root/etc/e-smith/events/webapps-update/S55phplist-qmail-assign"); foreach my $event (qw/webapps-update bootstrap-ldap-save/){ event_link("phplist-create-pseudo", "$event", "55"); } safe_symlink("/etc/e-smith/templates-default/template-begin-php", "root/etc/e-smith/templates/etc/phplist/config.php/template-begin"); safe_symlink("/etc/e-smith/templates-default/template-end-php", "root/etc/e-smith/templates/etc/phplist/config.php/template-end"); safe_symlink("/var/qmail/alias/.qmail-phplistbounces", "root/var/qmail/alias/.qmail-phplistbounces-default"); safe_symlink("restart", "root/etc/e-smith/events/webapps-update/services2adjust/phplist"); safe_touch("root/var/lib/phplist/bounces.mbox"); my $event="smeserver-phplist-update"; event_templates($event, qw( /etc/httpd/conf/httpd.conf /etc/opt/remi/php80/php-fpm.d/www.conf /etc/e-smith/sql/init/phplistdb /etc/phplist/config.php /etc/e-smith/sql/init/phplistdb )); event_services($event, qw( php80-php-fpm restart httpd-e-smith restart phplist restart mysql.init restart )); safe_symlink("/var/qmail/bin/qmail-newu", "root/etc/e-smith/events/$event/S93phplist-qmail-assign"); event_actions($event, qw( phplist-initialise 92 phplist-create-pseudo 93 systemd-default 88 systemd-reload 89 )); use esmith::Build::Backup qw(:all); backup_includes("smeserver-phplist-udpdate", qw( /var/lib/phplist /var/log/phplist ));