Add schedule that checks demos

[grtjn]

Make a call to the url, and if response is >= 500 or exception --> mark as Not Working if marked as Working. It could run a few times a day. It could also do the reverse to alleviate editing once the issue was fixed..

[grtjn]

Sample code:

for $uri in cts:uri-match("/demos/*")[1 to 150]
let $doc := doc($uri)
(:
where starts-with($doc/host, "http")
where empty($doc/urlType)
:)
where $doc/urlType = 'internal' and not(empty($doc/url[. != ''])) and not(contains($doc/url, 'localhost'))
return

let $response-code := try { xdmp:http-get($doc/url)[1]/*:code/string(.) } catch ($e) { $e//*:code/string(.) }
where $response-code >= "500"
return (
  string-join($doc/(name, host, url), " // "),
  if (starts-with($doc/host, "http")) then
    "Bad host"
  else (),
  if (empty($doc/urlType)) then
    "Missing urlType"
  else (),
  if (($doc/urlType = 'external') and contains($doc/host, '.marklogic.com')) then
    "Suspicious external"
  else (),
  if (($doc/urlType = 'internal') and not(contains($doc/url, '.marklogic.com') or contains($doc/host, '.marklogic.com') or contains($doc/url, 'markmail.org'))) then
    "Suspicious internal"
  else (),
  $response-code,
  if ($doc/demoStatus/status = 'Working') then (
    xdmp:node-replace($doc/demoStatus/status, text{ 'Not Working' }),
    xdmp:node-replace($doc/demoStatus/lastStatusTimestamp, text{ current-dateTime() }),
    "Marked as Not Working"
  ) else (),
  ""
)