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

sub cmdDelete_module {

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

if ( not unlink ($file) ) {
  configError (i18nGettext ("Deleting Module __MODULE__ failed (__FILE__)!",
                            "__MODULE__", $module,
                            "__FILE__", $file));
}

libDoCommand ("show_modules");

}

1;
