Feature 94

modules/app/models/config-delete.xqy

@@ -0,0 +1,9 @@
+xquery version "1.0-ml";
+
+declare namespace my="http://marklogic.com/alerts";
+
+import module namespace alert="http://marklogic.com/xdmp/alert" at "/MarkLogic/alert.xqy";
+
+declare variable $my:alert-name as xs:string external;
+
+alert:config-delete($my:alert-name)

modules/app/models/config-get.xqy

@@ -0,0 +1,9 @@
+xquery version "1.0-ml";
+
+declare namespace my="http://marklogic.com/alerts";
+
+import module namespace alert="http://marklogic.com/xdmp/alert" at "/MarkLogic/alert.xqy";
+
+declare variable $my:alert-name as xs:string external;
+
+alert:config-get($my:alert-name)

modules/app/models/config-set-cpf-domain-names-insert.xqy

@@ -0,0 +1,11 @@
+xquery version "1.0-ml";
+
+declare namespace my="http://marklogic.com/alerts";
+
+import module namespace alert="http://marklogic.com/xdmp/alert" at "/MarkLogic/alert.xqy";
+
+declare variable $my:alert-name as xs:string external;
+
+alert:config-insert(
+  alert:config-set-cpf-domain-names(alert:config-get($my:alert-name),())
+)

modules/app/models/config-set-cpf-domain-names.xqy

@@ -0,0 +1,10 @@
+xquery version "1.0-ml";
+
+declare namespace my="http://marklogic.com/alerts";
+
+import module namespace la = "http://marklogic.com/alerts/alerting" at "/app/models/lib-alerting.xqy";
+import module namespace alert="http://marklogic.com/xdmp/alert" at "/MarkLogic/alert.xqy";
+
+declare variable $my:alert-name as xs:string external;
+
+alert:config-set-cpf-domain-names(alert:config-get($my:alert-name), ())

modules/app/models/configure-domain.xqy

@@ -0,0 +1,25 @@
+xquery version "1.0-ml";declare namespace m="http://marklogic.com/alerts";
+
+import module namespace p="http://marklogic.com/cpf/pipelines" at "/MarkLogic/cpf/pipelines.xqy";
+import module namespace dom = "http://marklogic.com/cpf/domains" at "/MarkLogic/cpf/domains.xqy";
+
+declare variable $m:pname as xs:string external;declare variable $m:pnames as xs:string* external;
+declare variable $m:mdb as xs:unsignedLong external;
+declare variable $m:type as xs:string external;
+declare variable $m:path as xs:string external;
+declare variable $m:otherpipeline as xs:string external;
+declare variable $m:depth as xs:string external;
+
+let $_ := xdmp:log("In eval")
+
+let $pids :=
+(xs:unsignedLong(p:pipelines()[p:pipeline-name = "Status Change Handling"]/p:pipeline-id),xs:unsignedLong(p:pipelines()[p:pipeline-name = $m:otherpipeline]/p:pipeline-id))
+let $_ := xdmp:log("second point")
+let $ds := dom:domain-scope($m:type,$m:path,$m:depth)
+let $_ := xdmp:log("third point")
+let $ec := dom:evaluation-context($m:mdb,"/")
+let $_ := xdmp:log("fourth point")
+let $dc := dom:create($m:pname,"Domain for "||$m:pname,
+  $ds,$ec,$pids,())
+let $_ := xdmp:log("fifth point")
+return $dc

modules/app/models/cpf-enable.xqy

@@ -0,0 +1,10 @@
+xquery version "1.0-ml";
+
+declare namespace my="http://marklogic.com/alerts";
+
+import module namespace la = "http://marklogic.com/alerts/alerting" at "/app/models/lib-alerting.xqy";
+
+declare variable $my:alert-name as xs:string external;
+declare variable $my:cpf-domain as xs:string external;
+
+la:cpf-enable($my:alert-name,$my:cpf-domain)

modules/app/models/create-action.xqy

@@ -0,0 +1,12 @@
+xquery version "1.0-ml";
+
+declare namespace my="http://marklogic.com/alerts";
+
+import module namespace la = "http://marklogic.com/alerts/alerting" at "/app/models/lib-alerting.xqy";
+
+declare variable $my:alert-name as xs:string external;
+declare variable $my:alert-module as xs:string external;
+declare variable $my:db as xs:unsignedLong external;
+declare variable $my:options as element()* external;
+
+la:create-action($my:alert-name,$my:alert-module,$my:db, $my:options)

modules/app/models/create-config.xqy

@@ -0,0 +1,9 @@
+xquery version "1.0-ml";
+
+declare namespace my="http://marklogic.com/alerts";
+
+import module namespace la = "http://marklogic.com/alerts/alerting" at "/app/models/lib-alerting.xqy";
+
+declare variable $my:shortname as xs:string external;
+
+la:create-config($my:shortname)

modules/app/models/create-rule-notify.xqy

@@ -0,0 +1,14 @@
+xquery version "1.0-ml";
+
+declare namespace my="http://marklogic.com/alerts";
+
+import module namespace la = "http://marklogic.com/alerts/alerting" at "/app/models/lib-alerting.xqy";
+
+declare variable $my:alert-name as xs:string external;
+declare variable $my:alert-detail as xs:string external;
+declare variable $my:content-type as xs:string external;
+declare variable $my:notificationurl as xs:string external;
+declare variable $my:searchname as xs:string external;
+declare variable $my:searchdoc as cts:query external;
+
+la:create-rule-notify($my:alert-name,$my:alert-detail,$my:content-type,$my:notificationurl,$my:searchname,$my:searchdoc)

modules/app/models/create-rule.xqy

@@ -0,0 +1,9 @@
+xquery version "1.0-ml";
+
+declare namespace my="http://marklogic.com/alerts";
+
+import module namespace la = "http://marklogic.com/alerts/alerting" at "/app/models/lib-alerting.xqy";
+
+declare variable $my:vars as map:map external;
+
+la:create-rule(map:get($my:vars,"alert-name"),map:get($my:vars,"query"),map:get($my:vars,"options"))

modules/app/models/get-domain.xqy

@@ -0,0 +1,9 @@
+xquery version "1.0-ml";
+
+declare namespace m="http://marklogic.com/alerts";
+
+import module namespace dom = "http://marklogic.com/cpf/domains" at "/MarkLogic/cpf/domains.xqy";
+
+declare variable $m:processmodeluri as xs:string external;
+
+dom:get($m:processmodeluri)