Action ->
Arg Rq : HTTPRequest
    A : DO_USER_LOGIN

Cookies = . ..

Do with Alarm 
 - Check Rq A,
   Login >Cookies< Rq
;

If !Alarm then
 - HTTPHeader Cookies HTTP_COOKIES,
   HTTPHeader '/' HTTP_REDIRECT_302
Else
 - LoginAgain `Alarm
;
 
/
