smeserver-subversion/root/etc/e-smith/db/accounts/migrate/80subversionGroups

11 lines
373 B
Plaintext
Raw Permalink Normal View History

{
foreach my $repository ($DB->get_all_by_prop('type' => 'repository'))
{
my $property = $DB->get_prop_and_delete($repository->key, 'Groups') or next;
$repository->merge_prop('GroupsWrite', $property) unless $repository->prop('GroupsWrite');
$repository->merge_prop('GroupsRead', $property) unless $repository->prop('GroupsRead');
}
}