33 lines
787 B
Factor
33 lines
787 B
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.asides
|
|
furnace.referrer
|
|
furnace.sessions
|
|
furnace.conversations
|
|
furnace.auth.providers
|
|
furnace.auth.login.permits ;
|
|
IN: furnace.alloy
|
|
|
|
: <alloy> ( responder db params -- responder' )
|
|
'[
|
|
<asides>
|
|
<conversations>
|
|
<sessions>
|
|
_ _ <db-persistence>
|
|
<check-form-submissions>
|
|
] call ;
|
|
|
|
: state-classes { session aside 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 ;
|