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

if($realm){
$hta=$folder."/.htaccess";
$htp=$folder."/.htpasswd";
$cgi=$url_to_editor;
$cgi=~s!http\://$ENV{'HTTP_HOST'}!!;
$path=$folder;
$path=~s!$path_to_domain!!;

$htaccess=qq~Authtype Basic
Authname "$realm"
AuthUserFile $htp
<files .ht*>
Order allow,deny
Deny from all
</files>
ErrorDocument 401  $cgi?basic_find_email=$path
require valid-user
~;

if($^O !~ /mswin32/i){
	$salt=substr($pword1,0,2);
	$pword1=crypt($pword1,$salt);
}
$htpw=qq~$user_name:$pword1:$email\n~;

open(HTA,">$hta");
print HTA "$htaccess";
close(HTA);

open(HTP,">$htp");
print HTP "$htpw";
close(HTP);

print "Content-type: text/html\n\n";
print qq~<script language=javascript>alert("$jsnote3");top.dialogArguments.basic_auth()</script>~;
}#if realm
else{
print "Content-type: text/html\n\n";
print qq~<script language=javascript>alert("$jsnote4");</script>~;

}