/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
- * Copyright (c) 2001-2016 *
+ * Copyright (c) 2001-2017 *
* 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. *
\***************************************************************************/
-if (!defined('_ECRIRE_INC_VERSION')) return;
+/**
+ * Fonctions utilitaires pour le stockage et lecture de configuration
+ *
+ * @package SPIP\Core\Config
+ **/
+
+if (!defined('_ECRIRE_INC_VERSION')) {
+ return;
+}
/**
- * Appliquer les valeurs par defaut pour les options non initialisees
+ * Appliquer les valeurs par défaut pour les options non initialisées
* (pour les langues c'est fait)
*
- * @return null
+ * @return void
*/
-// http://doc.spip.org/@inc_config_dist
function inc_config_dist() {
actualise_metas(liste_metas());
}
/**
- * Expliquer une configuration :
- * analyser le cfg pour determiner la table, le casier et le sous-casier eventuel
+ * Expliquer une clé de configuration
+ *
+ * Analyser la clé de configuration pour déterminer
+ * - la table (ex: spip_metas),
+ * - le casier, la clé principale (ex: dada)
+ * - et le sous-casier éventuel, chemin dans la clé principale (ex: truc/muche)
*
* @param string $cfg
+ * Clé de configuration, tel que 'dada/truc/muche'
* @return array
+ * Liste (table, casier, sous_casier)
*/
-function expliquer_config($cfg){
+function expliquer_config($cfg) {
// par defaut, sur la table des meta
$table = 'meta';
$casier = null;
$sous_casier = array();
- if (strlen($cfg)){
- $cfg = explode('/',$cfg);
- // si le premier argument est vide, c'est une syntaxe /table/ ou un appel vide ''
- if (!reset($cfg) AND count($cfg)>1) {
- array_shift($cfg);
- $table = array_shift($cfg);
- if (!isset($GLOBALS[$table]))
- lire_metas($table);
+ $cfg = explode('/', $cfg);
+
+ // si le premier argument est vide, c'est une syntaxe /table/ ou un appel vide ''
+ if (!reset($cfg) and count($cfg) > 1) {
+ array_shift($cfg);
+ $table = array_shift($cfg);
+ if (!isset($GLOBALS[$table])) {
+ lire_metas($table);
}
- // si on a demande #CONFIG{/meta,'',0}
- if (count($cfg))
- $casier = array_shift($cfg);
+ }
+
+ // si on a demande #CONFIG{/meta,'',0}
+ if (count($cfg)) {
+ // pas sur un appel vide ''
+ if ('' !== ($c = array_shift($cfg))) {
+ $casier = $c;
+ }
+ }
- if (count($cfg))
- $sous_casier = $cfg;
+ if (count($cfg)) {
+ $sous_casier = $cfg;
}
- return array($table,$casier,$sous_casier);
+
+ return array($table, $casier, $sous_casier);
}
/**
*
* $unserialize est mis par l'histoire
*
- * @param string $cfg la config
- * @param mixed $def un défaut optionnel
- * @param boolean $unserialize n'affecte que le dépôt 'meta'
- * @return string
+ * @param string $cfg
+ * Clé de configuration
+ * @param mixed $def
+ * Valeur par défaut
+ * @param boolean $unserialize
+ * N'affecte que le dépôt 'meta' :
+ * True pour désérialiser automatiquement la valeur
+ * @return mixed
+ * Contenu de la configuration obtenue
*/
-function lire_config($cfg='', $def=null, $unserialize=true) {
+function lire_config($cfg = '', $def = null, $unserialize = true) {
// lire le stockage sous la forme /table/valeur
// ou valeur qui est en fait implicitement /meta/valeur
// ou casier/valeur qui est en fait implicitement /meta/casier/valeur
// traiter en priorite le cas simple et frequent
// de lecture direct $GLOBALS['meta']['truc'], si $cfg ne contient ni / ni :
- if ($cfg AND strpbrk($cfg,'/:')===false){
- $r = isset($GLOBALS['meta'][$cfg])?
- ((!$unserialize
- // ne pas essayer de deserialiser autre chose qu'une chaine
- OR !is_string($GLOBALS['meta'][$cfg])
- // ne pas essayer de deserialiser si ce n'est visiblement pas une chaine serializee
- OR strpos($GLOBALS['meta'][$cfg],':')===false
- OR ($t=unserialize($GLOBALS['meta'][$cfg]))===false)?$GLOBALS['meta'][$cfg]:$t)
- :$def;
+ if ($cfg and strpbrk($cfg, '/:') === false) {
+ $r = isset($GLOBALS['meta'][$cfg]) ?
+ ((!$unserialize
+ // ne pas essayer de deserialiser autre chose qu'une chaine
+ or !is_string($GLOBALS['meta'][$cfg])
+ // ne pas essayer de deserialiser si ce n'est visiblement pas une chaine serializee
+ or strpos($GLOBALS['meta'][$cfg], ':') === false
+ or ($t = @unserialize($GLOBALS['meta'][$cfg])) === false) ? $GLOBALS['meta'][$cfg] : $t)
+ : $def;
+
return $r;
}
// Brancher sur methodes externes si besoin
- if ($cfg AND $p=strpos($cfg,'::')){
- $methode = substr($cfg,0,$p);
+ if ($cfg and $p = strpos($cfg, '::')) {
+ $methode = substr($cfg, 0, $p);
$lire_config = charger_fonction($methode, 'lire_config');
- return $lire_config(substr($cfg,$p+2),$def,$unserialize);
+
+ return $lire_config(substr($cfg, $p + 2), $def, $unserialize);
}
- list($table,$casier,$sous_casier) = expliquer_config($cfg);
+ list($table, $casier, $sous_casier) = expliquer_config($cfg);
- if (!isset($GLOBALS[$table]))
- return $def;
+ if (!isset($GLOBALS[$table])) {
+ return $def;
+ }
$r = $GLOBALS[$table];
// si on a demande #CONFIG{/meta,'',0}
- if (!$casier)
+ if (!$casier) {
return $unserialize ? $r : serialize($r);
+ }
// casier principal :
// le deserializer si demande
// ou si on a besoin
// d'un sous casier
- $r = isset($r[$casier])?$r[$casier]:null;
- if (($unserialize OR count($sous_casier)) AND $r AND is_string($r))
- $r = (($t=unserialize($r))===false?$r:$t);
+ $r = isset($r[$casier]) ? $r[$casier] : null;
+ if (($unserialize or count($sous_casier)) and $r and is_string($r)) {
+ $r = (($t = @unserialize($r)) === false ? $r : $t);
+ }
// aller chercher le sous_casier
- while(!is_null($r) AND $casier = array_shift($sous_casier))
- $r = isset($r[$casier])?$r[$casier]:null;
+ while (!is_null($r) and $casier = array_shift($sous_casier)) {
+ $r = isset($r[$casier]) ? $r[$casier] : null;
+ }
+
+ if (is_null($r)) {
+ return $def;
+ }
- if (is_null($r)) return $def;
return $r;
}
* metapack est inclue dans lire_config, mais on traite le cas ou il est explicite
* metapack:: dans le $cfg de lire_config.
* On renvoie simplement sur lire_config
- *
+ *
* @param string $cfg
* @param mixed $def
* @param bool $unserialize
* @return mixed
*/
-function lire_config_metapack_dist($cfg='', $def=null, $unserialize=true) {
+function lire_config_metapack_dist($cfg = '', $def = null, $unserialize = true) {
return lire_config($cfg, $def, $unserialize);
}
* @param mixed $store
* @return bool
*/
-function ecrire_config($cfg,$store) {
+function ecrire_config($cfg, $store) {
// Brancher sur methodes externes si besoin
- if ($cfg AND $p=strpos($cfg,'::')){
- $methode = substr($cfg,0,$p);
+ if ($cfg and $p = strpos($cfg, '::')) {
+ $methode = substr($cfg, 0, $p);
$ecrire_config = charger_fonction($methode, 'ecrire_config');
- return $ecrire_config(substr($cfg,$p+2),$store);
+
+ return $ecrire_config(substr($cfg, $p + 2), $store);
}
-
- list($table,$casier,$sous_casier) = expliquer_config($cfg);
+
+ list($table, $casier, $sous_casier) = expliquer_config($cfg);
// il faut au moins un casier pour ecrire
- if (!$casier) return false;
+ if (!$casier) {
+ return false;
+ }
// trouvons ou creons le pointeur sur le casier
- $st = isset($GLOBALS[$table][$casier])?$GLOBALS[$table][$casier]:null;
- if (!is_array($st) AND ($sous_casier OR is_array($store))) {
+ $st = isset($GLOBALS[$table][$casier]) ? $GLOBALS[$table][$casier] : null;
+ if (!is_array($st) and ($sous_casier or is_array($store))) {
$st = unserialize($st);
- if ($st===false) {
+ if ($st === false) {
// ne rien creer si c'est une demande d'effacement
- if (is_null($store))
+ if (is_null($store)) {
return false;
- $st=array();
+ }
+ $st = array();
}
}
if ($c = $sous_casier) {
$sc = &$st;
$pointeurs = array();
- while (count($c) AND $cc=array_shift($c)) {
+ while (count($c) and $cc = array_shift($c)) {
// creer l'entree si elle n'existe pas
if (!isset($sc[$cc])) {
// si on essaye d'effacer une config qui n'existe pas
// ne rien creer mais sortir
- if (is_null($store))
+ if (is_null($store)) {
return false;
+ }
$sc[$cc] = array();
}
$pointeurs[$cc] = &$sc;
}
// si c'est une demande d'effacement
- if (is_null($store)){
+ if (is_null($store)) {
$c = $sous_casier;
$sous = array_pop($c);
// effacer, et remonter pour effacer les parents vides
do {
unset($pointeurs[$sous][$sous]);
- } while ($sous = array_pop($c) AND !count($pointeurs[$sous][$sous]));
-
+ } while ($sous = array_pop($c) and !count($pointeurs[$sous][$sous]));
+
// si on a vide tous les sous casiers,
// et que le casier est vide
// vider aussi la meta
- if (!$sous AND !count($st))
+ if (!$sous and !count($st)) {
$st = null;
- }
- // dans tous les autres cas, on ecrase
- else
+ }
+ } // dans tous les autres cas, on ecrase
+ else {
$sc = $store;
+ }
// Maintenant que $st est modifiee
// reprenons la comme valeur a stocker dans le casier principal
}
if (is_null($store)) {
- if (is_null($st) AND !$sous_casier)
- return false; // la config n'existait deja pas !
- effacer_meta ($casier, $table);
+ if (is_null($st) and !$sous_casier) {
+ return false;
+ } // la config n'existait deja pas !
+ effacer_meta($casier, $table);
if (!count($GLOBALS[$table])
- OR count($GLOBALS[$table])==1 AND isset($GLOBALS[$table]['charset'])) {
+ or count($GLOBALS[$table]) == 1 and isset($GLOBALS[$table]['charset'])
+ ) {
effacer_meta('charset', $table); // enlevons cette meta
supprimer_table_meta($table); // supprimons la table (si elle est bien vide)
}
- }
- // les meta ne peuvent etre que des chaines : il faut serializer le reste
+ } // les meta ne peuvent etre que des chaines : il faut serializer le reste
else {
- if (!isset($GLOBALS[$table]))
+ if (!isset($GLOBALS[$table])) {
installer_table_meta($table);
+ }
// si ce n'est pas une chaine
// il faut serializer
- if (!is_string($store))
- $store=serialize($store);
+ if (!is_string($store)) {
+ $store = serialize($store);
+ }
ecrire_meta($casier, $store, null, $table);
}
+
// verifier que lire_config($cfg)==$store ?
return true;
}
* @param mixed $store
* @return bool
*/
-function ecrire_config_metapack_dist($cfg,$store) {
+function ecrire_config_metapack_dist($cfg, $store) {
// cas particulier en metapack::
// si on ecrit une chaine deja serializee, il faut la reserializer pour la rendre
// intacte en sortie ...
- if (is_string($store) AND strpos($store,':') AND unserialize($store))
+ if (is_string($store) and strpos($store, ':') and unserialize($store)) {
$store = serialize($store);
+ }
+
return ecrire_config($cfg, $store);
}
/**
* Effacer une configuration : revient a ecrire une valeur null
+ *
* @param string $cfg
* @return bool
*/
-function effacer_config($cfg){
+function effacer_config($cfg) {
ecrire_config($cfg, null);
+
return true;
}
-
-function lister_configurer($exclure = array()){
+/**
+ * Lister toutes les pages de configuration du site.
+ *
+ * Y compris celles fournies par des plugins.
+ *
+ * @uses _EXTENSION_SQUELETTES
+ * @uses find_all_in_path()
+ * @uses find_in_theme()
+ * @uses lister_formulaires_configurer()
+ *
+ * @param array $exclure
+ * @return array
+ */
+function lister_configurer($exclure = array()) {
return array();
-
+
// lister les pages de config deja dans les menus
$deja = array();
- foreach($exclure as $id=>$b) {
+ foreach ($exclure as $id => $b) {
$url = ($b['url'] ? $b['url'] : $id);
if (!$b['url'] or !isset($exclure[$url])) {
- if (strncmp($url,'configurer_',11)==0) {
+ if (strncmp($url, 'configurer_', 11) == 0) {
$deja[$url] = $b;
- } elseif($b['url']=='configurer' AND preg_match(',cfg=([a-z0-9_]+),i',$b['args'],$match)) {
- $deja["configurer_".$match[1]] = $b;
+ } elseif ($b['url'] == 'configurer' and preg_match(',cfg=([a-z0-9_]+),i', $b['args'], $match)) {
+ $deja["configurer_" . $match[1]] = $b;
}
}
-
+
}
$exclure = $exclure + $deja;
// trouver toutes les pages configurer_xxx de l'espace prive
// et construire un tableau des entrees qui ne sont pas dans $deja
- $pages = find_all_in_path("prive/squelettes/contenu/", "configurer_.*[.]"._EXTENSION_SQUELETTES.'$');
+ $pages = find_all_in_path("prive/squelettes/contenu/", "configurer_.*[.]" . _EXTENSION_SQUELETTES . '$');
- foreach($pages as $page) {
- $configurer = basename($page,"."._EXTENSION_SQUELETTES);
+ foreach ($pages as $page) {
+ $configurer = basename($page, "." . _EXTENSION_SQUELETTES);
if (!isset($exclure[$configurer])) {
$liste[$configurer] = array(
- 'parent' => 'bando_configuration',
- 'url' => $configurer,
- 'titre' => _T("configurer:{$configurer}_titre"),
- 'icone' => find_in_theme($i="images/{$configurer}-16.png")?$i:$icone_defaut,
+ 'parent' => 'bando_configuration',
+ 'url' => $configurer,
+ 'titre' => _T("configurer:{$configurer}_titre"),
+ 'icone' => find_in_theme($i = "images/{$configurer}-16.png") ? $i : $icone_defaut,
);
}
$skels[$configurer] = $page;
}
// analyser la liste des $skels pour voir les #FORMULAIRE_CONFIGURER_ inclus
- foreach($skels as $file) {
+ foreach ($skels as $file) {
$forms = array_merge($forms, lister_formulaires_configurer($file));
}
$forms = array_flip($forms);
// trouver tous les formulaires/configurer_
// et construire un tableau des entrees
- $pages = find_all_in_path("formulaires/", "configurer_.*[.]"._EXTENSION_SQUELETTES.'$');
- foreach($pages as $page) {
- $configurer = basename($page,"."._EXTENSION_SQUELETTES);
+ $pages = find_all_in_path("formulaires/", "configurer_.*[.]" . _EXTENSION_SQUELETTES . '$');
+ foreach ($pages as $page) {
+ $configurer = basename($page, "." . _EXTENSION_SQUELETTES);
if (!isset($forms[$configurer])
- AND !isset($liste[$configurer])
- AND !isset($exclure[$configurer]))
+ and !isset($liste[$configurer])
+ and !isset($exclure[$configurer])
+ ) {
$liste[$configurer] = array(
- 'parent' => 'bando_configuration',
- 'url' => 'configurer',
- 'args' => 'cfg='.substr($configurer,11),
- 'titre' => _T("configurer:{$configurer}_titre"),
- 'icone' => find_in_theme($i="images/{$configurer}-16.png")?$i:$icone_defaut,
+ 'parent' => 'bando_configuration',
+ 'url' => 'configurer',
+ 'args' => 'cfg=' . substr($configurer, 11),
+ 'titre' => _T("configurer:{$configurer}_titre"),
+ 'icone' => find_in_theme($i = "images/{$configurer}-16.png") ? $i : $icone_defaut,
);
+ }
}
return $liste;
/**
* Retourne la liste des formulaires de configuration
- * presents dans le fichier dont l'adresse est donnee
+ * présents dans le fichier dont l'adresse est donnée
*
- * @param string $file adresse du fichier
- * @return array liste des formulaires trouves
-**/
+ * @param string $file
+ * Adresse du fichier
+ * @return array
+ * Liste des formulaires trouvés
+ **/
function lister_formulaires_configurer($file) {
$forms = array();
-
+
lire_fichier($file, $skel);
- if (preg_match_all(",#FORMULAIRE_(CONFIGURER_[A-Z0-9_]*),", $skel, $matches,PREG_SET_ORDER)) {
- $matches = array_map('end',$matches);
- $matches = array_map('strtolower',$matches);
- $forms = array_merge($forms,$matches);
+ if (preg_match_all(",#FORMULAIRE_(CONFIGURER_[A-Z0-9_]*),", $skel, $matches, PREG_SET_ORDER)) {
+ $matches = array_map('end', $matches);
+ $matches = array_map('strtolower', $matches);
+ $forms = array_merge($forms, $matches);
}
// evaluer le fond en lui passant un exec coherent pour que les pipelines le reconnaissent
// et reperer les formulaires CVT configurer_xx insereres par les plugins via pipeline
- $config = basename(substr($file,0,-strlen("."._EXTENSION_SQUELETTES)));
- spip_log('Calcul de '."prive/squelettes/contenu/$config");
+ $config = basename(substr($file, 0, -strlen("." . _EXTENSION_SQUELETTES)));
+ spip_log('Calcul de ' . "prive/squelettes/contenu/$config");
$fond = recuperer_fond("prive/squelettes/contenu/$config", array("exec" => $config));
-
+
// passer dans le pipeline affiche_milieu pour que les plugins puissent ajouter leur formulaires...
// et donc que l'on puisse les referencer aussi !
- $fond = pipeline('affiche_milieu', array('args'=>array("exec" => $config),'data'=>$fond));
+ $fond = pipeline('affiche_milieu', array('args' => array("exec" => $config), 'data' => $fond));
// recuperer les noms des formulaires presents.
- if (is_array($inputs = extraire_balises($fond,"input"))) {
- foreach($inputs as $i) {
- if (extraire_attribut($i,'name')=='formulaire_action') {
- $forms[] = ($c=extraire_attribut($i,'value'));
+ if (is_array($inputs = extraire_balises($fond, "input"))) {
+ foreach ($inputs as $i) {
+ if (extraire_attribut($i, 'name') == 'formulaire_action') {
+ $forms[] = ($c = extraire_attribut($i, 'value'));
}
}
}
+
return $forms;
}
-// http://doc.spip.org/@liste_metas
-function liste_metas()
-{
+/**
+ * Définir les `meta` de configuration
+ *
+ * @pipeline_appel configurer_liste_metas
+ *
+ * @uses url_de_base()
+ * @uses _DEFAULT_CHARSET
+ * @uses _DIR_IMG
+ * @uses _DIR_RACINE
+ *
+ * @return array
+ * Couples nom de la `meta` => valeur par défaut
+ */
+function liste_metas() {
return pipeline('configurer_liste_metas', array(
'nom_site' => _T('info_mon_site_spip'),
'slogan_site' => '',
'accepter_visiteurs' => 'non',
'prevenir_auteurs' => 'non',
'suivi_edito' => 'non',
- 'adresse_suivi' =>'',
- 'adresse_suivi_inscription' =>'',
+ 'adresse_suivi' => '',
+ 'adresse_suivi_inscription' => '',
'adresse_neuf' => '',
'jours_neuf' => '',
'quoi_de_neuf' => 'non',
'syndication_integrale' => 'oui',
'charset' => _DEFAULT_CHARSET,
- 'dir_img' => substr(_DIR_IMG,strlen(_DIR_RACINE)),
+ 'dir_img' => substr(_DIR_IMG, strlen(_DIR_RACINE)),
'multi_rubriques' => 'non',
'multi_secteurs' => 'non',
'email_envoi' => '',
'email_webmaster' => '',
- 'auto_compress_http'=>'non',
+ 'auto_compress_http' => 'non',
));
}
-// mets les meta a des valeurs conventionnelles quand elles sont vides
-// et recalcule les langues
-
-// http://doc.spip.org/@actualise_metas
-function actualise_metas($liste_meta)
-{
+/**
+ * Mets les `meta` à des valeurs conventionnelles quand elles sont vides
+ * et recalcule les langues
+ *
+ * @param array $liste_meta
+ * @return void
+ */
+function actualise_metas($liste_meta) {
$meta_serveur =
- array('version_installee','adresse_site','alea_ephemere_ancien','alea_ephemere','alea_ephemere_date','langue_site','langues_proposees','date_calcul_rubriques','derniere_modif','optimiser_table','drapeau_edition','creer_preview','taille_preview','creer_htpasswd','creer_htaccess','gd_formats_read','gd_formats',
- 'netpbm_formats','formats_graphiques','image_process','plugin_header','plugin');
+ array(
+ 'version_installee',
+ 'adresse_site',
+ 'alea_ephemere_ancien',
+ 'alea_ephemere',
+ 'alea_ephemere_date',
+ 'langue_site',
+ 'langues_proposees',
+ 'date_calcul_rubriques',
+ 'derniere_modif',
+ 'optimiser_table',
+ 'drapeau_edition',
+ 'creer_preview',
+ 'taille_preview',
+ 'creer_htpasswd',
+ 'creer_htaccess',
+ 'gd_formats_read',
+ 'gd_formats',
+ 'netpbm_formats',
+ 'formats_graphiques',
+ 'image_process',
+ 'plugin_header',
+ 'plugin'
+ );
// verifier le impt=non
- sql_updateq('spip_meta',array('impt'=>'non'),sql_in('nom',$meta_serveur));
+ sql_updateq('spip_meta', array('impt' => 'non'), sql_in('nom', $meta_serveur));
while (list($nom, $valeur) = each($liste_meta)) {
- if (!$GLOBALS['meta'][$nom]) {
+ if (!isset($GLOBALS['meta'][$nom]) or !$GLOBALS['meta'][$nom]) {
ecrire_meta($nom, $valeur);
}
}
}
-
//
// Gestion des modifs
//
-// http://doc.spip.org/@appliquer_modifs_config
-function appliquer_modifs_config($purger_skel=false) {
+/**
+ * Appliquer les modifications apportées aux `metas`
+ *
+ * Si `$purger_skel` est à `true`, on purge le répertoire de cache des squelettes
+ *
+ * @uses liste_metas()
+ * @uses ecrire_meta()
+ * @uses purger_repertoire()
+ *
+ * @param bool $purger_skel
+ * @return void
+ */
+function appliquer_modifs_config($purger_skel = false) {
- foreach(liste_metas() as $i => $v) {
- if (($x =_request($i))!==NULL)
+ foreach (liste_metas() as $i => $v) {
+ if (($x = _request($i)) !== null) {
ecrire_meta($i, $x);
- elseif (!isset($GLOBALS['meta'][$i]))
+ } elseif (!isset($GLOBALS['meta'][$i])) {
ecrire_meta($i, $v);
+ }
}
if ($purger_skel) {
}
/**
- * Mettre a jour l'adresse du site a partir d'une valeur saisie
- * (ou auto detection si vide)
- *
- * @param $adresse_site
- * @return void
+ * Mettre à jour l'adresse du site à partir d'une valeur saisie
+ * (ou auto détection si vide)
+ *
+ * @param string $adresse_site
+ * @return string
*/
-function appliquer_adresse_site($adresse_site){
- if ($adresse_site!==NULL){
- if (!strlen($adresse_site)) {$GLOBALS['profondeur_url']=_DIR_RESTREINT?0:1;$adresse_site = url_de_base();}
+function appliquer_adresse_site($adresse_site) {
+ if ($adresse_site !== null) {
+ if (!strlen($adresse_site)) {
+ $GLOBALS['profondeur_url'] = _DIR_RESTREINT ? 0 : 1;
+ $adresse_site = url_de_base();
+ }
$adresse_site = preg_replace(",/?\s*$,", "", $adresse_site);
- if (!preg_match(",^[\w]+://,Uims",$adresse_site))
+ if (!tester_url_absolue($adresse_site)) {
$adresse_site = "http://$adresse_site";
+ }
- ecrire_meta('adresse_site',$adresse_site);
+ ecrire_meta('adresse_site', $adresse_site);
}
+
return $adresse_site;
}
-
-?>