module namespace a = 'http://www.whatever.whocares/blah/blah';


declare %rest:path("/test/create-update-a-lot-of-files")
   %rest:GET
   %output:method('html')
   %output:html-version('5.0')
updating function a:populate-db(){
   let $db := 'mydb'
   return (
      for $i in (1 to 50000)
      let $doc := 
         <topic id="i{$i}"><title>Lorem ipsum #{$i}</title>
            <p>Donec ut turpis volutpat neque gravida interdum. Donec dapibus sit amet libero nec placerat. Nulla ultricies nec metus quis cursus. Curabitur ut tincidunt nisl. Nulla ut interdum diam. Fusce diam tellus, varius in turpis eget, interdum finibus turpis. Morbi scelerisque ligula ut justo bibendum pharetra. Donec aliquam, neque in semper dapibus, odio tellus blandit eros, imperdiet tempor eros velit et nulla. Phasellus volutpat, lorem vitae luctus tempus, ante lectus rhoncus quam, consectetur tristique dolor dui id nisi. Nunc pharetra arcu sit amet orci feugiat commodo.</p>
            <p>Duis quis libero vestibulum, blandit orci in, luctus eros. Aenean ut elit turpis. Phasellus gravida turpis sed nulla iaculis egestas. Mauris risus magna, faucibus a pharetra vitae, elementum et metus. Nam luctus sagittis suscipit. Orci varius natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Aenean metus justo, molestie at tortor nec, aliquam consectetur nunc. Aenean placerat nunc urna, ut tempus turpis faucibus at. Etiam pulvinar blandit massa, vitae volutpat mi iaculis vitae.</p>
            <p>Lorem ipsum dolor sit amet, consectetur adipiscing elit. Aliquam sagittis ullamcorper sapien, non accumsan nulla laoreet nec. In fermentum ante id odio maximus ultricies vitae eu nisl. Donec in nibh ultrices risus accumsan rutrum non eget arcu. Donec odio sem, luctus mollis dui sit amet, eleifend sagittis ligula. Phasellus ornare at magna eget porta. Donec suscipit, enim sit amet fermentum lobortis, tortor erat consectetur purus, et venenatis neque arcu eu lectus. Suspendisse potenti. Nulla vitae sodales nisl. Pellentesque vestibulum ullamcorper velit at volutpat. Vestibulum at euismod metus. Ut rhoncus euismod luctus. Donec lacinia pellentesque felis et facilisis.</p>
            <p>Aliquam vehicula mauris ut libero maximus, eget egestas mauris imperdiet. Maecenas elementum, lacus sed vehicula efficitur, tellus sem commodo nisi, vitae fermentum nunc purus at erat. Phasellus eu cursus nulla. Phasellus lobortis, dolor vitae malesuada finibus, nulla felis aliquam dui, id lacinia orci nisi id metus. Morbi molestie viverra pharetra. Quisque condimentum urna sem, eu luctus magna mattis vel. Aliquam at pellentesque orci, eu pellentesque augue. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Suspendisse eget consectetur risus. Nullam vulputate, velit vehicula efficitur convallis, lectus nibh fermentum nunc, eget tempor nisl metus a lectus. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Nunc eget egestas odio, in hendrerit massa. Vestibulum vestibulum vel mauris vel efficitur.</p>
            <p>Vestibulum diam felis, iaculis at imperdiet sit amet, finibus non nibh. Phasellus magna magna, viverra sit amet lorem pellentesque, fringilla viverra lorem. Vestibulum ornare faucibus nisi, ac tempor lacus aliquam non. Etiam iaculis porta libero consectetur hendrerit. Maecenas fringilla ultrices leo vel lobortis. Sed aliquet lorem nisl, non consequat libero condimentum non. Aenean feugiat nulla at magna vehicula finibus. Vivamus massa risus, luctus feugiat interdum et, facilisis vitae leo.</p>
            <p>Praesent molestie non massa sed pretium. Integer blandit lectus aliquet est aliquam, at molestie odio pretium. Nulla non libero hendrerit, feugiat tellus ac, fermentum velit. Praesent dictum eros ante, at feugiat elit mollis sit amet. Sed massa elit, finibus sed consequat ut, sagittis eget felis. Vestibulum ornare magna vel odio condimentum fringilla at at neque. Donec posuere ex non hendrerit accumsan. Nulla sed tempor odio.</p>
         </topic>
      return db:replace($db, concat('i', $i, '.xml'), $doc),
         db:optimize($db),
         db:output(<html><body><p>Refresh all files complete</p></body></html>)
   )
};


declare %rest:path("/test/update-something")
   %rest:GET
   %output:method('html')
   %output:html-version('5.0')
updating function a:update-something(){
   let $db := 'mydb'
   return (
      for $elem in db:open($db)//*
      return 
        if (exists($elem/@id))
        then ()
        else
           let $id := random:uuid()
           return insert node attribute id {$id} into $elem, 
      db:optimize($db),
      db:output(<html><body><p>Update ids complete</p></body></html>)
   )
};

declare %rest:path("/test/oups-duplicates")
   %rest:GET
   %output:method('html')
   %output:html-version('5.0')
function a:oups-duplicates(){
   <html>
      <body>{
         let $db := 'mydb'
         let $duplicates := <ul>{
            for $file in db:list($db)
            let $doc := db:open($db, $file)
            return 
               if (count($doc) > 1)
               then <li>There are {count($doc)} instances of {$doc/base-uri()}.</li>
               else ()
         }</ul>
          return 
            if (exists($duplicates//li))
            then $duplicates
            else <p>All is good. No duplicate found.</p>
      }</body>
   </html>
};