if($demo_mode){
print "Content-type: text/html\n\n";
print "DISABLED FOR DEMO";
}else{
open(TL,"$path_to_lang/$thislang/add_user.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
&get_input;
if($Sign_Up_Username){
	($un,$kr)=split(/\|/,$Sign_Up_Username,2);
	$kryp=crypt($un,"ce");
	$kryp=substr($kryp,2);
 	if($kryp ne $kr){&oops}
}
$user_name=~s! !_!g;
$user_name=~s!\W|!!g;

open(USERS,"$path_to_users");
while(<USERS>){
	if(/^$default_user=/){
		($un,$pw,$user_root,$buttons,$imagesize,$usermb,$user_files,$xuser_email,$super,$auths,$usrtype,$mode)=split(/=/);
	}
	if(/^$user_name=/){&bailout;exit}
}
close(USERS);

	$create_username_folder_in_folder=~s!/$!!;
	$user_folder=$create_username_folder_in_folder."/".$user_name;
	$USER_FOLDER=$user_folder;
	$user_folder =~s !http://$host!$path_to_domain!;
 	if(!-e $user_folder){mkdir($user_folder,0755);chmod(0755,"$user_folder");}

if($folder_to_populate_from){
	$folder_to_populate_from=~s!/$!!;
	$folder_to_populate_from =~s !http://$host!$path_to_domain!;
	&catalog;	
	foreach $nu_dir (@DIRS){
		$nu_dir=~s!$folder_to_populate_from!$user_folder!;
		if(!-e $nu_dir){mkdir($nu_dir,0755);chmod(0755,"$nu_dir")}
	}	
	foreach $file (@FILES){
			$nu_file=$file;$nu_file=~s!$folder_to_populate_from!$user_folder!;
			open(N,">$nu_file");
			open(O,"$file");
			while(<O>){print N}
			chmod(0644,"$file");
	}
}
$password=crypt($password,"ce");
$entry = qq~$user_name=$password=$USER_FOLDER=$buttons=$imagesize=$usermb=$user_files=$user_email=$super=$auths=$usrtype=$mode~;

open(USERS,">>$path_to_users");
print USERS "$entry";

$redirect_url=$create_username_folder_in_folder."/".$user_name."/instructions.html";
print "Location: $redirect_url\n\n";
}#else demo
1;

sub oops{
print "Content-type: text/html\n\n";
print qq~$ini_text1 $user_name $ini_text2!  ~;
exit;
}