forked from Wavyzz/dolibarr
377 lines
13 KiB
PHP
377 lines
13 KiB
PHP
<?php
|
|
/* ***************************************************************************
|
|
* Copyright (C) 2001 Eric Seigne <erics@rycks.com>
|
|
* Copyright (C) 2004-2005 Destailleur Laurent <eldy@users.sourceforge.net>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
* ************************************************************************* */
|
|
|
|
/**
|
|
\file htdocs/translate.class.php
|
|
\brief Fichier de la classe de traduction
|
|
\author Laurent Destailleur
|
|
\version $Revision$
|
|
*/
|
|
|
|
|
|
/**
|
|
\class Translate
|
|
\brief Classe permettant de gérer les traductions
|
|
*/
|
|
|
|
class Translate {
|
|
|
|
var $dir;
|
|
var $origlang; // Langue origine
|
|
var $defaultlang; // Langue courante en vigueur de l'utilisateur
|
|
|
|
var $tab_loaded=array(); // Tableau pour signaler les fichiers deja chargés
|
|
var $tab_translate=array(); // Tableau des traductions
|
|
|
|
|
|
/**
|
|
* \brief Constructeur de la classe
|
|
* \param dir Repertoire racine des fichiers de traduction
|
|
*/
|
|
function Translate($dir = "")
|
|
{
|
|
$this->dir=$dir;
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Renvoie la chaine traduite pour une clé donnée.
|
|
* Le tableau des traductions doit avoir été chargé.
|
|
* \param key Clé de traduction
|
|
* \return string Chaine de traduction
|
|
*/
|
|
function getTransFromTab($key)
|
|
{
|
|
if (isset($this->tab_translate[$key]) && $this->tab_translate[$key])
|
|
{
|
|
return $this->tab_translate[$key];
|
|
}
|
|
else
|
|
{
|
|
return '';
|
|
}
|
|
}
|
|
|
|
/**
|
|
* \brief Positionne la chaine traduite pour une clé donnée.
|
|
* \param key Clé de traduction
|
|
* \param value Chaine de traduction
|
|
*/
|
|
function setTransFromTab($key,$value)
|
|
{
|
|
$this->tab_translate[$key]=$value;
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Accesseur de this->defaultlang
|
|
* \param srclang Langue à utiliser
|
|
*/
|
|
function setDefaultLang($srclang='fr_FR')
|
|
{
|
|
$this->origlang=$srclang;
|
|
|
|
if ($srclang == 'auto')
|
|
{
|
|
$langpref=$_SERVER['HTTP_ACCEPT_LANGUAGE'];
|
|
$langpref=eregi_replace(";[^,]*","",$langpref);
|
|
$langpref=eregi_replace("-","_",$langpref);
|
|
|
|
$langlist=split("[;,]",$langpref);
|
|
|
|
$langpart=split("_",$langlist[0]);
|
|
|
|
if (isset($langpart[1])) $srclang=strtolower($langpart[0])."_".strtoupper($langpart[1]);
|
|
else $srclang=strtolower($langpart[0])."_".strtoupper($langpart[0]);
|
|
}
|
|
|
|
$this->defaultlang=$srclang;
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Accesseur de this->defaultlang
|
|
* \return string Langue utilisée
|
|
*/
|
|
function getDefaultLang()
|
|
{
|
|
return $this->defaultlang;
|
|
}
|
|
|
|
|
|
/**
|
|
\brief Positionne environnement PHP en fonction du langage
|
|
\remarks Le code langue long (fr_FR, en_US, ...) doit être positionné
|
|
\return int >0 si ok, <0 so ko
|
|
*/
|
|
function setPhpLang()
|
|
{
|
|
//dolibarr_syslog("Translate::set_php_lang: ".$this->defaultlang,LOG_DEBUG);
|
|
|
|
$code_lang_tiret=ereg_replace('_','-',$this->defaultlang);
|
|
setlocale(LC_ALL, $this->defaultlang); // Compenser pb de locale avec windows
|
|
setlocale(LC_ALL, $code_lang_tiret);
|
|
if (defined("MAIN_FORCE_SETLOCALE_LC_ALL") && MAIN_FORCE_SETLOCALE_LC_ALL) setlocale(LC_ALL, MAIN_FORCE_SETLOCALE_LC_ALL);
|
|
if (defined("MAIN_FORCE_SETLOCALE_LC_TIME") && MAIN_FORCE_SETLOCALE_LC_TIME) setlocale(LC_TIME, MAIN_FORCE_SETLOCALE_LC_TIME);
|
|
if (defined("MAIN_FORCE_SETLOCALE_LC_NUMERIC") && MAIN_FORCE_SETLOCALE_LC_NUMERIC) setlocale(LC_NUMERIC, MAIN_FORCE_SETLOCALE_LC_NUMERIC);
|
|
if (defined("MAIN_FORCE_SETLOCALE_LC_MONETARY") && MAIN_FORCE_SETLOCALE_LC_MONETARY) setlocale(LC_MONETARY, MAIN_FORCE_SETLOCALE_LC_MONETARY);
|
|
|
|
return 1;
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Charge en mémoire le tableau de traduction pour un domaine particulier
|
|
* Si le domaine est deja chargé, la fonction ne fait rien
|
|
* \param domain Nom du domain (fichier lang) à charger
|
|
* \param alt Utilise le fichier alternatif meme si fichier dans la langue est trouvée
|
|
*/
|
|
function Load($domain,$alt=0)
|
|
{
|
|
if (isset($this->tab_loaded[$domain]) && $this->tab_loaded[$domain]) { return; } // Le fichier de ce domaine est deja chargé
|
|
|
|
// Repertoire de traduction
|
|
$scandir = $this->dir."/".$this->defaultlang;
|
|
$file_lang = $scandir . "/$domain.lang";
|
|
$filelangexists=is_file($file_lang);
|
|
|
|
if ($alt || ! $filelangexists)
|
|
{
|
|
// Repertoire de la langue alternative
|
|
if ($this->defaultlang == "en_US") $scandiralt = $this->dir."/fr_FR";
|
|
elseif (eregi('^fr',$this->defaultlang) && $this->defaultlang != 'fr_FR') $scandiralt = $this->dir."/fr_FR";
|
|
elseif (eregi('^en',$this->defaultlang) && $this->defaultlang != 'en_US') $scandiralt = $this->dir."/en_US";
|
|
else $scandiralt = $this->dir."/en_US";
|
|
|
|
$file_lang = $scandiralt . "/$domain.lang";
|
|
$filelangexists=is_file($file_lang);
|
|
$alt=1;
|
|
}
|
|
|
|
if ($filelangexists)
|
|
{
|
|
if($fp = @fopen($file_lang,"rt"))
|
|
{
|
|
$finded = 0;
|
|
while (($ligne = fgets($fp,4096)) && ($finded == 0))
|
|
{
|
|
if ($ligne[0] != "\n" && $ligne[0] != " " && $ligne[0] != "#")
|
|
{
|
|
$tab=split('=',$ligne,2);
|
|
$key=trim($tab[0]); $value='';
|
|
//print "Domain=$domain, found a string for $tab[0] with value $tab[1]<br>";
|
|
if (! $this->getTransFromTab($key))
|
|
{
|
|
if (isset($tab[1])) $value=trim(ereg_replace('\\\n',"\n",$tab[1]));
|
|
$this->setTransFromTab($key,$value);
|
|
}
|
|
}
|
|
}
|
|
fclose($fp);
|
|
|
|
// Pour les langues aux fichiers parfois incomplets, on charge la langue alternative
|
|
if (! $alt && $this->defaultlang != "fr_FR" && $this->defaultlang != "en_US")
|
|
{
|
|
dolibarr_syslog("translate::load loading alternate translation file");
|
|
$this->load($domain,1);
|
|
}
|
|
|
|
$this->tab_loaded[$domain]=1; // Marque ce fichier comme chargé
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Retourne la liste des domaines chargées en memoire
|
|
* \return array Tableau des domaines chargées
|
|
*/
|
|
function list_domainloaded()
|
|
{
|
|
return join(",",array_keys($this->tab_loaded));
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Retourne la version traduite du texte passé en paramètre en la codant en HTML
|
|
* Si il n'y a pas de correspondance pour ce texte, on cherche dans fichier alternatif
|
|
* et si toujours pas trouvé, il est retourné tel quel
|
|
* Les paramètres de cette méthode peuvent contenir de balises HTML.
|
|
* \param key clé de chaine a traduire
|
|
* \param param1 chaine de param1
|
|
* \param param2 chaine de param1
|
|
* \param param3 chaine de param1
|
|
* \param maxsize taille max
|
|
* \return string chaine traduite et codé en HTML
|
|
*/
|
|
function trans($key, $param1='', $param2='', $param3='', $param4='', $maxsize=0)
|
|
{
|
|
if ($this->getTransFromTab($key))
|
|
{
|
|
// Si la traduction est disponible
|
|
$str=sprintf($this->tab_translate[$key],$param1,$param2,$param3,$param4);
|
|
if ($maxsize) $str=dolibarr_trunc($str,$maxsize);
|
|
// On remplace les tags HTML par __xx__ pour eviter traduction par htmlentities
|
|
$newstr=ereg_replace('<','__lt__',$str);
|
|
$newstr=ereg_replace('>','__gt__',$newstr);
|
|
$newstr=ereg_replace('"','__quot__',$newstr);
|
|
// Cryptage en html de la chaine
|
|
$newstr=htmlentities($newstr);
|
|
// On restaure les tags HTML
|
|
$newstr=ereg_replace('__lt__','<',$newstr);
|
|
$newstr=ereg_replace('__gt__','>',$newstr);
|
|
$newstr=ereg_replace('__quot__','"',$newstr);
|
|
return $newstr;
|
|
}
|
|
return $key;
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Retourne la version traduite du texte passé en paramètre
|
|
* Si il n'y a pas de correspondance pour ce texte, on cherche dans fichier alternatif
|
|
* et si toujours pas trouvé, il est retourné tel quel.
|
|
* Les paramètres de cette méthode ne doivent pas contenir de balises HTML.
|
|
* \param key clé de chaine a traduire
|
|
* \param param1 chaine de param1
|
|
* \param param2 chaine de param1
|
|
* \param param3 chaine de param1
|
|
* \param param4 chaine de param1
|
|
* \return string chaine traduite
|
|
*/
|
|
function transnoentities($key, $param1='', $param2='', $param3='', $param4='')
|
|
{
|
|
if ($this->getTransFromTab($key))
|
|
{
|
|
// Si la traduction est disponible
|
|
return sprintf($this->tab_translate[$key],$param1,$param2,$param3,$param4);
|
|
}
|
|
return $key;
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Retourne la version traduite du texte passé en paramètre complété du code pays
|
|
* \param str chaine a traduire
|
|
* \param countrycode code pays (FR, ...)
|
|
* \return string chaine traduite
|
|
*/
|
|
function transcountry($str, $countrycode)
|
|
{
|
|
if ($this->tab_translate["$str$countrycode"]) return $this->trans("$str$countrycode");
|
|
else return $this->trans("$str");
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Retourne la liste des langues disponibles
|
|
* \return array list of languages
|
|
*/
|
|
function get_available_languages($langdir=DOL_DOCUMENT_ROOT)
|
|
{
|
|
// On parcour le répertoire langs pour détecter les langues disponibles
|
|
$handle=opendir($langdir ."/langs");
|
|
$langs_available=array();
|
|
while ($file = trim(readdir($handle)))
|
|
{
|
|
if (eregi('^[a-z]+_[A-Z]+',$file))
|
|
{
|
|
array_push($langs_available,$file);
|
|
}
|
|
}
|
|
return $langs_available;
|
|
}
|
|
|
|
/**
|
|
* \brief Expédie le header correct et retourne le début de la page html
|
|
* [en] Send header and return a string of html start page
|
|
* \return string html header avec charset
|
|
*/
|
|
|
|
function lang_header()
|
|
{
|
|
$this->load("main");
|
|
$charset=$this->trans("charset");
|
|
if (! $charset) $charset="iso-8859-1";
|
|
|
|
//header("Content-Type: text/html; charset=$charset");
|
|
$texte = "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=$charset\">\n";
|
|
|
|
return $texte;
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Renvoi si le fichier $filename existe dans la version de la langue courante ou alternative
|
|
* \param filename nom du fichier à rechercher
|
|
* \param searchalt cherche aussi dans langue alternative
|
|
* \return boolean true si existe, false sinon
|
|
*/
|
|
|
|
function file_exists($filename,$searchalt=0)
|
|
{
|
|
// Test si fichier dans répertoire de la langue
|
|
$htmlfile=$this->dir."/".$this->defaultlang."/".$filename;
|
|
if (is_readable($htmlfile)) return true;
|
|
|
|
if ($searchalt) {
|
|
// Test si fichier dans répertoire de la langue alternative
|
|
if ($this->defaultlang != "en_US") $htmlfilealt = $this->dir."/en_US/".$filename;
|
|
else $htmlfilealt = $this->dir."/fr_FR/".$filename;
|
|
if (is_readable($htmlfilealt)) return true;
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Renvoi le fichier $filename dans la version de la langue courante, sinon alternative
|
|
* \param filename nom du fichier à rechercher
|
|
* \param searchalt cherche aussi dans langue alternative
|
|
*/
|
|
function print_file($filename,$searchalt=0)
|
|
{
|
|
// Test si fichier dans répertoire de la langue
|
|
$htmlfile=$this->dir."/".$this->defaultlang."/".$filename;
|
|
if (is_readable($htmlfile))
|
|
{
|
|
include $htmlfile;
|
|
return true;
|
|
}
|
|
|
|
if ($searchalt) {
|
|
// Test si fichier dans répertoire de la langue alternative
|
|
if ($this->defaultlang != "en_US") $htmlfilealt = $this->dir."/en_US/".$filename;
|
|
else $htmlfilealt = $this->dir."/fr_FR/".$filename;
|
|
if (is_readable($htmlfilealt))
|
|
{
|
|
include $htmlfilealt;
|
|
return true;
|
|
}
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
}
|
|
|
|
?>
|