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

diff -Nur e-smith-viewlogfiles-2.6.0/createlinks e-smith-viewlogfiles-2.6.0_bz9393/createlinks
--- e-smith-viewlogfiles-2.6.0/createlinks      2002-04-16 17:21:40.000000000 +0200
+++ e-smith-viewlogfiles-2.6.0_bz9393/createlinks       2016-05-13 00:13:52.350162133 +0200
@@ -1,22 +1,5 @@
 #!/usr/bin/perl -w
 
-sub safe_symlink {
-    my ($from, $to) = @_;
-    use File::Basename;
-    use File::Path;
-    mkpath(dirname($to));
-    unlink($to);
-    symlink($from, $to) or die "Can't create symlink from $from to $to: $!";
-}
-
-sub panel_link
-{
-    my ($function, $panel) = @_;
-
-    my $cgibin = "root/etc/e-smith/web/panels/$panel/cgi-bin";
-
-    safe_symlink("../../../functions/$function",
-            "$cgibin/$function")
-}
+use esmith::Build::CreateLinks  qw(:all);
 
 panel_link("viewlogfiles", "manager");
1	vip-ire	1.1	diff -Nur e-smith-viewlogfiles-2.6.0/createlinks e-smith-viewlogfiles-2.6.0_bz9393/createlinks
2			--- e-smith-viewlogfiles-2.6.0/createlinks 2002-04-16 17:21:40.000000000 +0200
3			+++ e-smith-viewlogfiles-2.6.0_bz9393/createlinks 2016-05-13 00:13:52.350162133 +0200
4			@@ -1,22 +1,5 @@
5			#!/usr/bin/perl -w
6
7			-sub safe_symlink {
8			- my ($from, $to) = @_;
9			- use File::Basename;
10			- use File::Path;
11			- mkpath(dirname($to));
12			- unlink($to);
13			- symlink($from, $to) or die "Can't create symlink from $from to $to: $!";
14			-}
15			-
16			-sub panel_link
17			-{
18			- my ($function, $panel) = @_;
19			-
20			- my $cgibin = "root/etc/e-smith/web/panels/$panel/cgi-bin";
21			-
22			- safe_symlink("../../../functions/$function",
23			- "$cgibin/$function")
24			-}
25			+use esmith::Build::CreateLinks qw(:all);
26
27			panel_link("viewlogfiles", "manager");