diff -urN smeserver-smbstatus-1.2.old/createlinks smeserver-smbstatus-1.2/createlinks --- smeserver-smbstatus-1.2.old/createlinks 2006-03-27 20:02:23.000000000 +0100 +++ smeserver-smbstatus-1.2/createlinks 2020-10-14 07:21:09.806632184 +0100 @@ -14,6 +14,15 @@ "/cgi-bin/$function: $!"; } +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 event_link { my ($action, $event, $level) = @_; @@ -49,3 +58,4 @@ #event_link("action1", $event, "55"); #event_link("action2", $event, "90"); +safe_symlink("/etc/e-smith/web/functions/wrapper","root/etc/e-smith/web/panels/manager/cgi-bin/smbstatus");