add compatibility mode for podpro, which has an issue with long refresh tokens

Author: ylebre

config.php.example

@@ -6,7 +6,7 @@
 	const FRONTENDDIR = __DIR__ . "/frontend/";
 	const DBPATH = __DIR__ . "/db/solid.db";
 	const CLEANUP_FILE = __DIR__ . "/db/lastcleanup";
-
+	const PODPRO_COMPATIBILITY = false;
 	const MAILER = [
 		"host" => "mailpit",
 		"port" => 1025,

lib/Routes/SolidIdp.php

@@ -204,6 +204,15 @@ public static function respondToToken() {
 				);
 			}
 
-			Server::respond($response);
+			// Hack for podpro
+			if (PODPRO_COMPATIBILITY && strstr($clientId, "podpro.dev")) {
+				$response->getBody()->rewind();
+				$responseBody = $response->getBody()->getContents();
+				$body = json_decode($responseBody, true);
+				$body['refresh_token'] = str_repeat('a', 209); // Podpro doesn't like refresh tokens longer than 209 characters; Sad.
+				Server::respondPodPro($response, $body);
+			} else {
+				Server::respond($response);
+			}
 		}
 	}

lib/Server.php

@@ -163,4 +163,21 @@ public static function respond($response) {
 			}
 			echo json_encode($body, JSON_PRETTY_PRINT | JSON_THROW_ON_ERROR);
 		}
+
+		public static function respondPodPro($response, $body) {
+			$statusCode = $response->getStatusCode();
+			$response->getBody()->rewind();
+			$headers = $response->getHeaders();
+
+			header("HTTP/1.1 $statusCode");
+			foreach ($headers as $header => $values) {
+				foreach ($values as $value) {
+					if ($header == "Location") {
+						$value = preg_replace("|%26%2334%3B|", "%22", $value); // odoo weird encoding
+					}
+					header($header . ":" . $value);
+				}
+			}
+			echo json_encode($body, JSON_PRETTY_PRINT | JSON_THROW_ON_ERROR);
+		}
 	}