<?php
// declare(encoding='UTF-8');
/**
 *
 * @category   wiki/smart'Flore
 * @package    Scripts
 * @author     Aurelien PERONNET <aurelien@tela-botanica.org>
 * @license    GPL v3 <http://www.gnu.org/licenses/gpl.txt>
 * @license    CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
 * @copyright  1999-2015 Tela Botanica <accueil@tela-botanica.org>
 */

class MigrationSmartFlore extends Script {

	protected $mode_verbeux = false;
	
	public function executer() {
		$cmd = $this->getParametre('a');
		$this->mode_verbeux = $this->getParametre('v');
		
		switch($cmd) {
			case 'migrerFormatSmartFlore' :
				$this->migrerFormatSmartFlore();
			break;
			
			case 'migrerSentiersSmartFlore' :
				$this->migrerSentiersSmartFlore();
			break;
			
			default:
		}
	}
	
	protected function migrerSentiersSmartFlore() {
		$this->wiki = Registre::get('wikiApi');
		$requete = 'SELECT * FROM '.$this->wiki->GetConfigValue('table_prefix').'pages WHERE latest = "Y" '.
				'AND tag = "AccesProjet" ';
				
		$page_sentiers = $this->wiki->LoadSingle($requete);
		// Attention les wiki sont en iso Argh%#[{!?
		// Il faut convertir car sinon certains sentiers ne matcheront pas à leur propriétaire
		$page_sentiers['body'] = mb_convert_encoding($page_sentiers['body'], Config::get('encodage_appli'), Config::get('encodage_wiki'));
		preg_match_all("|\[\[([^\]\]]*)\]\]|", $page_sentiers['body'], $sentiers, PREG_PATTERN_ORDER);
		
		// Seule une partie du tableau contenant les noms des sentiers nous interesse
		$sentiers = $sentiers[1];
		
		echo "Nombre de sentiers à migrer : ".count($sentiers)."\n";
		
		$valeurs_sentiers_a_inserer = array();
		
		$proprietaires_sentiers = array();
		// Chargement du fichier contenant les propriétaires à associer aux sentiers
		$fichier = file(realpath(dirname(__FILE__)).'/proprietaires_sentiers.csv');
		
		foreach ($fichier as $ligne) {
			$data = str_getcsv($ligne);
			if($data[2] != "") {
				// on associe un titre de sentier à un email (la clé est le titre de sentier)
				$proprietaires_sentiers[trim($data[0])] = trim($data[2]);
			}		
		}
		
		$courriel_proprietaires = array_values(array_unique($proprietaires_sentiers));	
		// Chargement des infos des utilisateurs pour obtenirs leurs nomWikis associés
		$url_infos_courriels = 	Config::get('annuaire_infos_courriels_url').implode(',', $courriel_proprietaires);
		$infos_proprietaires = json_decode(file_get_contents($url_infos_courriels), true);
		
		$infos_proprietaires_a_sentier = array();
		
		foreach($proprietaires_sentiers as $nom_sentier => $proprietaire_sentier) {
			if(isset($infos_proprietaires[$proprietaire_sentier])) {
				$infos_proprietaires_a_sentier[$nom_sentier] = $infos_proprietaires[$proprietaire_sentier]['nomWiki'];
			} else {
				// les sentiers sans propriétaires sont affectés au compte accueil
				$infos_proprietaires_a_sentier[$nom_sentier] = "AssociationTelaBotanica";
			}
		}
		
		$requete_insertion = 'INSERT INTO '.$this->wiki->GetConfigValue('table_prefix').'triples '.
					'(resource, property, value) VALUES ';
		
		foreach($sentiers as $sentier) {

			list($tag, $titre) = explode(' ', $sentier, 2);
			$titre = trim($titre);
			// Reconversion dans l'encodage du wiki pour l'insertion
			$titre_encode_wiki = mb_convert_encoding($titre, Config::get('encodage_wiki'), Config::get('encodage_appli'));
			
			$requete = 'SELECT * FROM '.$this->wiki->GetConfigValue('table_prefix').'pages WHERE latest = "Y" '.
					'AND tag = "'.$tag.'" ';
			
			$infos_sentier = $this->wiki->LoadSingle($requete);
		
			$proprietaire = !empty($infos_proprietaires_a_sentier[$titre]) ? $infos_proprietaires_a_sentier[$titre] : "AssociationTelaBotanica";
			$valeurs_sentiers_a_inserer[] = "('".addslashes(trim($titre_encode_wiki))."', 'smartFlore.sentiers', '".$proprietaire."')";
			
			// Recherche de toutes les fiches contenues dans le sentier (normalement sous forme de liens vers des fiches de type 
			// SmartFloreYYYntZZZ où YYY est un code de référentiel et ZZZ un numéro taxonomique)
			preg_match_all("|\[\[(SmartFlore[^(?:nt)]*nt[0-9]*)|", $infos_sentier['body'], $fiches_du_sentier, PREG_PATTERN_ORDER);
			
			if(!empty($fiches_du_sentier[0])) {
				foreach($fiches_du_sentier[1] as $fiche_du_sentier) {					
					$valeurs_fiches_a_associer[] = "('".$fiche_du_sentier."', 'smartFlore.sentiers.fiche', '".addslashes(trim($titre_encode_wiki))."')";
				}
			}
		}
		
		$valeurs_a_inserer = array_merge($valeurs_sentiers_a_inserer, $valeurs_fiches_a_associer);
		$requete_insertion .= implode(', '."\n", $valeurs_a_inserer);
		// Tout est contenu dans la table triple du wiki, donc une seule requête suffit pour tout insérer
		$this->wiki->Query($requete_insertion);
		
		echo 'Migration des sentiers effectuée'."\n";
		exit;
	}
	
	protected function migrerFormatSmartFlore() {	

		// sections "souples" - attention, ne seront pas "quotées" mais interprétées comme morceaux de regexp directement !
		$sections = array("Fiche simplifi.+e Smart.+flore", "Introduction","Comment la reconna.+tre.+","Son histoire","Ses usages",".+(?:cologie|habitat).+","Ce qu.+il faut savoir.+","Sources");
		$nouvelles_sections = array(
			"Description" => array("Introduction","Comment la reconna.+tre.+","Son histoire"),
			"Usages" => array("Ses usages", "Ce qu.+il faut savoir.+"),
			"Écologie & habitat" => array(".+(?:cologie|habitat).+"), // groupe non-capturant avec (?:a|b)
			"Sources" => array("Sources")
		);
		
		$where_section = 'body NOT LIKE "';
		$nouvelles_sections_k = array_keys($nouvelles_sections);
		foreach($nouvelles_sections_k as $nouvelle_section_k) {
			// Encore et toujours de l'iso (d'ailleurs si on ne fait pas de conversion la requete se comporte
			// très bizarrement et renvoie des résultats en trop une fois le script déjà exécuté)
			$where_section .= '%'.addslashes(ManipulationPage::convertirTexteAppliVersEncodageWiki($nouvelle_section_k)).'%';
		}
		$where_section = $where_section.'"';
			
		$this->wiki = Registre::get('wikiApi');
		$requete = 'SELECT * FROM '.$this->wiki->GetConfigValue('table_prefix').'pages WHERE latest = "Y" '.
						'AND tag LIKE "SmartFlore%nt%" '.
						'AND '.$where_section;

		$pages = $this->wiki->LoadAll($requete);
		$pages_fmt = array();
		echo "Nombre de pages à migrer : ".count($pages)."\n";

		if(!empty($pages)) {
			$manipulation = new ManipulationPage($this->wiki, $pages[0]);
			echo "Migration en cours... \n";
			
			foreach($pages as &$page) {
				
				$page_fmt = array();
				
				// On capte l'entête de la page situé avant la première section pour le recopier
				// dans les nouvelles pages (il contient les backlinks et les noms)
				$delim_entete = strpos($page["body"], "==== Introduction ====");
				if($delim_entete === false) {
					$delim_entete = strpos($page["body"], "====Introduction====");
				}
				// Attention l'entete est en iso, il faut le convertir manuellement
				$entete = $manipulation->convertirTexteWikiVersEncodageAppli(substr($page["body"], 0, $delim_entete));
				
				// Par contre ici consulterPageSectionsFormatees est gentil et fait la conversion vers l'encodage de l'appli pour nous
				$manipulation->consulterPageSectionsFormatees($page, implode(',', $sections));
				
				// Fusion des anciennes sections dans les nouvelles
				foreach($nouvelles_sections as $nom_nouvelle_section => $sections_a_fusionner) {
					$page_fmt[$nom_nouvelle_section] = '===='.$nom_nouvelle_section.'====';
					foreach($sections_a_fusionner as $section_a_fusionner) {
						if(isset($page['sections'][$section_a_fusionner])) {
							$page_fmt[$nom_nouvelle_section] .= $page['sections'][$section_a_fusionner];
						}
					}
				}
				
				$corps = $entete."\n".implode("\n", $page_fmt);
				$manipulation->ecrirePage($page["tag"], $corps);
			}
		}
		echo "Migration effectuée \n";
		// Le exit est là pour empecher l'affichage d'être pollué par les erreurs 
		// dûes à certaines antédiluviennités de wikini
		exit;
	}
	
	// http://stackoverflow.com/questions/834303/startswith-and-endswith-functions-in-php
	protected function endsWith($haystack, $needle) {
		// search forward starting from end minus needle length characters
		return $needle === "" || (($temp = strlen($haystack) - strlen($needle)) >= 0 && strpos($haystack, $needle, $temp) !== FALSE);
	}
}