|
|
|
@ -18,15 +18,14 @@ foreach my $group ($a->groups){ |
|
|
|
|
my @read = split(/[;,]/, $share->prop('ReadGroups') || ''); |
|
|
|
|
my @write = split(/[;,]/, $share->prop('WriteGroups') || ''); |
|
|
|
|
|
|
|
|
|
$data->{$groupname}->{"\00AjxpRole\00rights"}{$sharename} = 'rw' if ( grep { $groupname eq $_ } @write ); |
|
|
|
|
$data->{$groupname}->{"\00AjxpRole\00rights"}{$sharename} = 'r' if ( grep { $groupname eq $_ } @read ); |
|
|
|
|
$data->{$groupname}->{"\00AjxpRole\00id"} = $groupname; |
|
|
|
|
$data->{$groupname}->{"\0*\0acls"}->{$sharename} = 'rw' if ( grep { $groupname eq $_ } @write ); |
|
|
|
|
$data->{$groupname}->{"\0*\0acls"}->{$sharename} = 'r' if ( grep { $groupname eq $_ } @read ); |
|
|
|
|
$data->{$groupname}->{"\0*\0roleId"} = $groupname; |
|
|
|
|
|
|
|
|
|
$data->{$groupname} = bless $data->{$groupname},'PHP::Serialization::Object::AjxpRole'; |
|
|
|
|
$data->{$groupname} = bless $data->{$groupname},'PHP::Serialization::Object::AJXP_Role'; |
|
|
|
|
} |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
$OUT = serialize($data); |
|
|
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|