xquery version "3.0";
(:
   For generating the capabilities request via triggers
:)

import module namespace biocase-lib = "http://exist-db.org/xquery/rebind/biocase-lib" at "biocase_lib.xql";
import module namespace biocase-settings = "http://exist-db.org/xquery/rebind/biocase-settings" at "biocase_settings.xql";

declare namespace biocase = "http://www.biocase.org/schemas/protocol/1.3"; 


let $capabilities-doc := doc($biocase-settings:capabilities-file)

let $now := current-dateTime()
let $duration :=  xs:dayTimeDuration($biocase-settings:capabilities-time-span)
let $dateTimeLimit := $now - $duration
let $force := request:get-parameter('force', '')
	
return if(exists($capabilities-doc) and xs:dateTime($capabilities-doc/biocase:root/@date) gt $dateTimeLimit and not($force eq "true"))
	then(<biocase:diagostics>No new capabilities report created.</biocase:diagostics>)	
	else(
		let $result := biocase-lib:build-capabilities-report()
		return <biocase:diagostics>New capabilities report created.</biocase:diagostics>)