/web/admin/langimport.php
PHP | 387 lines | 291 code | 46 blank | 50 comment | 63 complexity | 7119aa0ad4e88cb84e0e43bed7af6978 MD5 | raw file
- <?php
- // This file is part of Moodle - http://moodle.org/
- //
- // Moodle 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, either version 3 of the License, or
- // (at your option) any later version.
- //
- // Moodle 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 Moodle. If not, see <http://www.gnu.org/licenses/>.
- /**
- * Fetches language packages from download.moodle.org server
- *
- * Language packages are available at http://download.moodle.org/langpack/2.0/
- * in ZIP format together with a file languages.md5 containing their hashes
- * and meta info.
- * Locally, language packs are saved into $CFG->dataroot/lang/
- *
- * @package core
- * @copyright 2005 Yu Zhang
- * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
- */
- require_once(dirname(dirname(__FILE__)).'/config.php');
- require_once($CFG->libdir.'/adminlib.php');
- require_once($CFG->libdir.'/filelib.php');
- require_once($CFG->libdir.'/componentlib.class.php');
- $thisversion = '2.0'; // TODO this information should be taken from version.php or similar source
- admin_externalpage_setup('langimport');
- if (!empty($CFG->skiplangupgrade)) {
- echo $OUTPUT->header();
- echo $OUTPUT->box(get_string('langimportdisabled', 'admin'));
- echo $OUTPUT->footer();
- die;
- }
- $mode = optional_param('mode', 0, PARAM_INT); // action
- $pack = optional_param('pack', array(), PARAM_SAFEDIR); // pack to install
- $uninstalllang = optional_param('uninstalllang', '', PARAM_LANG); // installed pack to uninstall
- $confirm = optional_param('confirm', 0, PARAM_BOOL); // uninstallation confirmation
- define('INSTALLATION_OF_SELECTED_LANG', 2);
- define('DELETION_OF_SELECTED_LANG', 4);
- define('UPDATE_ALL_LANG', 5);
- //reset and diagnose lang cache permissions
- remove_dir($CFG->dataroot.'/cache/languages');
- if (file_exists($CFG->dataroot.'/cache/languages')) {
- print_error('cannotdeletelangcache', 'error');
- }
- get_string_manager()->reset_caches();
- $notice_ok = array();
- $notice_error = array();
- if (($mode == INSTALLATION_OF_SELECTED_LANG) and confirm_sesskey() and !empty($pack)) {
- set_time_limit(0);
- make_upload_directory('temp');
- make_upload_directory('lang');
- if (is_array($pack)) {
- $packs = $pack;
- } else {
- $packs = array($pack);
- }
- foreach ($packs as $pack) {
- if ($cd = new component_installer('http://download.moodle.org', 'langpack/'.$thisversion, $pack.'.zip', 'languages.md5', 'lang')) {
- $status = $cd->install();
- switch ($status) {
- case COMPONENT_ERROR:
- if ($cd->get_error() == 'remotedownloaderror') {
- $a = new stdClass();
- $a->url = 'http://download.moodle.org/langpack/'.$thisversion.'/'.$pack.'.zip';
- $a->dest = $CFG->dataroot.'/lang';
- print_error($cd->get_error(), 'error', 'langimport.php', $a);
- } else {
- print_error($cd->get_error(), 'error', 'langimport.php');
- }
- break;
- case COMPONENT_INSTALLED:
- $notice_ok[] = get_string('langpackinstalled','admin',$pack);
- if ($parentlang = get_parent_language($pack)) {
- // install also parent pack if specified
- if ($cd = new component_installer('http://download.moodle.org', 'langpack/'.$thisversion,
- $parentlang.'.zip', 'languages.md5', 'lang')) {
- $cd->install();
- }
- }
- break;
- case COMPONENT_UPTODATE:
- break;
- }
- } else {
- echo $OUTPUT->notification('Had an unspecified error with the component installer, sorry.');
- }
- }
- }
- if ($mode == DELETION_OF_SELECTED_LANG and !empty($uninstalllang)) {
- if ($uninstalllang == 'en') {
- $notice_error[] = 'English language pack can not be uninstalled';
- } else if (!$confirm and confirm_sesskey()) {
- echo $OUTPUT->header();
- echo $OUTPUT->confirm(get_string('uninstallconfirm', 'admin', $uninstalllang),
- 'langimport.php?mode='.DELETION_OF_SELECTED_LANG.'&uninstalllang='.$uninstalllang.'&confirm=1',
- 'langimport.php');
- echo $OUTPUT->footer();
- die;
- } else if (confirm_sesskey()) {
- $dest1 = $CFG->dataroot.'/lang/'.$uninstalllang;
- $dest2 = $CFG->dirroot.'/lang/'.$uninstalllang;
- $rm1 = false;
- $rm2 = false;
- if (file_exists($dest1)){
- $rm1 = remove_dir($dest1);
- }
- if (file_exists($dest2)){
- $rm2 = remove_dir($dest2);
- }
- if ($rm1 or $rm2) {
- $notice_ok[] = get_string('langpackremoved','admin');
- } else { //nothing deleted, possibly due to permission error
- $notice_error[] = 'An error has occurred, language pack is not completely uninstalled, please check file permissions';
- }
- }
- }
- if ($mode == UPDATE_ALL_LANG) {
- set_time_limit(0);
- if (!$availablelangs = get_remote_list_of_languages()) {
- print_error('cannotdownloadlanguageupdatelist', 'error');
- }
- $md5array = array(); // (string)langcode => (string)md5
- foreach ($availablelangs as $alang) {
- $md5array[$alang[0]] = $alang[1];
- }
- // filter out unofficial packs
- $currentlangs = array_keys(get_string_manager()->get_list_of_translations(true));
- $updateablelangs = array();
- foreach ($currentlangs as $clang) {
- if (!array_key_exists($clang, $md5array)) {
- $notice_ok[] = get_string('langpackupdateskipped', 'admin', $clang);
- continue;
- }
- $dest1 = $CFG->dataroot.'/lang/'.$clang;
- $dest2 = $CFG->dirroot.'/lang/'.$clang;
- if (file_exists($dest1.'/langconfig.php') || file_exists($dest2.'/langconfig.php')){
- $updateablelangs[] = $clang;
- }
- }
- // then filter out packs that have the same md5 key
- $neededlangs = array(); // all the packs that needs updating
- foreach ($updateablelangs as $ulang) {
- if (!is_installed_lang($ulang, $md5array[$ulang])) {
- $neededlangs[] = $ulang;
- }
- }
- make_upload_directory('temp');
- make_upload_directory('lang');
- $updated = false; // any packs updated?
- foreach ($neededlangs as $pack) {
- if ($pack == 'en') {
- continue;
- }
- // delete old directories
- $dest1 = $CFG->dataroot.'/lang/'.$pack;
- $dest2 = $CFG->dirroot.'/lang/'.$pack;
- $rm1 = false;
- $rm2 = false;
- if (file_exists($dest1)) {
- if (!remove_dir($dest1)) {
- $notice_error[] = 'Could not delete old directory '.$dest1.', update of '.$pack.' failed, please check permissions.';
- continue;
- }
- }
- if (file_exists($dest2)) {
- if (!remove_dir($dest2)) {
- $notice_error[] = 'Could not delete old directory '.$dest2.', update of '.$pack.' failed, please check permissions.';
- continue;
- }
- }
- // copy and unzip new version
- if ($cd = new component_installer('http://download.moodle.org', 'langpack/'.$thisversion, $pack.'.zip', 'languages.md5', 'lang')) {
- $status = $cd->install();
- switch ($status) {
- case COMPONENT_ERROR:
- if ($cd->get_error() == 'remotedownloaderror') {
- $a = new stdClass();
- $a->url = 'http://download.moodle.org/langpack/'.$thisversion.'/'.$pack.'.zip';
- $a->dest = $CFG->dataroot.'/lang';
- print_error($cd->get_error(), 'error', 'langimport.php', $a);
- } else {
- print_error($cd->get_error(), 'error', 'langimport.php');
- }
- break;
- case COMPONENT_UPTODATE:
- // should not get here
- break;
- case COMPONENT_INSTALLED:
- $notice_ok[] = get_string('langpackupdated', 'admin', $pack);
- $updated = true;
- break;
- }
- }
- }
- if ($updated) {
- $notice_ok[] = get_string('langupdatecomplete','admin');
- } else {
- $notice_ok[] = get_string('nolangupdateneeded','admin');
- }
- }
- get_string_manager()->reset_caches();
- echo $OUTPUT->header();
- echo $OUTPUT->heading(get_string('langimport', 'admin'));
- $installedlangs = get_string_manager()->get_list_of_translations(true);
- $missingparents = array();
- foreach ($installedlangs as $installedlang => $unused) {
- $parent = get_parent_language($installedlang);
- if (empty($parent) or ($parent === 'en')) {
- continue;
- }
- if (!isset($installedlangs[$parent])) {
- $missingparents[$installedlang] = $parent;
- }
- }
- if ($availablelangs = get_remote_list_of_languages()) {
- $remote = true;
- } else {
- $remote = false;
- $availablelangs = array();
- echo $OUTPUT->box_start();
- print_string('remotelangnotavailable', 'admin', $CFG->dataroot.'/lang/');
- echo $OUTPUT->box_end();
- }
- if ($notice_ok) {
- $info = implode('<br />', $notice_ok);
- echo $OUTPUT->notification($info, 'notifysuccess');
- }
- if ($notice_error) {
- $info = implode('<br />', $notice_error);
- echo $OUTPUT->notification($info, 'notifyproblem');
- }
- if ($missingparents) {
- foreach ($missingparents as $l=>$parent) {
- $a = new stdClass();
- $a->lang = $installedlangs[$l];
- $a->parent = $parent;
- foreach ($availablelangs as $alang) {
- if ($alang[0] == $parent) {
- $shortlang = $alang[0];
- $a->parent = $alang[2].' ('.$shortlang.')';
- }
- }
- $info = get_string('missinglangparent', 'admin', $a);
- echo $OUTPUT->notification($info, 'notifyproblem');
- }
- }
- echo $OUTPUT->box_start();
- echo html_writer::start_tag('table');
- echo html_writer::start_tag('tr');
- // list of installed languages
- $url = new moodle_url('/admin/langimport.php', array('mode' => DELETION_OF_SELECTED_LANG));
- echo html_writer::start_tag('td', array('valign' => 'top'));
- echo html_writer::start_tag('form', array('id' => 'uninstallform', 'action' => $url->out(), 'method' => 'post'));
- echo html_writer::start_tag('fieldset');
- echo html_writer::label(get_string('installedlangs','admin'), 'uninstalllang');
- echo html_writer::empty_tag('br');
- echo html_writer::select($installedlangs, 'uninstalllang', '', false, array('size' => 15));
- echo html_writer::empty_tag('input', array('type' => 'hidden', 'name' => 'sesskey', 'value' => sesskey()));
- echo html_writer::empty_tag('br');
- echo html_writer::empty_tag('input', array('type' => 'submit', 'value' => get_string('uninstall','admin')));
- echo html_writer::end_tag('fieldset');
- echo html_writer::end_tag('form');
- if ($remote) {
- $url = new moodle_url('/admin/langimport.php', array('mode' => UPDATE_ALL_LANG));
- echo html_writer::start_tag('form', array('id' => 'updateform', 'action' => $url->out(), 'method' => 'post'));
- echo html_writer::tag('fieldset', html_writer::empty_tag('input', array('type' => 'submit', 'value' => get_string('updatelangs','admin'))));
- echo html_writer::end_tag('form');
- }
- echo html_writer::end_tag('td');
- // list of available languages
- $options = array();
- foreach ($availablelangs as $alang) {
- if (!empty($alang[0]) and trim($alang[0]) !== 'en' and !is_installed_lang($alang[0], $alang[1])) {
- $options[$alang[0]] = $alang[2].' ('.$alang[0].')';
- }
- }
- if (!empty($options)) {
- echo html_writer::start_tag('td', array('valign' => 'top'));
- $url = new moodle_url('/admin/langimport.php', array('mode' => INSTALLATION_OF_SELECTED_LANG));
- echo html_writer::start_tag('form', array('id' => 'installform', 'action' => $url->out(), 'method' => 'post'));
- echo html_writer::start_tag('fieldset');
- echo html_writer::label(get_string('availablelangs','install'), 'pack');
- echo html_writer::empty_tag('br');
- echo html_writer::select($options, 'pack[]', '', false, array('size' => 15, 'multiple' => 'multiple'));
- echo html_writer::empty_tag('input', array('type' => 'hidden', 'name' => 'sesskey', 'value' => sesskey()));
- echo html_writer::empty_tag('br');
- echo html_writer::empty_tag('input', array('type' => 'submit', 'value' => get_string('install','admin')));
- echo html_writer::end_tag('fieldset');
- echo html_writer::end_tag('form');
- echo html_writer::end_tag('td');
- }
- echo html_writer::end_tag('tr');
- echo html_writer::end_tag('table');
- echo $OUTPUT->box_end();
- echo $OUTPUT->footer();
- die();
- ////////////////////////////////////////////////////////////////////////////////
- // Local functions /////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////
- /**
- * checks the md5 of the zip file, grabbed from download.moodle.org,
- * against the md5 of the local language file from last update
- * @param string $lang
- * @param string $md5check
- * @return bool
- */
- function is_installed_lang($lang, $md5check) {
- global $CFG;
- $md5file = $CFG->dataroot.'/lang/'.$lang.'/'.$lang.'.md5';
- if (file_exists($md5file)){
- return (file_get_contents($md5file) == $md5check);
- }
- return false;
- }
- /**
- * Returns the list of available language packs from download.moodle.org
- *
- * @return array|bool false if can not download
- */
- function get_remote_list_of_languages() {
- $source = 'http://download.moodle.org/langpack/2.0/languages.md5';
- $availablelangs = array();
- if ($content = download_file_content($source)) {
- $alllines = explode("\n", $content);
- foreach($alllines as $line) {
- if (!empty($line)){
- $availablelangs[] = explode(',', $line);
- }
- }
- return $availablelangs;
- } else {
- return false;
- }
- }