parser

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

 

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

Тоже самое :)

AL 01.02.2006 12:41

@auth[]
^auth_form[]
^if(def $form:go){
	$login[^form:login.lower[]]
	$pswd[^form:pswd.lower[]]
	
	$crpswd[^table::sql{SELECT c_id, pswd FROM auth WHERE login='$login'}]
	
	^if(^math:crypt[$pswd;$crpswd.pswd] eq $crpswd.pswd){ 
		$cookie:ind[
		$.value[$crpswd.c_id]
		$.expires(60)
		]

		$cookie:ind2[
		$.value[$crpswd.pswd]
		$.expires(60)
		]
		$cookie:logon[
		$.value[1]
		$.expires(60)
		]
	}{
#		$response:location[http://$env:SERVER_NAME/error.html]
		$crpswd.pswd, ^math:crypt[$pswd;$crpswd.pswd]
	}
}
В БД лежит $apr1$1KDv

Выводит:
$apr1$1KDv, $apr1$1KDv$D/u9mQyhXHsbiReb6I4AG.