ExecuteAction method. To execute call /Action/:Cube/:Action POST

Author: eduard93

MDX2JSON/MDX2JSON.inc.xml

@@ -3,6 +3,8 @@
 <Routine name="MDX2JSON.MDX2JSON" type="INC"><![CDATA[
 #include %occErrors
 #include %ZEN.Utils
+#include %DeepSee
+
 #define get(%name) $get(%request.Data(%name,1))
 #define WebContext $d(%request)'=0
 #define Debug (($$$WebContext) && ($d(%request.Data("Debug"))))

MDX2JSON/REST.cls.xml

@@ -60,6 +60,7 @@ Example: send HTTP GET request to web application with Dispatch class <b>MDX2JSO
    <Route Url="/Dashboards" Method="POST" Call="GetDashboardList" Body="Folder"/> 
    <Route Url="/Dashboard" Method="POST" Call="GetDashboard" Body="Dashboard"/>
    <Route Url="/Widgets" Method="POST" Call="GetWidgetsList" Body="Dashboard"/>
+   <Route Url="/Action/:Cube/:Action" Method="POST" Call="ExecuteAction"/> 
    
    <!-- Get info about system format and locale-->
    <Route Url="/Format" Method="GET" Call="GetFormat"/> 
@@ -339,5 +340,16 @@ Wrapper for ##class(MDX2JSON.Users).SetConfig()</Description>
 	return ##class(%DeepSee.UserLibrary.Utils).%RemoveFavorite(Name)
 ]]></Implementation>
 </Method>
+
+<Method name="ExecuteAction">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Cube:%String,Action:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set Cube = $ZCONVERT($ZCONVERT(Cube ,"I","URL") ,"I","UTF8")
+	set Action = $ZCONVERT($ZCONVERT(Action ,"I","URL") ,"I","UTF8")
+	return ##class(MDX2JSON.Utils).ExecuteAction(Cube,Action,%request.Content)
+]]></Implementation>
+</Method>
 </Class>
 </Export>

MDX2JSON/Utils.cls.xml

@@ -283,5 +283,20 @@ Get format defaults.</Description>
     return st
 ]]></Implementation>
 </Method>
+
+<Method name="ExecuteAction">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Cube:%String,Action:%String,Context:%ZEN.proxyObject=##class(%ZEN.proxyObject).%New()</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set st = $$$OK
+	set Cube = $$$UPPER(Cube)
+	set ActionClass = $G($$$DeepSeeMetaGLVN("cubes",Cube,"actionClass"))
+	if (ActionClass'="") {
+		set st = $classmethod(ActionClass,"%OnDashboardAction",Action,Context)
+	}
+	return st
+]]></Implementation>
+</Method>
 </Class>
 </Export>