<?php
// declare(encoding='UTF-8');
/**
* Classe client permettant d'interroger des services web REST.
*
* @category		php 5.2
* @package		Framework
* @author		Jean-Pascal MILCENT <jpm@tela-botanica.org>
* @copyright	Copyright (c) 2010, Tela Botanica (accueil@tela-botanica.org)
* @license		CeCILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt>
* @license		GNU-GPL <http://www.gnu.org/licenses/gpl.html>
* @since		0.2
*/
class RestClient {
	const HTTP_URL_REQUETE_SEPARATEUR = '&';
	const HTTP_URL_REQUETE_CLE_VALEUR_SEPARATEUR = '=';
	private $http_methodes = array('GET', 'POST', 'PUT', 'DELETE', 'HEAD', 'OPTIONS', 'CONNECT', 'TRACE');
	protected $parametres = null;
	private $url = null;
	private $reponse_entetes = null;
        private $tracer_ip_source = null;
        private $requete_headers = array();
        
        public function __construct() {
        //verifie si paramètre tracer_ip_source est sur TRUE dans config.ini
                    if (Config::existe('tracer_ip_source')) { 
                        //lire la config
                        $valeur = Config::get('tracer_ip_source');
                        //si oui, active X-Forwarded-For                      
                        $this->setTracerIPSource($valeur);
            }
            //pas de else, si pas dans la config $tracer_ip_source sera NULL/FALSE
         }
	//+------------------------------------------------------------------------------------------------------+
	// ACCESSEURS

	public function getReponseEntetes() {
		return $this->reponse_entetes;
	}

	public function getParametre($cle) {
		$valeur = (isset($this->parametres[$cle])) ? $this->parametres[$cle] : null;
		return $valeur;
	}

	public function ajouterParametre($cle, $valeur) {
		$this->parametres[$cle] = $valeur;
	}

	public function supprimerParametre($cle) {
		unset($this->parametres[$cle]);
	}

	public function nettoyerParametres() {
		$this->parametres = null;
	}
        
        public function setTracerIPSource($valeur) {
                $this->tracer_ip_source = $valeur;
        }
        
	//+------------------------------------------------------------------------------------------------------+
	// MÉTHODES

	public function consulter($url) {
		$retour = $this->envoyerRequete($url, 'GET');
		return $retour;
	}

	public function ajouter($url, Array $donnees) {
		$retour = $this->envoyerRequete($url, 'PUT', $donnees);
		return $retour;
	}

	public function modifier($url, Array $donnees) {
		$retour = $this->envoyerRequete($url, 'POST', $donnees);
		return $retour;
	}

	public function supprimer($url) {
		$retour = $this->envoyerRequete($url, 'DELETE');
		return $retour;
	}

	public function envoyerRequete($url, $mode, Array $donnees = array()) {
		$contenu = false;
		if (FALSE && function_exists('curl_init') && $mode == 'GET') {
			// nous n'activons le wrapper que pour GET pour l'instant
			// car l'utilisation de curl pour les autres modes pourrait
			// vraisemblablement induire des comportements différents. (test-suite needed)
			$contenu = $this->envoyerCurlRequete($url, $mode, $donnees);
		} else {
                        $contenu = $this->envoyerStreamRequete($url, $mode, $donnees);
		}
		return $contenu;
	}

	private function envoyerStreamRequete($url, $mode, Array $donnees = array()) {
                $this->url = $url;
		$contenu = false;
		if (! in_array($mode, $this->http_methodes)) {
			$e = "Le mode de requête '$mode' n'est pas accepté!";
			trigger_error($e, E_USER_WARNING);
		} else {
                    if ($mode == 'GET') {
				$this->traiterUrlParametres();
			}
                    $content = http_build_query($donnees, null, self::HTTP_URL_REQUETE_SEPARATEUR);
                    $this->requete_headers['http'] = array();
                    $this->requete_headers['http']['method'] = $mode;
                    $this->requete_headers['http']['header'] = "Content-type: application/x-www-form-urlencoded\r\n";
                    if ($this->tracer_ip_source) {
                        // ajoute  X-Forwarded-For au header
                        $this->requete_headers['http']['header'] .= "X-Forwarded-For: {$_SERVER['REMOTE_ADDR']}, {$_SERVER['SERVER_ADDR']}\r\n";
                    }
                    $this->requete_headers['http']['header'] .= "User-Agent: {$_SERVER['HTTP_USER_AGENT']} ApiTela/";
                    $this->requete_headers['http']['header'] .= Framework::getInfoAppli('nom');
                    $this->requete_headers['http']['header'] .= "\r\n";
                    $this->requete_headers['http']['content'] = $content;			
			$contexte = stream_context_create($this->requete_headers);
			$flux = @fopen($this->url, 'r', false, $contexte);                        
			if (!$flux) {
				$entetesFmt = print_r($this->analyserEntete(), true);
				$e = "Echec requête '$mode' : {$this->url}\n".
					"Paramètres requête : $content \n".
					"Entêtes réponse : $entetesFmt \n";
				trigger_error($e, E_USER_WARNING);
			} else {
				// Informations sur les en-têtes et métadonnées du flux
				$this->reponse_entetes = stream_get_meta_data($flux);

				// Contenu actuel de $url
				$contenu = stream_get_contents($flux);

				fclose($flux);
			}
			$this->traiterEntete();
		}
		$this->reinitialiser();
		return $contenu;
	}

	private function envoyerCurlRequete($url, $mode, Array $donnees = array()) {
		$this->url = $url;
		$contenu = false;
		if (! in_array($mode, $this->http_methodes)) {
			$e = "Le mode de requête '$mode' n'est pas accepté!";
			trigger_error($e, E_USER_WARNING);
		} else {
			if ($mode == 'GET') {
				$this->traiterUrlParametres();
			}

			$ch = curl_init($this->url);
			curl_setopt($ch, CURLOPT_HEADER, TRUE);
			curl_setopt($ch, CURLOPT_RETURNTRANSFER, TRUE);
			curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);
			if ($mode == 'POST') {
				curl_setopt($ch, CURLOPT_POST, TRUE);
			} elseif ($mode == 'PUT') {
				curl_setopt($ch, CURLOPT_PUT, TRUE);
			} elseif($mode == 'DELETE') {
				curl_setopt($ch, CURLOPT_CUSTOMREQUEST, 'DELETE');
			}

			$content = '';
			if ($donnees) {
				$content = http_build_query($donnees, null, self::HTTP_URL_REQUETE_SEPARATEUR);
				curl_setopt($ch, CURLOPT_POSTFIELDS, $content);
			}

			$flux = curl_exec($ch);
			curl_close($ch);

			if (!$flux) {
				$this->reponse_entetes = $http_response_header;
				$entetesFmt = print_r($this->analyserEntete(), true);
				$msgTpl = "Echec requête (CURL) '%s' : %s\nParamètres requête : %s \nEntêtes réponse : %s \n";
				$msg = sprintf($msgTpl, strtoupper($mode), $this->url, $content, $entetesFmt);
				trigger_error($msg, E_USER_WARNING);
			} else {
				// attention, CURLOPT_FOLLOWLOCATION amène le stream à contenir plusieurs section d'header HTTP successives
				$t = explode("\r\n\r\n", $flux);
				$contenu = array_splice($t, -1);
				$dernier_entete = array_splice($t, -1);
				$contenu = $contenu[0];
				$dernier_entete = $dernier_entete[0];

				// XXX: mimic stream_get_meta_data() (ce qui n'est pas très propre, le code appelant ferait mieux de se mettre à jour)
				$this->reponse_entetes = array('wrapper_data' => explode("\r\n", $dernier_entete));
			}
			$this->traiterEntete();
		}
		$this->reinitialiser();
		return $contenu;
	}

	private function traiterUrlParametres() {
		$parametres = array();
		if (count($this->parametres) > 0) {
			foreach ($this->parametres as $cle => $valeur) {
				$cle = rawurlencode($cle);
				$valeur = rawurlencode($valeur);
				$parametres[] = $cle.self::HTTP_URL_REQUETE_CLE_VALEUR_SEPARATEUR.$valeur;
			}
			$url_parametres = implode(self::HTTP_URL_REQUETE_SEPARATEUR, $parametres);
			$this->url = $this->url.'?'.$url_parametres;
		}
	}

	private function traiterEntete() {
		$infos = $this->analyserEntete();
		$this->traiterEnteteDebogage($infos);
	}

	private function analyserEntete() {
		$entetes = $this->reponse_entetes;
		$infos = array('date' => null, 'uri' => $this->url, 'debogages' => null);

		if (isset($entetes['wrapper_data'])) {
			$entetes = $entetes['wrapper_data'];
		}
		foreach ($entetes as $entete) {
			if (preg_match('/^X_REST_DEBOGAGE_MESSAGES: (.+)$/', $entete, $match)) {
				$infos['debogages'] = json_decode($match[1]);
			}
			if (preg_match('/^Date: .+ ([012][0-9]:[012345][0-9]:[012345][0-9]) .*$/', $entete, $match)) {
				$infos['date'] = $match[1];
			}
		}
		return $infos;
	}

	private function traiterEnteteDebogage($entetes) {
		if (isset($entetes['debogages'])) {
			$date = $entetes['date'];
			$uri = $entetes['uri'];
			$debogages = $entetes['debogages'];
			foreach ($debogages as $debogage) {
				$e = "DEBOGAGE : $date - $uri :\n$debogage";
				trigger_error($e, E_USER_NOTICE);
			}
		}
	}

	private function reinitialiser() {
		$this->nettoyerParametres();
	}
}