verify-session ( session -- session )

Vocabulary

furnace.sessions

Inputs

session

an object

Outputs

session

an object

Definition

USING: accessors furnace.utilities kernel namespaces ;

IN: furnace.sessions

: verify-session ( session -- session )
    sessions get verify?>> [
        dup [
            dup
            [ client>> remote-host = ]
            [ user-agent>> user-agent = ] bi and and*
        ] when
    ] when ;