www/ecrire/inc/lang.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2012                                                *
   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', '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         global $lang_objet;
 145
 146         return $lang_objet = $lang ? $lang : $GLOBALS['meta']['langue_site'];
 147 }
 148
 149 //
 150 // Afficher un menu de selection de langue
 151 // - 'var_lang_ecrire' = langue interface privee,
 152 // pour var_lang' = langue de l'article, espace public, voir les squelettes
 153 // pour 'changer_lang' (langue de l'article, espace prive), c'est en Ajax
 154 //
 155 // http://doc.spip.org/@menu_langues
 156 function menu_langues($nom_select, $default='') {
 157         include_spip('inc/actions');
 158
 159         $langues = liste_options_langues($nom_select);
 160         $ret = "";
 161         if (!count($langues))
 162                 return '';
 163
 164         if (!$default) $default = $GLOBALS['spip_lang'];
 165         foreach ($langues as $l) {
 166                 $selected = ($l == $default) ? ' selected=\'selected\'' : '';
 167                 $ret .= "<option value='$l'$selected>[".$l."] ".traduire_nom_langue($l)."</option>\n";
 168         }
 169
 170         if (!test_espace_prive()) {
 171                 $cible = self();
 172                 $base = '';
 173         } else {
 174                 $cible = self();
 175                 $base = spip_connect() ? 'base' : '';
 176         }
 177
 178         $change = ' onchange="this.parentNode.parentNode.submit()"';
 179         return generer_action_auteur('converser',$base, $cible,
 180                 (select_langues($nom_select, $change, $ret)
 181                  . "<noscript><div style='display:inline'><input type='submit' class='fondo' value='". _T('bouton_changer')."' /></div></noscript>"),
 182                                      " method='post'");
 183 }
 184
 185 // http://doc.spip.org/@select_langues
 186 function select_langues($nom_select, $change, $options, $label="")
 187 {
 188         static $cpt = 0;
 189         $id = "menu_langues" . $cpt++;
 190         return
 191                 "<label for='$id'>".($label?$label:_T('info_langues'))."</label> ".
 192                 "<select name='$nom_select' id='$id' "
 193           . ((!test_espace_prive()) ?
 194              ("class='forml menu_langues'") :
 195              (($nom_select == 'var_lang_ecrire')  ?
 196               ("class='lang_ecrire'") :
 197               "class='fondl'"))
 198           . $change
 199           . ">\n"
 200           . $options
 201           . "</select>";
 202 }
 203
 204 /**
 205  * Lister les langues disponibles
 206  *
 207  * Retourne un tableau de langue utilisables, triées par code de langue,
 208  * mais pas le même tableau en fonction du paramètre $nom_select.
 209  *
 210  * @param string $nom_select
 211  *     Attribut name du select
 212  *     Selon son nom, retourne une liste différente :
 213  *     - var_lang ou changer_lang :
 214  *         liste des langues sélectionnées dans la config multilinguisme
 215  *     - var_lang_ecrire :
 216  *         toutes les langues présentes en fichier de langue
 217  * @return array
 218  *     Liste des langues
 219  */
 220 function liste_options_langues($nom_select) {
 221
 222         switch($nom_select) {
 223                 # #MENU_LANG
 224                 case 'var_lang':
 225                 # menu de changement de la langue d'un article
 226                 # les langues selectionnees dans la configuration "multilinguisme"
 227                 case 'changer_lang':
 228                         $langues = explode(',', $GLOBALS['meta']['langues_multilingue']);
 229                         break;
 230         # menu de l'interface (privee, installation et panneau de login)
 231         # les langues presentes sous forme de fichiers de langue
 232         # on force la relecture du repertoire des langues pour etre synchrone.
 233                 case 'var_lang_ecrire':
 234                 default:
 235                         $GLOBALS['meta']['langues_proposees'] = '';
 236                         init_langues();
 237                         $langues = explode(',', $GLOBALS['meta']['langues_proposees']);
 238                         break;
 239
 240 # dernier choix possible : toutes les langues = langues_proposees
 241 # + langues_multilingues ; mais, ne sert pas
 242 #                       $langues = explode(',', $GLOBALS['all_langs']);
 243         }
 244         if (count($langues) <= 1) return array();
 245         sort($langues);
 246         return $langues;
 247 }
 248
 249
 250
 251 /**
 252  * Redirige sur la bonne langue lorsque l'option forcer_lang est active
 253  *
 254  * Cette fonction est appelee depuis ecrire/public.php si on a installé
 255  * la variable de personnalisation $forcer_lang ; elle renvoie le brouteur
 256  * si necessaire vers l'URL xxxx?lang=ll
 257  *
 258  * @return void
 259 **/
 260 function verifier_lang_url() {
 261         global $spip_lang;
 262
 263         // quelle langue est demandee ?
 264         $lang_demandee = (test_espace_prive()?$GLOBALS['spip_lang']:$GLOBALS['meta']['langue_site']);
 265         if (isset($_COOKIE['spip_lang_ecrire']))
 266                 $lang_demandee = $_COOKIE['spip_lang_ecrire'];
 267         if (!test_espace_prive() AND isset($_COOKIE['spip_lang']))
 268                 $lang_demandee = $_COOKIE['spip_lang'];
 269         if (isset($_GET['lang']))
 270                 $lang_demandee = $_GET['lang'];
 271
 272         // Renvoyer si besoin (et si la langue demandee existe)
 273         if ($spip_lang != $lang_demandee
 274         AND changer_langue($lang_demandee)
 275         AND $lang_demandee != @$_GET['lang']) {
 276                 $destination = parametre_url(self(),'lang', $lang_demandee, '&');
 277                 // ici on a besoin des var_truc
 278                 foreach ($_GET as $var => $val) {
 279                         if (!strncmp('var_', $var, 4))
 280                                 $destination = parametre_url($destination, $var, $val, '&');
 281                 }
 282                 include_spip('inc/headers');
 283                 redirige_par_entete($destination);
 284         }
 285
 286         // Subtilite : si la langue demandee par cookie est la bonne
 287         // alors on fait comme si $lang etait passee dans l'URL
 288         // (pour criteres {lang}).
 289         $GLOBALS['lang'] = $_GET['lang'] = $spip_lang;
 290 }
 291
 292
 293 /**
 294  * Utilise la langue du site
 295  *
 296  * Change la langue en cours d'utilisation par la langue du site
 297  * si ce n'est pas déjà le cas.
 298  *
 299  * Note : Cette fonction initialise la globale spip_lang au chargement de inc/lang
 300  *
 301  * @return string
 302  *     La langue sélectionnée
 303 **/
 304 function utiliser_langue_site() {
 305         // s'il existe une langue du site (en gros tout le temps en théorie)
 306         if (isset($GLOBALS['meta']['langue_site'])
 307           // et si spip_langue est pas encore définie (ce que va faire changer_langue())
 308           // ou qu'elle n'est pas identique à la langue du site
 309           AND (!isset($GLOBALS['spip_lang'])
 310             OR $GLOBALS['spip_lang']!=$GLOBALS['meta']['langue_site']))
 311         {
 312                 return changer_langue($GLOBALS['meta']['langue_site']);//@:install
 313         }
 314         // en theorie là, la globale est définie, sinon c'est un problème.
 315         if (!isset($GLOBALS['spip_lang'])) {
 316                 spip_log("La globale spip_lang est indéfinie dans utiliser_langue_site() !", _LOG_ERREUR);
 317         }
 318         return $GLOBALS['spip_lang'];
 319 }
 320
 321 /**
 322  * Initialise la langue pour un visiteur du site
 323  *
 324  * La langue est choisie dans cet ordre :
 325  * - Dans le cookie 'spip_lang' ou 'spip_lang_ecrire' s'il existe (selon l'espace public ou privé).
 326  * - Sinon dans la session du visiteur.
 327  * - Sinon dans une des langues définie en préférence du navigateur
 328  * - Sinon la langue du site
 329  *
 330  * @return string
 331  *     La langue utilisée
 332 **/
 333 function utiliser_langue_visiteur() {
 334
 335         $l = (!test_espace_prive()  ? 'spip_lang' : 'spip_lang_ecrire');
 336         if (isset($_COOKIE[$l]))
 337                 if (changer_langue($l = $_COOKIE[$l]))
 338                         return $l;
 339
 340         if (isset($GLOBALS['visiteur_session']['lang']))
 341                 if (changer_langue($l = $GLOBALS['visiteur_session']['lang']))
 342                         return $l;
 343
 344         foreach (explode(',', $_SERVER['HTTP_ACCEPT_LANGUAGE']) as $s)  {
 345                 if (preg_match('#^([a-z]{2,3})(-[a-z]{2,3})?(;q=[0-9.]+)?$#i', trim($s), $r)) {
 346                         if (changer_langue($l=strtolower($r[1])))
 347                                 return $l;
 348                 }
 349         }
 350
 351         return utiliser_langue_site();
 352 }
 353
 354
 355 /**
 356  * Retourne le répertoire contenant le module de langue indiqué
 357  *
 358  * Note : pourrait en donner une liste... compliqué
 359  *
 360  * @param string $module
 361  *     Nom du module de lang
 362  * @param string $lang
 363  *     Langue du module de langue
 364  * @return string
 365  *     Adresse du répertoire contenant le module
 366  *     Retourne ecrire/lang/ s'il rien ne semble correspondre.
 367 **/
 368 function repertoire_lang($module='spip', $lang='fr') {
 369         # valeur forcee (par ex.sur spip.net), old style, a faire disparaitre
 370         if (defined('_DIR_LANG'))
 371                 return _DIR_LANG;
 372
 373         # regarder s'il existe une v.f. qq part
 374         if ($f = find_in_path($module.'_'.$lang . '.php', 'lang/'))
 375                 return dirname($f).'/';
 376
 377         # sinon, je ne sais trop pas quoi dire...
 378         return _DIR_RESTREINT . 'lang/';
 379 }
 380
 381
 382 /**
 383  * Initialisation des listes de langues
 384  *
 385  * Initialise les métas :
 386  * - langues_proposees : liste des traductions disponibles
 387  * - langue_site       : langue par défaut du site
 388  *
 389  * Lorsque ces métas n'existent pas encore (c'est à dire à l'installation),
 390  * elles sont calculées en obtenant la liste des langues
 391  * dans les fichiers de lang
 392  *
 393  * @return void
 394 **/
 395 function init_langues() {
 396
 397         // liste des langues dans les meta, sauf a l'install
 398         $all_langs = @$GLOBALS['meta']['langues_proposees'];
 399
 400         $tout = array();
 401         if (!$all_langs) {
 402                 if ($d = @opendir(repertoire_lang())) {
 403                         while (($f = readdir($d)) !== false) {
 404                                 if (preg_match(',^spip_([a-z_]+)\.php[3]?$,', $f, $regs))
 405                                         $tout[] = $regs[1];
 406                         }
 407                         closedir($d);
 408                         sort($tout);
 409                         $tout = join(',', $tout);
 410                         // Si les langues n'ont pas change, ne rien faire
 411                         if ($tout != $all_langs) {
 412                                 $GLOBALS['meta']['langues_proposees'] = $tout;
 413                                 include_spip('inc/meta');
 414                                 ecrire_meta('langues_proposees', $tout);
 415                         } else $tout = '';
 416                 }
 417         }
 418         if (!isset($GLOBALS['meta']['langue_site'])) {
 419                 // Initialisation : le francais si dispo, sinon la premiere langue trouvee
 420                 $GLOBALS['meta']['langue_site'] = $tout =
 421                 (!$all_langs OR (strpos(',fr,',",$all_langs,")!==false))
 422                   ? 'fr' :  substr($all_langs,0,strpos($all_langs,','));
 423                 ecrire_meta('langue_site', $tout);
 424         }
 425 }
 426
 427 /**
 428  * Retourne une balise <html>
 429  *
 430  * Retourne une balise HTML contenant les attributs 'lang' et 'dir'
 431  * définis sur la langue en cours d'utilisation,
 432  * ainsi que des classes CSS de ces du nom de la langue et direction choisie.
 433  *
 434  * @return string
 435  *     Code html de la balise <html>
 436 **/
 437 function html_lang_attributes()
 438 {
 439         $lang = $GLOBALS['spip_lang'];
 440         $dir = ($GLOBALS['spip_lang_rtl'] ? 'rtl' : 'ltr');
 441         return  "<html class='$dir $lang no-js' xmlns='http://www.w3.org/1999/xhtml' lang='$lang' dir='$dir'>\n" ;
 442 }
 443
 444 // initialise les globales (liste des langue, langue du site, spip_lang...)
 445 init_langues();
 446 utiliser_langue_site();
 447 ?>