smeserver-shared-folders/contribs10/smeserver-shared-folders-0.3-bz12477-shared-group.patch

diff -urN smeserver-shared-folders-0.3.old/createlinks smeserver-shared-folders-0.3/createlinks
--- smeserver-shared-folders-0.3.old/createlinks        2024-02-27 15:35:03.020779428 +0200
+++ smeserver-shared-folders-0.3/createlinks    2024-02-27 15:52:34.550575728 +0200
@@ -20,7 +20,7 @@
 #action specific to this package
 #event_link("some event", $event, "30");
 #services we need to restart
-safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/httpd");
+safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/httpd-e-smith");
 #
 #--------------------------------------------------
 # functions for manager panel
diff -urN smeserver-shared-folders-0.3.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/shares.pm smeserver-shared-folders-0.3/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/shares.pm
--- smeserver-shared-folders-0.3.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/shares.pm 2024-02-27 15:35:02.980779474 +0200
+++ smeserver-shared-folders-0.3/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/shares.pm     2024-02-26 22:55:56.000000000 +0200
@@ -382,6 +382,8 @@
     foreach my $user ( split ( /[,;]/, $ReadUsers ) ) {
         $ReadUsers{$user} = 1;
     }
+
+    my @shared = "shared";
     my @groups = sort { $a->key() cmp $b->key() } $a->groups();
     my @users = sort { $a->key() cmp $b->key() } $a->users();
 
@@ -403,6 +405,31 @@
             esmith::cgi::genSmallCell($q, $self->localise('READ_PERM'),"header")
         );
 
+    foreach my $shared (@shared) {
+        my $write = "";
+        my $read = "";
+        my $name = "shared";
+        my $desc = "Everyone";
+        if ( $WriteGroups{$name} ) {
+            $write = "checked";
+        }
+        if ( $ReadGroups{$name} ) {
+            $read = "checked";
+        }
+
+        $out .= $q->Tr(
+            esmith::cgi::genSmallCell($q, $name, "normal"),
+            esmith::cgi::genSmallCell($q, $desc, "normal"),
+
+            esmith::cgi::genSmallCell($q,"<input type=\"checkbox\""
+                                       . " name=\"writegroup\""
+                                       . " $write value=\"$name\">", "normal"),
+            esmith::cgi::genSmallCell($q,"<input type=\"checkbox\""
+                                       . " name=\"readgroup\""
+                                       . " $read value=\"$name\">", "normal")
+            );
+    }
+
     foreach my $group (@groups) {
         my $write = "";
         my $read = "";
1	diff -urN smeserver-shared-folders-0.3.old/createlinks smeserver-shared-folders-0.3/createlinks
2	--- smeserver-shared-folders-0.3.old/createlinks 2024-02-27 15:35:03.020779428 +0200
3	+++ smeserver-shared-folders-0.3/createlinks 2024-02-27 15:52:34.550575728 +0200
4	@@ -20,7 +20,7 @@
5	#action specific to this package
6	#event_link("some event", $event, "30");
7	#services we need to restart
8	-safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/httpd");
9	+safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/httpd-e-smith");
10	#
11	#--------------------------------------------------
12	# functions for manager panel
13	diff -urN smeserver-shared-folders-0.3.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/shares.pm smeserver-shared-folders-0.3/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/shares.pm
14	--- smeserver-shared-folders-0.3.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/shares.pm 2024-02-27 15:35:02.980779474 +0200
15	+++ smeserver-shared-folders-0.3/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/shares.pm 2024-02-26 22:55:56.000000000 +0200
16	@@ -382,6 +382,8 @@
17	foreach my $user ( split ( /[,;]/, $ReadUsers ) ) {
18	$ReadUsers{$user} = 1;
19	}
20	+
21	+ my @shared = "shared";
22	my @groups = sort { $a->key() cmp $b->key() } $a->groups();
23	my @users = sort { $a->key() cmp $b->key() } $a->users();
24
25	@@ -403,6 +405,31 @@
26	esmith::cgi::genSmallCell($q, $self->localise('READ_PERM'),"header")
27	);
28
29	+ foreach my $shared (@shared) {
30	+ my $write = "";
31	+ my $read = "";
32	+ my $name = "shared";
33	+ my $desc = "Everyone";
34	+ if ( $WriteGroups{$name} ) {
35	+ $write = "checked";
36	+ }
37	+ if ( $ReadGroups{$name} ) {
38	+ $read = "checked";
39	+ }
40	+
41	+ $out .= $q->Tr(
42	+ esmith::cgi::genSmallCell($q, $name, "normal"),
43	+ esmith::cgi::genSmallCell($q, $desc, "normal"),
44	+
45	+ esmith::cgi::genSmallCell($q,"<input type=\"checkbox\""
46	+ . " name=\"writegroup\""
47	+ . " $write value=\"$name\">", "normal"),
48	+ esmith::cgi::genSmallCell($q,"<input type=\"checkbox\""
49	+ . " name=\"readgroup\""
50	+ . " $read value=\"$name\">", "normal")
51	+ );
52	+ }
53	+
54	foreach my $group (@groups) {
55	my $write = "";
56	my $read = "";