dba/files  library module

R

Summary

Authors

• Christian Grün, BaseX Team 2005-23, BSD License

Imports

This module is imported by 0 modules. It imports 1 modules.

Variables

variable $dba:CAT := 'files'

Functions

function dba:dir-change(
  $dir  as xs:string
) as element(rest:response) {
  try {
    let $sep := file:dir-separator()
    let $path := file:path-to-native(if(contains($dir, $sep)) then (
      $dir
    ) else (
      config:directory() || $dir || $sep)
    )
    return (
      (: ensure that the directory can be accessed :)
      prof:void(file:list($path)),
  
      config:directory($path),
      config:query('')
    ),
    web:redirect($dba:CAT)
  } catch file:io-error {
    web:redirect($dba:CAT, map { 'error': $err:description })
  }
}

Namespaces

The following namespaces are defined:

Source Code

(:~
 : Change directory.
 :
 : @author Christian Grün, BaseX Team 2005-23, BSD License
 :)
module namespace dba = 'dba/files';

import module namespace config = 'dba/config' at '../lib/config.xqm';

(:~ Top category :)
declare variable $dba:CAT := 'files';

(:~
 : Changes the directory.
 : @param  $dir  directory
 : @return redirection
 :)
declare
  %rest:path('/dba/dir-change')
  %rest:query-param('dir', '{$dir}')
function dba:dir-change(
  $dir  as xs:string
) as element(rest:response) {
  try {
    let $sep := file:dir-separator()
    let $path := file:path-to-native(if(contains($dir, $sep)) then (
      $dir
    ) else (
      config:directory() || $dir || $sep)
    )
    return (
      (: ensure that the directory can be accessed :)
      prof:void(file:list($path)),
  
      config:directory($path),
      config:query('')
    ),
    web:redirect($dba:CAT)
  } catch file:io-error {
    web:redirect($dba:CAT, map { 'error': $err:description })
  }
};