smeserver-denyhosts/createlinks

36 lines
922 B
Perl
Executable File

#!/usr/bin/perl -w
use esmith::Build::CreateLinks qw(:all);
panel_link("denyhosts", "manager");
safe_symlink('restart', "root/etc/e-smith/events/conf-denyhosts/services2adjust/denyhosts");
foreach $file (
qw(/var/lib/denyhosts/allowed-hosts /etc/denyhosts.conf))
{
templates2events($file, qw(bootstrap-console-save conf-denyhosts smeserver-denyhosts-update));
}
foreach $file (
qw(/etc/hosts.allow))
{
templates2events($file, qw(conf-denyhosts smeserver-denyhosts-update));
}
my $event= "smeserver-denyhosts-update";
event_link("systemd-reload", $event, "89");
event_link("systemd-default", $event, "88");
safe_symlink('restart', "root/etc/e-smith/events/$event/services2adjust/denyhosts");
event_link("navigation-conf", $event, "80");
use esmith::Build::Backup qw(:all);
backup_includes("smeserver-denyhosts", qw(
/var/lib/denyhosts/
/etc/hosts.deny_ssh
/etc/hosts.deny_ssh.purge.bak
));
exit 0;