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

sub cmdNew_module {

	## read module
	my $module = $query->param ('module');
	my $file = getRequired ('RBAC_DIR')."/".
	           getRequired ('MODULES_DIR')."/".
	           encodeName ($module);
	print "new_module: module=".$module."<br>\n";
	print "new_module: filename=".$file."<br>\n";

	## mkdir
	my $ret = `touch $file`;

	## failure?
	if ( $? ) {
		configError ( i18nGettext ("Creating Module __MODULE__ failed (__FILE__)!",
                                   "__MODULE__", $module,
                                   "__FILE__", $file) );
	}

	libDoCommand ("show_modules");
}

1;
