1. Perl / Говнокод #9735

    −120

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    my $uid = 0;
    	my $parse_uid = $parse_sid->{uid} || 0;
    	my $memd_uid  = $RR::Init::memd->get('sid'.$sid) || 0;
    	# Авторизуем при помощи memd
    	if ($parse_uid==$memd_uid){
    		$uid = $memd_uid;
    	}
    
    	# Запоминаем в Куку
    	$r->pnotes('USER_SID' => $sid);
    	$param{sid} = $sid;
    	
    	# Захватываем sid
    	unless (defined $uid){
    		$RR::Init::memd->set('sid'.$sid, 0);
    	}
    	# Всяке артефакты лезут
    	$uid||=undef;

    Лезут всякие артефакты видите ли...

    Запостил: PSIAlt, 22 Марта 2012

    Комментарии (7) RSS

    Добавить комментарий