<?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;
    }

}

?>