36 lines
922 B
Perl
Executable File
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;
|