## OpenCA - CA Command
## (c) 2001 by Michael Bell and OpenCA Group
##
##   File Name: delete_right
##       Brief: delete a right
## Description: delete a right finally and then call show_rights
##  Parameters: module, operation, operator, owner

sub cmdDelete_right {

## load parameters
my $module    = $query->param ('module');
my $operation = $query->param ('operation');
my $operator  = $query->param ('operator');
my $owner     = $query->param ('owner');

## build filename
my $file = getRequired ('RBAC_DIR')."/".
           getRequired ('RIGHTS_DIR')."/".
           encodeName ($module)."-".
           encodeName ($operation)."-".
           encodeName ($operator)."-".
           encodeName ($owner).".sig";

if ( -e $file) {
  if ( not unlink $file ) {
    configError (i18nGettext ("The command to remove the right failed (rm __FILE__)!",
                              "__FILE__", $file));
  }
} 

## delete params
$query->delete ('module');
$query->delete ('operation');
$query->delete ('operator');
$query->delete ('owner');

libDoCommand ("show_rights");

}

1;

