parser

Написать ответ на текущее сообщение

 

 
   команды управления поиском

Ответ

АЕМ 02.10.2007 19:12

Нет, не Миша, АЕМ.

Эти методы вызываются в пределах одного класса.
Ошибка в 3.2.1.
@CLASS
LOGIN

@auto[]
$login[^hash::create[]]
$login.error(0)
$login.mode(0)
$login.sessions[^hashfile::open[/sessions]]
#/auto


# удаляем данные сессии
@clearSession[][sessions]
$sessions[$login.sessions]
^if(def $cookie:hashkey){
	^sessions.delete[$cookie:hashkey]
}
$cookie:sid[
	$.value[]
	$.expires(-100)
]
$cookie:hashkey[
	$.value[]
	$.expires(-100)
]

@makeSession[hashkey;sid]
$cookie:sid[
	$.value[$sid]
	$.expires(0.014)
]
$cookie:hashkey[
	$.value[$hashkey]
	$.expires(0.014)
]
$sessions[$login.sessions]
$sessions.$hashkey[ 
   $.value[$sid] 
   $.expires(0.014) 
]

@checkSession[hashkey;sid][sessions]
^if(def $hashkey && def $sid){
	$sessions[$login.sessions]
	^if($sid eq $sessions.$hashkey){
		$result(1)
		$login.error(0)
	}
}