www/ecrire/inc/lang.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2016                                                *
   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
  13 /**
  14  * Gestion des langues et choix de langue
  15  *
  16  * @package SPIP\Langue
  17 **/
  18 if (!defined('_ECRIRE_INC_VERSION')) return;
  19
  20
  21
  22 /**
  23  * Changer la langue courante
  24  *
  25  * Définit la langue utilisée par la langue désignée
  26  * si elle fait partie des langues utilisables dans le site.
  27  *
  28  * Cette fonction définit les globales :
  29  * spip_lang, spip_lang_rtl, spip_lang_right, spip_lang_left
  30  *
  31  * @param string $lang
  32  *     La langue à utiliser
  33  * @return string|bool
  34  *     string : La langue qui a été utilisée si trouvée
  35  *     false : aucune langue ne correspondait à la demande
  36 **/
  37 function changer_langue($lang) {
  38         global $spip_lang_rtl, $spip_lang_right, $spip_lang_left;
  39
  40         $liste_langues = ',' . @$GLOBALS['meta']['langues_proposees']
  41         . ',' . @$GLOBALS['meta']['langues_multilingue'] . ',';
  42
  43         // Si la langue demandee n'existe pas, on essaie d'autres variantes
  44         // Exemple : 'pt-br' => 'pt_br' => 'pt'
  45         $lang = str_replace('-', '_', trim($lang));
  46         if (!$lang)
  47                 return false;
  48
  49         if (strpos($liste_langues,",$lang,")!==false
  50         OR ($lang = preg_replace(',_.*,', '', $lang)
  51         AND strpos($liste_langues,",$lang,")!==false)) {
  52
  53                 $spip_lang_rtl =   lang_dir($lang, '', '_rtl');
  54                 $spip_lang_right = $spip_lang_rtl ? 'left' : 'right';
  55                 $spip_lang_left =  $spip_lang_rtl ? 'right' : 'left';
  56
  57                 return $GLOBALS['spip_lang'] = $lang;
  58         } else
  59                 return false;
  60 }
  61
  62 //
  63 // Gestion des blocs multilingues
  64 // Selection dans un tableau dont les index sont des noms de langues
  65 // de la valeur associee a la langue en cours
  66 // si absente, retourne le premier
  67 // remarque : on pourrait aussi appeler un service de traduction externe
  68 // ou permettre de choisir une langue "plus proche",
  69 // par exemple le francais pour l'espagnol, l'anglais pour l'allemand, etc.
  70
  71 function choisir_traduction ($trads, $lang='') {
  72         $k = approcher_langue($trads, $lang);
  73         return $k ? $trads[$k] : array_shift($trads);
  74 }
  75
  76 // retourne son 2e argument si c'est un index du premier
  77 // ou un index approchant sinon et si possible,
  78 // la langue X etant consideree comme une approche de X_Y
  79 function approcher_langue ($trads, $lang='') {
  80
  81         if (!$lang) $lang = $GLOBALS['spip_lang'];
  82
  83         if (isset($trads[$lang])) {
  84                 return $lang;
  85         }
  86         // cas des langues xx_yy
  87         else {
  88                 $r = explode('_', $lang);
  89                 if (isset($trads[$r[0]]))
  90                         return $r[0];
  91         }
  92         return '';
  93 }
  94
  95 // http://doc.spip.org/@traduire_nom_langue
  96 function traduire_nom_langue($lang) {
  97         include_spip('inc/lang_liste');
  98         include_spip('inc/charsets');
  99         return html2unicode(isset($GLOBALS['codes_langues'][$lang]) ? $GLOBALS['codes_langues'][$lang] : $lang);
 100 }
 101
 102 //
 103 // Filtres de langue
 104 //
 105
 106 // Donne la direction d'ecriture a partir de la langue. Retourne 'gaucher' si
 107 // la langue est arabe, persan, kurde, pachto, ourdou (langues ecrites en
 108 // alphabet arabe a priori), hebreu, yiddish (langues ecrites en alphabet
 109 // hebreu a priori), 'droitier' sinon.
 110 // C'est utilise par #LANG_DIR, #LANG_LEFT, #LANG_RIGHT.
 111 // http://doc.spip.org/@lang_dir
 112 function lang_dir($lang='', $droitier='ltr', $gaucher='rtl') {
 113         static $lang_rtl = array('ar', 'fa', 'ku', 'prs', 'ps', 'ur', 'he', 'heb', 'hbo', 'yi');
 114
 115         return in_array(($lang ? $lang : $GLOBALS['spip_lang']), $lang_rtl) ?
 116                 $gaucher : $droitier;
 117 }
 118
 119 // typo francaise ou anglaise ?
 120 // $lang_objet est fixee dans l'interface privee pour editer
 121 // un texte anglais en interface francaise (ou l'inverse) ;
 122 // sinon determiner la typo en fonction de la langue courante
 123
 124 // http://doc.spip.org/@lang_typo
 125 function lang_typo($lang='') {
 126         if (!$lang) {
 127                 $lang = isset($GLOBALS['lang_objet'])
 128                         ? $GLOBALS['lang_objet']
 129                         : $GLOBALS['spip_lang'];
 130         }
 131         if ($lang == 'eo'
 132           OR $lang == 'fr'
 133           OR strncmp($lang, 'fr_', 3)==0
 134           OR $lang == 'cpf')
 135                 return 'fr';
 136         else
 137                 return 'en';
 138 }
 139
 140 // gestion de la globale $lang_objet pour que les textes soient affiches
 141 // avec les memes typo et direction dans l'espace prive que dans le public
 142 // http://doc.spip.org/@changer_typo
 143 function changer_typo($lang = '') {
 144         if ($lang)
 145                 $GLOBALS['lang_objet'] = $lang;
 146         else
 147                 unset($GLOBALS['lang_objet']);
 148 }
 149
 150 //
 151 // Afficher un menu de selection de langue
 152 // - 'var_lang_ecrire' = langue interface privee,
 153 // pour var_lang' = langue de l'article, espace public, voir les squelettes
 154 // pour 'changer_lang' (langue de l'article, espace prive), c'est en Ajax
 155 //
 156 // http://doc.spip.org/@menu_langues
 157 function menu_langues($nom_select, $default='') {
 158         include_spip('inc/actions');
 159
 160         $langues = liste_options_langues($nom_select);
 161         $ret = "";
 162         if (!count($langues))
 163                 return '';
 164
 165         if (!$default) $default = $GLOBALS['spip_lang'];
 166         foreach ($langues as $l) {
 167                 $selected = ($l == $default) ? ' selected=\'selected\'' : '';
 168                 $ret .= "<option value='$l'$selected>[".$l."] ".traduire_nom_langue($l)."</option>\n";
 169         }
 170
 171         if (!test_espace_prive()) {
 172                 $cible = self();
 173                 $base = '';
 174         } else {
 175                 $cible = self();
 176                 $base = spip_connect() ? 'base' : '';
 177         }
 178
 179         $change = ' onchange="this.parentNode.parentNode.submit()"';
 180         return generer_action_auteur('converser',$base, $cible,
 181                 (select_langues($nom_select, $change, $ret)
 182                  . "<noscript><div style='display:inline'><input type='submit' class='fondo' value='". _T('bouton_changer')."' /></div></noscript>"),
 183                                      " method='post'");
 184 }
 185
 186 // http://doc.spip.org/@select_langues
 187 function select_langues($nom_select, $change, $options, $label="")
 188 {
 189         static $cpt = 0;
 190         $id = "menu_langues" . $cpt++;
 191         return
 192                 "<label for='$id'>".($label?$label:_T('info_langues'))."</label> ".
 193                 "<select name='$nom_select' id='$id' "
 194           . ((!test_espace_prive()) ?
 195              ("class='forml menu_langues'") :
 196              (($nom_select == 'var_lang_ecrire')  ?
 197               ("class='lang_ecrire'") :
 198               "class='fondl'"))
 199           . $change
 200           . ">\n"
 201           . $options
 202           . "</select>";
 203 }
 204
 205 /**
 206  * Lister les langues disponibles
 207  *
 208  * Retourne un tableau de langue utilisables, triées par code de langue,
 209  * mais pas le même tableau en fonction du paramètre $nom_select.
 210  *
 211  * @param string $nom_select
 212  *     Attribut name du select
 213  *     Selon son nom, retourne une liste différente :
 214  *     - var_lang ou changer_lang :
 215  *         liste des langues sélectionnées dans la config multilinguisme
 216  *     - var_lang_ecrire :
 217  *         toutes les langues présentes en fichier de langue
 218  * @return array
 219  *     Liste des langues
 220  */
 221 function liste_options_langues($nom_select) {
 222
 223         switch($nom_select) {
 224                 # #MENU_LANG
 225                 case 'var_lang':
 226                 # menu de changement de la langue d'un article
 227                 # les langues selectionnees dans la configuration "multilinguisme"
 228                 case 'changer_lang':
 229                         $langues = explode(',', $GLOBALS['meta']['langues_multilingue']);
 230                         break;
 231         # menu de l'interface (privee, installation et panneau de login)
 232         # les langues presentes sous forme de fichiers de langue
 233         # on force la relecture du repertoire des langues pour etre synchrone.
 234                 case 'var_lang_ecrire':
 235                 default:
 236                         $GLOBALS['meta']['langues_proposees'] = '';
 237                         init_langues();
 238                         $langues = explode(',', $GLOBALS['meta']['langues_proposees']);
 239                         break;
 240
 241 # dernier choix possible : toutes les langues = langues_proposees
 242 # + langues_multilingues ; mais, ne sert pas
 243 #                       $langues = explode(',', $GLOBALS['all_langs']);
 244         }
 245         if (count($langues) <= 1) return array();
 246         sort($langues);
 247         return $langues;
 248 }
 249
 250
 251
 252 /**
 253  * Redirige sur la bonne langue lorsque l'option forcer_lang est active
 254  *
 255  * Cette fonction est appelee depuis ecrire/public.php si on a installé
 256  * la variable de personnalisation $forcer_lang ; elle renvoie le brouteur
 257  * si necessaire vers l'URL xxxx?lang=ll
 258  *
 259  * @return void
 260 **/
 261 function verifier_lang_url() {
 262         global $spip_lang;
 263
 264         // quelle langue est demandee ?
 265         $lang_demandee = (test_espace_prive()?$GLOBALS['spip_lang']:$GLOBALS['meta']['langue_site']);
 266         if (isset($_COOKIE['spip_lang_ecrire']))
 267                 $lang_demandee = $_COOKIE['spip_lang_ecrire'];
 268         if (!test_espace_prive() AND isset($_COOKIE['spip_lang']))
 269                 $lang_demandee = $_COOKIE['spip_lang'];
 270         if (isset($_GET['lang']))
 271                 $lang_demandee = $_GET['lang'];
 272
 273         // Renvoyer si besoin (et si la langue demandee existe)
 274         if ($spip_lang != $lang_demandee
 275         AND changer_langue($lang_demandee)
 276         AND $lang_demandee != @$_GET['lang']) {
 277                 $destination = parametre_url(self(),'lang', $lang_demandee, '&');
 278                 // ici on a besoin des var_truc
 279                 foreach ($_GET as $var => $val) {
 280                         if (!strncmp('var_', $var, 4))
 281                                 $destination = parametre_url($destination, $var, $val, '&');
 282                 }
 283                 include_spip('inc/headers');
 284                 redirige_par_entete($destination);
 285         }
 286
 287         // Subtilite : si la langue demandee par cookie est la bonne
 288         // alors on fait comme si $lang etait passee dans l'URL
 289         // (pour criteres {lang}).
 290         $GLOBALS['lang'] = $_GET['lang'] = $spip_lang;
 291 }
 292
 293
 294 /**
 295  * Utilise la langue du site
 296  *
 297  * Change la langue en cours d'utilisation par la langue du site
 298  * si ce n'est pas déjà le cas.
 299  *
 300  * Note : Cette fonction initialise la globale spip_lang au chargement de inc/lang
 301  *
 302  * @return string
 303  *     La langue sélectionnée
 304 **/
 305 function utiliser_langue_site() {
 306         // s'il existe une langue du site (en gros tout le temps en théorie)
 307         if (isset($GLOBALS['meta']['langue_site'])
 308           // et si spip_langue est pas encore définie (ce que va faire changer_langue())
 309           // ou qu'elle n'est pas identique à la langue du site
 310           AND (!isset($GLOBALS['spip_lang'])
 311             OR $GLOBALS['spip_lang']!=$GLOBALS['meta']['langue_site']))
 312         {
 313                 return changer_langue($GLOBALS['meta']['langue_site']);//@:install
 314         }
 315         // en theorie là, la globale est définie, sinon c'est un problème.
 316         if (!isset($GLOBALS['spip_lang'])) {
 317                 spip_log("La globale spip_lang est indéfinie dans utiliser_langue_site() !", _LOG_ERREUR);
 318         }
 319         return $GLOBALS['spip_lang'];
 320 }
 321
 322 /**
 323  * Initialise la langue pour un visiteur du site
 324  *
 325  * La langue est choisie dans cet ordre :
 326  * - Dans le cookie 'spip_lang' ou 'spip_lang_ecrire' s'il existe (selon l'espace public ou privé).
 327  * - Sinon dans la session du visiteur.
 328  * - Sinon dans une des langues définie en préférence du navigateur
 329  * - Sinon la langue du site
 330  *
 331  * @return string
 332  *     La langue utilisée
 333 **/
 334 function utiliser_langue_visiteur() {
 335
 336         $l = (!test_espace_prive()  ? 'spip_lang' : 'spip_lang_ecrire');
 337         if (isset($_COOKIE[$l]))
 338                 if (changer_langue($l = $_COOKIE[$l]))
 339                         return $l;
 340
 341         if (isset($GLOBALS['visiteur_session']['lang']))
 342                 if (changer_langue($l = $GLOBALS['visiteur_session']['lang']))
 343                         return $l;
 344
 345         foreach (explode(',', $_SERVER['HTTP_ACCEPT_LANGUAGE']) as $s)  {
 346                 if (preg_match('#^([a-z]{2,3})(-[a-z]{2,3})?(;q=[0-9.]+)?$#i', trim($s), $r)) {
 347                         if (changer_langue($l=strtolower($r[1])))
 348                                 return $l;
 349                 }
 350         }
 351
 352         return utiliser_langue_site();
 353 }
 354
 355
 356 /**
 357  * Retourne le répertoire contenant le module de langue indiqué
 358  *
 359  * Note : pourrait en donner une liste... compliqué
 360  *
 361  * @param string $module
 362  *     Nom du module de lang
 363  * @param string $lang
 364  *     Langue du module de langue
 365  * @return string
 366  *     Adresse du répertoire contenant le module
 367  *     Retourne ecrire/lang/ s'il rien ne semble correspondre.
 368 **/
 369 function repertoire_lang($module='spip', $lang='fr') {
 370         # valeur forcee (par ex.sur spip.net), old style, a faire disparaitre
 371         if (defined('_DIR_LANG'))
 372                 return _DIR_LANG;
 373
 374         # regarder s'il existe une v.f. qq part
 375         if ($f = find_in_path($module.'_'.$lang . '.php', 'lang/'))
 376                 return dirname($f).'/';
 377
 378         # sinon, je ne sais trop pas quoi dire...
 379         return _DIR_RESTREINT . 'lang/';
 380 }
 381
 382
 383 /**
 384  * Initialisation des listes de langues
 385  *
 386  * Initialise les métas :
 387  * - langues_proposees : liste des traductions disponibles
 388  * - langue_site       : langue par défaut du site
 389  *
 390  * Lorsque ces métas n'existent pas encore (c'est à dire à l'installation),
 391  * elles sont calculées en obtenant la liste des langues
 392  * dans les fichiers de lang
 393  *
 394  * @return void
 395 **/
 396 function init_langues() {
 397
 398         // liste des langues dans les meta, sauf a l'install
 399         $all_langs = @$GLOBALS['meta']['langues_proposees'];
 400
 401         $tout = array();
 402         if (!$all_langs) {
 403                 if ($d = @opendir(repertoire_lang())) {
 404                         while (($f = readdir($d)) !== false) {
 405                                 if (preg_match(',^spip_([a-z_]+)\.php[3]?$,', $f, $regs))
 406                                         $tout[] = $regs[1];
 407                         }
 408                         closedir($d);
 409                         sort($tout);
 410                         $tout = join(',', $tout);
 411                         // Si les langues n'ont pas change, ne rien faire
 412                         if ($tout != $all_langs) {
 413                                 $GLOBALS['meta']['langues_proposees'] = $tout;
 414                                 include_spip('inc/meta');
 415                                 ecrire_meta('langues_proposees', $tout);
 416                         } else $tout = '';
 417                 }
 418         }
 419         if (!isset($GLOBALS['meta']['langue_site'])) {
 420                 // Initialisation : le francais si dispo, sinon la premiere langue trouvee
 421                 $GLOBALS['meta']['langue_site'] = $tout =
 422                 (!$all_langs OR (strpos(','._LANGUE_PAR_DEFAUT.',',",$all_langs,")!==false))
 423                   ? _LANGUE_PAR_DEFAUT :  substr($all_langs,0,strpos($all_langs,','));
 424                 ecrire_meta('langue_site', $tout);
 425         }
 426 }
 427
 428 /**
 429  * Retourne une balise <html>
 430  *
 431  * Retourne une balise HTML contenant les attributs 'lang' et 'dir'
 432  * définis sur la langue en cours d'utilisation,
 433  * ainsi que des classes CSS de ces du nom de la langue et direction choisie.
 434  *
 435  * @return string
 436  *     Code html de la balise <html>
 437 **/
 438 function html_lang_attributes()
 439 {
 440         $lang = $GLOBALS['spip_lang'];
 441         $dir = ($GLOBALS['spip_lang_rtl'] ? 'rtl' : 'ltr');
 442         return  "<html class='$dir $lang no-js' xmlns='http://www.w3.org/1999/xhtml' lang='$lang' dir='$dir'>\n" ;
 443 }
 444
 445 // initialise les globales (liste des langue, langue du site, spip_lang...)
 446 init_langues();
 447 utiliser_langue_site();
 448 ?>