controller.xql

(: eXanore - EXist-db ANnotator stORE API
 : Copyright Benjamin W. Bohl 2014.
 : bohl(at)edirom.de
 :
 : http://www.github.com/edirom/ediromSourceManager
 : 
 : ## Description & License
 : 
 : This file controls the URL handling and rewriting
 :
 : This program is free software: you can redistribute it and/or modify
 : it under the terms of the GNU General Public License as published by
 : the Free Software Foundation, either version 3 of the License, or
 : (at your option) any later version.
 :
 : This program is distributed in the hope that it will be useful,
 : but WITHOUT ANY WARRANTY; without even the implied warranty of
 : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 : GNU General Public License for more details.
 :
 : You should have received a copy of the GNU General Public License
 : along with this program.  If not, see <http://www.gnu.org/licenses/>.
 :)


xquery version "3.0";


import module namespace console="http://exist-db.org/xquery/console" at "java:org.exist.console.xquery.ConsoleModule";
import module namespace exanoreParam="http://www.eXanore.com/param" at "modules/params.xqm";


declare variable $exist:path external;
declare variable $exist:resource external;
declare variable $exist:controller external;
declare variable $exist:prefix external;
declare variable $exist:root external;


(: may we should check for out of time
 : declare variable $jwtIssuedAt := replace($jwt//jwt:issuedAt/text(), '+0000', '+00:00');:)
(: declare variable $jwtTtl := $jwt//jwt:ttl/text();:)

if(true()) then
    let $test := console:log( request:get-method() )
    return
    if ($exist:path eq '') then
        <dispatch xmlns="http://exist.sourceforge.net/NS/exist">
            <redirect url="{request:get-uri()}/"/>
        </dispatch>
        
    else if ($exist:path eq "/") then
        (: get API info via forward to root.xql :)
        <dispatch xmlns="http://exist.sourceforge.net/NS/exist">
            <redirect url="modules/root.xql"/>
        </dispatch>

    else if(starts-with($exist:path, "/annotations/eXanore_") and request:get-method() = 'DELETE') then
    	(: forward root annotations-DELETE to delete.xql :)
    	<dispatch xmlns="http://exist.sourceforge.net/NS/exist">
    	    <forward url="modules/delete.xql"  method="DELETE">
    		    <add-parameter name="resource" value="{$exist:resource}"/>
    	        <set-header name="Access-Control-Allow-Origin" value="{request:get-header('origin')}" />
    	    </forward>
    	</dispatch>
    
    else if ($exist:path eq "/annotations" and request:get-method() = 'GET') then
    	(: get all annotations via index.xql :)
    	<dispatch xmlns="http://exist.sourceforge.net/NS/exist">
    	    <redirect url="modules/index.xql"/>
    	</dispatch>
    
    else if ($exist:path eq "/annotations" and request:get-method() = 'POST') then
    	(: create new annotation via create.xql :)
    	let $json := util:base64-decode(request:get-data())
    	return (:TODO set view chain and forward create + redirect with id returned form create :)
    	<dispatch xmlns="http://exist.sourceforge.net/NS/exist">
    	    <forward url="modules/create.xql" method="POST">
    	        <add-parameter name="data" value="{$json}"/>
    	        <!-- add-parameter name="userId" value="{$jwt//jwt:userId/string(.)}"/ -->
  	            <set-header name="Access-Control-Allow-Origin" value="{request:get-header('origin')}" />
    	    </forward>
    	</dispatch>
    
    else if (starts-with($exist:path, "/annotations/eXanore_") and request:get-method() = 'GET') then
    	(: read specific annotation via read.xql :)
    	<dispatch xmlns="http://exist.sourceforge.net/NS/exist">
    	    <forward url="{$exist:controller}/modules/read.xql">
    		    <add-parameter name="id" value="{$exist:resource}"/>
    	    </forward>
    	</dispatch>
    
    else if ($exist:path eq "/annotations/eXanore_" and request:get-method() = 'PUT') then
    	(: forward modified annotation to update.xql :)
        let $json := util:base64-decode(request:get-data())
        return
    	<dispatch xmlns="http://exist.sourceforge.net/NS/exist">
    	    <forward url="modules/update.xql">
    	        <add-parameter name="id" value="{$exist:resource}"/>
    	        <add-parameter name="data" value="{$json}"/>
    	        <set-header name="Access-Control-Allow-Origin" value="{request:get-header('origin')}" />
    	    </forward>
    	</dispatch>
    
    else if ($exist:path eq "/search" and request:get-method() = 'GET') then
    	(: forward root annotations-GET search to search.xql :)
    	(: TODO: handle id :)
    	<dispatch xmlns="http://exist.sourceforge.net/NS/exist">
    	    <forward url="modules/search.xql">
    	        <!-- add-parameter name="userId" value="{$jwt//jwt:userId}"/ -->
    	        <set-header name="Access-Control-Allow-Origin" value="{request:get-header('origin')}" />
    	    </forward>
    	</dispatch>
    else
        (: everything else is passed through :)
        <dispatch xmlns="http://exist.sourceforge.net/NS/exist">
            <cache-control cache="yes"/>
        </dispatch>
(:else:)
(:    if (request:get-method() = 'OPTIONS') then:)
(:        (response:set-status-code(200),:)
(:        response:set-header('Access-Control-Allow-Headers', request:get-header("Access-Control-Request-Headers")),:)
(:        response:set-header('Access-Control-Allow-Methods', request:get-header('Access-Control-Request-Method')),:)
(:        response:set-header('Access-Control-Allow-Origin', request:get-header('origin')):)
(:        ):)
else
    if ($exist:path eq "/search" and request:get-method() = 'GET') then
    	(: forward root annotations-GET search to search.xql :)
    	(: TODO: handle id :)
    	<dispatch xmlns="http://exist.sourceforge.net/NS/exist">
    	    <forward url="modules/search.xql">
    	        <!-- add-parameter name="userId" value="{$jwt//jwt:userId}"/ -->
    	    </forward>
    	</dispatch>
else
    (response:set-status-code(400),
    <error>only search request allowed or you have to provide a valid auth token</error>)