1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel sequences db.tuples alarms calendar db fry
10 furnace.auth.login.permits ;
13 : <alloy> ( responder db params -- responder' )
18 <check-form-submissions>
21 : state-classes { session conversation permit } ; inline
23 : init-furnace-tables ( -- )
24 state-classes ensure-tables
27 : start-expiring ( db params -- )
29 _ _ [ state-classes [ expire-state ] each ] with-db
30 ] 5 minutes every drop ;