Subversion Repositories Sites.tela-botanica.org

Rev

Rev 5 | Blame | Last modification | View Log | RSS feed

<?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_BASE")) return;
define("_ECRIRE_INC_BASE", "1");

include_ecrire("inc_acces.php3");
include_ecrire("inc_serialbase.php3");
include_ecrire("inc_auxbase.php3");
include_ecrire("inc_typebase.php3");
include_ecrire("inc_majbase.php3");

// Fonction de creation d'une table SQL nommee $nom
// a partir de 2 tableaux PHP :
// champs: champ => type
// cles: type-de-cle => champ(s)
// si $autoinc, c'est une auto-increment (i.e. serial) sur la Primary Key
// Le nom des caches doit etre inferieur a 64 caracteres

function spip_create_table($nom, $champs, $cles, $autoinc=false) {
        $query = ''; $keys = ''; $s = '';

        foreach($cles as $k => $v) {
                $keys .= "$s\n\t\t$k ($v)";
                if ($k == "PRIMARY KEY")
                        $p = $v;
                $s = ",";
        }
        $s = '';

        foreach($champs as $k => $v) {
                $query .= "$s\n\t\t$k $v" .
                (($autoinc && ($p == $k)) ? " auto_increment" : '');
                $s = ",";
        }

        $query = "CREATE TABLE IF NOT EXISTS $nom ($query" .
                ($keys ? ",$keys" : '') .
                ")\n";
        spip_query_db($query);

}


function creer_base() {
  global $tables_principales, $tables_auxiliaires, $tables_images, $tables_sequences, $tables_documents, $tables_mime;

        // ne pas revenir plusieurs fois (si, au contraire, il faut pouvoir
        // le faire car certaines mises a jour le demandent explicitement)
        # static $vu = false;
        # if ($vu) return; else $vu = true;

        foreach($tables_principales as $k => $v)
                spip_create_table($k, $v['field'], $v['key'], true);

        foreach($tables_auxiliaires as $k => $v)
                spip_create_table($k, $v['field'], $v['key'], false);

        foreach($tables_images as $k => $v)
                spip_query_db("INSERT IGNORE spip_types_documents (extension, inclus, titre, id_type) VALUES ('$k', 'image', '" .
                              (is_numeric($v) ?
                               (strtoupper($k) . "', $v") :
                               "$v', 0") .
                              ")");

        foreach($tables_sequences as $k => $v)
                spip_query_db("INSERT IGNORE spip_types_documents (extension, titre, inclus) VALUES ('$k', '$v', 'embed')");

        foreach($tables_documents as $k => $v)
                spip_query_db("INSERT IGNORE spip_types_documents (extension, titre, inclus) VALUES ('$k', '$v', 'non')");

        foreach ($tables_mime as $extension => $type_mime)
          spip_query_db("UPDATE spip_types_documents
                SET mime_type='$type_mime' WHERE extension='$extension'");
}

function stripslashes_base($table, $champs) {
        $modifs = '';
        reset($champs);
        while (list(, $champ) = each($champs)) {
                $modifs[] = $champ . '=REPLACE(REPLACE(' .$champ. ',"\\\\\'", "\'"), \'\\\\"\', \'"\')';
        }
        $query = "UPDATE $table SET ".join(',', $modifs);
        spip_query($query);
}

?>