open(TL,"$path_to_lang/$thislang/admin_tab.txt");
while(<TL>){push(@LaNg,$_)}
#foreach $i (@LaNg){chomp($i);($ni,$vi)=split(/=/,$i,2);$$ni=$vi}
&exec_lang;
&check_login;
if(!$Admin_Login){error("Admin not logged in");}

if($param1 eq ''){exit}
open(U,"$path_to_users");
while(<U>){
	if(/^$param1=/){
	($un,$pw,$user_root,$buttons,$imagesize,$usermb,$user_files,$xuser_email,$super,$auths,$usrtype,$mode)=split(/=/);
	if($usrtype eq "folder"){
		$ur=$user_root;$ur=~s-.+/([^/]+)$-$1-;
		$UR=$user_root;
		$user_root=~ s-http://$host--;
	}
	$fnd=1;$_=''}
	$SAVE.=$_;
}
if($fnd){
	open(U,">$path_to_users");
	print U "$SAVE";
	close(U);
}else{
	print "Content-type: text/html\n\n";
	print qq~<script language=javascript>alert("$ini1 $param1 $ini2")</script>~;
	close(U);
	exit;
}
print "Content-type: text/html\n\n";
if($ur && $ur eq $un){
print qq~<script language=javascript>parent.remove_the_user("$param1");if(confirm("The user $un is a Folder Restricted user.\\n\\nThe user is restricted to $user_root \\nwhich is named the same as this user\\n\\nClick OK to delete the folder and all of it's contents.")){location="$url_to_editor?admin_delete_folder=$UR"}</script>~;
}else{
print qq~<script language=javascript>parent.remove_the_user("$param1");alert("$ini1 $param1 $ini3")</script>~;
}
1;