open(TL,"$path_to_lang/$thislang/basic_auth.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
$path=$Current_Dir;
$path=~s!^\w:!!;$path=~s|/$||;
$path_=$path;$path_=~s|$path_to_domain||;
$htp=$path."/.htpasswd";
if(-e $htp){
	open(HTP,$htp);
	while(<HTP>){
		($n,$p)=split(/:/);
		if($n =~ /^\w/){
			push(@OPTS,$n);
		}
	}
	@OPTS=sort(@OPTS);
	$OPTS=qq~<option value="">Select Member To Remove\n~;
	foreach $n (@OPTS){
		$OPTS.=qq~<option value="$n">$n\n~;
	}	
}
if(!$OPTS){
	$stage=qq~swap("div_a","tab_a")
	document.getElementById("tab_a").disabled=false
	document.getElementById("tab_b").disabled=true
	document.getElementById("tab_c").disabled=false~;	
}else{
	$stage=qq~swap("div_b","tab_b")
	document.getElementById("tab_b").disabled=false
	document.getElementById("tab_c").disabled=false~;
}
print "Content-type: text/html\n\n";
open(CP,"$htm/basic_auth.txt");
while(<CP>){
s/\$(\w+)/${$1}/eg;
print
}
1;