initial commit of file from CVS for e-smith-ibays on Wed 12 Jul 08:56:45 BST 2023

createlinks

@@ -0,0 +1,46 @@
+#!/usr/bin/perl -w
+
+use esmith::Build::CreateLinks qw(:all);
+
+#--------------------------------------------------
+# functions for manager panel
+#--------------------------------------------------
+my $panel = "manager";
+
+panel_link("ibays", $panel);
+
+#--------------------------------------------------
+# actions for group-delete event
+#--------------------------------------------------
+
+$event = "group-delete";
+
+event_link("group-ibay-modify", $event, "10");
+
+#--------------------------------------------------
+# actions for ibay-delete event
+#--------------------------------------------------
+
+$event = "ibay-delete";
+
+event_link("ibay-delete", $event, "15");
+
+foreach my $event (qw(ibay-create ibay-modify ibay-modify-files))
+{
+    event_link("ibay-modify", $event, "15");
+}
+
+foreach my $event (qw(post-install post-upgrade e-smith-ibays-update))
+{
+    event_link("init-ibays", $event, "15");
+}
+
+my $event = "e-smith-ibays-update";
+templates2events("/etc/httpd/conf/httpd.conf", $event);
+templates2events("/samba/smb.conf", $event);
+safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/smbd");
+safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/nmbd");
+safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/httpd-e-smith");
+event_link('store-ldap-smbpasswd', $_, "06");
+event_link("systemd-reload", $event, "89");
+event_link("systemd-default", $event, "88");