## OpenCA - CA Command
## (c) 2001 by Michael Bell and OpenCA Group
##
##   File Name: delete_operation
##       Brief: delete_operation
## Description: delete a operation
##  Parameters: -

sub cmdDelete_operation {

## read module
my $operation = $query->param ('operation');
my $file = getRequired ('RBAC_DIR')."/".
           getRequired ('OPERATIONS_DIR')."/".
           encodeName ($operation);

if ( not unlink ($file) ) {
  configError (i18nGettext ("Deleting Operation __OPERATION__ failed (__FILE__)!",
                            "__OPERATION__", $operation,
                            "__FILE__", $file));
}

libDoCommand ("show_operations");

}

1;
