initial commit of file from CVS for smeserver-denyhosts on Sat Sep 7 19:51:06 AEST 2024

createlinks

@@ -0,0 +1,35 @@
+#!/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;