e-smith-qmailanalog/sme10/e-smith-qmailanalog-2.6.0-use_createlinks.patch

diff -Nur e-smith-qmailanalog-2.6.0/createlinks e-smith-qmailanalog-2.6.0_bz9393/createlinks
--- e-smith-qmailanalog-2.6.0/createlinks       2002-04-11 21:56:25.000000000 +0200
+++ e-smith-qmailanalog-2.6.0_bz9393/createlinks        2016-05-12 23:52:51.809970404 +0200
@@ -1,50 +1,5 @@
 #!/usr/bin/perl -w
-# This script creates the symlinks needed by this RPM
-# Specific support exists to create symlinks within e-smith web "panels"
-# and for links from named "events" directories into the "actions" directory
+use esmith::Build::CreateLinks  qw(:all);
 
-sub panel_link
-{
-    my ($function, $panel) = @_;
-
-    unlink "root/etc/e-smith/web/panels/$panel/cgi-bin/$function";
-    symlink("../../../functions/$function",
-           "root/etc/e-smith/web/panels/$panel/cgi-bin/$function")
-       or die "Can't symlink to root/etc/e-smith/web/panels/$panel".
-           "/cgi-bin/$function: $!";
-}
-
-sub event_link
-{
-    my ($action, $event, $level) = @_;
-
-    unlink "root/etc/e-smith/events/${event}/S${level}${action}";
-    symlink("../actions/${action}",
-       "root/etc/e-smith/events/${event}/S${level}${action}")
-    or die "Can't symlink to " .
-       "root/etc/e-smith/events/${event}/S${level}${action}: $!";
-}
-
-#--------------------------------------------------
-# functions for manager panel
-#--------------------------------------------------
-my $panel = "manager";
-
-panel_link("qmailanalog", $panel);
-
-#--------------------------------------------------
-# actions for console-save event:
-#--------------------------------------------------
-$event = "console-save";
-
-#event_link("action1", $event, "55");
-#event_link("action2", $event, "60");
-
-#--------------------------------------------------
-# actions for domain-create event:
-#--------------------------------------------------
-$event = "domain-create";
-
-#event_link("action1", $event, "55");
-#event_link("action2", $event, "90");
+panel_link("qmailanalog", "manager");
 
1	vip-ire	1.1	diff -Nur e-smith-qmailanalog-2.6.0/createlinks e-smith-qmailanalog-2.6.0_bz9393/createlinks
2			--- e-smith-qmailanalog-2.6.0/createlinks 2002-04-11 21:56:25.000000000 +0200
3			+++ e-smith-qmailanalog-2.6.0_bz9393/createlinks 2016-05-12 23:52:51.809970404 +0200
4			@@ -1,50 +1,5 @@
5			#!/usr/bin/perl -w
6			-# This script creates the symlinks needed by this RPM
7			-# Specific support exists to create symlinks within e-smith web "panels"
8			-# and for links from named "events" directories into the "actions" directory
9			+use esmith::Build::CreateLinks qw(:all);
10
11			-sub panel_link
12			-{
13			- my ($function, $panel) = @_;
14			-
15			- unlink "root/etc/e-smith/web/panels/$panel/cgi-bin/$function";
16			- symlink("../../../functions/$function",
17			- "root/etc/e-smith/web/panels/$panel/cgi-bin/$function")
18			- or die "Can't symlink to root/etc/e-smith/web/panels/$panel".
19			- "/cgi-bin/$function: $!";
20			-}
21			-
22			-sub event_link
23			-{
24			- my ($action, $event, $level) = @_;
25			-
26			- unlink "root/etc/e-smith/events/${event}/S${level}${action}";
27			- symlink("../actions/${action}",
28			- "root/etc/e-smith/events/${event}/S${level}${action}")
29			- or die "Can't symlink to " .
30			- "root/etc/e-smith/events/${event}/S${level}${action}: $!";
31			-}
32			-
33			-#--------------------------------------------------
34			-# functions for manager panel
35			-#--------------------------------------------------
36			-my $panel = "manager";
37			-
38			-panel_link("qmailanalog", $panel);
39			-
40			-#--------------------------------------------------
41			-# actions for console-save event:
42			-#--------------------------------------------------
43			-$event = "console-save";
44			-
45			-#event_link("action1", $event, "55");
46			-#event_link("action2", $event, "60");
47			-
48			-#--------------------------------------------------
49			-# actions for domain-create event:
50			-#--------------------------------------------------
51			-$event = "domain-create";
52			-
53			-#event_link("action1", $event, "55");
54			-#event_link("action2", $event, "90");
55			+panel_link("qmailanalog", "manager");
56