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