[mod] add card

This commit is contained in:
Andy Bunce 2024-04-03 23:24:13 +01:00
parent dcd18dd3d5
commit 2b131ee71a
9 changed files with 378 additions and 117 deletions

View file

@ -1,7 +1,5 @@
(:~
: Common RESTXQ access points.
:
: @author Christian Grün, BaseX Team 2005-23, BSD License
pdf
:)
module namespace pdf = 'pdf/common';
@ -21,21 +19,6 @@ declare
function pdf:spa($file)as element(){
pdf:home()
};
(:~ list slugs :)
declare
%rest:path('/pdf/api/sources')
%output:method("json")
%output:json("format=xquery")
function pdf:apt()
{
let $base:="C:/Users/mrwhe/git/expkg-zone58/pdfbox/data/"
let $d:="1e/"
let $f:=file:list($base || $d,true(),"*.pdf")[not(contains(.,"\outputs\"))]
return map{
"count": count($f),
"items": array{$f!map{"id":position(),"name":.}}
}
};
(:~
: Returns a file.
@ -58,30 +41,7 @@ function pdf:file(
),
file:read-binary($path)
)else
web:forward("/pdf/api/404")
()
};
(:~
: Shows a 'page not found' error.
: @param $path path to unknown page
: @return page
:)
declare
%rest:path('/pdf/api/404')
%output:method('html')
function pdf:unknown(
$path as xs:string
) as element(*) {
<tr>
<td>
<h2>Page not found:</h2>
<ul>
<li>Page: dba/{ $path }</li>
<li>Method: { request:method() }</li>
</ul>
</td>
</tr>
};