($px,$sx,$typ)=split(/:/,$param2); $px="ce".$px; open(U,"$path_to_users"); while(){chomp(); if(/^$param1=/){($us,$pw,$url)=split(/=/);last} } open(SES,"$path_to_sessions"); while(){ s/[\r\n]//; ($uz,$sz)=split(/=/); if($uz eq $param1){ if($sz eq $sx){$_=''}else{&WRONG_SESSION} } } $apw=$pw; if($param1 eq "admin" && $pw eq "start"){$pw="cek/pAJNiDF66";&reset_start} if($pw ne $px){$RETURN=qq~alert("$com_text_wrong2");parent.document.getElementById("login_butt").disabled=false;parent.document.body.style.cursor='default'~} elsif($param1 eq "admin"){ &check_updates; if($avail==1 && $parent){$RETURN=qq~top.available();~;} $RETURN.=qq~top.go_on("$url_to_editor?admin","$param1|$pw|$sx")~; } elsif($typ eq "do_login"){ $pw=~s/^ce//; $RETURN=qq~top.go_on("$url_to_editor?logged_in","$param1|$pw|$sx")~; } elsif($typ eq "modal_login"){ $pw=~s/^ce//; $RETURN=qq~top.go_on("$url_to_editor?logged_in","$param1|$pw|$sx");top.window.close()~; } print "Content-type: text/html\n\n"; print qq~ ~; 1;