Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 26 lines (22 sloc) 714 Bytes
(:
: Copyright 2010 Mark Logic Corporation. All Rights Reserved.
:)
xquery version "1.0-ml";
import module namespace admin = "http://marklogic.com/xdmp/admin" at "/MarkLogic/admin.xqy";
declare namespace ai="api-install";
declare variable $ai:name as xs:string external;
try {
let $config := admin:get-configuration()
let $groupid := admin:group-get-id($config, "Default")
let $config := admin:appserver-delete($config, admin:appserver-get-id($config, $groupid, $ai:name) )
return
(
admin:save-configuration($config),
xdmp:sleep(15000)
)
} catch ($e) {
<div class="error-delete-http-server">
<h3>Error</h3>
<div class="error-stack-trace"> { $e } </div>
</div>
}