File "lang.php"
Full path: /home/argothem/www/SpipFactory-fichiers_de_travail/sauvegarde-depannage-1.9a3.2/1.9/ecrire/inc/lang.php
File size: 14.95 KB
MIME-type: text/x-php
Charset: utf-8
<?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2006 *
* 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;
include_spip('inc/actions');
//
// Charger un fichier langue
//
// http://doc.spip.org/@chercher_module_lang
function chercher_module_lang($module, $lang = '') {
if ($lang)
$lang = '_'.$lang;
// 1) dans un repertoire nomme lang/ se trouvant sur le chemin
if ($f = include_spip('lang/'.$module.$lang, false))
return $f;
// 2) directement dans le chemin (old style)
return include_spip($module.$lang, false);
}
// http://doc.spip.org/@charger_langue
function charger_langue($lang, $module = 'spip') {
if ($lang AND $fichier_lang = chercher_module_lang($module, $lang)) {
$GLOBALS['idx_lang']='i18n_'.$module.'_'.$lang;
include_once($fichier_lang);
} else {
// si le fichier de langue du module n'existe pas, on se rabat sur
// la langue par defaut du site -- et au pire sur le francais, qui
// *par definition* doit exister, et on copie le tableau dans la
// var liee a la langue
$l = $GLOBALS['meta']['langue_site'];
if (!$fichier_lang = chercher_module_lang($module, $l))
$fichier_lang = chercher_module_lang($module, 'fr');
if ($fichier_lang) {
$GLOBALS['idx_lang']='i18n_'.$module.'_' .$l;
include($fichier_lang);
$GLOBALS['i18n_'.$module.'_'.$lang]
= &$GLOBALS['i18n_'.$module.'_'.$l];
#spip_log("module de langue : ${module}_$l.php");
}
}
}
//
// Surcharger le fichier de langue courant avec un autre (tordu, hein...)
//
// http://doc.spip.org/@surcharger_langue
function surcharger_langue($fichier) {
$idx_lang_normal = $GLOBALS['idx_lang'];
$idx_lang_surcharge = $GLOBALS['idx_lang'].'_temporaire';
$GLOBALS['idx_lang'] = $idx_lang_surcharge;
include($fichier);
if (is_array($GLOBALS[$idx_lang_surcharge])) {
$GLOBALS[$idx_lang_normal] = array_merge(
$GLOBALS[$idx_lang_normal],
$GLOBALS[$idx_lang_surcharge]
);
}
unset ($GLOBALS[$idx_lang_surcharge]);
$GLOBALS['idx_lang'] = $idx_lang_normal;
}
//
// Changer la langue courante
//
// http://doc.spip.org/@changer_langue
function changer_langue($lang) {
global $all_langs, $spip_lang_rtl, $spip_lang_right, $spip_lang_left, $spip_lang_dir, $spip_dir_lang;
$liste_langues = $all_langs.','.$GLOBALS['meta']['langues_multilingue'];
// Si la langue demandee n'existe pas, on essaie d'autres variantes
// Exemple : 'pt-br' => 'pt_br' => 'pt'
$lang = str_replace('-', '_', trim($lang));
if (!$lang)
return false;
if (ereg(",$lang,", ",$liste_langues,")
OR ($lang = preg_replace(',_.*,', '', $lang)
AND ereg(",$lang,", ",$liste_langues,"))) {
$GLOBALS['spip_lang'] = $lang;
$spip_lang_rtl = lang_dir($lang, '', '_rtl');
$spip_lang_left = lang_dir($lang, 'left', 'right');
$spip_lang_right = lang_dir($lang, 'right', 'left');
$spip_lang_dir = lang_dir($lang);
$spip_dir_lang = " dir='$spip_lang_dir'";
return true;
} else
return false;
}
//
// Regler la langue courante selon les infos envoyees par le brouteur
//
// http://doc.spip.org/@regler_langue_navigateur
function regler_langue_navigateur() {
$accept_langs = explode(',', $_SERVER['HTTP_ACCEPT_LANGUAGE']);
if (is_array($accept_langs)) {
while(list(, $s) = each($accept_langs)) {
if (eregi('^([a-z]{2,3})(-[a-z]{2,3})?(;q=[0-9.]+)?$', trim($s), $r)) {
$lang = strtolower($r[1]);
if (changer_langue($lang)) return $lang;
}
}
}
return false;
}
//
// Traduire une chaine internationalisee
//
// http://doc.spip.org/@traduire_chaine
function traduire_chaine($code) {
global $spip_lang;
// modules par defaut
if (_DIR_RESTREINT)
$modules = array('spip');
else
$modules = array('spip', 'ecrire');
// modules demandes explicitement
$code_ori = $code; # le garder pour le fallback plus tard
if (strpos($code, ':')) {
if (ereg("^([a-z/]+):(.*)$", $code, $regs)) {
$modules = explode("/",$regs[1]);
$code = $regs[2];
}
}
$text = '';
// parcourir tous les modules jusqu'a ce qu'on trouve
foreach ($modules as $module) {
$var = "i18n_".$module."_".$spip_lang;
if (empty($GLOBALS[$var])) {
charger_langue($spip_lang, $module);
// surcharge perso -- on cherche (lang/)local_xx.php ...
if ($f = chercher_module_lang('local', $spip_lang))
surcharger_langue($f);
// ... puis (lang/)local.php
if ($f = chercher_module_lang('local'))
surcharger_langue($f);
}
if (isset($GLOBALS[$var][$code])) {
$text = $GLOBALS[$var][$code];
break;
}
}
// fallback langues pas finies ou en retard (eh oui, c'est moche...)
if ($spip_lang<>'fr') {
$text = ereg_replace("^<(NEW|MODIF)>","",$text);
if (!$text) {
$spip_lang_temp = $spip_lang;
$spip_lang = 'fr';
$text = traduire_chaine($code_ori);
$spip_lang = $spip_lang_temp;
}
}
return $text;
}
// http://doc.spip.org/@traduire_nom_langue
function traduire_nom_langue($lang) {
include_spip('inc/lang_liste');
include_spip('inc/charsets');
return html2unicode(isset($GLOBALS['codes_langues'][$lang]) ? $GLOBALS['codes_langues'][$lang] : $lang);
}
//
// Filtres de langue
//
// Donne la direction d'ecriture a partir de la langue. Retourne 'gaucher' si
// la langue est arabe, persan, kurde, pachto, ourdou (langues ecrites en
// alphabet arabe a priori), hebreu, yiddish (langues ecrites en alphabet
// hebreu a priori), 'droitier' sinon.
// C'est utilise par #LANG_DIR, #LANG_LEFT, #LANG_RIGHT.
// http://doc.spip.org/@lang_dir
function lang_dir($lang, $droitier='ltr', $gaucher='rtl') {
if ($lang=='ar' OR $lang=='fa' OR $lang == 'ku' OR $lang == 'ps'
OR $lang == 'ur' OR $lang == 'he' OR $lang == 'yi')
return $gaucher;
else
return $droitier;
}
// http://doc.spip.org/@lang_typo
function lang_typo($lang) {
if ($lang == 'eo' OR $lang == 'fr' OR substr($lang, 0, 3) == 'fr_' OR $lang == 'cpf')
return 'fr';
else if ($lang)
return 'en';
else
return false;
}
// service pour que l'espace prive reflete la typo et la direction des objets affiches
// http://doc.spip.org/@changer_typo
function changer_typo($lang = '', $source = '') {
global $lang_objet, $lang_dir, $dir_lang;
if (ereg("^(article|rubrique|breve|auteur)([0-9]+)", $source, $regs)) {
$r = spip_fetch_array(spip_query("SELECT lang FROM spip_".$regs[1]."s WHERE id_".$regs[1]."=".$regs[2]));
$lang = $r['lang'];
}
if (!$lang)
$lang = $GLOBALS['meta']['langue_site'];
$lang_objet = $lang;
$lang_dir = lang_dir($lang);
$dir_lang = " dir='$lang_dir'";
}
//
// Afficher un menu de selection de langue
// - 'var_lang_ecrire' = langue interface privee,
// - 'var_lang' = langue de l'article, espace public
// - 'changer_lang' = langue de l'article, espace prive
//
// http://doc.spip.org/@menu_langues
function menu_langues($nom_select = 'var_lang', $default = '', $texte = '', $herit = '', $lien='') {
global $couleur_foncee, $connect_id_auteur;
$ret = liste_options_langues($nom_select, $default, $herit);
if (!$ret) return '';
if (!$couleur_foncee) $couleur_foncee = '#044476';
if (!$lien)
$lien = self();
if ($nom_select == 'changer_lang') {
$lien = parametre_url($lien, 'changer_lang', '');
$lien = parametre_url($lien, 'url', '');
$cible = '';
} else {
if (_DIR_RESTREINT) {
$cible = $lien;
$lien = generer_url_action('cookie');
} else {
$cible = _DIR_RESTREINT_ABS . $lien;
if (_FILE_CONNECT) {
$lien = generer_action_auteur('cookie','var_lang_ecrire');
} else $lien = generer_url_action('cookie');
}
}
$change = ($lien === 'ajax')
? "\nonchange=\"this.nextSibling.style.visibility='visible';\""
: ("\nonchange=\"document.location.href='"
. parametre_url($lien, 'url', str_replace('&', '&', $cible))
."&$nom_select='+this.options[this.selectedIndex].value\"");
$ret = $texte
. "<select name='$nom_select' "
. (_DIR_RESTREINT ?
("class='forml' style='vertical-align: top; max-height: 24px; margin-bottom: 5px; width: 120px;'") :
(($nom_select == 'var_lang_ecrire') ?
("class='verdana1' style='background-color: " . $couleur_foncee
. "; max-height: 24px; border: 1px solid white; color: white; width: 100px;'") :
"class='fondl'"))
. $change
. ">\n"
. $ret
// attention, en Ajax le input doit etre le frere direct du select
. "</select>"
. (($lien === 'ajax')
? "<input type='submit' class='visible_au_chargement fondo' value='". _T('bouton_changer')."' />"
: "<noscript><input type='submit' class='fondo' value='". _T('bouton_changer')."' /></noscript>");
if ($lien === 'ajax') return $ret;
return "<form action='$lien' method='post' style='margin:0px; padding:0px;'>"
. (!$cible ? '' : "<input type='hidden' name='url' value='$cible' />")
. $ret
. "</form>\n";
}
// http://doc.spip.org/@liste_options_langues
function liste_options_langues($nom_select, $default='', $herit='') {
if ($default == '') $default = $GLOBALS['spip_lang'];
switch($nom_select) {
# #MENU_LANG
case 'var_lang':
# menu de changement de la langue d'un article
# les langues selectionnees dans la configuration "multilinguisme"
case 'changer_lang':
$langues = explode(',', $GLOBALS['meta']['langues_multilingue']);
break;
# menu de l'interface (privee, installation et panneau de login)
# les langues presentes sous forme de fichiers de langue
case 'var_lang_ecrire':
default:
$langues = explode(',', $GLOBALS['meta']['langues_proposees']);
break;
# dernier choix possible : toutes les langues = langues_proposees
# + langues_multilingues ; mais, ne sert pas
# $langues = explode(',', $GLOBALS['all_langs']);
}
if (count($langues) <= 1) return '';
$ret = '';
sort($langues);
foreach ($langues as $l) {
$selected = ($l == $default) ? ' selected=\'selected\'' : '';
if ($l == $herit) {
$ret .= "<option class='maj-debut' style='font-weight: bold;' value='herit'$selected>"
.traduire_nom_langue($herit)." ("._T('info_multi_herit').")</option>\n";
}
## ici ce serait bien de pouvoir choisir entre "langue par defaut"
## et "langue heritee"
else
$ret .= "<option class='maj-debut' value='$l'$selected>".traduire_nom_langue($l)."</option>\n";
}
return $ret;
}
// Cette fonction calcule la liste des langues reellement utilisees dans le
// site public
// http://doc.spip.org/@calculer_langues_utilisees
function calculer_langues_utilisees () {
$langues_utilisees = array();
$langues_utilisees[$GLOBALS['meta']['langue_site']] = 1;
$result = spip_query("SELECT DISTINCT lang FROM spip_articles WHERE statut='publie'");
while ($row = spip_fetch_array($result)) {
$langues_utilisees[$row['lang']] = 1;
}
$result = spip_query("SELECT DISTINCT lang FROM spip_breves WHERE statut='publie'");
while ($row = spip_fetch_array($result)) {
$langues_utilisees[$row['lang']] = 1;
}
$result = spip_query("SELECT DISTINCT lang FROM spip_rubriques WHERE statut='publie'");
while ($row = spip_fetch_array($result)) {
$langues_utilisees[$row['lang']] = 1;
}
$langues_utilisees = array_filter(array_keys($langues_utilisees));
sort($langues_utilisees);
$langues_utilisees = join(',',$langues_utilisees);
include_spip('inc/meta');
ecrire_meta('langues_utilisees', $langues_utilisees);
ecrire_metas();
}
//
// Cette fonction est appelee depuis public/global si on a installe
// la variable de personnalisation $forcer_lang ; elle renvoie le brouteur
// si necessaire vers l'URL xxxx?lang=ll
//
// http://doc.spip.org/@verifier_lang_url
function verifier_lang_url() {
global $_GET, $_COOKIE, $spip_lang;
// quelle langue est demandee ?
$lang_demandee = $GLOBALS['meta']['langue_site'];
if (isset($_COOKIE['spip_lang_ecrire']))
$lang_demandee = $_COOKIE['spip_lang_ecrire'];
if (isset($_COOKIE['spip_lang']))
$lang_demandee = $_COOKIE['spip_lang'];
if (isset($_GET['lang']))
$lang_demandee = $_GET['lang'];
// Renvoyer si besoin (et si la langue demandee existe)
if ($spip_lang != $lang_demandee
AND changer_langue($lang_demandee)
AND $lang_demandee != $_GET['lang']) {
$destination = parametre_url(self(),'lang', $lang_demandee, '&');
if (isset($GLOBALS['var_mode']))
$destination = parametre_url($destination, 'var_mode', $GLOBALS['var_mode'], '&');
redirige_par_entete($destination);
}
// Subtilite : si la langue demandee par cookie est la bonne
// alors on fait comme si $lang etait passee dans l'URL
// (pour criteres {lang}).
$GLOBALS['lang'] = $_GET['lang'] = $spip_lang;
}
//
// Selection de langue haut niveau
//
// http://doc.spip.org/@utiliser_langue_site
function utiliser_langue_site() {
changer_langue($GLOBALS['langue_site']);
}
// http://doc.spip.org/@utiliser_langue_visiteur
function utiliser_langue_visiteur() {
global $_COOKIE;
if (!regler_langue_navigateur())
utiliser_langue_site();
if (!empty($GLOBALS['auteur_session']['lang']))
changer_langue($GLOBALS['auteur_session']['lang']);
$cookie_lang = (_DIR_RESTREINT ? 'spip_lang' : 'spip_lang_ecrire');
if (!empty($_COOKIE[$cookie_lang]))
changer_langue($_COOKIE[$cookie_lang]);
}
// Une fonction qui donne le repertoire ou trouver des fichiers de langue
// note : pourrait en donner une liste... complique
// http://doc.spip.org/@repertoire_lang
function repertoire_lang($module='spip', $lang='fr') {
# valeur forcee (par ex.sur spip.net), old style, a faire disparaitre
if (defined('_DIR_LANG'))
return _DIR_LANG;
# regarder s'il existe une v.f. qq part
if ($f = include_spip('lang/'.$module.'_'.$lang, false));
return dirname($f).'/';
# sinon, je ne sais trop pas quoi dire...
return _DIR_RESTREINT . 'lang/';
}
//
// Initialisation
//
// http://doc.spip.org/@init_langues
function init_langues() {
global $all_langs, $langue_site;
global $pile_langues, $lang_objet, $lang_dir;
$all_langs = $GLOBALS['meta']['langues_proposees'];
$pile_langues = array();
$lang_objet = '';
$lang_dir = '';
$toutes_langs = Array();
if (!$all_langs || !$langue_site || !_DIR_RESTREINT) {
if (!$d = @opendir(repertoire_lang())) return;
while (($f = readdir($d)) !== false) {
if (ereg('^spip_([a-z_]+)\.php[3]?$', $f, $regs))
$toutes_langs[] = $regs[1];
}
closedir($d);
sort($toutes_langs);
$all_langs2 = join(',', $toutes_langs);
// Si les langues n'ont pas change, ne rien faire
if ($all_langs2 != $all_langs) {
include_spip('inc/meta');
$all_langs = $all_langs2;
if (!$langue_site) {
// Initialisation : le francais par defaut, sinon la premiere langue trouvee
if (ereg(',fr,', ",$all_langs,")) $langue_site = 'fr';
else list(, $langue_site) = each($toutes_langs);
ecrire_meta('langue_site', $langue_site);
}
ecrire_meta('langues_proposees', $all_langs);
ecrire_metas();
}
}
}
init_langues();
utiliser_langue_site();
?>