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

print "Content-type: text/html\n\n";
($usr,$current,$nu)=split(/\|/,$param1);
$curr=crypt($current,"ce");
$NUPW=crypt($nu,"ce");
open(USR,"$path_to_users");
while(<USR>){
    if(/^$usr=/){
        ($un,$pw,$user_root,$buttons,$imagesize,$usermb,$user_files,$user_email,$super,$auths,$usrtype,$mode)=split(/=/);
		if($pw eq $curr){
		$_=qq~$un=$NUPW=$user_root=$buttons=$imagesize=$usermb=$user_files=$user_email=$super=$auths=$usrtype=$mode~;
		}else{$nomatch=1}
    }
	$SAVE.=$_;
}
if($nomatch){
print qq~<script language=javascript>alert("$js2");parent.document.body.style.cursor='default';parent.document.getElementById("chng_butt").disabled=false</script>~;
exit
}else{
	$PW=substr($NUPW,2);
	open(SES,"$path_to_sessions");
	while(<SES>){
		chomp();
		($U,$SES)=split(/=/);
		if($U eq $un){break}
	}
	$cookie="EditorLogin=$un|$PW|$SES;path=/";
	open(USR,">$path_to_users");
	print USR "$SAVE";
	if($param2 eq "toolbar"){
		print qq~<script language=javascript>document.cookie="$cookie";alert("$js3");parent.window.close()</script>~;
	}else{
		print qq~<script language=javascript>alert("$js3");parent.location.reload(true)</script>~;
	}
exit
}
1;