--- /dev/null
+<?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