parser

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

 

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

Ответ

m`ax 10.03.2005 00:21

axauth.p:
@CLASS
axauth
@USE
auth/auth.p
@BASE
auth

@init[icookie_data;ilogon_data;iparams]
^BASE:init[$icookie_data;$ilogon_data;$iparams]

#####################################################################
@htmlFormLogon[params][_params]
$_params[^hash::create[$params]]
 ...
#End @htmlFormLogon[]

#####################################################################
@htmlFormLogout[params][_params]
^if($is_logon){
 ...
#end @htmlFormLogout[]
в корневом auto.p:
@AuthLine[]
^MAIN:pSQL.server{
	$axauth[^axauth::init[$cookie:CLASS;$form:fields;$.csql[$MAIN:pSQL]]]
	^if(def $form:[auth.logout] || def $form:[auth.logon]){
		$response:location[http://${env:SERVER_NAME}^request:uri.match[\?.*][]{}?^math:random(100)]
	}
	^auth.setExpireHeaders[]
	^if(!$auth.is_logon){
		^axauth:htmlFormLogon[$.target_url[$request:uri]]
	}
	^axauth:htmlFormLogout[$.target_url[$request:uri]]
}
# - End AuthLine[] ################################################################################
В нужном.html`е: ^AuthLine[]

Logon работает, Logout нет.