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