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,"", "normal"),
+ esmith::cgi::genSmallCell($q,"", "normal")
+ );
+ }
+
foreach my $group (@groups) {
my $write = "";
my $read = "";