setCacheDir(DC_TPL_CACHE);
$feed_reader->setTimeout(5);
$feed_reader->setUserAgent('Dotclear - http://www.dotclear.org/');
try {
$dc_langs = $feed_reader->parse(sprintf(DC_L10N_UPDATE_URL,DC_VERSION));
if ($dc_langs !== false) {
$dc_langs = $dc_langs->items;
}
} catch (Exception $e) {}
# Delete a language pack
if ($is_writable && !empty($_POST['delete']) && !empty($_POST['locale_id']))
{
try
{
$locale_id = $_POST['locale_id'];
if (!isset($iso_codes[$locale_id]) || !is_dir(DC_L10N_ROOT.'/'.$locale_id)) {
throw new Exception(__('No such installed language'));
}
if ($locale_id == 'en') {
throw new Exception(__("You can't remove English language."));
}
if (!files::deltree(DC_L10N_ROOT.'/'.$locale_id)) {
throw new Exception(__('Permissions to delete language denied.'));
}
http::redirect('langs.php?removed=1');
}
catch (Exception $e)
{
$core->error->add($e->getMessage());
}
}
# Download a language pack
if ($is_writable && !empty($_POST['pkg_url']))
{
try
{
if (empty($_POST['your_pwd']) || !$core->auth->checkPassword(crypt::hmac(DC_MASTER_KEY,$_POST['your_pwd']))) {
throw new Exception(__('Password verification failed'));
}
$url = html::escapeHTML($_POST['pkg_url']);
$dest = DC_L10N_ROOT.'/'.basename($url);
if (!preg_match('#^http://[^.]+\.dotclear\.(net|org)/.*\.zip$#',$url)) {
throw new Exception(__('Invalid language file URL.'));
}
$client = netHttp::initClient($url,$path);
$client->setUserAgent('Dotclear - http://www.dotclear.org/');
$client->useGzip(false);
$client->setPersistReferers(false);
$client->setOutput($dest);
$client->get($path);
try {
$ret_code = dc_lang_install($dest);
} catch (Exception $e) {
@unlink($dest);
throw $e;
}
@unlink($dest);
http::redirect('langs.php?added='.$ret_code);
}
catch (Exception $e)
{
$core->error->add($e->getMessage());
}
}
# Upload a language pack
if ($is_writable && !empty($_POST['upload_pkg']))
{
try
{
if (empty($_POST['your_pwd']) || !$core->auth->checkPassword(crypt::hmac(DC_MASTER_KEY,$_POST['your_pwd']))) {
throw new Exception(__('Password verification failed'));
}
files::uploadStatus($_FILES['pkg_file']);
$dest = DC_L10N_ROOT.'/'.$_FILES['pkg_file']['name'];
if (!move_uploaded_file($_FILES['pkg_file']['tmp_name'],$dest)) {
throw new Exception(__('Unable to move uploaded file.'));
}
try {
$ret_code = dc_lang_install($dest);
} catch (Exception $e) {
@unlink($dest);
throw $e;
}
@unlink($dest);
http::redirect('langs.php?added='.$ret_code);
}
catch (Exception $e)
{
$core->error->add($e->getMessage());
}
}
/* DISPLAY Main page
-------------------------------------------------------- */
dcPage::open(__('Languages management'),
dcPage::jsLoad('js/_langs.js'),
dcPage::breadcrumb(
array(
__('System') => '',
''.__('Languages management').'' => ''
))
);
if (!empty($_GET['removed'])) {
dcPage::message(__('Language has been successfully deleted.'));
}
if (!empty($_GET['added'])) {
dcPage::message(($_GET['added'] == 2 ? __('Language has been successfully upgraded') : __('Language has been successfully installed.')));
}
echo
''.__('Here you can install, upgrade or remove languages for your Dotclear '.
'installation.').'
'.
''.sprintf(__('You can change your user language in your preferences or '.
'change your blog\'s main language in your blog settings.'),
'preferences.php','blog_pref.php').'
';
echo
''.__('Installed languages').'
';
$locales_content = scandir(DC_L10N_ROOT);
$tmp = array();
foreach ($locales_content as $v) {
$c = ($v == '.' || $v == '..' || $v == 'en' || !is_dir(DC_L10N_ROOT.'/'.$v) || !isset($iso_codes[$v]));
if (!$c) {
$tmp[$v] = DC_L10N_ROOT.'/'.$v;
}
}
$locales_content = $tmp;
if (empty($locales_content))
{
echo ''.__('No additional language is installed.').'
';
}
else
{
echo
''.
'| '.__('Language').' | '.
''.__('Action').' | '.
'
';
foreach ($locales_content as $k => $v)
{
$is_deletable = $is_writable && is_writable($v);
echo
''.
'| ('.$k.') '.
''.html::escapeHTML($iso_codes[$k]).' | '.
'';
if ($is_deletable)
{
echo
'';
}
echo ' |
';
}
echo '
';
}
echo ''.__('Install or upgrade languages').'
';
if (!$is_writable) {
echo ''.sprintf(__('You can install or remove a language by adding or '.
'removing the relevant directory in your %s folder.'),'locales').'
';
}
if (!empty($dc_langs) && $is_writable)
{
$dc_langs_combo = array();
foreach ($dc_langs as $k => $v) {
if ($v->link && isset($iso_codes[$v->title])) {
$dc_langs_combo[html::escapeHTML('('.$v->title.') '.$iso_codes[$v->title])] = html::escapeHTML($v->link);
}
}
echo
'';
}
if ($is_writable)
{
# 'Upload language pack' form
echo
'';
}
dcPage::close();
# Language installation function
function dc_lang_install($file)
{
$zip = new fileUnzip($file);
$zip->getList(false,'#(^|/)(__MACOSX|\.svn|\.DS_Store|\.directory|Thumbs\.db)(/|$)#');
if (!preg_match('/^[a-z]{2,3}(-[a-z]{2})?$/',$zip->getRootDir())) {
throw new Exception(__('Invalid language zip file.'));
}
if ($zip->isEmpty() || !$zip->hasFile($zip->getRootDir().'/main.po')) {
throw new Exception(__('The zip file does not appear to be a valid Dotclear language pack.'));
}
$target = dirname($file);
$destination = $target.'/'.$zip->getRootDir();
$res = 1;
if (is_dir($destination)) {
if (!files::deltree($destination)) {
throw new Exception(__('An error occurred during language upgrade.'));
}
$res = 2;
}
$zip->unzipAll($target);
return $res;
}
?>