initial commit of file from CVS for smeserver-spamassassin on Mon 10 Jul 08:42:51 BST 2023

createlinks

@@ -0,0 +1,43 @@
+#!/usr/bin/perl -w
+
+use esmith::Build::CreateLinks qw(:all);
+use File::Basename;
+use File::Path;
+
+#--------------------------------------------------
+# functions for manager panel
+#--------------------------------------------------
+# my $panel = "manager";
+
+# panel_link("otheremail", $panel);
+
+my $event;
+
+foreach (qw(
+            /etc/mail/spamassassin/local.cf
+	    /etc/sysconfig/spamassassin
+            ))
+{
+    templates2events("$_",qw(
+        post-install
+        post-upgrade
+        bootstrap-console-save
+        console-save
+        email-update
+	smeserver-spamassassin-update
+    ));
+}
+
+# spamassassin-update events
+$event="smeserver-spamassassin-update";
+event_link("systemd-default", $event, "88"); # updates all the service files etc
+event_link("systemd-reload", $event, "89"); # systemctl daemon-reload
+event_link("spamassassin-update", $event, "99"); # Hopefully restarts spamassassin
+safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/spamassassin");
+templates2events("/etc/rsyslog.conf",$event);
+templates2events("/etc/sysconfig/spamassassin",$event);
+safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/rsyslog");
+
+# email-update events required?
+$event = "email-update";
+safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/spamassassin");