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");