source: admin/langs.php @ 456:f55f02550402

<?php
# -- BEGIN LICENSE BLOCK ---------------------------------------
#
# This file is part of Dotclear 2.
#
# Copyright (c) 2003-2010 Olivier Meunier & Association Dotclear
# Licensed under the GPL version 2.0 license.
# See LICENSE file or
# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
#
# -- END LICENSE BLOCK -----------------------------------------

require dirname(__FILE__).'/../inc/admin/prepend.php';

dcPage::checkSuper();

$is_writable = is_dir(DC_L10N_ROOT) && is_writable(DC_L10N_ROOT);
$iso_codes = l10n::getISOCodes();

# Get languages list on Dotclear.net
$dc_langs = false;
$feed_reader = new feedReader;
$feed_reader->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')
);

echo
'<h2>'.__('Languages management').'</h2>';

if (!empty($_GET['removed'])) {
     echo '<p class="message">'.__('Language has been successfully deleted.').'</p>';
}

if (!empty($_GET['added'])) {
     echo '<p class="message">'.
     ($_GET['added'] == 2 ? __('Language has been successfully upgraded') : __('Language has been successfully installed.')).
     '</p>';
}

echo
'<p>'.__('Here you can install, upgrade or remove languages for your Dotclear '.
'installation.').'</p>'.
'<p>'.sprintf(__('You can change your user language in your <a href="%1$s">preferences</a> or '.
'change your blog\'s main language in your <a href="%2$s">blog settings</a>.'),
'preferences.php','blog_pref.php').'</p>';

echo
'<h3>'.__('Installed languages').'</h3>';

$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 '<p><strong>'.__('No additional language is installed.').'</strong></p>';
}
else
{
     echo
     '<table class="clear plugins">'.
     '<thead><tr>'.
     '<th scope="col">'.__('Language').'</th>'.
     '<th scope="col" class="nowrap">'.__('Action').'</th>'.
     '</tr></thead>'.
     '<tbody>';
     
     foreach ($locales_content as $k => $v)
     {
          $is_deletable = $is_writable && is_writable($v);
          
          echo
          '<tr class="line wide">'.
          '<th scope="row" class="maximal nowrap">('.$k.') '.
          '<strong>'.html::escapeHTML($iso_codes[$k]).'</strong></th>'.
          '<td class="nowrap action">';
          
          if ($is_deletable)
          {
               echo
               '<form action="langs.php" method="post">'.
               '<div>'.
               $core->formNonce().
               form::hidden(array('locale_id'),html::escapeHTML($k)).
               '<input type="submit" class="delete" name="delete" value="'.__('Delete').'" /> '.
               '</div>'.
               '</form>';
          }
          
          echo '</td></tr>';
     }
     echo
     '</tbody>'.
     '</table>';
}

echo '<h3>'.__('Install or upgrade languages').'</h3>';

if (!$is_writable) {
     echo '<p>'.sprintf(__('You can install or remove a language by adding or '.
          'removing the relevant directory in your %s folder.'),'<strong>locales</strong>').'</p>';
}

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
     '<form method="post" action="langs.php" enctype="multipart/form-data">'.
     '<fieldset>'.
     '<legend>'.__('Available languages').'</legend>'.
     '<p>'.sprintf(__('You can download and install a additional language directly from Dotclear.net. '.
     'Proposed languages are based on your version: %s.'),'<strong>'.DC_VERSION.'</strong>').'</p>'.
     '<p class="field"><label for="pkg_url" class="classic">'.__('Language:').' '.
     form::combo('pkg_url',$dc_langs_combo).'</label></p>'.
     '<p class="field"><label for="your_pwd1" class="classic required"><abbr title="'.__('Required field').'">*</abbr> '.__('Your password:').' '.
     form::password(array('your_pwd','your_pwd1'),20,255).'</label></p>'.
     '<input type="submit" value="'.__('Install language').'" />'.
     $core->formNonce().
     '</fieldset>'.
     '</form>';
}

if ($is_writable)
{
     # 'Upload language pack' form
     echo
     '<form method="post" action="langs.php" enctype="multipart/form-data">'.
     '<fieldset>'.
     '<legend>'.__('Upload a zip file').'</legend>'.
     '<p>'.__('You can install languages by uploading zip files.').'</p>'.
     '<p class="field"><label for="pkg_file" class="classic required"><abbr title="'.__('Required field').'">*</abbr> '.__('Language zip file:').' '.
     '<input type="file" id="pkg_file" name="pkg_file" /></label></p>'.
     '<p class="field"><label for="your_pwd2" class="classic required"><abbr title="'.__('Required field').'">*</abbr> '.__('Your password:').' '.
     form::password(array('your_pwd','your_pwd2'),20,255).'</label></p>'.
     '<input type="submit" name="upload_pkg" value="'.__('Upload language').'" />'.
     $core->formNonce().
     '</fieldset>'.
     '</form>';
}

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;
}
?>