open(TL,"$path_to_lang/$thislang/get_user.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;

if($passwordx){$PW=qq~:<font style="font-size:14px"><b> $passwordx</b></font><input type=hidden  name=password value="$passwordx">~}
else{$PW=qq~ <input type=password class=input style="margin-left:10px;width:100px" name=password value="" maxlength=8>  <span style="font-size:10px">($eotcp)</span>~}

open(USERS,"$path_to_users");
while(<USERS>){
if(/^$selected_user=/){chomp();$x=$_;}
($uzr,$not)=split(/=/);
push(@USERS,$uzr);
}
@USERS=sort(@USERS);
foreach $u (@USERS){
if($u =~ /\w+/ && $u ne "admin"){
$USERS.= qq~<option value="$u">$u~;
}}
($user_name,$password,$user_folder,$buttons,$kb,$mb,$user_files,$user_email,$super,$auths,$usrtype,$mode)=split(/=/,$x);
@buttons=split(/\|/,$buttons);
foreach $b (@buttons){
$bx=$b."x";$$bx="checked";
}
$modex=$mode."x";$$modex="checked";
$usrtypex=$usrtype."x";$$usrtypex="checked";
if($usrtype =~ /super|site|folder/){$js=qq~top.document.getElementById("folder_tbod").style.display="";\ntop.document.getElementById("user_folder").style.display="";\n~}
if($usrtype =~ /folder/){$js.=qq~top.document.getElementById("jailer_tbod").style.display="";\n~}
if($usrtype =~ /super|site/){$js.=qq~top.document.getElementById("fold_but").style.display="none";\n~}
if($usrtype =~ /files/){
	@files=split(/\|/,$user_files);
	foreach $file (@files){$FOPTS.=qq~<option value="$file">$file~}
	$js.=qq~top.document.getElementById("files_tbod").style.display="";\n~;	
	}
	
($mb,$fn)=split(/\^/,$mb);
if(!$authorx && !$pubx){$regx="checked"}
if($pubx){
	@auths=split(/\|/,$auths);
	foreach $auth (@auths){$AOPTS.=qq~<option value="$auth">$auth~}
	$js.=qq~top.document.getElementById("auth_tbod").style.display='';\n~;
	}
$js.=qq~top.document.getElementById("icons_tbod").style.visibility="visible";\n~;
$js.=qq~top.document.getElementById("password").value="$password"\n~;
if(!$parent){$parent_td="hidden";$updatesx=''}else{$parent_td="visible"}

if($ENV{'SERVER_SOFTWARE'} =~ /apache/i){
	$HTACCESS=qq~<td valign=top><input id=bon type=checkbox $basicauthx name=button_basicauth value=1></td><td><span class=href onclick=desc("basicauth") title="Click for description">$ico61<!-- =Password Protect --></span></td>~;
}else{
	$HTACCESS=qq~<td valign=top>&nbsp;</td><td>&nbsp;</td>~;
}

print "Content-type: text/html\n\n";
open(A,"$htm/get_user.txt");
while(<A>){
s/\$(\w+)/${$1}/eg;
print;
}
1;