Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

file 73 lines (62 sloc) 2.394 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73
xquery version "1.0-ml";

(:
: Copyright (c) 2011-2013 Michael Blakeley. All Rights Reserved.
:
: Licensed under the Apache License, Version 2.0 (the "License");
: you may not use this file except in compliance with the License.
: You may obtain a copy of the License at
:
: http://www.apache.org/licenses/LICENSE-2.0
:
: Unless required by applicable law or agreed to in writing, software
: distributed under the License is distributed on an "AS IS" BASIS,
: WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
: See the License for the specific language governing permissions and
: limitations under the License.
:
: The use of the Apache License does not indicate that this project is
: affiliated with the Apache Software Foundation.
:
:)

import module namespace trb="com.blakeley.task-rebalancer"
  at "lib-trb.xqy" ;

declare variable $ASSIGNMENT as xs:unsignedLong external ;
declare variable $URI as xs:string external ;

declare variable $DOC as node()? := doc($URI) ;
(: Someday it would be nice to support properties... :)
declare variable $PROP as node()? := xdmp:document-properties($URI) ;

(: In an attempt to catch low-level database errors,
: wrap the entire body.
:)
try {

  (: We need a bail-out mechanism to stop the respawns.
: This document acts as a kill signal.
: Do not throw an error, since that could flood the server logs.
:)
  if ($trb:FATAL) then xdmp:log(
    '[rebalance.xqy] FATAL is set: stopping', 'fine')
  else if ($ASSIGNMENT = xdmp:document-forest($URI)) then xdmp:log(
    text { '[rebalance.xqy]', $URI, 'is already in', $ASSIGNMENT },
    'fine')

  (: Update the existing document, by overwriting it.
: explicitly place the document in the correct forest.
:)
  else if (empty($DOC)) then error(
    (), 'TRB-EMPTY',
    text { 'No document for', $URI })

  else xdmp:document-insert(
    $URI,
    $DOC,
    xdmp:document-get-permissions($URI),
    xdmp:document-get-collections($URI),
    xdmp:document-get-quality($URI),
    $ASSIGNMENT) }

catch ($ex) {
  (: Set fatal if the exception looks like a database problem.
: This tries to avoid flooding the logs with duplicate error messages.
: However these are low-level errors so there are no guarantees.
:)
  if (not($ex/error:code = $trb:FATAL-CODES)) then ()
  else trb:fatal-set(true()),
  xdmp:rethrow() }


(: rebalance.xqy :)
Something went wrong with that request. Please try again.