[SPIP] +2.1.12
[velocampus/web/www.git] / www / plugins / auto / cfg / inc / compat_cfg.php
diff --git a/www/plugins/auto/cfg/inc/compat_cfg.php b/www/plugins/auto/cfg/inc/compat_cfg.php
new file mode 100644 (file)
index 0000000..6711be5
--- /dev/null
@@ -0,0 +1,363 @@
+<?php\r
+\r
+/**\r
+ * Plugin générique de configuration pour SPIP\r
+ *\r
+ * @license    GNU/GPL\r
+ * @package    plugins\r
+ * @subpackage cfg\r
+ * @category   outils\r
+ * @copyright  (c) toggg 2007\r
+ * @link       http://www.spip-contrib.net/\r
+ * @version    $Id: compat_cfg.php 36744 2010-03-29 02:31:19Z gilles.vincent@gmail.com $\r
+ */\r
+\r
+if (!defined("_ECRIRE_INC_VERSION")) return;\r
+\r
+/**\r
+ * CFG doit-il être compatible SPIP 1.9.2 ?\r
+ * @ignore\r
+ */\r
+define('_COMPAT_CFG_192', true);\r
+\r
+if (version_compare($GLOBALS['spip_version_code'], '11216', '<')\r
+       && !function_exists('balise_ACTION_FORMULAIRE_dist')) {\r
+               function balise_ACTION_FORMULAIRE_dist($p){\r
+                       $p->code="''";\r
+                       $p->interdire_scripts = false;\r
+                       return $p;\r
+               }\r
+}\r
+\r
+/* fichier de compatibilite vers spip 1.9.2 */\r
+if (version_compare($GLOBALS['spip_version_code'], '1.9300', '<')\r
+       AND $f = charger_fonction('compat_cfg', 'inc'))\r
+               $f();\r
+\r
+/**\r
+ * Gestion de la compatibilité avec SPIP 1.9.2\r
+ *\r
+ * <b>ceci n'est pas l'original du plugin compat mais la copie pour CFG</b>\r
+ *\r
+ * En termes de distribution ce fichier PEUT etre recopie dans chaque plugin\r
+ * qui desire en avoir une version autonome (voire forkee), A CONDITION DE\r
+ * RENOMMER le fichier et ses deux fonctions ; c'est un peu lourd a maintenir\r
+ * mais c'est le prix a payer pour l'independance des plugins entre eux :-(\r
+ *\r
+ * la version commune a tous est developpee sur\r
+ * {@link http://zone.spip.org/spip-zone/browser/_dev_/compat/ svn://zone.spip.org/spip-zone/_dev_/compat/}\r
+ *\r
+ * @param Array $quoi\r
+ */\r
+function inc_compat_cfg_dist($quoi = NULL) {\r
+       if (!function_exists($f = 'compat_cfg_defs')) $f .= '_dist';\r
+       $defs = $f();\r
+\r
+       include_spip('base/abstract_sql');\r
+       \r
+       if (is_string($quoi))\r
+               $quoi = array($quoi);\r
+       else if (is_null($quoi))\r
+               $quoi = array_keys($defs);\r
+\r
+       foreach ($quoi as $d) {\r
+               if (!function_exists($d)\r
+               AND isset($defs[$d])) {\r
+                       eval ("function $d".$defs[$d]);\r
+               }\r
+       }\r
+}\r
+\r
+/**\r
+ * Calcule le tableau de compatibilité des fonctions non définies sous SPIP2.0\r
+ * (fournit leur arbre syntaxique manipulé par le compilo)\r
+ * \r
+ * @return Array\r
+ */\r
+function compat_cfg_defs_dist() {\r
+       $defs = array(\r
+               // on fait au plus simple pour le journal\r
+               'journal' => \r
+                       '($phrase, $opt = array()) {\r
+                               return spip_log($phrase, \'journal\');\r
+                       }',\r
+                                       \r
+               'push' => \r
+                       '($array, $val) {\r
+                               if($array == \'\' OR !array_push($array, $val)) return \'\';\r
+                               return $array;\r
+                       }',\r
+                       \r
+               'et' => \r
+                       '($code, $arg) {\r
+                               return ((($code) AND ($arg)) ?\' \' :\'\');\r
+                       }',\r
+               \r
+               'ou' => \r
+                       '($code, $arg) {\r
+                               return ((($code) OR ($arg)) ?\' \' :\'\');\r
+                       }',\r
+               \r
+               'xou' => \r
+                       '($code, $arg) {\r
+                               return ((($code) XOR ($arg)) ?\' \' :\'\');\r
+                       }',\r
+               \r
+               'non' => \r
+                       '($code) {\r
+                               return (($code) ?\'\' :\' \');\r
+                       }',\r
+                       \r
+               'oui' => \r
+                       '($code) {\r
+                               return (($code) ?\' \' :\'\');\r
+                       }',\r
+               \r
+               'sql_fetch' => \r
+                       '(\r
+                               $res, \r
+                               $serveur=\'\'\r
+                       ) {\r
+                               return spip_fetch_array($res);\r
+                       }',\r
+               \r
+               'sql_query' => \r
+                       '($res, $serveur=\'\') {\r
+                               return spip_query($res);\r
+                       }',     \r
+               \r
+               // n'existe pas en 1.9.2\r
+               'sql_alter' => \r
+                       '($res, $serveur=\'\') {\r
+                               return spip_query(\'ALTER \' . $res);\r
+                       }',     \r
+                               \r
+               // n'existe pas en 1.9.2\r
+               // on cree la requete directement\r
+               'sql_delete' => \r
+                       '($table, $where=\'\', $serveur=\'\') {\r
+                               if (!is_array($table)) $table = array($table);\r
+                               if (!is_array($where)) $where = array($where);\r
+                               $query = \'DELETE FROM \'\r
+                                               . implode(\',\', $table)\r
+                                               . \' WHERE \'\r
+                                               . implode(\' AND \', $where);\r
+                               return spip_query($query);\r
+                       }',\r
+                       \r
+               // sql_quote : _q directement\r
+               'sql_quote' => \r
+                       '(\r
+                               $val, \r
+                               $serveur=\'\'\r
+                       ) {\r
+                               return _q($val);\r
+                       }',     \r
+                                               \r
+               'sql_select' => \r
+                       '(\r
+                               $select = array(), \r
+                               $from = array(), \r
+                               $where = array(),\r
+                               $groupby = array(), \r
+                               $orderby = array(), \r
+                               $limit = \'\', \r
+                               $having = array(),\r
+                               $serveur=\'\'\r
+                       ) {\r
+                               return spip_abstract_select(\r
+                                       $select, \r
+                                       $from, \r
+                                       $where, \r
+                                       $groupby, \r
+                                       $orderby, \r
+                                       $limit, \r
+                                       $sousrequete = \'\', \r
+                                       $having,\r
+                                       $table = \'\', \r
+                                       $id = \'\', \r
+                                       $serveur);\r
+                       }',\r
+               \r
+               'sql_fetsel' =>\r
+                       '(\r
+                               $select = array(), \r
+                               $from = array(), \r
+                               $where = array(),\r
+                               $groupby = array(), \r
+                               $orderby = array(), \r
+                               $limit = \'\', \r
+                               $having = array(),\r
+                               $serveur=\'\'\r
+                       ) {\r
+                               return sql_fetch(sql_select(\r
+                                       $select, \r
+                                       $from, \r
+                                       $where,\r
+                                       $groupby, \r
+                                       $orderby, \r
+                                       $limit, \r
+                                       $having,\r
+                                       $serveur                                \r
+                               ));\r
+                       }',     \r
+                       \r
+               'sql_getfetsel' =>\r
+                       '(\r
+                               $select, \r
+                               $from = array(), \r
+                               $where = array(),\r
+                               $groupby = array(), \r
+                               $orderby = array(), \r
+                               $limit = \'\', \r
+                               $having = array(),\r
+                               $serveur=\'\'\r
+                       ) {\r
+                               $r = sql_fetsel(\r
+                                       $select, \r
+                                       $from, \r
+                                       $where,\r
+                                       $groupby, \r
+                                       $orderby, \r
+                                       $limit, \r
+                                       $having,\r
+                                       $serveur                                \r
+                               );\r
+                               return $r ? $r[$select] : NULL;\r
+                       }',\r
+                                       \r
+               'sql_allfetsel' =>\r
+                       '(\r
+                               $select, \r
+                               $from = array(), \r
+                               $where = array(),\r
+                               $groupby = array(), \r
+                               $orderby = array(), \r
+                               $limit = \'\', \r
+                               $having = array(),\r
+                               $serveur=\'\'\r
+                       ) {\r
+                               $q = sql_select(\r
+                                       $select, \r
+                                       $from, \r
+                                       $where,\r
+                                       $groupby, \r
+                                       $orderby, \r
+                                       $limit, \r
+                                       $having,\r
+                                       $serveur                                \r
+                               );\r
+                               if (!$q) return array();\r
+                               $res = array();\r
+                               while ($r = sql_fetch($q)) $res[] = $r;\r
+                               return $res;\r
+                       }',                             \r
+               \r
+               // n'existe pas en 1.9.2\r
+               // on cree la requete directement\r
+               'sql_update' => \r
+                       '(\r
+                               $table, \r
+                               $champs, \r
+                               $where=\'\', \r
+                               $desc=array(), \r
+                               $serveur=\'\'\r
+                       ) {\r
+                               if (!is_array($table))  $table = array($table);\r
+                               if (!is_array($champs)) $champs = array($champs);\r
+                               if (!is_array($where))  $where = array($where);\r
+\r
+                               $query = $r = \'\';\r
+                               foreach ($champs as $champ => $val)\r
+                                       $r .= \',\' . $champ . "=$val";\r
+                               if ($r = substr($r, 1))\r
+                                       $query = \'UPDATE \'\r
+                                                       . implode(\',\', $table)\r
+                                                       . \' SET \' . $r\r
+                                                       . (empty($where) ? \'\' :\' WHERE \' . implode(\' AND \', $where));\r
+                               if ($query)\r
+                                       return spip_query($query);\r
+                       }',\r
+\r
+               'sql_updateq' => \r
+                       '(\r
+                               $table, \r
+                               $champs, \r
+                               $where=\'\', \r
+                               $desc=array(), \r
+                               $serveur=\'\'\r
+                       ) {\r
+                               if (!is_array($champs)) $exp = array($champs);\r
+                               \r
+                               foreach ($champs as $k => $val) {\r
+                                       $champs[$k] = sql_quote($val);\r
+                               }\r
+                               \r
+                               return sql_update(                              \r
+                                       $table, \r
+                                       $champs, \r
+                                       $where, \r
+                                       $desc, \r
+                                       $serveur\r
+                               );\r
+                       }',     \r
+                       \r
+               \r
+               // n'existe pas en 1.9.2\r
+               // on cree la requete directement\r
+               'sql_insertq' => \r
+                       '(\r
+                               $table,\r
+                               $champs\r
+                       ) {\r
+                               if (!is_array($champs)) $exp = array($champs);\r
+                               \r
+                               foreach ($champs as $k => $val) {\r
+                                       $champs[$k] = sql_quote($val);\r
+                               }\r
+                               \r
+                               $query = "INSERT INTO $table (".implode(",", array_keys($champs)).") VALUES (".implode(",", $champs).")";\r
+                               return sql_query($query);\r
+                       }',\r
+               \r
+               'sql_showtable' => '($table, $serveur=\'\') {\r
+                       include_spip("base/abstract_sql");\r
+                       return spip_abstract_showtable($table, \'mysql\', true);\r
+               }',\r
+               \r
+\r
+               'sql_count' => \r
+                       '(\r
+                               $res, \r
+                               $serveur=\'\'\r
+                       ) {\r
+                               return spip_mysql_count($res);\r
+                       }',\r
+               \r
+\r
+               'sql_countsel' => \r
+                       '(\r
+                               $from = array(), \r
+                               $where = array(),\r
+                               $groupby = array(), \r
+                               $limit = \'\', \r
+                               $having = array(),\r
+                               $serveur=\'\'\r
+                       ) {\r
+                               return(sql_getfetsel(\'COUNT(*)\', $from, $where, $groupby, \'\', $limit, $having, $serveur));\r
+                       }',\r
+                                       \r
+               'sql_selectdb' => \r
+                       '(\r
+                               $res, \r
+                               $serveur=\'\'\r
+                       ) {\r
+                               $GLOBALS[\'spip_mysql_db\'] = mysql_select_db($res);\r
+                               return $GLOBALS[\'spip_mysql_db\'];\r
+                       }'\r
+\r
+       );\r
+       return $defs;\r
+}\r
+\r
+?>\r