mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2025-12-12 12:31:26 +01:00
239 lines
7.5 KiB
PHP
239 lines
7.5 KiB
PHP
<?php
|
||
/* ***************************************************************************
|
||
* Copyright (C) 2001 Eric Seigne <erics@rycks.com>
|
||
*
|
||
* 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 : rtplang.class.php
|
||
* Author : Eric SEIGNE
|
||
* mailto:erics@rycks.com
|
||
* http://www.rycks.com/
|
||
* Date : 09/09/2001
|
||
* Licence : GNU/GPL Version 2 ou plus
|
||
*
|
||
* Description:
|
||
* ------------
|
||
*
|
||
*
|
||
*
|
||
* @version 1.0
|
||
* @author Eric Seigne
|
||
* @project AbulEdu
|
||
* @copyright Eric Seigne 09/09/2001
|
||
*
|
||
* ************************************************************************* */
|
||
|
||
if(isset($RTPLANG_CLASS)){
|
||
return;
|
||
}
|
||
$RTPLANG_CLASS=1;
|
||
|
||
|
||
Class rtplang {
|
||
var $tab_langs;
|
||
var $tab_translate;
|
||
var $file_lang;
|
||
/** Default language interface (isocode) */
|
||
var $defaultiso;
|
||
/** Source language (isocode) */
|
||
var $sourceiso;
|
||
/** This session language (isocode) */
|
||
var $sessioniso;
|
||
/** Where are languages files ? */
|
||
var $dir;
|
||
var $debug;
|
||
|
||
//-------------------------------------------------
|
||
/** Constructor */
|
||
function rtplang($dir = "", $sourceiso = "", $defaultiso = "", $sessioniso = ""){
|
||
$this->tab_langs = array();
|
||
$this->tab_translate = array();
|
||
$this->file_lang = "";
|
||
$this->debug = 0;
|
||
$this->dir = $dir;
|
||
$this->sessioniso = $sessioniso;
|
||
$this->sourceiso = $sourceiso;
|
||
$this->defaultiso = $defaultiso;
|
||
|
||
//Si on a une langue par defaut
|
||
if(($this->defaultiso != "") && ($this->sessioniso == ""))
|
||
$this->file_lang = $this->dir . "/" . $this->defaultiso;
|
||
else if($this->sessioniso != "")
|
||
$this->file_lang = $this->dir . "/" . $this->sessioniso;
|
||
|
||
/* initialize tabs */
|
||
$i = 0;
|
||
if(is_dir($this->dir)) {
|
||
$handle=opendir($this->dir);
|
||
while ($file = trim(readdir($handle))){
|
||
if($file != "." && $file != "..") {
|
||
$filet = $this->dir . "/" . $file;
|
||
if($fp = @fopen($filet,"r")){
|
||
$finded = 0;
|
||
while (($ligne = fgets($fp,10000)) && ($finded == 0)){
|
||
if($ligne[0] == "#" && $ligne[1] == "{" && $ligne[2] == "@") {
|
||
$ligneok = "array(" . substr($ligne,2,strlen($ligne)-4) . ");";
|
||
eval("\$tablanginfo = $ligneok;");
|
||
$this->tablangs["htmltagoption"][$i] = $tablanginfo["htmltagoption"];
|
||
$this->tablangs["charset"][$i] = $tablanginfo["charset"];
|
||
$this->tablangs["name"][$i] = $tablanginfo["name"];
|
||
$this->tablangs["iso"][$i] = $file;
|
||
$finded = 1;
|
||
//print "fichier indice $i $file " . $tablanginfo["charset"] . "<br>\n";
|
||
$i++;
|
||
|
||
}
|
||
}
|
||
fclose($fp);
|
||
}
|
||
}
|
||
}
|
||
closedir($handle);
|
||
}
|
||
}
|
||
|
||
/**
|
||
* Return translated version of parameter string
|
||
* [fr] Retourne la version traduite du texte pass<73> en param<61>tre
|
||
* Si il n'y a pas de correspondance pour ce texte, il est retourn<72>
|
||
* "tel quel" pr<70>c<EFBFBD>d<EFBFBD> d'un "<b>[vo]</b> <i>" et termin<69> par un </i>
|
||
*
|
||
* @access public
|
||
* @return string translated version of parameter string, or original version of this string with "<b>[vo]</b> <i>" before and "</i>" after
|
||
* @param string $str original string to translate
|
||
* @param int $mark bolean, 1 or nothing: add [vo] if this translation does not exists, 0 don't add [vo] tags
|
||
*/
|
||
function translate($str, $mark){
|
||
//Si le tableau des langues n'est pas d<>fini c'est que c'est le 1er appel
|
||
if((count($this->tab_translate) < 1) && (trim($this->file_lang) != "")){
|
||
if($fp = @fopen($this->file_lang,"r")){
|
||
while ($ligne = fgetcsv($fp,10000, "=")){
|
||
//On ne prends pas en compte les commentaires etc.
|
||
if(trim($ligne[0]) != "")
|
||
if($ligne[0][0] != "#" && $ligne[0][0] != ";"){
|
||
if(isset($ligne[1]) && $ligne[1] != "")
|
||
$this->tab_translate[$ligne[0]] = $ligne[1];
|
||
}
|
||
}
|
||
fclose($fp);
|
||
}
|
||
else
|
||
if($this->debug)
|
||
print "File <b>- $this->file_lang -</b> is unreadable";
|
||
}
|
||
$retour = $this->tab_translate[$str];
|
||
|
||
if($retour == "") {
|
||
//Si on est pas d<>j<EFBFBD> en vo, on le marque
|
||
if($this->sessioniso && $this->sourceiso != $this->sessioniso && $mark)
|
||
$retour = "<b>[vo]</b> <i>$str</i>";
|
||
else
|
||
$retour = $str;
|
||
}
|
||
return $retour;
|
||
}
|
||
|
||
/**
|
||
* Return the list of available languages
|
||
* [fr] Retourne la liste des langues disponibles
|
||
*
|
||
* @access public
|
||
* @return array: list of languages
|
||
*/
|
||
function get_available_languages()
|
||
{
|
||
$tab = array();
|
||
|
||
if($this->sessioniso != "") {
|
||
$tab[$this->sessioniso] = array($this->sessioniso => "");
|
||
$tab[$this->sourceiso] = array($this->sourceiso => "");
|
||
}
|
||
else if($this->defaultiso != "") {
|
||
$tab[$this->defaultiso] = array($this->defaultiso => "");
|
||
$tab[$this->sourceiso] = array($this->sourceiso => "");
|
||
}
|
||
else {
|
||
$tab[$this->sourceiso] = array($this->sourceiso => "");
|
||
}
|
||
|
||
for($i = 0; $i < count($this->tablangs["iso"]); $i++) {
|
||
$isocode = $this->tablangs["iso"][$i];
|
||
$lang = $this->tablangs["name"][$i];
|
||
$tab[$isocode] = array($isocode => $lang);
|
||
}
|
||
return $tab;
|
||
}
|
||
|
||
/**
|
||
* Send header and return a string of html start page
|
||
* [fr] Exp<78>die le header correct et retourne le d<>but de la page html
|
||
*
|
||
* @access public
|
||
* @return string
|
||
*/
|
||
function lang_header()
|
||
{
|
||
$search = "";
|
||
$ind = 0;
|
||
|
||
if($this->sessioniso != "")
|
||
$search = $this->sessioniso;
|
||
else
|
||
$search = $this->defaultiso;
|
||
|
||
// indice du tab ?
|
||
for($i = 0; $i < count($this->tablangs["iso"]) && !$ind; $i++)
|
||
if($this->tablangs["iso"][$i] == $search)
|
||
$ind = $i;
|
||
|
||
$htmltag = "<html";
|
||
if($this->tablangs["htmltagoption"][$ind] != "nothing" && $this->tablangs["htmltagoption"][$ind] != "")
|
||
$htmltag .= " " . $this->tablangs["htmltagoption"][$ind];
|
||
$htmltag .= ">";
|
||
|
||
if($this->tablangs["charset"][$ind] == "")
|
||
$charset = "iso-8859-1";
|
||
else
|
||
$charset = $this->tablangs["charset"][$ind];
|
||
|
||
// print "fichier indice $ind $search / $charset" ;
|
||
|
||
//header("Content-Type: text/html; charset=$charset");
|
||
$texte .= "$htmltag
|
||
<head>
|
||
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=$charset\">\n";
|
||
|
||
return $texte;
|
||
}
|
||
}
|
||
|
||
/*
|
||
* Return translated version of parameter string
|
||
* [fr] Retourne la version traduite du texte pass<73> en param<61>tre
|
||
* Si il n'y a pas de correspondance pour ce texte, il est retourn<72>
|
||
* "tel quel" pr<70>c<EFBFBD>d<EFBFBD> d'un "<b>[vo]</b> <i>" et termin<69> par un </i>
|
||
*
|
||
* @access public
|
||
* @return string translated version of parameter string, or original version of this string with "<b>[vo]</b> <i>" before and "</i>" after
|
||
* @param string $str original string to translate
|
||
* @param int $mark bolean, 1 or nothing: add [vo] if this translation does not exists, 0 don't add [vo] tags
|
||
*/
|
||
function translate($str, $mark = 1){
|
||
global $rtplang;
|
||
return $rtplang->translate($str, $mark);
|
||
}
|
||
|
||
?>
|