squellete2
[aidenligne_francais_universite.git] / ecrire / base / create.php
CommitLineData
c495c100
P
1<?php
2
3/***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
5 * *
6 * Copyright (c) 2001-2007 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
8 * *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11\***************************************************************************/
12
13if (!defined("_ECRIRE_INC_VERSION")) return;
14
15include_spip('inc/acces');
16include_spip('base/serial');
17include_spip('base/auxiliaires');
18include_spip('base/typedoc');
19
20
21// http://doc.spip.org/@creer_base
22function creer_base() {
23 global $tables_principales, $tables_auxiliaires, $tables_images, $tables_sequences, $tables_documents, $tables_mime;
24
25 // ne pas revenir plusieurs fois (si, au contraire, il faut pouvoir
26 // le faire car certaines mises a jour le demandent explicitement)
27 # static $vu = false;
28 # if ($vu) return; else $vu = true;
29
30 foreach($tables_principales as $k => $v)
31 spip_mysql_create($k, $v['field'], $v['key'], true);
32
33 foreach($tables_auxiliaires as $k => $v)
34 spip_mysql_create($k, $v['field'], $v['key'], false);
35
36 foreach($tables_images as $k => $v)
37 spip_query_db("INSERT IGNORE INTO spip_types_documents (extension, inclus, titre, id_type) VALUES ('$k', 'image', '" .
38 (is_numeric($v) ?
39 (strtoupper($k) . "', $v") :
40 "$v', 0") .
41 ")");
42
43 foreach($tables_sequences as $k => $v)
44 spip_query_db("INSERT IGNORE INTO spip_types_documents (extension, titre, inclus) VALUES ('$k', '$v', 'embed')");
45
46 foreach($tables_documents as $k => $v)
47 spip_query_db("INSERT IGNORE INTO spip_types_documents (extension, titre, inclus) VALUES ('$k', '$v', 'non')");
48
49 foreach ($tables_mime as $extension => $type_mime)
50 spip_query_db("UPDATE spip_types_documents
51 SET mime_type='$type_mime' WHERE extension='$extension'");
52}
53
54// http://doc.spip.org/@stripslashes_base
55function stripslashes_base($table, $champs) {
56 $modifs = '';
57 reset($champs);
58 while (list(, $champ) = each($champs)) {
59 $modifs[] = $champ . '=REPLACE(REPLACE(' .$champ. ',"\\\\\'", "\'"), \'\\\\"\', \'"\')';
60 }
61 spip_query("UPDATE $table SET ".join(',', $modifs));
62
63}
64
65?>