Subversion Repositories Applications.wikini

<?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);

			// 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 = $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);

	}

}