"Move from translingo to pootle"pull/1/head
root
12 years ago
parent
1e6bf29530
commit
a0070c6cd2
@ -1,7 +0,0 @@
|
||||
all:
|
||||
xgettext -s -o messages.po --no-wrap --foreign-user includes/*.php www/*.php pages/account/*.php pages/index/*.php pages/wot/*.php pages/gpg/*.php pages/disputes/*.php pages/help/*.php pages/disputes/*.php scripts/removedead.php
|
||||
perl cacertupload.pl
|
||||
cd locale; php make.php
|
||||
|
||||
other: all
|
||||
cat messages.po|sed "s/CHARSET/iso-8859-1/"|sed "s/PACKAGE VERSION/CAcert/"|sed "s/This file is put in the public domain./This file is distributed under the same license as the CAcert package./"|sed "s/# SOME DESCRIPTIVE TITLE.//" > messages.po
|
||||
@ -1,59 +0,0 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
#LibreSSL - CAcert web application
|
||||
#Copyright (C) 2004-2008 CAcert Inc.
|
||||
#
|
||||
#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; version 2 of the License.
|
||||
#
|
||||
#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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
|
||||
use LWP::UserAgent;
|
||||
$ua = LWP::UserAgent->new(agent => 'Translingo Client 1.0');
|
||||
use HTTP::Request::Common qw(POST);
|
||||
|
||||
my $translingo_password;
|
||||
my $translingo_account;
|
||||
|
||||
# Read Account&Password from file
|
||||
eval `cat password.dat`;
|
||||
|
||||
$ua->cookie_jar({});
|
||||
$ua->timeout(10000);
|
||||
|
||||
my $req = POST 'http://translingo.cacert.org/login.php',
|
||||
[
|
||||
];
|
||||
# ggf. Referer faken
|
||||
$req->referer('http://translingo.cacert.org/');
|
||||
$ua->request($req)->as_string;
|
||||
|
||||
# 1.Test - Umgebung
|
||||
my $req = POST 'http://translingo.cacert.org/login.php',
|
||||
[
|
||||
username => $translingo_account,
|
||||
password => $translingo_password,
|
||||
submit => 'Login',
|
||||
];
|
||||
# ggf. Referer faken
|
||||
$req->referer('http://translingo.cacert.org/');
|
||||
$ua->request($req)->as_string;
|
||||
|
||||
# 2.Test - FileUpload
|
||||
my $req = POST 'http://translingo.cacert.org/upload.php',
|
||||
Content_Type => 'form-data',
|
||||
Content => [
|
||||
project => '1',
|
||||
fileformat => '1',
|
||||
pofile => ["messages.po" => "messages.po", 'Content_Type' => "application/x-gettext"],
|
||||
];
|
||||
print $ua->request($req)->as_string;
|
||||
|
||||
@ -0,0 +1,343 @@
|
||||
<?php /*
|
||||
LibreSSL - CAcert web application
|
||||
Copyright (C) 2004-2011 CAcert Inc.
|
||||
|
||||
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; version 2 of the License.
|
||||
|
||||
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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
*/
|
||||
|
||||
/**
|
||||
* This class provides some functions for language handling
|
||||
*/
|
||||
class L10n {
|
||||
/**
|
||||
* These are tranlations we currently support.
|
||||
*
|
||||
* If another translation is added, it doesn't suffice to have gettext set
|
||||
* up, you also need to add it here, because it acts as a white list.
|
||||
*
|
||||
* @var array("ISO-language code" => "native name of the language")
|
||||
*/
|
||||
public static $translations = array(
|
||||
"ar" => "العربية",
|
||||
"bg" => "Български",
|
||||
"cs" => "Čeština",
|
||||
"da" => "Dansk",
|
||||
"de" => "Deutsch",
|
||||
"el" => "Ελληνικά",
|
||||
"en" => "English",
|
||||
"es" => "Español",
|
||||
"fi" => "Suomi",
|
||||
"fr" => "Français",
|
||||
"hu" => "Magyar",
|
||||
"it" => "Italiano",
|
||||
"ja" => "日本語",
|
||||
"lv" => "Latviešu",
|
||||
"nl" => "Nederlands",
|
||||
"pl" => "Polski",
|
||||
"pt" => "Português",
|
||||
"pt-br" => "Português Brasileiro",
|
||||
"ru" => "Русский",
|
||||
"sv" => "Svenska",
|
||||
"tr" => "Türkçe",
|
||||
"zh-cn" => "中文(简体)",
|
||||
"zh-tw" => "中文(臺灣)",
|
||||
);
|
||||
|
||||
/**
|
||||
* setlocale needs a language + region code for whatever reason so here's
|
||||
* the mapping from a translation code to locales with the region that
|
||||
* seemed the most common for this language
|
||||
*
|
||||
* You probably never need this. Use {@link set_translation()} to change the
|
||||
* language instead of manually calling setlocale().
|
||||
*
|
||||
* @var array(string => string)
|
||||
*/
|
||||
private static $locales = array(
|
||||
"ar" => "ar_JO",
|
||||
"bg" => "bg_BG",
|
||||
"cs" => "cs_CZ",
|
||||
"da" => "da_DK",
|
||||
"de" => "de_DE",
|
||||
"el" => "el_GR",
|
||||
"en" => "en_US",
|
||||
"es" => "es_ES",
|
||||
"fa" => "fa_IR",
|
||||
"fi" => "fi_FI",
|
||||
"fr" => "fr_FR",
|
||||
"he" => "he_IL",
|
||||
"hr" => "hr_HR",
|
||||
"hu" => "hu_HU",
|
||||
"id" => "id_ID",
|
||||
"is" => "is_IS",
|
||||
"it" => "it_IT",
|
||||
"ja" => "ja_JP",
|
||||
"ka" => "ka_GE",
|
||||
"ko" => "ko_KR",
|
||||
"lv" => "lv_LV",
|
||||
"nb" => "nb_NO",
|
||||
"nl" => "nl_NL",
|
||||
"pl" => "pl_PL",
|
||||
"pt" => "pt_PT",
|
||||
"pt-br" => "pt_BR",
|
||||
"ro" => "ro_RO",
|
||||
"ru" => "ru_RU",
|
||||
"sl" => "sl_SI",
|
||||
"sv" => "sv_SE",
|
||||
"th" => "th_TH",
|
||||
"tr" => "tr_TR",
|
||||
"uk" => "uk_UA",
|
||||
"zh-cn" => "zh_CN",
|
||||
"zh-tw" => "zh_TW",
|
||||
);
|
||||
|
||||
/**
|
||||
* Auto-detects the language that should be used and sets it. Only works for
|
||||
* HTTP, not in a command line script.
|
||||
*
|
||||
* Priority:
|
||||
* <ol>
|
||||
* <li>explicit parameter "lang" passed in HTTP (e.g. via GET)</li>
|
||||
* <li>existing setting in the session (stick to the setting we had before)
|
||||
* </li>
|
||||
* <li>auto-detect via the HTTP Accept-Language header sent by the user
|
||||
* agent</li>
|
||||
* </ol>
|
||||
*/
|
||||
public static function detect_language() {
|
||||
if ( (self::get_translation() != "")
|
||||
// already set in the session?
|
||||
&&
|
||||
!(array_key_exists("lang", $_REQUEST) &&
|
||||
trim($_REQUEST["lang"]) != "")
|
||||
// explicit parameter?
|
||||
)
|
||||
{
|
||||
if ( self::set_translation(self::get_translation()) ) {
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
$languages = array();
|
||||
|
||||
// parse Accept-Language header
|
||||
if (array_key_exists('HTTP_ACCEPT_LANGUAGE', $_SERVER)) {
|
||||
$bits = explode(",", strtolower(
|
||||
str_replace(" ", "", $_SERVER['HTTP_ACCEPT_LANGUAGE'])
|
||||
));
|
||||
foreach($bits as $lang)
|
||||
{
|
||||
$b = explode(";", $lang);
|
||||
if(count($b)>1 && substr($b[1], 0, 2) == "q=")
|
||||
$c = floatval(substr($b[1], 2));
|
||||
else
|
||||
$c = 1;
|
||||
|
||||
if ($c != 0)
|
||||
{
|
||||
$languages[trim($b[0])] = $c;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
// check if there is an explicit language given as parameter
|
||||
if(array_key_exists("lang",$_REQUEST) && trim($_REQUEST["lang"]) != "")
|
||||
{
|
||||
// higher priority than those values in the header
|
||||
$languages[strtolower(trim($_REQUEST["lang"]))] = 2.0;
|
||||
}
|
||||
|
||||
arsort($languages, SORT_NUMERIC);
|
||||
|
||||
// this is used to be compatible with browsers like internet
|
||||
// explorer which only provide the language code including the
|
||||
// region not without. Also handles the fallback to English (qvalues
|
||||
// may only have three digits after the .)
|
||||
$fallbacks = array("en" => 0.0005);
|
||||
|
||||
foreach($languages as $lang => $qvalue)
|
||||
{
|
||||
// ignore any non-conforming values (that's why we don't need to
|
||||
// mysql_real_escape() or escapeshellarg(), but take care of
|
||||
// the '*')
|
||||
// spec: ( ( 1*8ALPHA *( "-" 1*8ALPHA ) ) | "*" )
|
||||
if ( preg_match('/^(?:([a-zA-Z]{1,8})(?:-[a-zA-Z]{1,8})*|\*)$/',
|
||||
$lang, $matches) !== 1 ) {
|
||||
continue;
|
||||
}
|
||||
$lang_prefix = $matches[1]; // usually two-letter language code
|
||||
$fallbacks[$lang_prefix] = $qvalue;
|
||||
|
||||
$chosen_translation = "";
|
||||
if ($lang === '*') {
|
||||
// According to the standard '*' matches anything but any
|
||||
// language explicitly specified. So in theory if there
|
||||
// was an explicit mention of "en" with a lower priority
|
||||
// this would be incorrect, but that's too much trouble.
|
||||
$chosen_translation = "en";
|
||||
} else {
|
||||
$lang_length = strlen($lang);
|
||||
foreach (self::$translations as $translation => $ignore)
|
||||
{
|
||||
// May match exactly or on every '-'
|
||||
if ( $translation === $lang ||
|
||||
substr($translation, 0, $lang_length + 1)
|
||||
=== $lang.'-'
|
||||
)
|
||||
{
|
||||
$chosen_translation = $translation;
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if ($chosen_translation !== "")
|
||||
{
|
||||
if (self::set_translation($chosen_translation)) {
|
||||
return;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
// No translation found yet => try the prefixes
|
||||
arsort($fallbacks, SORT_NUMERIC);
|
||||
foreach ($fallbacks as $lang => $qvalue) {
|
||||
if (self::set_translation($lang)) {
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
// should not get here, as the fallback of "en" is provided and that
|
||||
// should always work => log an error
|
||||
trigger_error("L10n::detect_language(): could not set language",
|
||||
E_USER_WARNING);
|
||||
}
|
||||
|
||||
/**
|
||||
* Get the set translation
|
||||
*
|
||||
* @return string
|
||||
* a translation code or the empty string if not set
|
||||
*/
|
||||
public static function get_translation() {
|
||||
if (array_key_exists('language', $_SESSION['_config'])) {
|
||||
return $_SESSION['_config']['language'];
|
||||
} else {
|
||||
return "";
|
||||
}
|
||||
}
|
||||
|
||||
/**
|
||||
* Set the translation to use.
|
||||
*
|
||||
* @param string $translation_code
|
||||
* the translation code as specified in the keys of {@link $translations}
|
||||
*
|
||||
* @return bool
|
||||
* <ul>
|
||||
* <li>true if the translation has been set successfully</li>
|
||||
* <li>false if the $translation_code was not contained in the white
|
||||
* list or could not be set for other reasons (e.g. setlocale()
|
||||
* failed because the locale has not been set up on the system -
|
||||
* details will be logged)</li>
|
||||
* </ul>
|
||||
*/
|
||||
public static function set_translation($translation_code) {
|
||||
// check $translation_code against whitelist
|
||||
if ( !array_key_exists($translation_code, self::$translations) ) {
|
||||
// maybe it's a locale as previously used in the system? e.g. en_AU
|
||||
if ( preg_match('/^([a-z][a-z])_([A-Z][A-Z])$/', $translation_code,
|
||||
$matches) !== 1 ) {
|
||||
return false;
|
||||
}
|
||||
|
||||
$lang_code = $matches[1];
|
||||
$region_code = strtolower($matches[2]);
|
||||
|
||||
if ( array_key_exists("${lang_code}-${region_code}",
|
||||
self::$translations) ) {
|
||||
$translation_code = "${lang_code}-${region_code}";
|
||||
} elseif ( array_key_exists($lang_code, self::$translations) ) {
|
||||
$translation_code = $lang_code;
|
||||
} else {
|
||||
return false;
|
||||
}
|
||||
}
|
||||
|
||||
// map translation to locale
|
||||
if ( !array_key_exists($translation_code, self::$locales) ) {
|
||||
// weird. maybe you added a translation but haven't added a
|
||||
// translation to locale mapping in self::locales?
|
||||
trigger_error("L10n::set_translation(): could not map the ".
|
||||
"translation $translation_code to a locale", E_USER_WARNING);
|
||||
return false;
|
||||
}
|
||||
$locale = self::$locales[$translation_code];
|
||||
|
||||
// set up locale
|
||||
if ( !putenv("LANG=$locale") ) {
|
||||
trigger_error("L10n::set_translation(): could not set the ".
|
||||
"environment variable LANG to $locale", E_USER_WARNING);
|
||||
return false;
|
||||
}
|
||||
if ( !setlocale(LC_ALL, $locale) ) {
|
||||
trigger_error("L10n::set_translation(): could not setlocale() ".
|
||||
"LC_ALL to $locale", E_USER_WARNING);
|
||||
return false;
|
||||
}
|
||||
|
||||
|
||||
// only set if we're running in a server not in a script
|
||||
if (isset($_SESSION)) {
|
||||
// save the setting
|
||||
$_SESSION['_config']['language'] = $translation_code;
|
||||
|
||||
|
||||
// Set up the recode settings needed e.g. in PDF creation
|
||||
$_SESSION['_config']['recode'] = "html..latin-1";
|
||||
|
||||
if($translation_code === "zh-cn" || $translation_code === "zh-tw")
|
||||
{
|
||||
$_SESSION['_config']['recode'] = "html..gb2312";
|
||||
|
||||
} else if($translation_code === "pl" || $translation_code === "hu") {
|
||||
$_SESSION['_config']['recode'] = "html..ISO-8859-2";
|
||||
|
||||
} else if($translation_code === "ja") {
|
||||
$_SESSION['_config']['recode'] = "html..SHIFT-JIS";
|
||||
|
||||
} else if($translation_code === "ru") {
|
||||
$_SESSION['_config']['recode'] = "html..ISO-8859-5";
|
||||
|
||||
} else if($translation_code == "lt") { // legacy, keep for reference
|
||||
$_SESSION['_config']['recode'] = "html..ISO-8859-13";
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
/**
|
||||
* Sets up the text domain used by gettext
|
||||
*
|
||||
* @param string $domain
|
||||
* the gettext domain that should be used, defaults to "messages"
|
||||
*/
|
||||
public static function init_gettext($domain = 'messages') {
|
||||
bindtextdomain($domain, $_SESSION['_config']['filepath'].'/locale');
|
||||
textdomain($domain);
|
||||
}
|
||||
}
|
||||
@ -1,2 +0,0 @@
|
||||
$translingo_password = 'ThePassword';
|
||||
$translingo_account = 'TheAccount';
|
||||
Loading…
Reference in New Issue