Correction message d'erreur (tronquer et sans balises html) (Affiche tout le...

Correction message d'erreur (tronquer et sans balises html) (Affiche tout le corps de la requete ou de la reponse avec OPENMETABASE_SHOW_ALL_REQUEST_BODY sinon affiche seulement 500 characters)

class/openmetabase.class.php

@@ -347,7 +347,7 @@ class OpenMetabase
 			    $this->errors = array_merge($this->errors, $errors_details);
 		    } else {
                 if (isset($response)) {
-                    $boby = $response->getBody();
+                    $boby = dol_trunc(dol_escape_htmltag($response->getBody()), $conf->global->OPENMETABASE_SHOW_ALL_REQUEST_BODY ? 0 : 500);
                     $this->errors[] = '<b>' . $langs->trans('OpenMetabaseResponseCode') . ': </b>' . $response->getStatusCode() . '<br>' .
                         '<b>' . $langs->trans('OpenMetabaseResponseReasonPhrase') . ': </b>' . $response->getReasonPhrase() .
                         (!empty($boby) ? '<br>' . $boby : '');
@@ -376,7 +376,7 @@ class OpenMetabase
 	 */
     protected function _requestToString(RequestInterface $request)
     {
-	    global $langs;
+	    global $conf, $langs;
 
 	    $out = '';
 	    $out .= '<b>' . $langs->trans('OpenMetabaseRequestData') . ': </b><br><hr>';
@@ -391,7 +391,7 @@ class OpenMetabase
 	    }
 	    $out .= '</ul>';
 	    $out .= '<b>' . $langs->trans('OpenMetabaseRequestBody') . ': </b>';
-	    $out .= '<br><em>' . $request->getBody() . '</em><br>';
+	    $out .= '<br><em>' . dol_trunc(dol_escape_htmltag($request->getBody()), $conf->global->OPENMETABASE_SHOW_ALL_REQUEST_BODY ? 0 : 500) . '</em><br>';
 	    $out .= '</div>';
 	    return $out;
     }
@@ -404,7 +404,7 @@ class OpenMetabase
 	 */
     protected function _responseToString(ResponseInterface $response)
     {
-	    global $langs;
+	    global $conf, $langs;
 
 	    $out = '';
 	    $out .= '<b>' . $langs->trans('OpenMetabaseResponseData') . ': </b><br><hr>';
@@ -426,7 +426,7 @@ class OpenMetabase
 		    }
 		    $out .= '</ul>';
 	    } else {
-		    $out .= '<br><em>' . $response->getBody() . '</em><br>';
+		    $out .= '<br><em>' . dol_trunc(dol_escape_htmltag($response->getBody()), $conf->global->OPENMETABASE_SHOW_ALL_REQUEST_BODY ? 0 : 500) . '</em><br>';
 	    }
 	    $out .= '</div>';
 	    return $out;