eXist: serialize XML to file

serialize-xml-to-file.xql

xquery version "3.1";

declare namespace output = "http://www.w3.org/2010/xslt-xquery-serialization";

let $result := transform:transform($xml, $xsl, $transformationParams)

let $serializazionParams :=
    <output:serialization-parameters>
        <output:method value="xml"/>
        <output:omit-xml-declaration value="no"/>
        <output:doctype-public value="-//OASIS//DTD DocBook XML V4.2//EN"/>
        <output:doctype-system value="http://www.oasis-open.org/docbook/xml/4.2/docbookx.dtd"/>
        <output:encoding value="ISO-8859-1"/>
        <output:indent value="yes"/>
    </output:serialization-parameters>
let $write := file:serialize($result, $fullPathToFile, $serializazionParams)

return response:redirect-to(xs:anyURI($fullPathToFileOnWeb))