|
|
@ -13,7 +13,7 @@ foreach my $group ($a->groups){ |
|
|
|
my $groupname = $group->key; |
|
|
|
my $groupname = $group->key; |
|
|
|
foreach my $share (@s){ |
|
|
|
foreach my $share (@s){ |
|
|
|
my $sharename = $share->key; |
|
|
|
my $sharename = $share->key; |
|
|
|
my $access = $share->prop('Ajaxplorer') || 'disabled'; |
|
|
|
my $access = $share->prop('Pydio') || 'disabled'; |
|
|
|
next unless ($access eq 'enabled'); |
|
|
|
next unless ($access eq 'enabled'); |
|
|
|
my @read = split(/[;,]/, $share->prop('ReadGroups') || ''); |
|
|
|
my @read = split(/[;,]/, $share->prop('ReadGroups') || ''); |
|
|
|
my @write = split(/[;,]/, $share->prop('WriteGroups') || ''); |
|
|
|
my @write = split(/[;,]/, $share->prop('WriteGroups') || ''); |
|
|
|