mirror of https://github.com/BOINC/boinc.git
520 lines
19 KiB
PHP
520 lines
19 KiB
PHP
<?php
|
|
$cvs_version_tracker[]="\$Id$"; //Generated automatically - do not edit
|
|
|
|
$lang_language_dir = "../languages/";
|
|
$lang_translations_dir = "translations/";
|
|
$lang_prj_translations_dir = "project_specific_translations/";
|
|
$lang_compiled_dir = "compiled/";
|
|
$lang_project_default = "en";
|
|
$lang_log_level = 0;
|
|
$lang_log_file = $lang_language_dir."translator.log";
|
|
|
|
/**
|
|
* Fetches a list of compiled languages from the directory
|
|
* set to contain such files.
|
|
*/
|
|
function getSupportedLanguages(){
|
|
global $lang_language_dir, $lang_compiled_dir;
|
|
if (is_dir($lang_language_dir.$lang_compiled_dir)) {
|
|
if ($dh = opendir($lang_language_dir.$lang_compiled_dir)) { //If dir exists
|
|
while (($file = readdir($dh)) !== false) {
|
|
//read contents
|
|
if (substr($file,-7)!=".po.inc") continue;
|
|
if (is_numeric(substr($file, 0, 5))) continue;
|
|
|
|
$list[] = substr($file,0,-7);
|
|
}
|
|
}
|
|
} else {
|
|
echo "\"".$lang_language_dir.$lang_compiled_dir."\" is not a directory. Please consult the documentation for correctly setting up the translation system.";
|
|
exit;
|
|
}
|
|
return $list;
|
|
}
|
|
|
|
function trSpecific($tokennumber, $language=""){
|
|
global $lang_language_dir, $lang_compiled_dir;
|
|
$language= substr($language,0,5);
|
|
if ($language!="" && file_exists($lang_language_dir.$lang_compiled_dir.$language.".po.inc")){
|
|
//If we have the language, include it
|
|
//echo "[$language]";
|
|
require($lang_language_dir.$lang_compiled_dir.$language.".po.inc");
|
|
return stripslashes($language_lookup_array[$tokennumber]);
|
|
} else {
|
|
return false;
|
|
}
|
|
}
|
|
|
|
/*************************
|
|
* Parses the language interface file containing the tokens (can parse .po-style files)
|
|
************************/
|
|
function parseLanguageInterface($file){
|
|
$translation_file = file($file);
|
|
for ($i = 0;$i<sizeof($translation_file);$i++){
|
|
$entry = ltrim(trim($translation_file[$i]));
|
|
if (($pos=strpos($entry, "msgid"))!==false){
|
|
//If found msgid entry
|
|
$token=getPOLineContent($entry);
|
|
if (ltrim(trim($token))!=""){
|
|
$interface[]=$token;
|
|
}
|
|
}
|
|
}
|
|
return $interface;
|
|
}
|
|
|
|
|
|
/***************************
|
|
* Builds the lookup arrays from the language interface file
|
|
* and the language files found in the $dir directory subtree
|
|
***************************/
|
|
function buildLanguages($langdir,$transdir,$prjtransdir,$compdir){
|
|
global $lang_project_default;
|
|
|
|
$actual_compdir = $compdir;
|
|
// Store the actual compile dir, we want to use a temporary addition
|
|
$randomness = rand(10000,99999)."_";
|
|
//Concat some randomness to the temporary dir, we'll rename files later
|
|
$compdir .=$randomness;
|
|
// This is to ensure that no problems arise even when
|
|
// the filesystem fails to ensure mutual exclusion for
|
|
// compile timer tests. This way a new file will simply
|
|
// overwrite the old one instead of garbling it if 2 processes
|
|
// of this compiler runs concurrently.
|
|
|
|
// The reason why we are using filename prefixes here
|
|
// is that on some installations PHP isn't allowed
|
|
// to create and use new directories
|
|
// (due to wrong permissions or SELinux restrictions).
|
|
|
|
// Touch compile timer
|
|
//
|
|
$fh=fopen($langdir."last_compile_timer","w");
|
|
fwrite($fh, time());
|
|
fclose($fh);
|
|
|
|
// First build the list of defines for the tokens
|
|
// and place it in an include file in the directory
|
|
//
|
|
|
|
$interface = parseLanguageInterface(
|
|
$langdir.$transdir.$lang_project_default.".po"
|
|
);
|
|
if (!$fh = fopen($langdir.$compdir."language_interface.inc","w")) {
|
|
language_log(
|
|
"Could not access $langdir $compdir - please check permissions",2
|
|
);
|
|
exit;
|
|
}
|
|
fwrite($fh, "<?php\n");
|
|
for ($i=0;$i<sizeof($interface);$i++){
|
|
//Translate to PHP
|
|
fwrite($fh, "define(\"".$interface[$i]."\",".$i.");\n");
|
|
fwrite($fh, "\$translation_strings[\"".$interface[$i]."\"] = ".$i.";\n");
|
|
}
|
|
fwrite($fh, '?>');
|
|
fclose($fh);
|
|
$real_interface_size = sizeof($interface);
|
|
|
|
// Now run through each language and recompile their lookup arrays.
|
|
//
|
|
if (is_dir($langdir.$transdir)) {
|
|
if ($dh = opendir($langdir.$transdir)) {
|
|
//If dir exists
|
|
while (($file = readdir($dh)) !== false) {
|
|
//read contents
|
|
if ($file==".." or $file=="."){
|
|
} else if (substr($file,-3)==".po"){
|
|
//only files ending in .po
|
|
language_log("-------------Compiling $file------------",0);
|
|
$language = parseLanguage(
|
|
$langdir.$transdir.$file, $interface
|
|
);
|
|
if (!$fh = fopen($langdir.$compdir.$file.".inc","w")) {
|
|
language_log(
|
|
"ERROR: could not access $langdir $compdir - please check permissions",2
|
|
);
|
|
exit;
|
|
}
|
|
fwrite($fh, "<?php\n");
|
|
fwrite($fh, '$s = \'$s\''.";\n"); // Quick Kludge
|
|
$keys = array_keys($language);
|
|
for ($i=0;$i<sizeof($interface);$i++){
|
|
if (isset($keys[$i]) && isset($language[$keys[$i]])) {
|
|
if ($language[$keys[$i]] == "") {
|
|
//If the msgstr is empty, use the msgid instead
|
|
fwrite($fh, "\$language_lookup_array[".$keys[$i]."] = \"".addslashes($interface[$keys[$i]])."\";\n");
|
|
} else {
|
|
fwrite($fh, "\$language_lookup_array[".$keys[$i]."] = \"".addslashes($language[$keys[$i]])."\";\n");
|
|
}
|
|
}
|
|
}
|
|
fwrite($fh, '?>');
|
|
fclose($fh);
|
|
} else {
|
|
//debug("File $file with unknown extension found in $info_dir");
|
|
}
|
|
}
|
|
closedir($dh);
|
|
} else {
|
|
//debug("$info_dir could not be opened - check permissions?");
|
|
}
|
|
} else {
|
|
//debug("$info_dir not found or is not a directory");
|
|
}
|
|
|
|
//Do the same again, this time for the project specific language files
|
|
// and instead of creating new compiled files
|
|
// just add to whatever existing ones
|
|
//
|
|
if (is_dir($langdir.$prjtransdir)) {
|
|
$interface = parseLanguageInterface($langdir.$prjtransdir.$lang_project_default.".po");
|
|
if (!$fh = fopen($langdir.$compdir."language_interface.inc","a")) {
|
|
language_log("ERROR: could not access $langdir $compdir - please check permissions",2);
|
|
exit;
|
|
}
|
|
fwrite($fh, "<?php\n");
|
|
for ($i=0;$i<sizeof($interface);$i++){
|
|
fwrite($fh, "define(\"".$interface[$i]."\",".($i+$real_interface_size).");\n");
|
|
fwrite($fh, "\$translation_strings[\"".$interface[$i]."\"] = ".$i+$real_interface_size.";\n");
|
|
}
|
|
fwrite($fh, '?>');
|
|
fclose($fh);
|
|
if ($dh = opendir($langdir.$prjtransdir)) {
|
|
//If dir exists
|
|
while (($file = readdir($dh)) !== false) {
|
|
//read contents
|
|
if ($file==".." or $file==".") continue;
|
|
if (substr($file,-3)==".po"){
|
|
//only files ending in .po
|
|
language_log("----------------Compiling project specific $file---------------",0);
|
|
$language = parseLanguage($langdir.$prjtransdir.$file, $interface);
|
|
if (!$fh = fopen($langdir.$compdir.$file.".inc","a")) {
|
|
language_log("ERROR: could not access $langdir $compdir - please check permissions",2);
|
|
exit;
|
|
}
|
|
fwrite($fh, "<?php\n");
|
|
fwrite($fh, '$s = \'$s\''.";\n"); // Quick Kludge
|
|
$keys = array_keys($language);
|
|
for ($i=0;$i<sizeof($interface);$i++){
|
|
if ($language[$keys[$i]]!="") {
|
|
fwrite($fh, "\$language_lookup_array[".($real_interface_size+$keys[$i])."] = \"".addslashes($language[$keys[$i]])."\";\n"); //Translate to PHP
|
|
}
|
|
}
|
|
fwrite($fh, '?>');
|
|
fclose($fh);
|
|
} else {
|
|
//debug("File $file with unknown extension found in $info_dir");
|
|
}
|
|
}
|
|
closedir($dh);
|
|
} else {
|
|
//debug("$info_dir could not be opened - check permissions?");
|
|
}
|
|
} else {
|
|
//debug("$info_dir not found or is not a directory");
|
|
}
|
|
|
|
//Lastly we will rename the files to their real names (remove the random prefix):
|
|
if ($dh = opendir($langdir.$actual_compdir)) {
|
|
while (($file = readdir($dh)) !== false) {
|
|
if ($file==".." or $file=="." or (substr($file,0,strlen($randomness))!=$randomness)) continue;
|
|
if (substr($file,-4)==".inc") {
|
|
//only files ending in .inc
|
|
rename ($langdir.$actual_compdir.$file, $langdir.$actual_compdir.substr($file,strlen($randomness)));
|
|
}
|
|
}
|
|
} else {
|
|
echo "no compile dir?!";
|
|
}
|
|
}
|
|
|
|
|
|
/***************************
|
|
* Have some of the files changed?
|
|
**************************/
|
|
function languagesNeedsRebuild($langdir,$transdir,$prjtransdir, $compdir){
|
|
|
|
if (!file_exists($langdir.$compdir)){
|
|
//This directory does not exist - try to create one
|
|
mkdir($langdir.$compdir,0773);
|
|
return true;
|
|
//and force an update since we need it
|
|
}
|
|
|
|
// Uncomment the following to speed up things when you know
|
|
// that you will manually recompile the languages when updated...
|
|
//
|
|
// return false;
|
|
|
|
$last_compile = 0;
|
|
if (file_exists($langdir."last_compile_timer")) {
|
|
$last_compile = filemtime($langdir."last_compile_timer");
|
|
}
|
|
|
|
//This file gets touched each time a compile finishes
|
|
|
|
if (is_dir($langdir.$transdir)) {
|
|
if ($dh = opendir($langdir.$transdir)) {
|
|
while (($file = readdir($dh)) !== false) {
|
|
if ($file==".." or $file==".") continue;
|
|
if (substr($file,-3)==".po"){
|
|
//only files ending in .po
|
|
if (filemtime($langdir.$transdir.$file)>$last_compile) {
|
|
closedir($dh);
|
|
return true;
|
|
}
|
|
}
|
|
}
|
|
closedir($dh);
|
|
}
|
|
}
|
|
if (is_dir($langdir.$prjtransdir)) {
|
|
if ($dh = opendir($langdir.$prjtransdir)) {
|
|
while (($file = readdir($dh)) !== false) {
|
|
if ($file==".." or $file==".") continue;
|
|
if (substr($file,-3)==".po"){
|
|
//only files ending in .po
|
|
if (filemtime($langdir.$prjtransdir.$file)>$last_compile) {
|
|
closedir($dh);
|
|
return true;
|
|
}
|
|
}
|
|
}
|
|
closedir($dh);
|
|
}
|
|
}
|
|
return false;
|
|
//All checks say that nothing has changed.
|
|
}
|
|
|
|
/**************************
|
|
* Parses a gettext .po-file into an indexed PHP array,
|
|
* checking for inconsistencies if needed.
|
|
* The $file is parsed and validated against $interface
|
|
*************************/
|
|
function parseLanguage($file, $interface){
|
|
if (sizeof($interface)<1){
|
|
language_log("No interface defined for 'compileLanguages()'",2);
|
|
exit;
|
|
}
|
|
$translation_file = file($file);
|
|
$first_entry = true;
|
|
$current_token_text="";
|
|
for ($i = 0;$i<sizeof($translation_file);$i++){
|
|
$entry = ltrim(trim($translation_file[$i]));
|
|
//echo $entry;
|
|
if (($pos=strpos($entry, "msgid"))!==false){
|
|
//If found msgid entry
|
|
if (!$first_entry){
|
|
//If this is not the first, save the previous entry
|
|
//Does token msgid entry exist in interface?
|
|
//If so, add to output
|
|
$id = checkToken($current_token, $interface, $i, $file);
|
|
if ($id!==false){
|
|
$output[$id]=$current_token_text;
|
|
}
|
|
}
|
|
$current_token = getPOLineContent($entry);
|
|
$current_token_text="";
|
|
$first_entry=false;
|
|
// Now it is no longer the first entry
|
|
} elseif (substr($translation_file[$i],0,1)!="#") {
|
|
//echo "Else";
|
|
$current_token_text.=getPOLineContent($entry);
|
|
}
|
|
}
|
|
$id = checkToken($current_token, $interface, $i, $file);
|
|
if ($id!==false){
|
|
$output[$id]=$current_token_text;
|
|
}
|
|
checkMissingTokens($output, $interface);
|
|
return $output;
|
|
}
|
|
|
|
/*********************
|
|
* Checks if token is in interface.
|
|
* Displays error if not
|
|
**********************/
|
|
function checkToken($current_token, $interface, $line, $file){
|
|
$id = array_search($current_token,$interface);
|
|
if ($id===false){
|
|
language_log("Above line ".$line.": Language file $file has a token (".$current_token.") that is not defined in the interface.",1);
|
|
return false;
|
|
} else {
|
|
return $id;
|
|
}
|
|
}
|
|
|
|
/*****************
|
|
* This function prints any missing tokens as errors
|
|
*****************/
|
|
function checkMissingTokens($language_array, $interface){
|
|
$diff = array_values(array_diff( array_keys($interface),array_keys($language_array)));
|
|
for ($i=0; $i<sizeof($diff); $i++){
|
|
language_log("Language file is missing token (".$interface[$diff[$i]].")",1);
|
|
}
|
|
}
|
|
|
|
/***********************
|
|
* Returns the contents of a line (ie removes "" from start and end)
|
|
*********************/
|
|
function getPOLineContent($line){
|
|
$start = strpos($line, '"')+1;
|
|
$stop = strrpos($line, '"');
|
|
return substr($line, $start, $stop-$start);
|
|
}
|
|
|
|
/************************
|
|
* Translate token
|
|
* Use the token name as a constant - like echo tr(MENU_ABOUT);
|
|
************************/
|
|
function tr($tokennumber){
|
|
global $language_lookup_array;
|
|
if (strval(intval($tokennumber))!=$tokennumber){
|
|
language_log("token $tokennumber missing from language interface.");
|
|
//print_r($language_lookup_array);
|
|
}
|
|
|
|
if (array_key_exists($tokennumber,$language_lookup_array)){
|
|
//If language has got the token
|
|
//If found in client language, return that
|
|
return stripslashes($language_lookup_array[$tokennumber]);
|
|
}
|
|
return "[translation missing for $tokennumber]";
|
|
}
|
|
|
|
/************************
|
|
* Translate string
|
|
************************/
|
|
function tra($string, $s1 = null, $s2 = null, $s3 = null, $s4 = null, $s5 = null){
|
|
global $language_lookup_array;
|
|
global $translation_strings;
|
|
$key = $translation_strings[$string];
|
|
if (array_key_exists($key, $language_lookup_array)) {
|
|
$string = $language_lookup_array[$key];
|
|
}
|
|
|
|
$string = str_replace('%1', $s1, $string);
|
|
$string = str_replace('%2', $s2, $string);
|
|
$string = str_replace('%3', $s3, $string);
|
|
$string = str_replace('%4', $s4, $string);
|
|
$string = str_replace('%5', $s5, $string);
|
|
return $string;
|
|
}
|
|
|
|
function language_log($message, $loglevel=0){
|
|
global $lang_log_level, $lang_log_file;
|
|
if ($loglevel==0) $msg = "[ Debug ]";
|
|
if ($loglevel==1) $msg = "[ Warning ]";
|
|
if ($loglevel==2) $msg = "[ CRITICAL ]";
|
|
|
|
if ($loglevel>=$lang_log_level){
|
|
$fh = fopen($lang_log_file,"a");
|
|
fwrite($fh, date("Y-m-d H:i:s",time())." ".$msg." ".$message."\n");
|
|
fclose($fh);
|
|
}
|
|
}
|
|
|
|
if (languagesNeedsRebuild($lang_language_dir, $lang_translations_dir, $lang_prj_translations_dir, $lang_compiled_dir) || get_str("compile_languages",true)){
|
|
buildLanguages($lang_language_dir,$lang_translations_dir,$lang_prj_translations_dir, $lang_compiled_dir);
|
|
}
|
|
|
|
// Define some variables (from constants) that the language files
|
|
// can use in the translation:
|
|
|
|
$PROJECT = PROJECT;
|
|
|
|
|
|
if (!file_exists($lang_language_dir.$lang_compiled_dir."language_interface.inc")){
|
|
language_log("Could not load language interface.",2);
|
|
echo "ERROR: Could not load language interface.
|
|
This is a fatal error, exiting.
|
|
";
|
|
flush;
|
|
exit;
|
|
}
|
|
|
|
require_once($lang_language_dir.$lang_compiled_dir."language_interface.inc");
|
|
|
|
// Make a list of languages which the user prefers
|
|
// (by looking at cookies and browser settings)
|
|
// cookies have highest priority.
|
|
|
|
if (isset($_COOKIE['lang'])){
|
|
$language_string = $_COOKIE['lang'].",";
|
|
} else {
|
|
$language_string = '';
|
|
}
|
|
if (isset($_SERVER["HTTP_ACCEPT_LANGUAGE"])) {
|
|
$language_string .= strtolower($_SERVER["HTTP_ACCEPT_LANGUAGE"]);
|
|
}
|
|
|
|
// Find out which language to use by iterating through list
|
|
// The list is comma-separated, so split it into an array of the following type:
|
|
// Array (
|
|
// [0] => da
|
|
// [1] => en-us;q=0.7
|
|
// [2] => en;q=0.3
|
|
// )
|
|
|
|
$client_languages=explode(",",$language_string);
|
|
|
|
// A language is either defined as primary-secondary or primary.
|
|
// It can also have a quality attribute set,
|
|
// which orders the languages in a user preferred ordering.
|
|
// Since this is usally the same order as the array indices
|
|
// we just ignore this attribute (TODO: don't ignore this attribute)
|
|
// A missing quality attribute means q=1
|
|
|
|
// Always include the project default as fallback
|
|
//
|
|
require_once(
|
|
$lang_language_dir.$lang_compiled_dir.$lang_project_default.".po.inc"
|
|
);
|
|
$language_in_use = $lang_project_default;
|
|
|
|
// loop over languages that the client requests
|
|
//
|
|
for ($i=sizeof($client_languages)-1;$i>=0;$i--) {
|
|
if ((strlen($client_languages[$i])>2)
|
|
&& (substr($client_languages[$i],2,1)=="_" || substr($client_languages[$i],2,1)=="-"))
|
|
{
|
|
// If this is defined as primary-secondary, represent it as xx_YY
|
|
//
|
|
$language = substr(
|
|
$client_languages[$i],0,2)."_".strtoupper(substr($client_languages[$i],3,2)
|
|
);
|
|
|
|
// And also check for the primary language
|
|
//
|
|
$language2 = substr($client_languages[$i],0,2);
|
|
} else {
|
|
// else just use xx
|
|
//
|
|
$language = substr($client_languages[$i],0,2);
|
|
$language2 = null;
|
|
}
|
|
|
|
// If we have a translation for the language, include it
|
|
//
|
|
$file_name = $lang_language_dir.$lang_compiled_dir.$language.".po.inc";
|
|
if (file_exists($file_name)) {
|
|
require($file_name);
|
|
$language_in_use = $language;
|
|
|
|
}
|
|
if ($language2) {
|
|
$file_name = $lang_language_dir.$lang_compiled_dir.$language2.".po.inc";
|
|
if (file_exists($file_name)) {
|
|
require($file_name);
|
|
$language_in_use = $language2;
|
|
}
|
|
}
|
|
}
|
|
|
|
// If you include this file, $language_in_use is now set
|
|
// to the language actually being used
|
|
|
|
?>
|