xquery version "1.0";

import module namespace request="http://exist-db.org/xquery/request";
import module namespace xdb = "http://exist-db.org/xquery/xmldb";
import module namespace correction="http://exist-db.org/xquery/rebind/correction" at "correction.xqm";

if (starts-with($exist:path, "/backups")) then
    let $user := xdb:get-current-user()
    return
        if (not(xdb:is-admin-user($user))) then
            <dispatch xmlns="http://exist.sourceforge.net/NS/exist">
            	<redirect url="../admin.xql"/>
            </dispatch>
        else
            <dispatch xmlns="http://exist.sourceforge.net/NS/exist">
                <forward url="/admin/retrieve-backup.xql">
                    <add-parameter name="archive" value="{$exist:resource}"/>
                </forward>
            </dispatch>
else if ($exist:path eq "/") then
    <dispatch xmlns="http://exist.sourceforge.net/NS/exist">
        <redirect url="admin.xql"/>
        <!--redirect url="index.html"/-->
    </dispatch>
else if ($exist:resource eq "admin.xql") then (
    let $panel := request:get-parameter("panel", ())
    return
        <dispatch xmlns="http://exist.sourceforge.net/NS/exist">
        {
            if ($panel eq 'install') then
                <view>
                    <forward servlet="XSLTServlet">
                        (: Apply xsltforms.xsl stylesheet :)
                		<set-attribute name="xslt.stylesheet"
                			value="{$exist:root}/xforms/xsltforms/xsltforms.xsl"/>
                	    <set-attribute name="xslt.output.omit-xml-declaration" value="yes"/>
                	    <set-attribute name="xslt.output.indent" value="no"/>
                	    <set-attribute name="xslt.output.media-type" value="text/html"/>
                	    <set-attribute name="xslt.output.method" value="xhtml"/>
                	    <set-attribute name="xslt.baseuri" value="../xforms/xsltforms/"/>
                	</forward>
            	</view>
            else if ($panel eq 'correction') then (
                correction:dispatch()
            )else()
        }
      </dispatch>
) else if ($exist:resource eq "report.xql") then (
      <dispatch xmlns="http://exist.sourceforge.net/NS/exist">
      </dispatch>
) else if ($exist:resource eq "validation.xql") then (
      <dispatch xmlns="http://exist.sourceforge.net/NS/exist">
      </dispatch>
(: paths starting with /libs/ will be loaded from the webapp directory on the file system :)
) else if (starts-with($exist:path, "/libs/")) then
    <dispatch xmlns="http://exist.sourceforge.net/NS/exist">
        <forward url="/{substring-after($exist:path, 'libs/')}" absolute="yes"/>
    </dispatch>
else if (contains($exist:path, "$shared/")) then
	<dispatch xmlns="http://exist.sourceforge.net/NS/exist">
		<forward url="/rest/apps/shared-resources/{substring-after($exist:path, '/$shared/')}"/>
	</dispatch>
else
    <ignore xmlns="http://exist.sourceforge.net/NS/exist">
        <cache-control cache="yes"/>
    </ignore>