Revision 7200
Added by ben leinfelder about 12 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 1583 | 1583 |
while ( my ( $docid, $data ) = each(%entityObjects) ) {
|
| 1584 | 1584 |
my $defaultAccess = $accessRoles{ $data->{'filePerm'} };
|
| 1585 | 1585 |
$accessList = qq| |
| 1586 |
<access authSystem="knb" order="denyFirst">
|
|
| 1586 |
<access authSystem="knb" order="allowFirst">
|
|
| 1587 | 1587 |
$skinAccess |
| 1588 | 1588 |
$userAccess |
| 1589 | 1589 |
<$defaultAccess> |
| ... | ... | |
| 2249 | 2249 |
|
| 2250 | 2250 |
my $access = ""; |
| 2251 | 2251 |
|
| 2252 |
$access .= "<access authSystem=\"knb\" order=\"denyFirst\">\n";
|
|
| 2252 |
$access .= "<access authSystem=\"knb\" order=\"allowFirst\">\n";
|
|
| 2253 | 2253 |
$access .= allowElement( $adminUsername, 'all' ); |
| 2254 | 2254 |
|
| 2255 | 2255 |
if ( $moderators eq '' ) {
|
| ... | ... | |
| 4332 | 4332 |
else {
|
| 4333 | 4333 |
$response = |
| 4334 | 4334 |
$metacat->setaccess( $reviewDocumentId, $userDN, "read", |
| 4335 |
"allow", "denyFirst" );
|
|
| 4335 |
"allow", "allowFirst" );
|
|
| 4336 | 4336 |
if ( $response != '1' ) {
|
| 4337 | 4337 |
return |
| 4338 | 4338 |
" Unable to set access for the review document in Metacat for the docid:" |
| ... | ... | |
| 4341 | 4341 |
foreach ( split( ":", $moderators ) ) {
|
| 4342 | 4342 |
$response = |
| 4343 | 4343 |
$metacat->setaccess( $reviewDocumentId, $_, "all", |
| 4344 |
"allow", "denyFirst" );
|
|
| 4344 |
"allow", "allowFirst" );
|
|
| 4345 | 4345 |
if ( $response != '1' ) {
|
| 4346 | 4346 |
return |
| 4347 | 4347 |
" Unable to set access for the review document in Metacat for the docid:" |
| ... | ... | |
| 4374 | 4374 |
|
| 4375 | 4375 |
# set access |
| 4376 | 4376 |
$response = $metacat->setaccess( $id, $userDN, "read", "allow", |
| 4377 |
"denyFirst" );
|
|
| 4377 |
"allowFirst" );
|
|
| 4378 | 4378 |
if ( $response != '1' ) {
|
| 4379 | 4379 |
return $failMessage; |
| 4380 | 4380 |
} |
| 4381 | 4381 |
foreach ( split( ":", $moderators ) ) {
|
| 4382 | 4382 |
$response = $metacat->setaccess( $id, $_, "all", "allow", |
| 4383 |
"denyFirst" );
|
|
| 4383 |
"allowFirst" );
|
|
| 4384 | 4384 |
if ( $response != '1' ) {
|
| 4385 | 4385 |
return $failMessage; |
| 4386 | 4386 |
} |
| ... | ... | |
| 4388 | 4388 |
|
| 4389 | 4389 |
# DENY all public access to these documents |
| 4390 | 4390 |
$response = $metacat->setaccess( $id, 'public', "all", "deny", |
| 4391 |
"denyFirst" );
|
|
| 4391 |
"allowFirst" );
|
|
| 4392 | 4392 |
if ( $response != '1' ) {
|
| 4393 | 4393 |
return $failMessage; |
| 4394 | 4394 |
} |
Also available in: Unified diff
use 'allowFirst' for access rules. We have deprecated 'denyFirst' and deny rules in Metacat as of 2.0.0