Commit 966882bb authored by Jerome Chauveau's avatar Jerome Chauveau
Browse files

rm moved functions

parent 1653b68a

src/main/core/routes.xqm

+0 −30
Original line number Diff line number Diff line
@@ -119,36 +119,6 @@ function routes:autoroute($lang as xs:string, $page as xs:string){ 
    }

};





(:~ Exports MaX XML sources as zip

 : @return Zip file

 :)

declare

%rest:GET

%output:media-type("application/octet-stream")

%rest:query-param("indent", "{$indent}", 'false')

%rest:path("/sources.zip")

function routes:sources-export($indent as xs:string) as item()+{

    try{

        let $zipName := 'sources.zip'

        let $tmpDir := file:create-temp-dir('max-export', $database:max-db)

        let $dest := $tmpDir ||'/'||$zipName

        return (

               db:export($database:max-db, $tmpDir, map { 'indent': if($indent='true') then true() else false()}),

               utils:make-zip($tmpDir, $dest),

                <rest:response>

                    <http:response status="200">

                        <http:header name="content-type" value="application/zip"/>

                        <http:header name="Content-Disposition" value="attachment; filename={$zipName}"/>

                    </http:response>

                </rest:response>,

                file:read-binary($dest)

                )

    }

    catch * {$err:description}

};





(:~

 : Returns a static file.

 : @param  $filepath  file or unknown path

src/main/core/utils.xqm

+0 −14
Original line number Diff line number Diff line
@@ -90,20 +90,6 @@ declare function utils:get-document-route($document as document-node(), $lang as 
    '/' || $lang || fn:replace(fn:replace(base-uri($document),$database:max-db || '/',''),'.xml','.html')

};



(:~

 : Returns zip file

 : @param $directory dir to zip

 : @param $dest destination dir

 : @return binary zipped file

 :)

declare function utils:make-zip($directory, $dest) as empty-sequence(){

    let $files := file:list($directory, true(), '*.xml')

    let $zip   := archive:create($files,

            for $file in $files

            return file:read-binary($directory || $file)

    )

    return file:write-binary($dest, $zip)

};



(:~

 : Test if a bundle exists