+<?php
+
+/***************************************************************************\
+ * SPIP, Systeme de publication pour l'internet *
+ * *
+ * Copyright (c) 2001-2013 *
+ * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
+ * *
+ * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
+ * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
+\***************************************************************************/
+
+if (!defined('_ECRIRE_INC_VERSION')) return;
+
+/**
+ * Installation/maj des tables urls
+ *
+ * @param string $nom_meta_base_version
+ * @param string $version_cible
+ */
+function urls_upgrade($nom_meta_base_version,$version_cible){
+ // cas particulier :
+ // si plugin pas installe mais que la table existe
+ // considerer que c'est un upgrade depuis v 1.0.0
+ // pour gerer l'historique des installations SPIP <=2.1
+ if (!isset($GLOBALS['meta'][$nom_meta_base_version])){
+ $trouver_table = charger_fonction('trouver_table','base');
+ if ($desc = $trouver_table('spip_urls')
+ AND isset($desc['exist'])){
+ ecrire_meta($nom_meta_base_version,'1.0.0');
+ }
+ // si pas de table en base, on fera une simple creation de base
+ }
+
+ $maj = array();
+ $maj['create'] = array(
+ array('maj_tables',array('spip_urls')),
+ );
+ $maj['1.1.0'] = array(
+ array('sql_alter',"table spip_urls ADD id_parent bigint(21) DEFAULT '0' NOT NULL"),
+ array('sql_alter',"table spip_urls DROP PRIMARY KEY"),
+ array('sql_alter',"table spip_urls ADD PRIMARY KEY (id_parent, url)"),
+ );
+ $maj['1.1.1'] = array(
+ array('urls_migre_arbo_prefixes'),
+ );
+
+ $maj['1.1.2'] = array(
+ array('sql_alter',"table spip_urls ADD segments SMALLINT(3) DEFAULT '1' NOT NULL"),
+ array('urls_migre_urls_segments'),
+ );
+ $maj['1.1.3'] = array(
+ array('sql_alter',"table spip_urls ADD perma TINYINT(1) DEFAULT '0' NOT NULL"),
+ );
+
+ include_spip('base/upgrade');
+ maj_plugin($nom_meta_base_version, $version_cible, $maj);
+}
+
+function urls_migre_arbo_prefixes(){
+ $res = sql_select('*','spip_urls',"url REGEXP '\d+:\/\/'");
+ while($row = sql_fetch($res)){
+ $url = explode("://",$row['url']);
+ $set = array('id_parent'=>intval(reset($url)),'url'=>end($url));
+ if (!sql_updateq('spip_urls',$set,"id_parent=".intval($row['id_parent'])." AND url=".sql_quote($row['url']))){
+ if ($set['id_parent']==0
+ AND sql_countsel('spip_urls',"id_parent=".intval($set['id_parent'])." AND url=".sql_quote($set['url'])." AND type=".sql_quote($row['type'])." AND id_objet=".sql_quote($row['id_objet']))){
+ spip_log('suppression url doublon '.var_export($row,1),'urls.'._LOG_INFO_IMPORTANTE);
+ sql_delete('spip_urls',"id_parent=".intval($row['id_parent'])." AND url=".sql_quote($row['url']));
+ }
+ else {
+ spip_log('Impossible de convertir url doublon '.var_export($row,1),'urls.'._LOG_ERREUR);
+ echo "Impossible de convertir l'url ".$row['url'].". Verifiez manuellement dans spip_urls";
+ }
+ }
+ if (time() >= _TIME_OUT){
+ sql_free($res);
+ return;
+ }
+ }
+}
+
+function urls_migre_urls_segments(){
+ sql_updateq('spip_urls',array('segments'=>1),"segments<1 OR NOT(url REGEXP '\/')");
+ $res = sql_select('DISTINCT url','spip_urls',"url REGEXP '\/' AND segments=1");
+ while($row = sql_fetch($res)){
+ $segments = count(explode('/',$row['url']));
+ sql_updateq('spip_urls',array('segments'=>$segments),"url=".sql_quote($row['url']));
+ if (time() >= _TIME_OUT){
+ sql_free($res);
+ return;
+ }
+ }
+}
+
+/**
+ * Desinstallation/suppression des tables urls
+ *
+ * @param string $nom_meta_base_version
+ */
+function urls_vider_tables($nom_meta_base_version) {
+ // repasser dans les urls par defaut
+ ecrire_meta('type_urls','page');
+ sql_drop_table("spip_urls");
+ effacer_meta($nom_meta_base_version);
+}
+
+?>
\ No newline at end of file