<permit-cookie> ( -- cookie )

Vocabulary

furnace.auth.login

Inputs

None

Outputs

cookie

an object

Definition

USING: accessors furnace.auth furnace.utilities http kernel
namespaces ;

IN: furnace.auth.login

: <permit-cookie> ( -- cookie )
    permit-id get realm get name>> permit-id-key <cookie>
    "$login-realm" resolve-base-path >>path realm get
    [ domain>> >>domain ] [ secure>> >>secure ] bi ;