if($param1){ $username=$param1;$password=$param2;$LOAD_PAGE=$param3; }else{ @jar = split(/\;/,$ENV{'HTTP_COOKIE'}); foreach $cookie (@jar){ $cookie =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; ($name, $value) = split(/=/,$cookie); $name =~ s/^\s*//; if($name =~ /^\D/){$$name=$value} } ($username,$password)=split(/:/,$AUTO_LOGIN); } open(USR,"$path_to_users"); while(){ if(/^$username=/){ chomp(); ($un,$pw,$user_root,$buttons,$imagesize,$usermb,$user_files,$user_email,$super,$auths,$usrtype,$mode)=split(/=/); last; } } if($mode eq "full"){$editing_mode=0} if($mode eq "block"){$editing_mode=1} if($mode eq "restricted"){$editing_mode=2} $password=crypt($password,'ce'); if($password ne $pw){ error("$password Wrong Password");exit; } $PW=substr($pw,2); $time=time; $emit=reverse($time); $salt=substr($username,0,2); $sess=crypt($emit,$salt); $sess=~s`\W``g; $sess=substr($sess,2); $re="$username=$sess\n"; open(SES,"$path_to_sessions"); while(){ unless(/^$username=/){if(/\w+/){$sf.=$_}} } close(SES); $sf.=$re; open(SES,">$path_to_sessions"); print SES "$sf"; close(SES); if($LOAD_PAGE){$logged_in=qq~logged_in=$LOAD_PAGE~}else{$logged_in="logged_in"} print "Content-type: text/html\n\n"; print qq~~; 1;