smeserver-smbstatus/contribs10/smeserver-smbstatus-1.2-add-in-link-to-wrapper.patch

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");
1	diff -urN smeserver-smbstatus-1.2.old/createlinks smeserver-smbstatus-1.2/createlinks
2	--- smeserver-smbstatus-1.2.old/createlinks 2006-03-27 20:02:23.000000000 +0100
3	+++ smeserver-smbstatus-1.2/createlinks 2020-10-14 07:21:09.806632184 +0100
4	@@ -14,6 +14,15 @@
5	"/cgi-bin/$function: $!";
6	}
7
8	+sub safe_symlink {
9	+ my ($from, $to) = @_;
10	+ use File::Basename;
11	+ use File::Path;
12	+ mkpath(dirname($to));
13	+ unlink($to);
14	+ symlink($from, $to) or die "Can't create symlink from $from to $to: $!";
15	+}
16	+
17	sub event_link
18	{
19	my ($action, $event, $level) = @_;
20	@@ -49,3 +58,4 @@
21	#event_link("action1", $event, "55");
22	#event_link("action2", $event, "90");
23
24	+safe_symlink("/etc/e-smith/web/functions/wrapper","root/etc/e-smith/web/panels/manager/cgi-bin/smbstatus");