#!/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;