RELAIS HTTP 1.1 METHODES GET/POST

<?
 /////////////////////////////////////////////////////////////////////////////////////////////////////
// crée le 07/08/05 par Pierre ELINE (pierre95400@hotmail.com)										//
// ------------------------------------------------------------------------------------------------	//
// Relais de Requête HTTP 1.1 dévellopé pour le CGI de GCIS, il est prévu pour les méthodes GET et 	//
// POST.																							//
// Pour le configurer, il faut renseigner les variables de la partie CONFIGURATION (ci-dessous)		//
// ------------------------------------------------------------------------------------------------ //
// Requis : - Le module php_sockets doit être active												//
//			- Dans php.ini : always_populate_raw_post_data = On										//
/////////////////////////////////////////////////////////////////////////////////////////////////////

/* CONFIGURATION :			*/
/////////////////////////////
$service_port 		= 80;							// numéro de port du serveur GCIS (par défaut 80)
$serveur_distant 	= "beai59";						// adresse du serveur GCIS (exemple : beai59), une IP convient
$chemin_script 		= "/scripts/gcis.exe";			// chemin d'accès au script (exemple: /scripts/gcis.exe)
$serveur_relais		= "b563071.inetpsa.com";		// adresse du serveur relais sur lequel est hebergée cette page (côté réseau serveur_distant), une IP convient
$option_log			= false;						// true : log active, false : log désactive

/* FONCTIONS :				*/
/////////////////////////////
function dechunk ($var)
{
	$sortie='';$long_dec=0;
	$i=0;
	do
	{
		$sortie .= substr ($var,$i,$long_dec);
		$long_hexa='';
		do
		{
			$long_hexa .= $var[$i];
			$i++;
		} while ($var[$i] != CHR(13) || $var[$i+1] != CHR(10));
		$i=$i+2;
		$long_dec = hexdec ($long_hexa);		 
	} while ($long_dec != 0);
	return $sortie;
}

function envois_reponse ($reponse)
{
	$tab_reponse = explode (CHR(13).CHR(10).CHR(13).CHR(10),$reponse,2);
	$tab_reponse[0] .= CHR(13).CHR(10).CHR(13).CHR(10);
	header ($tab_reponse[0]);		
	$pos = strpos ($tab_reponse[0],"HTTP/1.1 200 OK");						
	if ( $pos > 0 or $pos === false)				// est-ce le header de la reponse?
	{
		envois_reponse ($tab_reponse[1]);			// si non, alors on redecoupe le reste de la reponse en (Header + Reste)								
	}
	else											// Si oui alors on envoit le coprs de la réponse
	{
		if (strpos ($tab_reponse[0],"Transfer-Encoding: chunked") !== false)		// donnees chunked
		{
			echo dechunk ($tab_reponse[1]);											// dechunk avant envois						
		}			
		else 
			echo $tab_reponse[1];													// envois sans modifcation
	}
}

/* SCRIPT :					*/
/////////////////////////////

// constitution de la requete http
$message  = $_SERVER['REQUEST_METHOD'];			// methode
$message .= " ".$chemin_script;
if ($_SERVER['QUERY_STRING']!="")
{
	$message .= "?".$_SERVER['QUERY_STRING'];
}
$message .= " HTTP/1.1\r\n";					// fin methode
$message .= "Host: ".$serveur_relais."\r\n";	// HOST

$entetes = getallheaders ();					// autres champs
foreach ($entetes as $key=>$val)
{ 
	if ($key == "Transfer-Encoding" && $val == "chunked");		// on envoit pas de chunk mais en un seul bloc	
	elseif ($key != "Host")
		$message .= $key.": ".$val." \r\n";
}												// fin autres champs
$message .= "\r\n";								// fin entete

if ($_SERVER['REQUEST_METHOD']=="POST")			// ajout du POST					
	$message .= $HTTP_RAW_POST_DATA."\r\n";

// Lit l'adresse IP du serveur de destination
$address = gethostbyname($serveur_distant);

// Cree une socket TCP/IP
$socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
$result = socket_connect($socket, $address, $service_port);

// envois de la requete
socket_write($socket, $message, strlen($message));

// lecture de la reponse
$tmp = '';
$reponse = '';
while ($tmp = socket_read($socket, 2048))
{
	$reponse .= $tmp;
}

// Partie Log
if ($option_log == true)
{
	$fp = fopen ("log.txt","a+");
	fputs ($fp,$message."\r\n<----------REPONSE---------->\r\n".$reponse."\r\n==============FIN==============\r\n");
	fclose ($fp);
}
// fin socket
socket_close ($socket);

// separation des headers du corps de la reponse puis envois
envois_reponse ($reponse);

// fin du script
exit();
?>

10 août 2005 14:38:43 :

Ajout d'une option log, ca n'a rien d'extraordianaire mais ca m'a pas mal aider pour le debuguer ou pour ajouter d'autes fonctionnalités. Désormais, le relais gère les modes de transmissions "chunked" (seulement dans le sens serveur_distant => serveur_relais, la transmission serveur_relais => client se fait d'un seul tenant), ce mode consiste en fait à découper la page en plusieurs morceaux avant de l'envoyer.

10 août 2005 16:33:26 :

Le corps d'une requete POST n'est desormais plus reconstitue en parcourant le tableau $_POST, c'est la variable $HTTP_RAW_POST_DATA qui est utilisee. Cela permet par exemple de relayer l'envois de fichier.