source: cats/ISOcat/trunk/mod-ISOcat-access-data/access/message_new.acc @ 2686

<accessor debug="false">
        <name>ISOcat.access.data.message.send</name>
        <descr>Send a message from one user to the other</descr>
        <param mandatory="true">
                <name>msg</name>
                <descr>the message</descr>
        </param>
        <idoc>
                <accessor-debug>
                        <instr>
                                <type>log</type>
                                <operand>var:msg</operand>
                        </instr>
                </accessor-debug>
                <instr>
                        <type>isocat.sqlEncodeElement</type>
                        <operand>var:msg</operand>
                        <operator>
                                <xpath>/message/action</xpath>
                        </operator>
                        <target>var:enc</target>
                </instr>
                <accessor-debug>
                        <instr>
                                <type>log</type>
                                <operand>var:enc</operand>
                        </instr>
                </accessor-debug>
                <!-- store the message -->
                <!-- * get an id -->
                <instr>
                        <type>isocat.sqlQuery</type>
                        <operand>
                                <sql>
                                        SELECT nextval('core_message_id_seq'::regclass) AS id;
                                </sql>
                        </operand>
                        <target>var:id</target>
                </instr>
                <!-- * get a token -->
                <instr>
                        <type>sloot.xquery</type>
                        <operator>
                                <xquery>
                                        declare namespace rp="java:com.Ostermiller.util.RandPass";
                                        
                                        &lt;string>{
                                                rp:getPass(rp:new(('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z')))
                                        }&lt;/string>
                                </xquery>
                        </operator>
                        <target>var:token</target>
                </instr>
                <instr>
                        <type>sloot.xquery</type>
                        <operator>
                                <xquery xmlns:isocat="http://www.isocat.org/">
                                        <sql>
                                                INSERT INTO
                                                        core_message
                                                (
                                                        "id",
                                                        "from",
                                                        "to",
                                                        "subject",
                                                        "message",
                                                        "type",
                                                        "action",
                                                        "token"
                                                )
                                                VALUES
                                                (
                                                        {string($id)},
                                                        {string($msg/message/@from)},
                                                        {string($msg/message/@to)},
                                                        '{replace(string($msg/message/subject),"'","''")}',
                                                        '{replace(string($msg/message/body),"'","''")}',
                                                        '{replace(string($msg/message/action/local-name(*)),"'","''")}',
                                                        '{replace(string($enc/message/action),"'","''")}',
                                                        '{string($token)}'
                                                )
                                                ;
                                        </sql>
                                </xquery>
                        </operator>
                        <id>var:id</id>
                        <msg>var:msg</msg>
                        <enc>var:enc</enc>
                        <token>var:token</token>
                        <target>var:sql</target>
                </instr>
                <accessor-debug>
                        <instr>
                                <type>log</type>
                                <operand>var:sql</operand>
                        </instr>
                </accessor-debug>
                <instr>
                        <type>isocat.sqlUpdate</type>
                        <operand>var:sql</operand>
                        <target>var:result</target>
                </instr>
                <instr>
                        <type>copy</type>
                        <operand>var:id</operand>
                        <target>this:response</target>
                </instr>
        </idoc>
        <exception>
                <debug/>
                <trace>ffcpl:/trace/message_new.exception.xml</trace>
                <throw/>
        </exception>
        <response>
                <debug>ffcpl:/trace/message_new.response.xml</debug>
                <mime>application/xml</mime>
                <expire>now</expire>
        </response>
</accessor>