cacert/cacert-webdb
9
0
Fork 0
Code Issues Pull requests 3 Projects Releases 4 Wiki Activity

Fix for https://bugs.cacert.org/view.php?id=985

Browse source 
"Move from translingo to pootle"
This commit is contained in:
root 2012-01-24 14:24:31 +00:00
parent 1e6bf29530
commit a0070c6cd2
5 changed files with 345 additions and 70 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
CommModule/client.pl
View file

@ -595,7 +595,7 @@ sub OpenPGPextractExpiryDate ($)
# Sets the locale according to the users preferred language
sub setUsersLanguage($)
{
my $lang="de_DE";
my $lang="en_US";
print "Searching for the language of the user $_[0]\n";
my @a=$dbh->selectrow_array("select language from users where id='".int($_[0])."'");
$lang = $1 if($a[0]=~m/(\w+_[\w.@]+)/);
@ -887,7 +887,7 @@ sub HandleCerts($$)
my $body = _("Hi")." $user{fname},\n\n";
$body .= sprintf(_("You can collect your certificate for %s by going to the following location:")."\n\n", $row{'email'}.$row{'CN'});
$body .= "https://www.cacert.org/account.php?id=".($server?"15":"6")."&cert=$row{id}\n\n";
$body .= _("If you have not imported CAcert´s root certificate, please go to:")."\n";
$body .= _("If you have not imported CAcert's root certificate, please go to:")."\n";
$body .= "https://www.cacert.org/index.php?id=3\n";
$body .= "Root cert fingerprint = A6:1B:37:5E:39:0D:9C:36:54:EE:BD:20:31:46:1F:6B\n";
$body .= "Root cert fingerprint = 135C EC36 F49C B8E9 3B1A B270 CD80 8846 76CE 8F33\n\n";

7
Makefile
View file

@ -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

59
cacertupload.pl
View file

@ -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;

343
includes/lib/l10n.php Normal file
View file

@ -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" => "&#1575;&#1604;&#1593;&#1585;&#1576;&#1610;&#1577;",
"bg" => "&#1041;&#1098;&#1083;&#1075;&#1072;&#1088;&#1089;&#1082;&#1080;",
"cs" => "&#268;e&scaron;tina",
"da" => "Dansk",
"de" => "Deutsch",
"el" => "&Epsilon;&lambda;&lambda;&eta;&nu;&iota;&kappa;&#940;",
"en" => "English",
"es" => "Espa&#xf1;ol",
"fi" => "Suomi",
"fr" => "Fran&#xe7;ais",
"hu" => "Magyar",
"it" => "Italiano",
"ja" => "&#26085;&#26412;&#35486;",
"lv" => "Latvie&scaron;u",
"nl" => "Nederlands",
"pl" => "Polski",
"pt" => "Portugu&#xea;s",
"pt-br" => "Portugu&#xea;s Brasileiro",
"ru" => "&#x420;&#x443;&#x441;&#x441;&#x43a;&#x438;&#x439;",
"sv" => "Svenska",
"tr" => "T&#xfc;rk&#xe7;e",
"zh-cn" => "&#x4e2d;&#x6587;(&#x7b80;&#x4f53;)",
"zh-tw" => "&#x4e2d;&#x6587;(&#33274;&#28771;)",
);
/**
* 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);
}
}

2
password.dat.sample
View file

@ -1,2 +0,0 @@
$translingo_password = 'ThePassword';
$translingo_account = 'TheAccount';