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

<accessor debug="false">
        <name>ISOcat.access.data.broadcast</name>
        <descr>Broadcast a message to all logged in users</descr>
        <param mandatory="true">
                <name>from</name>
                <descr>the login from the sysadmin broadcasting the message</descr>
                <type canonical="true">string</type>
        </param>
        <param>
                <name>subject</name>
                <descr>the message subject</descr>
                <type canonical="true">string</type>
                <source>
                        <param/>
                        <default>
                                <string>ISOcat broadcast</string>
                        </default>
                </source>
        </param>
        <param mandatory="true">
                <name>message</name>
                <descr>the actual message</descr>
                <type canonical="true">string</type>
        </param>
        <idoc>
                <!-- check if the user exists and is an administrator -->
                <instr>
                        <type>ISOcat.access.data.user.type</type>
                        <user>var:from</user>
                        <target>var:type</target>
                </instr>
                <exception>
                        <!-- probably the user doesn't exist -->
                        <instr>
                                <type>copy</type>
                                <operand>
                                        <string>none</string>
                                </operand>
                                <target>var:type</target>
                        </instr>
                </exception>
                <if>
                        <cond>
                                <instr>
                                        <type>sloot.xpath2eval</type>
                                        <operand>var:type</operand>
                                        <operator>
                                                <xpath>.='admin'</xpath>
                                        </operator>
                                        <target>this:cond</target>
                                </instr>
                        </cond>
                        <then>
                                <instr>
                                        <type>sloot.xquery</type>
                                        <operator>
                                                <xquery>
                                                        declare variable $from as node() external;
                                                        declare variable $subject as node() external;
                                                        declare variable $message as node() external;
                                                        &lt;sql>
                                                                INSERT INTO     core_message
                                                                        (
                                                                                "from",
                                                                                "subject",
                                                                                "message",
                                                                                "type"
                                                                        )
                                                                VALUES
                                                                        (
                                                                                (SELECT id FROM core_user WHERE login = '{replace(string($from),"'","''")}'),
                                                                                '{replace(string($subject),"'","''")}',
                                                                                '{replace(string($message),"'","''")}',
                                                                                'broadcast'
                                                                        )
                                                                ;
                                                        &lt;/sql>
                                                </xquery>
                                        </operator>
                                        <from>var:from</from>
                                        <subject>var:subject</subject>
                                        <message>var:message</message>
                                        <target>var:sql</target>
                                </instr>
                                <accessor-debug>
                                        <instr>
                                                <type>copy</type>
                                                <operand>var:sql</operand>
                                                <target>ffcpl:/trace/broadcast.sql.xml</target>
                                        </instr>
                                </accessor-debug>
                                <instr>
                                        <type>sqlUpdate</type>
                                        <operand>var:sql</operand>
                                        <target>var:result</target>
                                </instr>
                                <accessor-debug>
                                        <instr>
                                                <type>copy</type>
                                                <operand>var:result</operand>
                                                <target>ffcpl:/trace/broadcast.result.xml</target>
                                        </instr>
                                </accessor-debug>
                                <instr>
                                        <type>sloot.xquery</type>
                                        <operator>
                                                <xquery>
                                                        declare variable $from as node() external;
                                                        declare variable $subject as node() external;
                                                        declare variable $message as node() external;
                                                        &lt;msg>INF: {current-dateTime()}:ISOcat.access.data.broadcast: [{string($from)}][{string($subject)}]{string($message)}&lt;/msg>
                                                </xquery>
                                        </operator>
                                        <from>var:from</from>
                                        <subject>var:subject</subject>
                                        <message>var:message</message>
                                        <target>var:msg</target>
                                </instr>
                                <instr>
                                        <type>sloot.log</type>
                                        <operand>var:msg</operand>
                                </instr>
                                <instr>
                                        <type>copy</type>
                                        <operand>var:msg</operand>
                                        <target>this:response</target>
                                </instr>
                        </then>
                        <else>
                                <instr>
                                        <type>throw</type>
                                        <operand>
                                                <ex>
                                                        <id>ISOcat[FORBIDDEN]</id>
                                                        <message>This user isn't allowed to carry out this action.</message>
                                                </ex>
                                        </operand>
                                </instr>
                        </else>
                </if>
        </idoc>
        <exception>
                <debug/>
                <trace>ffcpl:/trace/broadcast.exception.xml</trace>
                <throw/>
        </exception>
        <response>
                <debug>ffcpl:/trace/broadcast.response.xml</debug>
                <mime>application/xml</mime>
        </response>
</accessor>