factor/basis/furnace/alloy/alloy.factor

! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences db.tuples alarms calendar db fry
furnace.db
furnace.cache
furnace.referrer
furnace.sessions
furnace.conversations
furnace.auth.providers
furnace.auth.login.permits ;
IN: furnace.alloy

: <alloy> ( responder db params -- responder' )
    '[
        <conversations>
        <sessions>
        _ _ <db-persistence>
        <check-form-submissions>
    ] call ;

: state-classes { session conversation permit } ; inline

: init-furnace-tables ( -- )
    state-classes ensure-tables
    user ensure-table ;

: start-expiring ( db params -- )
    '[
        _ _ [ state-classes [ expire-state ] each ] with-db
    ] 5 minutes every drop ;