iris-pex-embedded-python 2.3.28b3__py3-none-any.whl → 3.0.0__py3-none-any.whl

grongier/cls/Grongier/PEX/Utils.cls

@@ -4,371 +4,7 @@
 
 Include Ensemble
 
-Class Grongier.PEX.Utils Extends %RegisteredObject
+Class Grongier.PEX.Utils Extends IOP.Utils
 {
 
-ClassMethod dispatchRegisterComponent(
-	pModule As %String,
-	pRemoteClassname As %String,
-	pCLASSPATHS As %String = "",
-	pOverwrite As %Boolean = 0,
-	pProxyClassname As %String = "") As %Status
-{
-	set tSc = $$$OK
-	$$$ThrowOnError(##class(Grongier.PEX.Utils).RegisterComponent(pModule, pRemoteClassname, pCLASSPATHS, pOverwrite , pProxyClassname))
-	return tSc
-}
-
-/// "bo","Duplex","/irisdev/app/src/python/demo/duplex/",1,"Duplex.Duplex"
-ClassMethod RegisterComponent(
-	pModule As %String,
-	pRemoteClassname As %String,
-	pCLASSPATHS As %String = "",
-	pOverwrite As %Boolean = 0,
-	pProxyClassname As %String = "") As %Status
-{
-	#dim tSC As %Status = $$$OK
-	#dim ex As %Exception.AbstractException
-	#dim tLanguage,tExtraClasspaths,tDelimiter,tOnePath As %String = ""
-	#dim tClassDetails,tRemoteSettings As %String = ""
-	#dim tClasspaths As %ListOfDataTypes
-	
-	Quit:(""=pRemoteClassname) $$$ERROR($$$EnsErrGeneral,"Remote Classname must be specified in order to register a Production EXtensions component")
-	Quit:(""=pModule) $$$ERROR($$$EnsErrGeneral,"Must specify the module of the remote code.")
-		
-	Try {
-
-		$$$ThrowOnError(..GetRemoteClassInfo(pRemoteClassname,pModule,pCLASSPATHS,.tClassDetails,.tRemoteSettings))
-
-		Set tConnectionSettings("Classpaths") = pCLASSPATHS
-		Set tConnectionSettings("Module") = pModule
-		Set tConnectionSettings("Classname") = pRemoteClassname
-		Set:(""=pProxyClassname) pProxyClassname = "User."_pRemoteClassname
-		
-		$$$ThrowOnError(..GenerateProxyClass(pProxyClassname,.tConnectionSettings,tClassDetails,tRemoteSettings,pOverwrite))
-
-	} Catch ex {
-		set msg = $System.Status.GetOneStatusText(ex.AsStatus(),1)
-		set tSC = $$$ERROR($$$EnsErrGeneral,msg)
-	}
-
-	Quit tSC
-}
-
-ClassMethod DeleteComponentProxy(pClassname As %String = "") As %Status
-{
-	#dim tSC As %Status = $$$OK
-	#dim ex As %Exception.AbstractException
-	#dim tIsPEX As %Boolean = 0
-	#dim tClass As %Dictionary.CompiledClass
-	
-	Quit:(""=pClassname) $$$ERROR($$$EnsErrGeneral,"Remote class name must be specified.")
-	
-	Try {
-		
-		If '##class(%Dictionary.ClassDefinition).%ExistsId(pClassname) {
-			Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("No proxy class defined for remote class '%1'.",pClassname))
-			Quit
-		}
-		If $classmethod(pClassname,"%Extends","Grongier.PEX.Common") {
-			Set tClass = ##class(%Dictionary.CompiledClass).%OpenId(pClassname,,.tSC)
-			Quit:$$$ISERR(tSC)
-			If '$IsObject(tClass) {
-				Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Proxy class for remote class '%1' could not be opened.",pClassname))
-				Quit
-			}
-			Set tIsPEX = ("Grongier.PEX.Utils" = tClass.GeneratedBy)
-		}
-		If tIsPEX {
-			Set tSC = ##class(%Dictionary.ClassDefinition).%DeleteId(pClassname)
-			If $$$ISERR(tSC) {
-				Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Unable to delete proxy class for remote class '%1' : '%2'.",pClassname,$System.Status.GetErrorText(tSC)))
-				Quit
-			}
-		} Else {
-			Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Cannot delete class '%1' because it is not a PEX proxy class.",pClassname))
-			Quit
-		}
-		
-	} Catch ex {
-		Set tSC = ex.AsStatus()
-	}
-	
-	Quit tSC
-}
-
-// ..GetRemoteClassInfo(pRemoteClassname,pModule,pCLASSPATHS,.tClassDetails,.tRemoteSettings)
-
-ClassMethod GetRemoteClassInfo(
-	pRemoteClassname As %String,
-	pModule As %String,
-	pClasspaths As %String,
-	ByRef pClassDetails,
-	ByRef pRemoteSettings) As %Status [ Internal, Private ]
-{
-	#dim tSC As %Status = $$$OK
-	#dim ex As %Exception.AbstractException
-	#dim tGateway As %External.Gateway
-	#dim tGatewayProxy As %Net.Remote.Object
-	
-	Try {
-		if pClasspaths '="" {
-			set sys = ##class(%SYS.Python).Import("sys")
-			set delimiter = $s($system.Version.GetOS()="Windows":";",1:":")
-			set extraClasspaths = $tr(pClasspaths,delimiter,"|")
-			for i=1:1:$l(extraClasspaths,"|") {
-				set onePath = $p(extraClasspaths,"|",i)
-				set onePath = ##class(%File).NormalizeDirectory(onePath)
-				if onePath?1"$$IRISHOME"1P.E set onePath = $e($system.Util.InstallDirectory(),1,*-1)_$e(onePath,11,*)
-				if onePath'="" do sys.path.append(onePath)
-			}
-		}
-		;
-
-		set importlib = ##class(%SYS.Python).Import("importlib")
-		set builtins = ##class(%SYS.Python).Import("builtins")
-		set module = importlib."import_module"(pModule)
-		set class = builtins.getattr(module, pRemoteClassname)
-		set tClass = class."__new__"(class)
-
-
-		If $IsObject(tClass) {
-			#; List of information about the class as a whole - $lb(SuperClass, Description, InfoURL, IconURL, Adapter)
-			Set pClassDetails = tClass."_get_info"()
-			#; List of information about the various properties of the class
-			#; List of lists of form $lb(propName,dataType,defaultVal,required,category,description)
-			Set pRemoteSettings = tClass."_get_properties"()
-		} Else {
-			Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Error opening gateway proxy for class '%1'"),pRemoteClassname)
-		}
-	} Catch ex {
-		set msg = $System.Status.GetOneStatusText(ex.AsStatus(),1)
-		set tSC = $$$ERROR($$$EnsErrGeneral,msg)
-	}
-	
-	Quit tSC
-}
-
-/// Set tConnectionSettings("Classpaths") = pCLASSPATHS
-/// Set tConnectionSettings("Module") = pModule
-/// Set tConnectionSettings("Classname") = pRemoteClassname
-/// Set:(""=pProxyClassname) pProxyClassname = pRemoteClassname
-/// 
-/// Set tSC = ..GenerateProxyClass(pProxyClassname,.tConnectionSettings,tClassDetails,tRemoteSettings,pOverwrite)
-/// "bo","Duplex","/irisdev/app/src/python/demo/duplex/",1,"Duplex.Duplex"
-ClassMethod GenerateProxyClass(
-	pClassname As %String,
-	ByRef pConnectionSettings,
-	pClassDetails As %String = "",
-	pRemoteSettings As %String = "",
-	pOverwrite As %Boolean = 0) As %Status [ Internal, Private ]
-{
-	#dim tSC As %Status = $$$OK
-	#dim ex As %Exception.AbstractException
-	
-	Quit:(""=pClassname) $$$ERROR($$$EnsErrGeneral,"Class name must be specified in order to generate a proxy class for this Production EXtensions component")
-	
-	Try {
-
-		If ##class(%Dictionary.ClassDefinition).%ExistsId(pClassname) {
-			If 'pOverwrite {
-				Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Proxy class '%1' already exists.",pClassname))
-				Quit
-			} Else {
-				#dim tIsPEX As %Boolean = 0
-				If $classmethod(pClassname,"%Extends","Grongier.PEX.Common") {
-					#dim tClass As %Dictionary.CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(pClassname)
-					If '$IsObject(tClass) {
-						Set tSC = $$$ERROR($$$EnsErrGeneral,"Class not found")
-						Quit
-					}
-					Set tIsPEX = ("Grongier.PEX.Utils" = tClass.GeneratedBy)
-				}
-				If tIsPEX {
-					Set tSC = ##class(%Dictionary.ClassDefinition).%DeleteId(pClassname)
-					If $$$ISERR(tSC) {
-						Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Unable to delete existing proxy class '%1' : '%2'.",pClassname,$System.Status.GetErrorText(tSC)))
-						Quit
-					}
-				} Else {
-					Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Cannot overwrite class '%1' because it is not a PEX proxy class.",pClassname))
-					Quit
-				}
-			}
-		}
-		
-		#; create subclass of the ObjectScript Business Host
-		#dim tCOSClass As %Dictionary.ClassDefinition
-		Set tCOSClass = ##class(%Dictionary.ClassDefinition).%New()
-		Set tCOSClass.Name = pClassname
-
-		#dim tSuperClass As %String = pClassDetails."__getitem__"(0)
-		If (""=tSuperClass) {
-			Set tSC = $$$ERROR($$$EnsErrGeneral,"No PEX superclass found.")
-			Quit
-		}
-		If '$Case($P(tSuperClass,".",*),"DuplexProcess":1,"DuplexService":1,"DuplexOperation":1,"InboundAdapter":1,"OutboundAdapter":1,"BusinessService":1,"BusinessProcess":1,"BusinessOperation":1,:0) {
-			Set tSC = $$$ERROR($$$EnsErrGeneral,"Invalid superclass")
-			Quit
-		}
-		Set tSuperClass = "Grongier.PEX."_$P(tSuperClass,".",*)
-		
-		Set tCOSClass.Super = tSuperClass
-		Set tCOSClass.GeneratedBy = $CLASSNAME()
-		Set tCOSClass.ClassVersion = $$$CLASSDEFINITIONVERSION
-		#dim tDescription As %String = pClassDetails."__getitem__"(1)
-		If (""'=tDescription) {
-			Set tCOSClass.Description = $Replace(tDescription,$C(10),$C(13,10))
-		}
-		
-		#; Do not display any of the connection settings
-		#dim tSETTINGSParamValue As %String = "%classname:Python $type,%module:Python $type,%settings:Python $type,%classpaths:Python $type"
-		
-		#dim tPropClassname As %Dictionary.PropertyDefinition = ##class(%Dictionary.PropertyDefinition).%New()
-		Set tPropClassname.Name = "%classname"
-		Set tPropClassname.Type = "%String"
-		Set tPropClassname.InitialExpression = $$$quote(pConnectionSettings("Classname"))
-		Set tPropClassname.Internal = 1
-		Set tSC = tCOSClass.Properties.Insert(tPropClassname)
-		Quit:$$$ISERR(tSC)
-		
-		
-		#dim tPropClasspaths As %Dictionary.PropertyDefinition = ##class(%Dictionary.PropertyDefinition).%New()
-		Set tPropClasspaths.Name = "%classpaths"
-		Set tPropClasspaths.Type = "%String"
-		Set tSC = tPropClasspaths.Parameters.SetAt("","MAXLEN")
-		Quit:$$$ISERR(tSC)
-		Set tPropClasspaths.InitialExpression = $$$quote(pConnectionSettings("Classpaths"))
-		Set tPropClasspaths.Description = "One or more Classpaths (separated by '|' character) needed in addition to the ones configured in the Remote Gateway"
-		Set tSC = tCOSClass.Properties.Insert(tPropClasspaths)
-		Quit:$$$ISERR(tSC)
-		
-		
-		#dim tPropLanguage As %Dictionary.PropertyDefinition = ##class(%Dictionary.PropertyDefinition).%New()
-		Set tPropLanguage.Name = "%module"
-		Set tPropLanguage.Type = "%String"
-		Set tPropLanguage.Internal = 1
-		Set tPropLanguage.InitialExpression = $$$quote(pConnectionSettings("Module"))
-		Set tSC = tCOSClass.Properties.Insert(tPropLanguage)
-		Quit:$$$ISERR(tSC)
-		
-		If $Case(tSuperClass,"Grongier.PEX.BusinessService":1,"Grongier.PEX.BusinessOperation":1,"Grongier.PEX.DuplexService":1,"Grongier.PEX.DuplexOperation":1,:0) {
-			set builtins = ##class(%SYS.Python).Import("builtins")
-			If (builtins.len(pClassDetails)>4) { //Adaptor
-
-				#dim tAdapterClass = pClassDetails."__getitem__"(4)
-				#; May want to issue a warning in the UI if the Adapter class does not exist
-				#; but we don't check here because it does compile and may just be that the user is registering the Service/Operation before the Adapter
-				#dim tADAPTERParam As %Dictionary.ParameterDefinition = ##class(%Dictionary.ParameterDefinition).%New()
-				Set tADAPTERParam.Name = "ADAPTER"
-				Set tADAPTERParam.Default = tAdapterClass
-				Set tSC = tCOSClass.Parameters.Insert(tADAPTERParam)
-				Quit:$$$ISERR(tSC)
-			}
-		}
-
-		set type = ""
-		set:($Case(tSuperClass,"Grongier.PEX.InboundAdapter":1,"Grongier.PEX.OutboundAdapter":1,:0)) type = "Adapter"
-		set tSETTINGSParamValue = $REPLACE(tSETTINGSParamValue,"$type",type)
-		
-		#dim tSETTINGSParam As %Dictionary.ParameterDefinition = ##class(%Dictionary.ParameterDefinition).%New()
-		Set tSETTINGSParam.Name = "SETTINGS"
-		Set tSETTINGSParam.Default = tSETTINGSParamValue
-		Set tSC = tCOSClass.Parameters.Insert(tSETTINGSParam)
-		Quit:$$$ISERR(tSC)
-		
-		Set tSC = tCOSClass.%Save()
-		Quit:$$$ISERR(tSC)
-		
-		Set tSC = $System.OBJ.Compile(pClassname,"-d")
-		
-	} Catch ex {
-		Set tSC = ex.AsStatus()
-	}
-	
-	Quit tSC
-}
-
-ClassMethod CreateProduction(
-	package As %String = "test",
-	name As %String = "AutoCreatedProduction",
-	xdata As %CharacterStream) As %Status
-{
-  #Dim produtionClassName As %String = package _ "." _ name
-  If ('$ZName(produtionClassName, 4))
-  {
-  Return $System.Status.Error(5001, "Invalid Production package or name.")
-  }
-  #Dim productionDefinition As %Dictionary.ClassDefinition
-  // Check if the production already exists
-  If (##class(%Dictionary.ClassDefinition).%ExistsId(produtionClassName))
-  {
-	// Open the production
-	set productionDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(produtionClassName)
-  }
-  Else
-  {
-	// Create the production definition
-    set productionDefinition = ##Class(%Dictionary.ClassDefinition).%New()
-  }
-  //
-  Set productionDefinition.Name         = produtionClassName
-  Set productionDefinition.Super        = "Ens.Production"
-  Set productionDefinition.ClassVersion = 25
-  //
-  // Check if the XData Definition already exists
-  If (##Class(%Dictionary.XDataDefinition).%ExistsId(produtionClassName_"||ProductionDefinition"))
-  {
-	// delete the XData Definition
-	$$$ThrowOnError(##Class(%Dictionary.XDataDefinition).%DeleteId(produtionClassName_"||ProductionDefinition"))
-  }
-  #Dim xdataDefinition As %Dictionary.XDataDefinition = ##Class(%Dictionary.XDataDefinition).%New()
-  //
-  Set xdataDefinition.Name = "ProductionDefinition"
-  //
-  Do xdataDefinition.Data.CopyFrom(xdata)
-  //
-  // Insert XData Definition into Production Definition
-  Do productionDefinition.XDatas.Insert(xdataDefinition)
-  //
-  #Dim statusCode As %Status = productionDefinition.%Save()
-  //
-  If ($System.Status.IsError(statusCode))
-  {
-  Return statusCode
-  }
-  // Compile the production class
-  return $System.OBJ.Compile(produtionClassName,"k-d")
-}
-
-/// Export a production to an XML string
-ClassMethod ExportProduction(pProductionName As %String) As %String
-{
-	Set sc = $$$OK
-	set xdata = ""
-	// Check if the XData Definition exists
-	If (##Class(%Dictionary.XDataDefinition).%ExistsId(pProductionName_"||ProductionDefinition"))
-	{
-		// Open the XData Definition
-		Set xdataDefinition = ##Class(%Dictionary.XDataDefinition).%OpenId(pProductionName_"||ProductionDefinition")
-		Set xdata = xdataDefinition.Data
-	}
-	Else
-	{
-		$$$ThrowOnError($System.Status.Error(5001, "Production does not exist."))
-	}
-	Return xdata
-}
-
-ClassMethod dispatchTestComponent(
-	pTargetName As %String,
-	pInput As Ens.Request) As Ens.Response
-{
-    #dim tService as EnsLib.Testing.Service
-	set tOutput = ""
-    $$$ThrowOnError(##class(Ens.Director).CreateBusinessService("EnsLib.Testing.Service", .tService))
-    $$$ThrowOnError(tService.SendTestRequest(pTargetName, pInput, .tOutput, .sessionID , 1))
-	Quit tOutput
-}
-
 }

grongier/cls/Grongier/Service/WSGI.cls

@@ -1,310 +1,4 @@
-Class Grongier.Service.WSGI Extends %CSP.REST [ ServerOnly = 1 ]
+Class Grongier.Service.WSGI Extends IOP.Service.WSGI [ ServerOnly = 1 ]
 {
 
-Parameter CLASSPATHS;
-
-Parameter MODULENAME;
-
-Parameter APPNAME;
-
-Parameter DEVMODE = 1;
-
-/// This method matches the request and method and calls the dispatcher
-ClassMethod Page(skipheader As %Boolean = 0) As %Status [ ProcedureBlock = 1 ]
-{
-    #dim tSC As %Status = $$$OK
-    #dim e As %Exception.AbstractException
-    
-    #dim tAuthorized,tRedirected As %Boolean
-    #dim tRedirectRoutine,tURL As %String = ""
-    #dim %response As %CSP.Response
-        
-    Try {
-
-        #; Ensure that we honor the requested charset 
-        Set %response.CharSet=..#CHARSET
-
-        #; Ensure that we honor the requested CONTENTTYPE
-        If ..#CONTENTTYPE'="" Set %response.ContentType=..#CONTENTTYPE 
-
-        #; Ensure that we honor the requested HTTP_ACCEPT_LANGUAGE 
-        Set %response.Domain = ..#DOMAIN
-        Do %response.MatchLanguage() 
-        
-
-
-        #; Record if device re-direction is already active
-        Set tRedirected=##class(%Library.Device).ReDirectIO()
-        
-        #; Record the redirect routine
-        Set tRedirectRoutine=$System.Device.GetMnemonicRoutine()
-
-        #; Now switch to using THIS routine for device redirection
-        Use $io::("^%SYS.cspServer2")
-
-        #; Switch device redirection on (may already be on but thats ok)
-        Do ##class(%Library.Device).ReDirectIO(1)
-
-        #; Ensure that the application is defined (security check)
-        If $$$GetSecurityApplicationsDispatchClass(%request.AppData)="" {
-             
-             #; Report not authorized
-             Set tSC=..Http403()
-             
-             #; Done
-             Quit
-        }
-        
-        #; GgiEnvs are not defined in the CSP shell
-        Set tURL=$Get(%request.CgiEnvs("CSPLIB"))
-        If tURL="" Set tURL=%request.URL
-          
-        #; Do an access check
-        Set tSC=..AccessCheck(.tAuthorized)
-        If $$$ISERR(tSC) Quit
-
-        If tAuthorized=0 {
-            
-            #; Don't want the session token
-            Set %response.OutputSessionToken=0
-            
-            #; Set the Http Status
-            Set %response.Status=..#HTTP403FORBIDDEN
-            
-            #; Done
-            Quit
-        }
-        
-        #; Extract the match url from the application name
-        Set tMatchUrl = "/"_$Extract(tURL,$Length(%request.Application)+1,*)
-
-        #; Dispatch the request
-        Set tSC=..DispatchRequest(tMatchUrl,%request.Method)
-        
-    } Catch (e) {
-        Set tSC=e.AsStatus()
-    }
-    
-    If $$$ISERR(tSC) {
-        
-        #; Don't want the session token
-        Set %response.OutputSessionToken=0
-        
-        Do ..Http500(##class(%Exception.StatusException).CreateFromStatus(tSC))
-    }
-
-    #; Ensure that at least something is written out as the body
-    #; This will trigger the device redirect capture and force headers to be written
-    #; (if not already done)
-    Write ""
-    
-    #; Reset redirect device if necessary
-    If tRedirected {
-        
-        #; Use the original redirected routine
-        Use $io::("^"_tRedirectRoutine)
-        
-        #; Switch device redirection on
-        Do ##class(%Library.Device).ReDirectIO(1)
-    }
-
-    if ..#DEVMODE {
-        #; Close the device to ensure next request starts with a new process
-        Close 0
-    }
-
-    Quit $$$OK
-}
-
-ClassMethod OnPreDispatch(
-	pUrl As %String,
-	pMethod As %String,
-	ByRef pContinue As %Boolean) As %Status
-{
-         Set path = ..#CLASSPATHS
-         Set appName = ..#APPNAME
-         Set module = ..#MODULENAME
-         Set devmode = ..#DEVMODE
-         Set pContinue = 1
-         Do ..DispatchREST(pUrl, path, appName, module, devmode)
-         Quit $$$OK
-}
-
-ClassMethod DispatchREST(
-	PathInfo As %String,
-	appPath As %String,
-	appName As %String,
-	module As %String,
-	devmode As %Boolean = 1) As %Status
-{
-           Set builtins = ##CLASS(%SYS.Python).Builtins()
-           Set interface = ##CLASS(%SYS.Python).Import("grongier.pex.wsgi.handlers")
-           Set rawformdata = ""
-           Set environ = builtins.dict()
-           Set key = %request.NextCgiEnv("")
-
-           // Let's check if the WSGI application has been loaded or not for this session.
-           
-           If (($DATA(%session.Data("application")) && $ISOBJECT(%session.Data("application"))) && 'devmode) {
-            Set application = %session.Data("Application")
-           }
-           Else{
-
-            Set application = ..GetPythonClass(appName, module, appPath)
-            If application = "" {
-                throw ##class(%Exception.General).%New("Error loading WSGI application: "_module_"."_appName_" from "_appPath)
-            }
-            Else {
-               Set %session.Data("Application") = application
-            }
-           }
-
-           // Editing some CGI variables that may be incorrect in %request
-           // Also filling in environ with as many CGI variables as possible from %request
-           // WSGI states that all CGI variables are valid and should be included if possible
-           While (key'="") {
-              Set value = %request.GetCgiEnv(key)
-              If key = "PATH_INFO" {
-               Set app=$$getapp^%SYS.cspServer(%request.URL,.path,.match,.updatedurl)
-               Set value = $EXTRACT(updatedurl,$LENGTH(path),*)
-              }
-              If key = "SCRIPT_NAME" {
-               //%request will sometimes have Script_name include Path_info
-               Set value = $PIECE(%request.Application, "/",1,*-1)
-              }
-              Do environ."__setitem__"(key,value)
-              Set key = %request.NextCgiEnv(key)
-           }
-
-           //Have to set up a correct wsgi.input stream from %request
-           Set stream = %request.Content
-           
-           Set contentType = %request.ContentType
-           Set contentLength = 0
-
-           If contentType = "application/x-www-form-urlencoded" {
-            Set formdict = builtins.dict()
-            Set key = $ORDER(%request.Data(""))
-            While (key'="") {
-               Set value = $GET(%request.Data(key,1))
-               Do formdict."__setitem__"(key,value)
-               Set key = $ORDER(%request.Data(key))
-            }
-            Do environ."__setitem__"("formdata", formdict)
-           }
-           ElseIf contentType = "multipart/form-data" {
-            Set boundary = $PIECE(%request.GetCgiEnv("CONTENT_TYPE"), "=",2)
-            Set stream = ##CLASS(%CSP.BinaryStream).%New()
-
-            Do stream.Write($CHAR(13,10))
-
-            //Get the Form Data values
-
-            Set key = $ORDER(%request.Data(""))
-            While (key'="") {
-               Do stream.Write("--")
-               Do stream.Write(boundary)
-               Do stream.Write($CHAR(13,10))
-               Set value = $GET(%request.Data(key,1))
-               Do stream.Write("Content-Disposition: form-data; name=")
-               Do stream.Write(""""_key_"""")
-               Do stream.Write($CHAR(13,10,13,10))
-               Do stream.Write(value)
-               Do stream.Write($CHAR(13,10))
-               Set key = $ORDER(%request.Data(key))
-            }
-
-            //Now get the possible MIME data streams
-            Set key = %request.NextMimeData("")
-            While key'="" {
-               Set numMimeStreams = %request.CountMimeData(key)
-               Set index = %request.NextMimeDataIndex(key, "")
-               Do stream.Write("--")
-               Do stream.Write(boundary)
-               Do stream.Write($CHAR(13,10))
-               If numMimeStreams > 1 {
-                  //I need to create a boundary for a nested multipart content type
-                  Set internalboundary = "--"
-                  For i = 1 : 1 : 7 {
-                     Set internalboundary = internalboundary _ $RANDOM(10)
-                  }
-                  While index '= "" {
-                     Set mimestream = %request.GetMimeData(key, index)
-                     Set headers = mimestream.Headers
-                     Do stream.Write("--")
-                     Do stream.Write(internalboundary)
-                     Do stream.Write($CHAR(13,10))
-                     Do stream.Write(headers)
-                     Do stream.Write($CHAR(13,10,13,10))
-                     Set sc = stream.CopyFrom(mimestream)
-                     //TODO error handling
-                     Do stream.Write($CHAR(13,10))
-                     Set index = %request.NextMimeDataIndex(key, index)
-                  }
-                  Do stream.Write("--")
-                  Do stream.Write(internalboundary)
-                  Do stream.Write("--")
-               }
-               Else {
-                  Set mimestream = %request.GetMimeData(key, index)
-                  Set headers = mimestream.Headers
-                  Do stream.Write(headers)
-                  Do stream.Write($CHAR(13,10,13,10))
-                  Set sc = stream.CopyFrom(mimestream)
-                  //TODO error handling
-                  Do stream.Write($CHAR(13,10))
-               }
-               Set key = %request.NextMimeData(key)
-            }
-            Do stream.Write("--")
-            Do stream.Write(boundary)
-            Do stream.Write("--")
-            Do stream.Rewind()
-           }
-
-
-           Try {
-            Do interface."make_request"(environ, stream, application, appPath)
-           }
-           Catch exception {
-            throw exception
-           }
-           Quit $$$OK
-}
-
-ClassMethod GetPythonClass(
-	pClassname As %String,
-	pModule As %String,
-	pClasspath As %String) As %SYS.Python
-{
-	Try {
-		If pClasspath '="" {
-            set sys = ##class(%SYS.Python).Import("sys")
-
-                for i=0:1:(sys.path."__len__"()-1) {
-                    Try {
-                        if sys.path."__getitem__"(i) = pClasspath {
-                            do sys.path."__delitem__"(i)
-                        }
-                    }
-                    Catch ex {
-                        // do nothing
-                    }
-
-                }
-                do sys.path.insert(0, pClasspath)
-		}
-
-		Set importlib = ##class(%SYS.Python).Import("importlib")
-		Set builtins = ##class(%SYS.Python).Import("builtins")
-		Set module = importlib."import_module"(pModule)
-		Set class = builtins.getattr(module, pClassname)
-   }
-   Catch ex {
-        throw ##class(%Exception.General).%New("Error loading WSGI application: "_pModule_"."_pClassname_" from "_pClasspath)
-   }
-	
-	Quit class
-}
-
 }