#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); templates2events("/etc/rc.d/init.d/masq", "fail2ban-update"); foreach my $event qw(fail2ban-conf bootstrap-console-save){ templates2events("/etc/fail2ban/jail.conf", "$event"); templates2events("/etc/fail2ban/fail2ban.conf", "$event"); templates2events("/etc/logrotate.d/fail2ban", "$event"); } templates2events("/etc/fail2ban/jail.conf", "network-create"); templates2events("/etc/fail2ban/jail.conf", "network-delete"); templates2events("/etc/fail2ban/jail.conf", "remoteaccess-update"); safe_symlink("adjust", "root/etc/e-smith/events/fail2ban-update/services2adjust/masq"); safe_symlink("restart", "root/etc/e-smith/events/fail2ban-conf/services2adjust/fail2ban"); safe_symlink("restart", "root/etc/e-smith/events/network-create/services2adjust/fail2ban"); safe_symlink("restart", "root/etc/e-smith/events/network-delete/services2adjust/fail2ban"); safe_symlink("restart", "root/etc/e-smith/events/remoteaccess-update/services2adjust/fail2ban"); safe_touch("root/var/log/fail2ban/daemon.log"); service_link_enhanced("fail2ban", "S92", "7"); service_link_enhanced("fail2ban", "K08", "6"); service_link_enhanced("fail2ban", "K08", "0");