## OpenCA - CA Command
## (c) 2001 by Michael Bell and OpenCA Group
##
##   File Name: add_role
##       Brief: add a new role
## Description: shows a html-form where you can enter the name
##              of the new role
##  Parameters: none

sub cmdAdd_role {

## Get required parameters ( return only the value string )
my $sheet    = getRequired( 'AddRoleSheet' );
my $uptime   = $tools->getDate();

my $page;

## Get the base Page ( got in $page variable )
if( not $page = $query->getFile( "$sheet" ) ) {
	configError ( i18nGettext ("File not Found : __SHEET__", "__SHEET__", $sheet));
};

## Substitute the Variables in the $page
$page = $query->subVar( $page, '$uptime', $uptime );

print "$page";

}

1;

