add special test for pool

This commit is contained in:
Dietmar Maurer 2012-01-31 08:23:33 +01:00
parent dee1c8829a
commit 7a7a517a52

View File

@ -309,6 +309,8 @@ sub check_perm_modify {
push @$testperms, 'Datastore.Allocate';
} elsif ($path =~ m|^/vms/.+$|) {
push @$testperms, 'VM.Allocate';
} elsif ($path =~ m|^/pool/.+$|) {
push @$testperms, 'Pool.Allocate';
}
return $self->check_any($username, $path, $testperms, $noerr);