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