<?php

/***************************************************************************\
 *  SPIP, Systeme de publication pour l'internet                           *
 *                                                                         *
 *  Copyright (c) 2001-2011                                                *
 *  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;

// http://doc.spip.org/@insere_1_init
function insere_1_init($request) {

//  table des translations

	$field = array(
		"type"		=> "VARCHAR(16) NOT NULL",
		"ajout"		=> "integer NOT NULL", // en fait booleen
		"titre"		=> "text NOT NULL",
                "id_old"	=> "bigint (21) DEFAULT '0' NOT NULL",
                "id_new"	=> "bigint (21) DEFAULT '0' NOT NULL");

	$key = array(
                "PRIMARY KEY"	=> "id_old, id_new, type",
                "KEY id_old"	=> "id_old");

	$v = sql_create('spip_translate',  $field, $key, true);
	if (!$v) {
		spip_log("echec de la creation de la table de fusion");
		return  false; 
	}
	// au cas ou la derniere fois ce serait terminee anormalement
	sql_delete("spip_translate");
	// pour PG
	$GLOBALS['tables_principales']['spip_translate'] = 
		array('field' => $field, 'key' => $key);
	return insere_1bis_init($request);
}

// http://doc.spip.org/@insere_1bis_init
function insere_1bis_init($request) {

	// l'insertion porte sur les tables principales ...
	$t = array_keys($GLOBALS['tables_principales']);
	// ... mais pas cette table a cause de la duplication des login 
	unset($t[array_search('spip_auteurs', $t)]);
	// ni celle-ci, les qui est liee implicitement a la precedente
	unset($t[array_search('spip_messages', $t)]);
	// et pour celles-ci restent a programmer les regles
	unset($t[array_search('spip_forum', $t)]);
	unset($t[array_search('spip_syndic', $t)]);
	unset($t[array_search('spip_signatures', $t)]);
	return $t;
}

// En passe 2, relire les tables principales et les tables auxiliaires 
// sur les mots et les documents car on sait les identifier

// http://doc.spip.org/@insere_2_init
function insere_2_init($request) {
	$t = insere_1bis_init($request);

	// ne pas importer cette table, son homologue est prioritaire
	unset($t[array_search('spip_types_documents', $t)]);

	$t[]= 'spip_mots_articles';
	$t[]= 'spip_mots_breves';
	$t[]= 'spip_mots_rubriques';
	$t[]= 'spip_mots_syndic';
	$t[]= 'spip_mots_forum';
	$t[]= 'spip_mots_documents';
	$t[]= 'spip_documents_liens';

	return $t;
}

//   construire le tableau PHP de la table spip_translate
// (mis en table pour pouvoir reprendre apres interruption)

// http://doc.spip.org/@translate_init
function translate_init($request) {

	include_spip('inc/texte'); // pour les Regexp des raccourcis
	include_spip('inc/chercher_logo'); // pour les noms des logos
	include_spip('inc/distant'); // pour recuperer les logos

	$q = sql_select('*', "spip_translate");
	$trans = array();
	while ($r = sql_fetch($q)) {
		$trans[$r['type']][$r['id_old']] = array($r['id_new'], $r['titre'], $r['ajout']);
	}
	return $trans;
}


// http://doc.spip.org/@import_insere
function import_insere($values, $table, $desc, $request, $atts) {

	static $jesais = array();

	$type_id = $desc['key']["PRIMARY KEY"];
	// reserver une place dans les tables principales si nouveau
	$ajout = 0;

	if ((!function_exists($f = 'import_identifie_' . $type_id))
	OR (!($n = $f($values, $table, $desc, $request)))) {
          // pas d'importation de types_doc (a revoir)
		if ($table == 'spip_types_documents') return;
		$n = sql_insertq($table);
		$ajout=1;
	}

	if (is_array($n))
		list($id, $titre) = $n; 
	else {$id = $n; $titre = "";}
	sql_insertq('spip_translate', array(
		   'id_old' => $values[$type_id],
		   'id_new' => $id,
		   'titre' => $titre,
		   'type' => $type_id,
		   'ajout' => $ajout));
}

// Renumerotation des entites collectees
// Appelle la fonction specifique a la table, ou a defaut la std.
// Le tableau de correspondance est global, et permet qu'un numero
// d'une entite soit calcule une seule fois, a sa premiere occurrence.
// (Mais des requetes avec jointures eviteraient sa construction. A voir)

// http://doc.spip.org/@import_translate
function import_translate($values, $table, $desc, $request, $atts) {

	if (!function_exists($f = 'import_translate_' . $table))
	  $f = 'import_translate_std';
	$f($values, $table, $desc, $request, $atts);
}

// La fonction d'insertion apres renumerotation.
// Afin qu'inserer une 2e fois la meme sauvegarde ne change pas la base,
// chaque entree de la sauvegarde est ignoree s'il existe une entree
// de meme titre avec le meme contexte (parent etc) dans la base installee.
// Une synchronisation plus fine serait preferable, cf [8004]

// http://doc.spip.org/@import_inserer_translate
function import_inserer_translate($values, $table, $desc, $request, $atts) {
	global $trans;
	$p = $desc['key']["PRIMARY KEY"];
	$v = $values[$p];
	if (!isset($trans[$p]) OR !isset($trans[$p][$v]) OR $trans[$p][$v][2]){
		sql_replace($table, $values);
		$on = isset($atts['on']) ? ($atts['on']) : '';
		$off = isset($atts['off']) ? ($atts['off']) : '';
		if ($on OR $off) {
			$t = type_du_logo($p);		  
			$url = $request['url_site'];
			if (!$url) $url = $atts['adresse_site'];
			if (substr($url,-1) !='/') $url .='/';
			$url .= $atts['dir_logos'];
			$new = $trans[$p][$v][0];
			if ($on) {
			  if ($logo = recuperer_page($url . $t . "on$v." . $on))
			    ecrire_fichier(_DIR_LOGOS. $t . "on$new." . $on, $logo);
			}
			if ($off) {
			  if ($logo = recuperer_page($url . $t . "off$v." . $off))
			    ecrire_fichier(_DIR_LOGOS. $t . "off$new." . $off, $logo);
			}
		}
	}
}

// Insertion avec renumerotation, y compris des raccourcis.
// http://doc.spip.org/@import_translate_std
function import_translate_std($values, $table, $desc, $request, $atts) {

	foreach ($values as $k => $v) {
		if ($k=='id_parent' OR $k=='id_secteur')
				$type = 'id_rubrique';
		else $type = $k;

		$values[$k]= importe_raccourci(importe_translate_maj($type, $v));
	}
	import_inserer_translate($values, $table, $desc, $request, $atts);
}

// http://doc.spip.org/@import_translate_spip_articles
function import_translate_spip_articles($values, $table, $desc, $request, $atts) {
	$v = $values['chapo']; 
	if ($v[0]=='=' AND preg_match(_RACCOURCI_CHAPO, substr($v,1)))
		$values['chapo'] = '=[->' . substr($v,1) . ']';
	if ($request['statut'] == 'on' AND $values['statut'] == 'publie')
		$values['statut'] = 'prop';
	import_translate_std($values, $table, $desc, $request, $atts);
}

// http://doc.spip.org/@import_translate_spip_breves
function import_translate_spip_breves($values, $table, $desc, $request, $atts) {
	if ($request['statut'] == 'on' AND $values['statut'] == 'publie')
		$values['statut'] = 'prop';
	import_translate_std($values, $table, $desc, $request, $atts);
}

// Les doc importes deviennent distants, a fortiori s'ils etaient deja
// Gerer les vieilles sauvegardes où le Path etait en dur
// http://doc.spip.org/@import_translate_spip_documents
function import_translate_spip_documents($values, $table, $desc, $request, $atts) {

	if ($values['distant'] === 'oui') {
		$url = '';
	} else {
		$values['distant'] = 'oui';
		$url = $request['url_site'];
		if (!$url) $url = $atts['adresse_site'];
		if (substr($url,-1) !='/') $url .='/';
		// deja dans la BD avant cette epoque
		if ($atts['version_base'] >= '1.934')
			$url .= $atts['dir_img']; 
	}
	$url .= $values['fichier'];
	unset($values['fichier']);
	foreach ($values as $k => $v) {
		$values[$k]= importe_raccourci(importe_translate_maj($k, $v));

	}
	$values['fichier'] = $url;
	import_inserer_translate($values, $table, $desc, $request, $atts);
}

function import_translate_spip_documents_liens($values, $table, $desc, $request, $atts) {

	$values['id_document']= (importe_translate_maj('id_document', $values['id_document']));
	$values['id_objet']= (importe_translate_maj('id_' .$values['objet'], $values['id_objet']));

	sql_replace($table, $values);
}

// Fonction de renumerotation, par delegation aux fonction specialisees
// Si une allocation est finalement necessaire, celles-ci doivent repercuter
// la renumerotation sur la table SQL temporaire pour qu'en cas de reprise
// sur Time-Out il n'y ait pas reallocation.
// En l'absence d'allocation, cet acces SQL peut etre omis, quitte a 
// recalculer le nouveau numero  si une autre occurrence est rencontree
// a la reprise. Pas dramatique.

// http://doc.spip.org/@importe_translate_maj
function importe_translate_maj($k, $v)
{
	global $trans;
	if (!(isset($trans[$k]) AND isset($trans[$k][$v]))) return $v;
	list($g, $titre, $ajout) = $trans[$k][$v];
	if ($g <= 0) {
		$f = 'import_identifie_parent_' . $k;
		if (function_exists($f)) {
			$g = $f($g, $titre, $v);
			if ($g > 0)
			  // memoriser qu'on insere
				$trans[$k][$v][2]=1;
			else $g = (0-$g);
			$trans[$k][$v][0] = $g;
		} else spip_log("$f manquante");
	}
	return $g;
}

define('_RACCOURCI_MODELE_ALL', '@' . _RACCOURCI_MODELE .'@isS');

// http://doc.spip.org/@importe_raccourci
function importe_raccourci($v)
{
	if (preg_match_all(_RACCOURCI_LIEN, $v, $m, PREG_SET_ORDER)) {
		foreach ($m as $regs) {
		  // supprimer 'http://' ou 'mailto:'
		  	$lien = vider_url($regs[count($regs)-1]);
			if ($match = typer_raccourci($lien)) {
				list($f,$objet,$id,$params,$ancre) = $match;
				$k = 'id_' . $f;
				$g = importe_translate_maj($k, $id);
				if ($g != $id) {

				  $rac = '[' . $regs[1] . '->' . $regs[2] . $objet . $g . $params . $ancre .']';
				  $v = str_replace($regs[0], $rac, $v);
				}
			}
		}
	}

	if (preg_match_all(_RACCOURCI_MODELE_ALL, $v, $m, PREG_SET_ORDER)) {
		foreach ($m as $regs) {
			$g = importe_translate_maj('id_document', $regs[3]);
			if ($g != $regs[3]) {
				$rac = '<' . $regs[2] . $g . $regs[4] . '>' . $regs[5];
				$v = str_replace($regs[0], $rac, $v);
			}
		}
	}
	return $v;
}

// un document importe est considere comme identique a un document local
// s'ils ont meme taille et meme nom et que le present n'est pas detruit
// Et ne pas importer les incoherences (docs sans extension)
// http://doc.spip.org/@import_identifie_id_document
function import_identifie_id_document($values, $table, $desc, $request) {
	if (!$values['extension']) return false;
	$t = $values['taille'];
	$f = $values['fichier'];
	$h = $request['url_site'] . $f;
	$r = sql_fetsel("id_document AS id, fichier AS titre, distant", "spip_documents", "taille=" . sql_quote($t) . " AND (fichier=" . sql_quote($f) . " OR fichier= " . sql_quote($h) . ')');
	if (!$r) return false;
	if (($r['distant'] != 'oui')
	AND !file_exists(_DIR_IMG . $r['titre']))
		return false; 
	return array($r['id'], $r['titre']);
}

// un type de document importe est considere comme identique a un type present
// s'ils ont meme extension et meme titre
// Sinon il ne sera PAS importe
// http://doc.spip.org/@import_identifie_id_type
function import_identifie_id_type($values, $table, $desc, $request) {
	$e = $values['extension'];
	$t = $values['titre'];
	$r = sql_fetsel("id_type AS id, titre", "spip_types_documents", "extension=" . sql_quote($e) . " AND titre=" . sql_quote($t));
	return $r ? array($r['id'], $r['titre']) : false;
}

// deux groupes de mots ne peuvent avoir le meme titre ==> identification
// http://doc.spip.org/@import_identifie_id_groupe
function import_identifie_id_groupe($values, $table, $desc, $request)  {
	$r = sql_fetsel("id_groupe AS id, titre", "spip_groupes_mots", "titre=" . sql_quote($values['titre']));
	return $r ? array($r['id'], $r['titre']) : false;
}

// pour un mot le titre est insuffisant, il faut aussi l'identite du groupe.
// Memoriser ces 2 infos et le signaler a import_translate grace a 1 negatif
// http://doc.spip.org/@import_identifie_id_mot
function import_identifie_id_mot($values, $table, $desc, $request) {
	return array((0 - $values['id_groupe']), $values['titre']);
}

// Passe 2: mot de meme titre et de meme groupe ==> identification
// http://doc.spip.org/@import_identifie_parent_id_mot
function import_identifie_parent_id_mot($id_groupe, $titre, $v)
{
	global $trans;
	$titre = sql_quote($titre);
	$id_groupe = 0-$id_groupe;
	if (isset($trans['id_groupe'])
	AND isset($trans['id_groupe'][$id_groupe])) {
		$new = $trans['id_groupe'][$id_groupe][0];
		$r = sql_fetsel("id_mot", "spip_mots", "titre=$titre AND id_groupe=$new" );
		if ($r) return  (0 - $r['id_mot']);
	}
	if ($r = sql_insertq('spip_mots'))
		sql_replace('spip_translate', array(
					    'id_old' => $v,
					    'id_new' => $r,
					    'titre' => $titre,
					    'type' => 'id_mot',
					    'ajout' => 1));
	else spip_log("Impossible d'inserer dans spip_mots");
	return $r;
}

// idem pour les articles
// http://doc.spip.org/@import_identifie_id_article
function import_identifie_id_article($values, $table, $desc, $request) {
	return array((0 - $values['id_rubrique']), $values['titre']);
}

// Passe 2 des articles comme pour les mots

// http://doc.spip.org/@import_identifie_parent_id_article
function import_identifie_parent_id_article($id_parent, $titre, $v)
{
	$id_parent = importe_translate_maj('id_rubrique', (0 - $id_parent));

	$titre = sql_quote($titre);
	$r = sql_fetsel("id_article", "spip_articles", "titre=$titre AND id_rubrique=$id_parent AND statut<>'poubelle'" );
	if ($r) return (0 - $r['id_article']);

	if ($r = sql_insertq('spip_articles'))
		sql_replace('spip_translate', array(
					    'id_old' => $v,
					    'id_new' => $r,
					    'titre' => $titre,
					    'type' => 'id_article',
					    'ajout' => 1),
			$GLOBALS['tables_principales']['spip_translate']
		    );
	else spip_log("Impossible d'inserer dans spip_articles");
	return $r;
}

// idem pour les breves
// http://doc.spip.org/@import_identifie_id_breve
function import_identifie_id_breve($values, $table, $desc, $request) {
	return array((0 - $values['id_rubrique']), $values['titre']);
}

// Passe 2 des breves comme pour les mots

// http://doc.spip.org/@import_identifie_parent_id_breve
function import_identifie_parent_id_breve($id_parent, $titre, $v)
{
	$id_parent = importe_translate_maj('id_rubrique', (0 - $id_parent));

	$titre = sql_quote($titre);
	$r = sql_fetsel("id_breve", "spip_breves", "titre=$titre AND id_rubrique=$id_parent AND statut<>'refuse'" );
	if ($r) return (0 - $r['id_breve']);

	if ($r = sql_insertq('spip_breves'))
		sql_replace('spip_translate', array(
					    'id_old' => $v,
					    'id_new' => $r,
					    'titre' => $titre,
					    'type' => 'id_breve',
					    'ajout' => 1),
			$GLOBALS['tables_principales']['spip_translate']
		    );
	else spip_log("Impossible d'inserer dans spip_breves");
	return $r;
}


// pour une rubrique le titre est insuffisant, il faut l'identite du parent
// Memoriser ces 2 infos et le signaler a import_translate grace a 1 negatif
// http://doc.spip.org/@import_identifie_id_rubrique
function import_identifie_id_rubrique($values, $table, $desc, $request) {
	return array((0 - $values['id_parent']), $values['titre']);
}

// Passe 2 des rubriques, renumerotation en cascade. 
// rubrique de meme titre et de meme parent ==> identification
// http://doc.spip.org/@import_identifie_parent_id_rubrique
function import_identifie_parent_id_rubrique($id_parent, $titre, $v)
{
	global $trans;
	if (isset($trans['id_rubrique'])) {
		if ($id_parent < 0) {
			$id_parent = (0 - $id_parent);
			$gparent = $trans['id_rubrique'][$id_parent][0];
			// parent deja renumerote depuis le debut la passe 2
			if ($gparent >= 0)
			  $id_parent = $gparent;
			else {
			  // premiere occurrence du parent
				$pitre = $trans['id_rubrique'][$id_parent][1];
				$n = import_identifie_parent_id_rubrique($gparent, $pitre, $id_parent);
				$trans['id_rubrique'][$id_parent][0] = ($n>0) ? $n: (0-$n);
				// parent tout neuf,
				// pas la peine de chercher un titre homonyme
				if ($n > 0) {
					$trans['id_rubrique'][$id_parent][2]=1; // nouvelle rub.
					return import_alloue_id_rubrique($n, $titre, $v);
				} else $id_parent = (0 - $n);
			}
		}

		$r = sql_fetsel("id_rubrique", "spip_rubriques", "titre=" . sql_quote($titre) . " AND id_parent=" . intval($id_parent));
		if ($r)  {
		  return (0 - $r['id_rubrique']);
		}
		return import_alloue_id_rubrique($id_parent, $titre, $v);
	}
}

// reserver la place en mettant titre et parent tout de suite
// pour que le SELECT ci-dessus fonctionne a la prochaine occurrence

// http://doc.spip.org/@import_alloue_id_rubrique
function import_alloue_id_rubrique($id_parent, $titre, $v) {
	if ($r = sql_insertq('spip_rubriques', array('titre' => $titre, id_parent => $id_parent)))
		sql_replace('spip_translate', array(
		    'id_old' => $v,
		    'id_new' => $r,
		    'titre' => $titre,
		    'type' => 'id_rubrique',
		    'ajout' => 1),
	  $GLOBALS['tables_principales']['spip_translate']);
	else spip_log("Impossible d'inserer dans spip_rubriques");
	return $r;
}
?>