e-smith-devtools/sme9/e-smith-devtools-2.4.0.bz8951.event_template-actions-services.patch

diff -Nur e-smith-devtools-2.4.0.old.8951/CreateLinks.pm e-smith-devtools-2.4.0.8951/CreateLinks.pm
--- e-smith-devtools-2.4.0.old.8951/CreateLinks.pm      2015-06-22 03:11:08.542436021 +0200
+++ e-smith-devtools-2.4.0.8951/CreateLinks.pm  2015-06-22 03:48:16.298307902 +0200
@@ -32,12 +32,15 @@
        safe_symlink panel_link admin_common_link 
        event_link service_link_enhanced
        safe_touch templates2events
+        event_templates event_actions event_services
        );
 our %EXPORT_TAGS = (
        all => [ qw!safe_symlink panel_link admin_common_link
                     event_link service_link_enhanced
-                   safe_touch templates2events! ]
+                   safe_touch templates2events
+        event_templates event_actions event_services! ]
         );
+
 our $VERSION = sprintf '%d.%03d', q$Revision: 1.1 $ =~ /: (\d+).(\d+)/;
 
 =head1 NAME
@@ -192,6 +195,71 @@
     }
 }
 
+=head2 event_templates
+
+This function creates a file tree (of empty files) which is used by the
+generic_template_expand action to determine which templates need to
+be expanded for a particular event. Takes one event argument and a
+list of file names, e.g.
+
+ event_templates("$event", "/etc/some/file", "/etc/some/file2", "/etc/some/file3", ...);
+
+=cut
+
+sub event_templates
+{
+    my ($event, @paths) = @_;
+
+    foreach (@paths)
+    {
+        safe_touch "root/etc/e-smith/events/$event/templates2expand/$_";
+    }
+}
+
+=head2 event_actions($event, %actions)
+
+Create links to actions for the given event. %actions is a list of pairs Action => Priority. E.g
+
+  event_actions('myevent', 'action1' => '10', 'action2' => '20', ..);
+
+See also event_link().
+
+=cut
+
+sub event_actions
+{
+    my ($event, %actions) = @_;
+
+    foreach my $action (keys %actions)
+    {
+        my $level = $actions{$action};
+        safe_symlink("../actions/${action}",
+            "root/etc/e-smith/events/${event}/S${level}${action}");
+    }
+}
+
+=head2 event_services($event, %services) 
+
+Create links for the given $event in services2adjust/
+subdirectory. %services is a list of pairs Service =>
+LinkDestination
+    event_services('myevent', 'sshd' => 'restart', 'samba' => 'reload')
+See also safe_symlink().
+
+=cut
+
+sub event_services
+{
+    my ($event, %services) = @_;
+
+    foreach my $service (keys %services)
+    {
+        my $action = $services{$service};
+        safe_symlink($action, 'root/etc/e-smith/events/' . $event . '/services2adjust/' . $service);
+    }
+}
+
+
 =head1 AUTHOR
 
 SME Server Developers <bugs@e-smith.com>
1	diff -Nur e-smith-devtools-2.4.0.old.8951/CreateLinks.pm e-smith-devtools-2.4.0.8951/CreateLinks.pm
2	--- e-smith-devtools-2.4.0.old.8951/CreateLinks.pm 2015-06-22 03:11:08.542436021 +0200
3	+++ e-smith-devtools-2.4.0.8951/CreateLinks.pm 2015-06-22 03:48:16.298307902 +0200
4	@@ -32,12 +32,15 @@
5	safe_symlink panel_link admin_common_link
6	event_link service_link_enhanced
7	safe_touch templates2events
8	+ event_templates event_actions event_services
9	);
10	our %EXPORT_TAGS = (
11	all => [ qw!safe_symlink panel_link admin_common_link
12	event_link service_link_enhanced
13	- safe_touch templates2events! ]
14	+ safe_touch templates2events
15	+ event_templates event_actions event_services! ]
16	);
17	+
18	our $VERSION = sprintf '%d.%03d', q$Revision: 1.1 $ =~ /: (\d+).(\d+)/;
19
20	=head1 NAME
21	@@ -192,6 +195,71 @@
22	}
23	}
24
25	+=head2 event_templates
26	+
27	+This function creates a file tree (of empty files) which is used by the
28	+generic_template_expand action to determine which templates need to
29	+be expanded for a particular event. Takes one event argument and a
30	+list of file names, e.g.
31	+
32	+ event_templates("$event", "/etc/some/file", "/etc/some/file2", "/etc/some/file3", ...);
33	+
34	+=cut
35	+
36	+sub event_templates
37	+{
38	+ my ($event, @paths) = @_;
39	+
40	+ foreach (@paths)
41	+ {
42	+ safe_touch "root/etc/e-smith/events/$event/templates2expand/$_";
43	+ }
44	+}
45	+
46	+=head2 event_actions($event, %actions)
47	+
48	+Create links to actions for the given event. %actions is a list of pairs Action => Priority. E.g
49	+
50	+ event_actions('myevent', 'action1' => '10', 'action2' => '20', ..);
51	+
52	+See also event_link().
53	+
54	+=cut
55	+
56	+sub event_actions
57	+{
58	+ my ($event, %actions) = @_;
59	+
60	+ foreach my $action (keys %actions)
61	+ {
62	+ my $level = $actions{$action};
63	+ safe_symlink("../actions/${action}",
64	+ "root/etc/e-smith/events/${event}/S${level}${action}");
65	+ }
66	+}
67	+
68	+=head2 event_services($event, %services)
69	+
70	+Create links for the given $event in services2adjust/
71	+subdirectory. %services is a list of pairs Service =>
72	+LinkDestination
73	+ event_services('myevent', 'sshd' => 'restart', 'samba' => 'reload')
74	+See also safe_symlink().
75	+
76	+=cut
77	+
78	+sub event_services
79	+{
80	+ my ($event, %services) = @_;
81	+
82	+ foreach my $service (keys %services)
83	+ {
84	+ my $action = $services{$service};
85	+ safe_symlink($action, 'root/etc/e-smith/events/' . $event . '/services2adjust/' . $service);
86	+ }
87	+}
88	+
89	+
90	=head1 AUTHOR
91
92	SME Server Developers <bugs@e-smith.com>