(:
: Copyright (c) 2004 raff@aromatic.org
:)
import module "http://www.w3.org/2003/05/xpath-functions" at "xqlog-lib.xqy"
import module "http://www.w3.org/2003/05/xpath-functions" at "xqlog-display.xqy"
xdmp:set-response-content-type("text/html"),
let $logout := xdmp:get-request-field("logout"),
$user := if ($logout) then "" else xdmp:get-request-field("user")
return
if ($user or $logout)
then
(
let $next := xdmp:get-request-field("next", "")
return
(
xdmp:set-session-field("xqlog-user", $user),
xdmp:redirect-response("default.xqy")
(:
if (empty($next)) then "default.xqy" else xdmp:url-decode($next)
:)
)
)
else
{get-title()}
{ print-intro() }
{ print-go-home() }