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

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