source: ISOcat/trunk/mod-ISOcat-access-data/access/cleanup.acc @ 2029

<accessor debug="false">
        <name>ISOcat.access.data.cleanup</name>
        <descr>Cleanup stale sessions and locks in the DBMS.</descr>
        <idoc>
                <instr>
                        <type>sqlUpdate</type>
                        <operand>
                                <sql>
                                        DELETE
                                        FROM    core_session
                                        WHERE   (now() - COALESCE(last_access,first_access)) > interval '00:05:00'
                                        ;
                                </sql>
                        </operand>
                        <target>var:result</target>
                </instr>
                <if>
                        <cond>
                                <instr>
                                        <type>sloot.xpath2eval</type>
                                        <operand>var:result</operand>
                                        <operator>
                                                <xpath>number(.)&gt;0</xpath>
                                        </operator>
                                        <target>this:cond</target>
                                </instr>
                        </cond>
                        <then>
                                <instr>
                                        <type>sloot.xquery</type>
                                        <operator>
                                                <xquery>
                                                        declare variable $sessions as node() external;
                                                        &lt;msg>INF: {current-dateTime()}:ISOcat.access.data.cleanup: deleted stale sessions[{string($sessions)}]&lt;/msg>
                                                </xquery>
                                        </operator>
                                        <sessions>var:result</sessions>
                                        <target>var:msg</target>
                                </instr>
                                <instr>
                                        <type>sloot.log</type>
                                        <operand>var:msg</operand>
                                </instr>
                        </then>
                </if>
                <instr>
                        <type>sqlUpdate</type>
                        <operand>
                                <sql>
                                        DELETE
                                        FROM    generic_lock
                                        WHERE   (now() - COALESCE(last_access,first_access)) > interval '00:05:00'
                                        ;
                                </sql>
                        </operand>
                        <target>var:result</target>
                </instr>
                <if>
                        <cond>
                                <instr>
                                        <type>sloot.xpath2eval</type>
                                        <operand>var:result</operand>
                                        <operator>
                                                <xpath>number(.)&gt;0</xpath>
                                        </operator>
                                        <target>this:cond</target>
                                </instr>
                        </cond>
                        <then>
                                <instr>
                                        <type>sloot.xquery</type>
                                        <operator>
                                                <xquery>
                                                        declare variable $locks as node() external;
                                                        &lt;msg>INF: {current-dateTime()}:ISOcat.access.data.cleanup: deleted stale locks[{string($locks)}]&lt;/msg>
                                                </xquery>
                                        </operator>
                                        <locks>var:result</locks>
                                        <target>var:msg</target>
                                </instr>
                                <instr>
                                        <type>sloot.log</type>
                                        <operand>var:msg</operand>
                                </instr>
                        </then>
                </if>
                <instr>
                        <type>copy</type>
                        <operand>active:sloot.void</operand>
                        <target>this:response</target>
                </instr>
        </idoc>
        <exception>
                <debug/>
                <trace>ffcpl:/trace/cleanup.exception.xml</trace>
                <throw/>
        </exception>
        <response>
                <expire>now</expire>
                <debug>ffcpl:/trace/cleanup.response.xml</debug>
        </response>
</accessor>