Subversion Repositories Sites.tela-botanica.org

<?php

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


//
// Ce fichier ne sera execute qu'une fois
if (defined("_ECRIRE_INC_IMPORT")) return;
define("_ECRIRE_INC_IMPORT", "1");


include_ecrire ("inc_acces.php3");


function xml_fetch_tag($f, &$before, $gz=false) {
        global $buf, $pos, $abs_pos;
        static $buf_len = 1000;
        $_fread = ($gz) ? gzread : fread;
        $_feof = ($gz) ? gzeof : feof;
        $_ftell = ($gz) ? gztell : ftell;
        $p = $pos;

        $q = @strpos($buf, '<', $p);
        while (!$q AND substr($buf, $p, 1) != '<') {
                if ($_feof($f)) return false;
                $before .= substr($buf, $p);
                $buf = $_fread($f, $buf_len);
                $p = 0;
                $q = strpos($buf, '<');
        }
        $before .= substr($buf, $p, $q - $p);
        $tag = '';
        $p = ++$q;
        $q = @strpos($buf, '>', $p);
        while (!$q AND substr($buf, $p, 1) != '>') {
                if ($_feof($f)) return false;
                $tag .= substr($buf, $p);
                $buf = $_fread($f, $buf_len);
                $p = 0;
                $q = strpos($buf, '>');
        }
        $pos = $q + 1;
        $tag .= substr($buf, $p, $q - $p);
        $before = str_replace('&amp;', '&', str_replace('&lt;', '<', $before));
        $abs_pos = $_ftell($f) - strlen($buf);
        return $tag;
}


function xml_parse_tag($texte) {
        list($tag, $atts) = split('[[:space:]]+', $texte, 2);
        $result[0] = $tag;
        $result[1] = '';
        if (!$atts) return $result;
        while (ereg('^([^[:space:]]+)[[:space:]]*=[[:space:]]*"([^"]*)"([[:space:]]+(.*))?', $atts, $regs)) {
                $result[1][$regs[1]] = $regs[2];
                $atts = $regs[4];
        }
        return $result;
}


function import_debut($f, $gz=false) {
        $b = "";
        while ($t = xml_fetch_tag($f, $b, $gz)) {
                $r = xml_parse_tag($t);
                if ($r[0] == '?xml' AND $r[1]['encoding'])
                        ecrire_meta('charset_restauration', strtolower($r[1]['encoding']));
                if ($r[0] == "SPIP") return $r;
                $b = "";
        }
        return false;
}


//
// $f = handle fichier
// $gz = flag utilisation zlib
//
// importe un objet depuis le fichier, retourne true si ok, false si erreur ou fin de fichier
//

function import_objet_1_2($f, $gz=false) {
        global $import_ok, $pos, $abs_pos;
        static $time_javascript;

        if (time() - $time_javascript > 3) {    // 3 secondes
                affiche_progression_javascript($abs_pos);
                $time_javascript = time();
        }

        static $tables;
        if (!$tables) $tables = array(
                'article' => 'spip_articles',
                'auteur' => 'spip_auteurs',
                'breve' => 'spip_breves',
                'document' => 'spip_documents',
                'forum' => 'spip_forum',
                'groupe_mots' => 'spip_groupes_mots',
                'message' => 'spip_messages',
                'mot' => 'spip_mots',
                'petition' => 'spip_petitions',
                'rubrique' => 'spip_rubriques',
                'signature' => 'spip_signatures',
                'syndic' => 'spip_syndic',
                'syndic_article' => 'spip_syndic_articles',
                'type_document' => 'spip_types_documents'
        );

        $import_ok = false;
        $b = '';
        // Lire le type d'objet
        if (!($type = xml_fetch_tag($f, $b, $gz))) return false;
        if ($type == '/SPIP') return !($import_ok = true);
        $id = "id_$type";
        $id_objet = 0;

        // Lire les champs de l'objet
        for (;;) {
                $b = '';
                if (!($col = xml_fetch_tag($f, $b, $gz))) return false;
                if ($col == '/'.$type) break;
                $value = '';
                if (!xml_fetch_tag($f, $value, $gz)) return false;
                if (substr($col, 0, 5) == 'lien:') {
                        $type_lien = substr($col, 5);
                        $liens[$type_lien][] = '('.$id_objet.','.$value.')';
                }
                else if ($col != 'maj') {
                        // tentative de restauration d'une base sauvegardee avec le champ 'images' ; d'experience, ca arrive...
                        // mieux vaut accepter que canner silencieusement...
                        if (($type == 'article') && ($col == 'images'))
                        {
                                if ($value) {           // ne pas afficher de message si on a un champ suppl mais vide
                                        echo "--><br><font color='red'><b>"._T('avis_erreur_sauvegarde', array('type' => $type, 'id_objet' => $id_objet))."</b></font>\n<font color='black'>"._T('avis_colonne_inexistante', array('col' => $col));
                                        if ($col == 'images') echo _T('info_verifier_image');
                                        echo "</font>\n<!--";
                                        $GLOBALS['erreur_restauration'] = true;
                                }
                        }
                        else {
                                $cols[] = $col;
                                $values[] = '"'.addslashes($value).'"';
                                if ($col == $id) $id_objet = $value;
                        }
                }
        }

        $table = $tables[$type];
        $query = "REPLACE $table (" . join(',', $cols) . ') VALUES (' . join(',', $values) . ')';
        if (!spip_query($query)) {
                echo "--><br><font color='red'><b>"._T('avis_erreur_mysql')."</b></font>\n<font color='black'><tt>".spip_sql_error()."</tt></font>\n<!--";
                $GLOBALS['erreur_restauration'] = true;
        }

        if ($type == 'article') {
                spip_query("DELETE FROM spip_auteurs_articles WHERE id_article=$id_objet");
                spip_query("DELETE FROM spip_documents_articles WHERE id_article=$id_objet");
        }
        else if ($type == 'rubrique') {
                spip_query("DELETE FROM spip_auteurs_rubriques WHERE id_rubrique=$id_objet");
                spip_query("DELETE FROM spip_documents_rubriques WHERE id_rubrique=$id_objet");
        }
        else if ($type == 'breve') {
                spip_query("DELETE FROM spip_documents_breves WHERE id_breve=$id_objet");
        }
        else if ($type == 'mot') {
                spip_query("DELETE FROM spip_mots_articles WHERE id_mot=$id_objet");
                spip_query("DELETE FROM spip_mots_breves WHERE id_mot=$id_objet");
                spip_query("DELETE FROM spip_mots_forum WHERE id_mot=$id_objet");
                spip_query("DELETE FROM spip_mots_rubriques WHERE id_mot=$id_objet");
                spip_query("DELETE FROM spip_mots_syndic WHERE id_mot=$id_objet");
        }
        else if ($type == 'auteur') {
                spip_query("DELETE FROM spip_auteurs_rubriques WHERE id_auteur=$id_objet");
        }
        else if ($type == 'message') {
                spip_query("DELETE FROM spip_auteurs_messages WHERE id_message=$id_objet");
        }
        if ($liens) {
                reset($liens);
                while (list($type_lien, $t) = each($liens)) {
                        if ($type == 'auteur' OR $type == 'mot' OR $type == 'document')
                                if ($type_lien == 'syndic' OR $type_lien == 'forum') $table_lien = 'spip_'.$type.'s_'.$type_lien;
                                else $table_lien = 'spip_'.$type.'s_'.$type_lien.'s';
                        else
                                $table_lien = 'spip_'.$type_lien.'s_'.$type.'s';
                        $query = "INSERT INTO $table_lien ($id, id_$type_lien) VALUES ".join(',', $t);
                        spip_query($query);
                }
        }

        $p = $pos + $abs_pos;
        ecrire_meta("status_restauration", "$p");

        return $import_ok = true;
}


function import_objet_0_0($f, $gz=false) {
        global $import_ok, $pos, $abs_pos;

        $import_ok = false;
        $b = '';
        if (!($type = xml_fetch_tag($f, $b, $gz))) return false;
        if ($type == '/SPIP') return !($import_ok = true);
        $is_art = ($type == 'article');
        $is_mot = ($type == 'mot');
        for (;;) {
                $b = '';
                if (!($col = xml_fetch_tag($f, $b, $gz))) return false;
                if ($col == ("/$type")) break;
                $value = '';
                if (!xml_fetch_tag($f, $value, $gz)) return false;
                if ($is_art AND $col == 'id_auteur') {
                        $auteurs[] = $value;
                }
                else if ($is_mot AND $col == 'id_article') {
                        $articles[] = $value;
                }
                else if ($is_mot AND $col == 'id_breve') {
                        $breves[] = $value;
                }
                else if ($is_mot AND $col == 'id_forum') {
                        $forums[] = $value;
                }
                else if ($is_mot AND $col == 'id_rubrique') {
                        $rubriques[] = $value;
                }
                else if ($is_mot AND $col == 'id_syndic') {
                        $syndics[] = $value;
                }
                else if ($col != 'maj') {
                        $cols[] = $col;
                        $values[] = '"'.addslashes($value).'"';
                        if ($is_art && ($col == 'id_article')) $id_article = $value;
                        if ($is_mot && ($col == 'id_mot')) $id_mot = $value;
                }
        }

        $table = "spip_$type";
        if ($type != 'forum' AND $type != 'syndic') $table .= 's';
        $query = "REPLACE $table (" . join(",", $cols) . ") VALUES (" . join(",", $values) . ")";
        spip_query($query);

        if ($is_art && $id_article) {
                $query = "DELETE FROM spip_auteurs_articles WHERE id_article=$id_article";
                spip_query($query);
                if ($auteurs) {
                        reset ($auteurs);
                        while (list(, $auteur) = each($auteurs)) {
                                $query = "INSERT INTO spip_auteurs_articles (id_auteur, id_article) VALUES ($auteur, $id_article)";
                                spip_query($query);
                        }
                }
        }
        if ($is_mot && $id_mot) {
                $query = "DELETE FROM spip_mots_articles WHERE id_mot=$id_mot";
                spip_query($query);
                $query = "DELETE FROM spip_mots_breves WHERE id_mot=$id_mot";
                spip_query($query);
                $query = "DELETE FROM spip_mots_forum WHERE id_mot=$id_mot";
                spip_query($query);
                $query = "DELETE FROM spip_mots_rubriques WHERE id_mot=$id_mot";
                spip_query($query);
                $query = "DELETE FROM spip_mots_syndic WHERE id_mot=$id_mot";
                spip_query($query);
                if ($articles) {
                        reset ($articles);
                        while (list(, $article) = each($articles)) {
                                $query = "INSERT INTO spip_mots_articles (id_mot, id_article) VALUES ($id_mot, $article)";
                                spip_query($query);
                        }
                }
                if ($breves) {
                        reset ($breves);
                        while (list(, $breve) = each($breves)) {
                                $query = "INSERT INTO spip_mots_breves (id_mot, id_breve) VALUES ($id_mot, $breve)";
                                spip_query($query);
                        }
                }
                if ($forums) {
                        reset ($forums);
                        while (list(, $forum) = each($forums)) {
                                $query = "INSERT INTO spip_mots_forum (id_mot, id_forum) VALUES ($id_mot, $forum)";
                                spip_query($query);
                        }
                }
                if ($rubriques) {
                        reset ($rubriques);
                        while (list(, $rubrique) = each($rubriques)) {
                                $query = "INSERT INTO spip_mots_rubriques (id_mot, id_rubrique) VALUES ($id_mot, $id_rubrique)";
                                spip_query($query);
                        }
                }
                if ($syndics) {
                        reset ($syndics);
                        while (list(, $syndic) = each($syndics)) {
                                $query = "INSERT INTO spip_mots_syndic (id_mot, id_syndic) VALUES ($id_mot, $syndic)";
                                spip_query($query);
                        }
                }
        }

        $p = $pos + $abs_pos;
        ecrire_meta("status_restauration", "$p");
//      ecrire_metas();

        return $import_ok = true;
}

function import_objet($f, $gz = false) {
        return import_objet_1_2($f, $gz);
}

function import_fin() {
        // Effacer l'ancien acces admin
        $query = "DELETE FROM spip_auteurs WHERE id_auteur=0";
        spip_query($query);

        if ($charset = lire_meta('charset_restauration'))
                ecrire_meta('charset', $charset);
        effacer_meta("charset_restauration");
        effacer_meta("status_restauration");
        effacer_meta("debut_restauration");
        effacer_meta("date_optimisation");
        ecrire_meta('calculer_rubriques', 'oui');
        ecrire_metas();
}

function import_abandon() {
        // Probleme pour restaurer l'ancien acces admin : il conserve un id_auteur = 0

        effacer_meta("charset_restauration");
        effacer_meta("status_restauration");
        effacer_meta("debut_restauration");
        effacer_meta("date_optimisation");
        ecrire_metas();
}


function import_all($f, $gz=false) {
        global $import_ok;
        global $auth_htaccess;
        global $connect_id_auteur;
        $_fseek = ($gz) ? gzseek : fseek;

        // utiliser une version fraiche des metas (ie pas le cache)
        include_ecrire('inc_meta.php3');
        lire_metas();

        $my_date = lire_meta_maj("debut_restauration");
        if (!$my_date) return false;

        $my_pos = lire_meta("status_restauration");

        if (!$my_pos) {
                // Debut de l'importation
                ecrire_meta('charset_restauration', 'iso-8859-1');
                if (!($r = import_debut($f, $gz))) {
                        ecrire_meta("erreur", _T('avis_archive_incorrect'));
                        return false;
                }
                else {
                        // Bidouille pour garder l'acces admin actuel pendant toute la restauration
                        $query = "UPDATE spip_auteurs SET id_auteur=0 WHERE id_auteur=$connect_id_auteur";
                        spip_query($query);

                        $version_archive = $r[1]['version_archive'];
                        ecrire_meta('version_archive_restauration', $version_archive);
                }
        }
        else {
                // Reprise de l'importation
                $_fseek($f, $my_pos);
                $version_archive = lire_meta('version_archive_restauration');
        }

        // Restauration des entrees du fichier

        switch ($version_archive) {
        case '1.2':
                while (import_objet_1_2($f, $gz));
                break;
        default:
                while (import_objet_0_0($f, $gz));
                break;
        }
        if (!$import_ok) {
                ecrire_meta("erreur", _T('avis_archive_invalide'));
                return false;
        }

        // Mise a jour du fichier htpasswd

        ecrire_acces();

        // Destruction des entrees non restaurees

        $query = "DELETE FROM spip_rubriques WHERE UNIX_TIMESTAMP(maj) < $my_date";
        spip_query($query);
        $query = "DELETE FROM spip_breves WHERE UNIX_TIMESTAMP(maj) < $my_date";
        spip_query($query);
        $query = "DELETE FROM spip_auteurs WHERE UNIX_TIMESTAMP(maj) < $my_date";
        spip_query($query);
        $query = "DELETE FROM spip_articles WHERE UNIX_TIMESTAMP(maj) < $my_date";
        spip_query($query);
        $query = "DELETE FROM spip_documents WHERE UNIX_TIMESTAMP(maj) < $my_date";
        spip_query($query);
        $query = "DELETE FROM spip_types_documents WHERE UNIX_TIMESTAMP(maj) < $my_date";
        spip_query($query);
        $query = "DELETE FROM spip_forum WHERE UNIX_TIMESTAMP(maj) < $my_date";
        spip_query($query);
        $query = "DELETE FROM spip_mots WHERE UNIX_TIMESTAMP(maj) < $my_date";
        spip_query($query);
        $query = "DELETE FROM spip_groupes_mots WHERE UNIX_TIMESTAMP(maj) < $my_date";
        spip_query($query);
        $query = "DELETE FROM spip_petitions WHERE UNIX_TIMESTAMP(maj) < $my_date";
        spip_query($query);
        $query = "DELETE FROM spip_signatures WHERE UNIX_TIMESTAMP(maj) < $my_date";
        spip_query($query);
        $query = "DELETE FROM spip_visites WHERE UNIX_TIMESTAMP(maj) < $my_date";
        spip_query($query);

        import_fin();

        affiche_progression_javascript('100 %');

        return true;
}


function affiche_progression_javascript($abs_pos) {
        global $affiche_progression_pourcent;
        include_ecrire('inc_charsets.php3');
        flush();
        echo " -->\n<script type='text/javascript'><!--\n";

        if ($abs_pos == '100 %') {
                $taille = $abs_pos;
                if ($GLOBALS['erreur_restauration'])
                        echo "document.progression.recharge.value='".str_replace("'", "\\'", unicode_to_javascript(_T('avis_erreur')))."';\n";
                else
                        echo "document.progression.recharge.value='".str_replace("'", "\\'", unicode_to_javascript(_T('info_fini')))."';\n";
        }
        else if (! $affiche_progression_pourcent)
                $taille = ereg_replace("&nbsp;", " ", taille_en_octets($abs_pos));
        else
                $taille = floor(100 * $abs_pos / $affiche_progression_pourcent)." %";

        echo "document.progression.taille.value='$taille';\n";
        echo "//--></script>\n<!--\n";
        flush();
}

function import_init()
{
  global $meta, $flag_gz, $buf, $pos, $abs_pos;
        $archive = $meta["fichier_restauration"];
        $my_pos = $meta["status_restauration"];
        $ok = @is_readable($archive);

        if ($ok) {
                if (ereg("\.gz$", $archive)) {
                        $affiche_progression_pourcent = false;
                        $taille = taille_en_octets($my_pos);
                        $gz = true;
                }
                else {
                        $affiche_progression_pourcent = filesize($archive);
                        $taille = floor(100 * $my_pos / $affiche_progression_pourcent)." %";
                        $gz = false;
                }
                $texte_boite = _T('info_base_restauration')."<p>
                <form name='progression'><center><input type='text' size=10 style='text-align:center;' name='taille' value='$taille'><br>
                <input type='text' class='forml' name='recharge' value='"._T('info_recharger_page')."'></center></form>";
        }
        else {
                $texte_boite = _T('info_erreur_restauration');
        }

        debut_boite_alerte();
        echo "<font FACE='Verdana,Arial,Sans,sans-serif' SIZE=4 color='black'><B>$texte_boite</B></font>";
        fin_boite_alerte();
        fin_page("jimmac");
        echo "</HTML><font color='white'>\n<!--";
        @flush();

        if ($ok) {
                $_fopen = ($gz) ? gzopen : fopen;
                $f = $_fopen($archive, "rb");
                $pos = 0;
                $buf = "";
                if (!import_all($f, $gz)) import_abandon();
        }
        else {
                import_fin();
        }
}

?>