#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); safe_symlink("proftpd", "root/var/service/ftp"); templates2events("/etc/logrotate.d/proftpd", qw( bootstrap-console-save e-smith-proftpd-update )); templates2events("/etc/pam.d/ftp", qw( bootstrap-console-save e-smith-proftpd-update )); templates2events("/etc/ftpusers", qw( bootstrap-console-save network-create network-delete remoteaccess-update password-modify user-lock e-smith-proftpd-update )); templates2events("/etc/proftpd.conf", qw( console-save bootstrap-console-save domain-create domain-delete domain-modify ibay-create ibay-delete ibay-modify ibay-modify-servers ip-change network-create network-delete remoteaccess-update password-modify e-smith-proftpd-update ssl-update )); foreach my $event (qw( remoteaccess-update)) { safe_symlink("sigusr1", "root/etc/e-smith/events/$event/services2adjust/ftp"); } foreach my $event (qw( bootstrap-console-save network-create remoteaccess-update network-delete e-smith-proftpd-update )) { templates2events("/var/service/ftp/peers/0", $event); templates2events("/var/service/ftp/peers/local", $event); } foreach my $event (qw( network-create network-delete )) { safe_symlink("sigusr1", "root/etc/e-smith/events/$event/services2adjust/ftp"); } safe_symlink("restart", "root/etc/e-smith/events/ssl-update/services2adjust/ftp"); my $event = 'e-smith-proftpd-update'; safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/ftp"); safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/rsyslog"); templates2events("/etc/systemd/system-preset/49-koozali.preset", $event); event_link("systemd-reload", $event, "89"); templates2events("/etc/rsyslog.conf", $event); exit 0;