Fixed bug #4536 : error in optional_param

[moodle.git] / admin / langimport.php

<?php\r
///This file only manages the installation of 1.6 lang packs.\r
///in downloads.moodle.org, they are store in separate directory /lang16\r
///in local server, they are stored in $CFG->dataroot/lang\r
///This helps to avoid confusion.\r
\r
    include('../config.php');\r
    $mode = optional_param('mode',0,PARAM_INT);    //phase\r
    $pack = optional_param('pack','',PARAM_NOTAGS);    //pack to install\r
    $displaylang = $pack;\r
    $uninstalllang = optional_param('uninstalllang','',PARAM_NOTAGS);\r
    require_login();\r
\r
    if (!isadmin()) {\r
        error('You must be an admin');\r
    }\r
    \r
    if (!$site = get_site()) {\r
        error("Site not defined!");\r
    }\r
    \r
    $strlang = get_string('langimport','admin');\r
    \r
    $stradministration = get_string("administration");\r
    $strconfiguration = get_string("configuration");\r
    $strlanguage = get_string("language");\r
    $strthislanguage = get_string("thislanguage");\r
    $title = $strlang;\r
    \r
    print_header("$site->shortname: $title", "$site->fullname",\r
                 "<a href=\"index.php\">$stradministration</a> -> ".\r
                 "<a href=\"configure.php\">$strconfiguration</a> -> ".\r
                 "<a href=\"lang.php\">$strlanguage</a> -> $strlang",\r
                 '', '', true, '');\r
    \r
    print_heading('');\r
\r
    switch ($mode){\r
    \r
        case 2:    ///installation of selected language pack\r
        \r
        if (confirm_sesskey()){\r
            if (optional_param('confirm')){\r
                @mkdir ($CFG->dataroot.'/temp/');    //make it in case it's a fresh install, it might not be there\r
                @mkdir ($CFG->dataroot.'/lang/');\r
                $source = 'http://download.moodle.org/lang16/'.$pack.'.zip';\r
                $langpack = $CFG->dataroot.'/temp/'.$pack.'.zip';\r
                $destination = $CFG->dataroot.'/lang/';\r
                if ($contents = file_get_contents($source)) {    // Grab whole page\r
                    if ($file = fopen($langpack, 'w')) {    // Make local copy\r
                        if (!fwrite($file, $contents)){    //copy zip to temp folder..\r
                            error ('could not copy file');\r
                        }\r
                        fclose($file);\r
\r
                        ///recursively remove the whole directory since unzip does not overwrites anything\r
                        if (file_exists($destination.$pack)){\r
                            @remove_dir($destination.$pack.'/');\r
                        }\r
                        //unpack the zip\r
                        if (unzip_file($langpack, $destination, false)){\r
                            print_heading(get_string('langimportsuccess','admin'));\r
                        }\r
                        else {\r
                            error('language installation failed');\r
                        }\r
                        //now, we update the md5key of the lang pack, this is used to check version\r
                        $md5file = $CFG->dataroot.'/lang/'.$pack.'/'.$pack.'.md5';\r
                        if ($file = fopen($md5file, 'w')){\r
                            fwrite($file, md5($contents));    //manually generate md5 from zip\r
                        }\r
                        fclose($file);\r
                        @unlink ($langpack);    //bye bye zip file, come back when you get a little better\r
                        echo '<div align="center"><form action="langimport.php" method="POST">';\r
                        echo '<input type="submit" value="'.get_string('ok').'" />';\r
                        echo '</form></div>';\r
                    }\r
                }\r
            }\r
            else {    //print confirm box, no confirmation yet\r
                if (confirm_sesskey()){\r
                    print_simple_box_start('center','100%');\r
                    echo '<div align="center">';\r
                    echo '<form name="langform" action="langimport.php?mode=2" method="POST">';\r
                    echo '<input name="pack" type="hidden" value="'.$pack.'" />';\r
                    echo '<input name="displaylang" type="hidden" value="'.$displaylang.'" />';\r
                    echo '<input name="confirm" type="hidden" value="1" />';\r
                    echo '<input name="sesskey" type="hidden" value="'.sesskey().'" />';\r
                    print_heading(get_string('confirminstall','admin',$displaylang),2);\r
                    echo '<input type="submit" value="'.get_string('ok').'"/>';\r
                    echo '&nbsp;<input type="button" value="'.get_string('cancel').'" onclick="javascript:history.go(-1)" />';\r
                    echo '</form>';\r
                    echo '</div>';\r
                    print_simple_box_end();\r
                }\r
            }\r
        }\r
        break;\r
\r
        case 3:    //change site language\r
\r
        if (confirm_sesskey){\r
            $langconfig = get_record('config','name','lang');\r
            $sitelang = required_param('sitelangconfig',PARAM_NOTAGS);\r
            $langconfig->value = $sitelang;\r
            if (update_record('config',$langconfig)){\r
                echo '<div align="center">';\r
                notify (get_string('sitelangchanged','admin'));\r
                echo '<form action="langimport.php" method="POST">';\r
                echo '<input type="submit" value="'.get_string('ok').'" />';\r
                echo '</form></div>';\r
            }\r
            else {\r
                error ('can not update site language');\r
            }\r
        }\r
\r
        break;\r
        case 4:    //delete a directory(ies) containing a lang pack completely\r
\r
        if (!optional_param('confirm') && confirm_sesskey()){\r
            print_simple_box_start('center','100%');\r
            echo '<div align="center">';\r
            echo '<form name="langform" action="langimport.php?mode=4" method="POST">';\r
            echo '<input name="uninstalllang" type="hidden" value="'.$uninstalllang.'" />';\r
            echo '<input name="confirm" type="hidden" value="1" />';\r
            print_heading(get_string('uninstallconfirm','admin',$uninstalllang),2);\r
            echo '<input name="sesskey" type="hidden" value="'.sesskey().'" />';\r
            echo '<input type="submit" value="'.get_string('uninstall','admin').'"/>';\r
            echo '&nbsp;<input type="button" value="'.get_string('cancel').'" onclick="javascript:history.go(-1)" />';\r
            echo '</form>';\r
            echo '</div>';\r
            print_simple_box_end();\r
        }\r
        else if (confirm_sesskey()){\r
            $dest1 = $CFG->dataroot.'/lang/'.$uninstalllang;\r
            $dest2 = $CFG->dirroot.'/lang/'.$uninstalllang;\r
            $rm1 = false;\r
            $rm2 = false;\r
            if (file_exists($dest1)){\r
                $rm1 = remove_dir($dest1);\r
            }\r
            if (file_exists($dest2)){\r
                $rm2 = remove_dir($dest2);\r
            }\r
            //delete the direcotries\r
            if ($rm1 or $rm2){\r
                echo '<div align="center">';\r
                print_string('langpackremoved','admin');\r
                echo '<form action="langimport.php" method="POST">';\r
                echo '<input type="submit" value="'.get_string('ok').'" />';\r
                echo '</form></div>';\r
            }\r
            else {    //nothing deleted, possibly due to permission error\r
                error ('An error has occurred, language pack is not completely uninstalled, please check file permission');\r
            }\r
        }\r
        break;\r
        \r
        case 5:    //1 click update for all updatable language packs\r
\r
        //0th pull a list from download.moodle.org, \r
        //key = langname, value = md5\r
        $source = 'http://download.moodle.org/lang16/languages.md5';\r
        $md5array = array();\r
        $update = 0;    //any packs updated?\r
        $alllangs = array_keys(get_list_of_languages());\r
        $lang16 = array();   //all the Moodle 1.6 unicode lang packs (updated and not updated)\r
        $packs = array();    //all the packs that needs updating\r
        \r
        if ($fp = fopen($source, 'r')){    /// attempt to get the list from Moodle.org.\r
            while(!feof ($fp)) {\r
                $availablelangs[] = split(',', fgets($fp,1024));\r
            }\r
        }\r
        else {\r
            error('can not fopen!');\r
        }\r
        //and build an associative array\r
        foreach ($availablelangs as $alang){\r
            $md5array[$alang[0]] = $alang[1];\r
        }\r
\r
        //first build a list of all the language packs,\r
\r
        //filtering out non-16 packs\r
        foreach ($alllangs as $clang){\r
            $dest1 = $CFG->dataroot.'/lang/'.$clang;\r
            $dest2 = $CFG->dirroot.'/lang/'.$clang;\r
            \r
            if (file_exists($dest1.'/langconfig.php') || file_exists($dest2.'/langconfig.php')){\r
                $lang16[] = $clang;\r
            }\r
        }\r
\r
        //then filter out packs that have the same md5 key\r
        foreach ($lang16 as $clang){\r
            if (!is_installed_lang($clang, $md5array[$clang])){\r
                $packs[] = $clang;\r
            }\r
        }\r
        \r
        \r
        @mkdir ($CFG->dataroot.'/temp/');\r
        @mkdir ($CFG->dataroot.'/lang/');\r
        foreach ($packs as $pack){    //for each of the remaining in the list, we\r
\r
            //1. delete old director(ies)\r
\r
            $dest1 = $CFG->dataroot.'/lang/'.$pack;\r
            $dest2 = $CFG->dirroot.'/lang/'.$pack;\r
            $rm1 = false;\r
            $rm2 = false;\r
            if (file_exists($dest1)){\r
                $rm1 = remove_dir($dest1);\r
            }\r
            if (file_exists($dest2)){\r
                $rm2 = remove_dir($dest2);\r
            }\r
            if (!($rm1 || $rm2)){\r
                error ('could not delete old directory, update failed');\r
            }\r
\r
            //2. copy & unzip into new\r
            \r
            $source = 'http://download.moodle.org/lang16/'.$pack.'.zip';\r
            $langpack = $CFG->dataroot.'/temp/'.$pack.'.zip';\r
            $destination = $CFG->dataroot.'/lang/';\r
            if ($contents = file_get_contents($source)) {    // Grab whole page\r
                if ($file = fopen($langpack, 'w')) {    // Make local copy\r
                    if (!fwrite($file, $contents)){    //copy zip to temp folder..\r
                        error ('could not copy file');\r
                    }\r
                    fclose($file);\r
\r
                    //unpack the zip\r
                    if (!unzip_file($langpack, $destination, false)){\r
                        error('language installation failed - can not unzip language pack');\r
                    }\r
                    //now, we update the md5key of the lang pack, this is used to check version\r
                    $md5file = $CFG->dataroot.'/lang/'.$pack.'/'.$pack.'.md5';\r
                    if ($file = fopen($md5file, 'w')){\r
                        fwrite($file, md5($contents));\r
                    }\r
                    fclose($file);\r
                    @unlink ($langpack);    //remove the zip file\r
                    echo '<div align="center">';\r
                    notify(print_string('langpackupdated','admin',$pack));\r
                    $updated = 1;\r
                    echo '</div>';\r
                }\r
            }\r
        }\r
        \r
        echo '<div align="center"><form action="langimport.php" method="POST">';\r
        if ($updated){\r
            notify(print_string('langupdatecomplete','admin'));\r
        }\r
        else {\r
            notify(print_string('nolangupdateneeded','admin'));\r
        }\r
        echo '<input type="submit" value="'.get_string('ok').'" />';\r
        echo '</form></div>';\r
\r
        break;\r
        \r
        default:    //display choice mode\r
\r
            $source = 'http://download.moodle.org/lang16/languages.md5';\r
            $remote = 0;    //flag for reading from remote or local\r
\r
            if ($fp = fopen($source, 'r')){    /// attempt to get the list from Moodle.org.\r
                while(!feof ($fp)) {\r
                    $availablelangs[] = split(',', fgets($fp,1024));\r
                }\r
                $remote = 1;    //can read from download.moodle.org\r
            }\r
            else {    /// fopen failed, we find local copy of list.\r
                $availablelangs = get_local_list_of_languages();\r
            }\r
            \r
            if (!$remote){\r
                print_simple_box_start('center','60%');\r
                echo '<div align="center">';\r
                print_string('remotelangnotavailable','admin',$CFG->dataroot.'/lang/');\r
                echo '</div>';\r
                print_simple_box_end();\r
            }\r
            \r
            print_simple_box_start('center','60%');\r
            echo '<table width="100%"><tr><td align="center">';\r
            echo get_string('installedlangs','admin');\r
            echo '</td><td align="center">';\r
            echo get_string('availablelangs','admin');\r
            echo '</td></tr>';\r
            echo '<tr><td align="center" valign="top">';\r
            echo '<form name="uninstallform" action="langimport.php?mode=4" method="POST">';\r
            echo '<input name="sesskey" type="hidden" value="'.sesskey().'" />';\r
            $installedlangs = get_list_of_languages();\r
\r
            /// display installed langs here\r
\r
            echo '<select name="uninstalllang" size="15">';\r
            foreach ($installedlangs as $clang =>$ilang){\r
                echo '<option value="'.$clang.'">'.$ilang.'</option>';\r
            }\r
            echo '</select>';\r
            echo '<br /><input type="submit" value="'.get_string('uninstall','admin').'" />';\r
            echo '</form>';\r
            echo '<form name="updateform" action="langimport.php?mode=5" method="POST">';\r
            echo '<br /><input type="submit" value="'.get_string('updatelangs','admin').'" />';\r
            echo '</form>';\r
            echo '<p />';\r
            \r
            /// Display option to change site language\r
            \r
            print_string('changesitelang','admin');\r
            $sitelanguage = get_record('config','name','lang');\r
            echo '<form name="changelangform" action="langimport.php?mode=3" method="POST">';\r
            echo '<select name="sitelangconfig">';\r
            \r
            foreach ($installedlangs as $clang =>$ilang){\r
                if ($clang == $sitelanguage->value){\r
                    echo '<option value="'.$clang.'" selected="selected">'.$ilang.'</option>';\r
                }\r
                else {\r
                    echo '<option value="'.$clang.'">'.$ilang.'</option>';\r
                }\r
            }\r
            echo '</select>';\r
            echo '<input type="hidden" name="sesskey" value="'.sesskey().'" />';\r
            echo '<input type="submit" value="'.get_string('change','admin').'" />';\r
            echo '</form>';\r
\r
            /// display to be installed langs here\r
\r
            echo '</td><td align="center" valign="top">';\r
            echo '<table><tr><td valign="top" align="center">';    //availabe langs table\r
            $empty = 1;    //something to pring\r
\r
            /// if this language pack is not already installed, then we allow installation\r
\r
            echo '<form name="installform" method="POST" action="langimport.php?mode=2">';\r
            echo '<input name="sesskey" type="hidden" value="'.sesskey().'" />';\r
            if ($remote){\r
                echo '<select name="pack" size="15">';\r
            }\r
\r
            foreach ($availablelangs as $alang){\r
                if ($remote){\r
                    if (!is_installed_lang($alang[0], $alang[1])){    //if not already installed\r
                        echo '<option value="'.$alang[0].'">'.$alang[2].' ('.$alang[0].')</option>';\r
                    }\r
                }\r
                else {    //print list in local format, and instruction to install\r
                    echo '<tr><td>'.$alang[2].'</td><td><a href="http://download.moodle.org/lang16/'.$alang[0].'.zip">'.get_string('download','admin').'</a>';\r
                }\r
                $empty = 0;\r
            }\r
            if ($remote){\r
                echo '</select>';\r
                echo '<br/ ><input type="submit" value="'.get_string('install','admin').'">';\r
            }\r
            echo '</form>';\r
\r
            if ($empty){\r
                echo '<tr><td align="center">';\r
                print_string('nolanguagetodownload');\r
                echo '</td></tr>';\r
            }\r
\r
            echo '</td><tr></table>';    //close available langs table\r
            echo '<form>';\r
            echo '</td></tr></table>';\r
            print_simple_box_end();\r
\r
        break;\r
\r
    }    //close of main switch\r
\r
    print_footer();\r
    \r
    //returns a list of available language packs from a local copy shipped with standard moodle distro\r
    //this is for site that can't perform fopen\r
    function get_local_list_of_languages(){\r
        global $CFG;\r
        $source = $CFG->wwwroot.'/lib/languages.md5';\r
        $availablelangs = array();\r
        if ($fp = fopen($source, 'r')){\r
            while(!feof ($fp)) {\r
                $availablelangs[] = split(',', fgets($fp,1024));\r
            }\r
        }\r
        return $availablelangs;\r
    }\r
    \r
    //checks the md5 of the zip file, grabbed from download.moodle.org, and\r
    function is_installed_lang($lang, $md5check){\r
        global $CFG;\r
        $md5file = $CFG->dataroot.'/lang/'.$lang.'/'.$lang.'.md5';\r
        if (file_exists($md5file)){\r
            return (file_get_contents($md5file) == $md5check);\r
        }\r
\r
        return false;\r
    }\r
    \r
?>\r