GitHub:12815 (fix error message in OAuth2Authorization requestHandler)

Author: yannicktrinh

Project/Sources/Classes/OAuth2Authorization.4dm

@@ -24,9 +24,11 @@ Function getResponse($request : 4D.IncomingMessage) : 4D.OutgoingMessage
             $response.setStatus(404)
         End if 
     Else 
-        throw({code: 9; component: "4DNK"; deferred: True; which: "request (4D.IncomingMessage)"; function: "OAuth2Authorization.getResponse"})
+        var $error : Object:=cs.Tools.me.makeError(9; {which: "request (4D.IncomingMessage)"; function: "OAuth2Authorization.getResponse"})
 
         $response.setStatus(500)
+        $response.setBody("Internal Server Error:\r\n\r\n"+JSON Stringify($error; *))
+        $response.setHeader("Content-Type"; "text/plain")
     End if 
     $response.setHeader("X-Request-Handler"; String(OB Class(This).name))
 

Project/Sources/Classes/Tools.4dm

@@ -598,4 +598,23 @@ Function urlEncode($value : Text) : Text
 Function localizedString($inValue : Text) : Text
 
 /* Temp to avoid compilation issues due to command renaming */
-	return Localized string:C991($inValue)
+	return Localized string($inValue)
+	
+	
+	// ----------------------------------------------------
+	
+	
+Function makeError($inCode : Integer; $inParameters : Object) : Object
+	
+	var $description : Text:=cs.Tools.me.localizedString("ERR_4DNK_"+String($inCode))
+	
+	If (Not(OB Is empty($inParameters)))
+		var $key : Text
+		For each ($key; $inParameters)
+			$description:=Replace string($description; "{"+$key+"}"; String($inParameters[$key]))
+		End for each 
+	End if 
+	
+	var $error : Object:={errCode: $inCode; componentSignature: "4DNK"; message: $description}
+	
+	return $error