Merge branch 'MDL-39717_25' of git://github.com/dmonllao/moodle into MOODLE_25_STABLE
[moodle.git] / install.php
blob7acf6d5d9e77e1cee36064fb9820f609a2217ba4
1 <?php
3 // This file is part of Moodle - http://moodle.org/
4 //
5 // Moodle is free software: you can redistribute it and/or modify
6 // it under the terms of the GNU General Public License as published by
7 // the Free Software Foundation, either version 3 of the License, or
8 // (at your option) any later version.
9 //
10 // Moodle is distributed in the hope that it will be useful,
11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 // GNU General Public License for more details.
15 // You should have received a copy of the GNU General Public License
16 // along with Moodle. If not, see <http://www.gnu.org/licenses/>.
18 /**
19 * This script creates config.php file during installation.
21 * @package core
22 * @subpackage install
23 * @copyright 2009 Petr Skoda (http://skodak.org)
24 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
27 if (isset($_REQUEST['lang'])) {
28 $lang = preg_replace('/[^A-Za-z0-9_-]/i', '', $_REQUEST['lang']);
29 } else {
30 $lang = 'en';
33 if (isset($_REQUEST['admin'])) {
34 $admin = preg_replace('/[^A-Za-z0-9_-]/i', '', $_REQUEST['admin']);
35 } else {
36 $admin = 'admin';
39 // If config.php exists we just created config.php and need to redirect to continue installation
40 $configfile = './config.php';
41 if (file_exists($configfile)) {
42 header("Location: $admin/index.php?lang=$lang");
43 die;
46 define('CLI_SCRIPT', false); // prevents some warnings later
47 define('AJAX_SCRIPT', false); // prevents some warnings later
48 define('CACHE_DISABLE_ALL', true); // Disables caching.. just in case.
50 // Servers should define a default timezone in php.ini, but if they don't then make sure something is defined.
51 // This is a quick hack. Ideally we should ask the admin for a value. See MDL-22625 for more on this.
52 if (function_exists('date_default_timezone_set') and function_exists('date_default_timezone_get')) {
53 @date_default_timezone_set(@date_default_timezone_get());
56 // make sure PHP errors are displayed - helps with diagnosing of problems
57 @error_reporting(E_ALL);
58 @ini_set('display_errors', '1');
60 // Check that PHP is of a sufficient version.
61 if (version_compare(phpversion(), '5.3.3') < 0) {
62 $phpversion = phpversion();
63 // do NOT localise - lang strings would not work here and we CAN not move it after installib
64 echo "Moodle 2.5 or later requires at least PHP 5.3.3 (currently using version $phpversion).<br />";
65 echo "Please upgrade your server software or install older Moodle version.";
66 die;
69 // make sure iconv is available and actually works
70 if (!function_exists('iconv')) {
71 // this should not happen, this must be very borked install
72 echo 'Moodle requires the iconv PHP extension. Please install or enable the iconv extension.';
73 die();
76 if (PHP_INT_SIZE > 4) {
77 // most probably 64bit PHP - we need a lot more memory
78 $minrequiredmemory = '70M';
79 } else {
80 // 32bit PHP
81 $minrequiredmemory = '40M';
83 // increase or decrease available memory - we need to make sure moodle
84 // installs even with low memory, otherwise developers would overlook
85 // sudden increases of memory needs ;-)
86 @ini_set('memory_limit', $minrequiredmemory);
88 /** Used by library scripts to check they are being called by Moodle */
89 define('MOODLE_INTERNAL', true);
91 require dirname(__FILE__).'/lib/installlib.php';
93 // TODO: add lang detection here if empty $_REQUEST['lang']
95 // distro specific customisation
96 $distro = null;
97 if (file_exists('install/distrolib.php')) {
98 require_once('install/distrolib.php');
99 if (function_exists('distro_get_config')) {
100 $distro = distro_get_config();
104 $config = new stdClass();
105 $config->lang = $lang;
107 if (!empty($_POST)) {
108 if (install_ini_get_bool('magic_quotes_gpc')) {
109 $_POST = array_map('stripslashes', $_POST);
112 $config->stage = (int)$_POST['stage'];
114 if (isset($_POST['previous'])) {
115 $config->stage--;
116 if (INSTALL_DATABASETYPE and !empty($distro->dbtype)) {
117 $config->stage--;
119 if ($config->stage == INSTALL_ENVIRONMENT or $config->stage == INSTALL_DOWNLOADLANG) {
120 $config->stage--;
122 } else if (isset($_POST['next'])) {
123 $config->stage++;
126 $config->dbtype = trim($_POST['dbtype']);
127 $config->dbhost = trim($_POST['dbhost']);
128 $config->dbuser = trim($_POST['dbuser']);
129 $config->dbpass = trim($_POST['dbpass']);
130 $config->dbname = trim($_POST['dbname']);
131 $config->prefix = trim($_POST['prefix']);
132 $config->dbsocket = (int)(!empty($_POST['dbsocket']));
134 $config->admin = empty($_POST['admin']) ? 'admin' : trim($_POST['admin']);
136 $config->dataroot = trim($_POST['dataroot']);
138 } else {
139 $config->stage = INSTALL_WELCOME;
141 $config->dbtype = empty($distro->dbtype) ? '' : $distro->dbtype; // let distro skip dbtype selection
142 $config->dbhost = empty($distro->dbhost) ? 'localhost' : $distro->dbhost; // let distros set dbhost
143 $config->dbuser = empty($distro->dbuser) ? '' : $distro->dbuser; // let distros set dbuser
144 $config->dbpass = '';
145 $config->dbname = 'moodle';
146 $config->prefix = 'mdl_';
147 $config->dbsocket = 0;
149 $config->admin = 'admin';
151 $config->dataroot = empty($distro->dataroot) ? null : $distro->dataroot; // initialised later after including libs or by distro
154 // Fake some settings so that we can use selected functions from moodlelib.php, weblib.php and filelib.php.
155 $CFG = new stdClass();
156 $CFG->lang = $config->lang;
157 $CFG->dirroot = dirname(__FILE__);
158 $CFG->libdir = "$CFG->dirroot/lib";
159 $CFG->wwwroot = install_guess_wwwroot(); // can not be changed - ppl must use the real address when installing
160 $CFG->httpswwwroot = $CFG->wwwroot;
161 $CFG->dataroot = $config->dataroot;
162 $CFG->tempdir = $CFG->dataroot.'/temp';
163 $CFG->cachedir = $CFG->dataroot.'/cache';
164 $CFG->admin = $config->admin;
165 $CFG->docroot = 'http://docs.moodle.org';
166 $CFG->langotherroot = $CFG->dataroot.'/lang';
167 $CFG->langlocalroot = $CFG->dataroot.'/lang';
168 $CFG->directorypermissions = isset($distro->directorypermissions) ? $distro->directorypermissions : 00777; // let distros set dir permissions
169 $CFG->running_installer = true;
170 $CFG->early_install_lang = true;
171 $CFG->ostype = (stristr(PHP_OS, 'win') && !stristr(PHP_OS, 'darwin')) ? 'WINDOWS' : 'UNIX';
173 // Require all needed libs
174 require_once($CFG->libdir.'/setuplib.php');
176 // we need to make sure we have enough memory to load all libraries
177 $memlimit = @ini_get('memory_limit');
178 if (!empty($memlimit) and $memlimit != -1) {
179 if (get_real_size($memlimit) < get_real_size($minrequiredmemory)) {
180 // do NOT localise - lang strings would not work here and we CAN not move it to later place
181 echo "Moodle requires at least {$minrequiredmemory}B of PHP memory.<br />";
182 echo "Please contact server administrator to fix PHP.ini memory settings.";
183 die;
187 // Continue with lib loading
188 require_once($CFG->libdir.'/textlib.class.php');
189 require_once($CFG->libdir.'/weblib.php');
190 require_once($CFG->libdir.'/outputlib.php');
191 require_once($CFG->libdir.'/dmllib.php');
192 require_once($CFG->libdir.'/moodlelib.php');
193 require_once($CFG->libdir .'/pagelib.php');
194 require_once($CFG->libdir.'/deprecatedlib.php');
195 require_once($CFG->libdir.'/adminlib.php');
196 require_once($CFG->libdir.'/environmentlib.php');
197 require_once($CFG->libdir.'/componentlib.class.php');
198 require_once($CFG->dirroot.'/cache/lib.php');
200 //point pear include path to moodles lib/pear so that includes and requires will search there for files before anywhere else
201 //the problem is that we need specific version of quickforms and hacked excel files :-(
202 ini_set('include_path', $CFG->libdir.'/pear' . PATH_SEPARATOR . ini_get('include_path'));
203 //point zend include path to moodles lib/zend so that includes and requires will search there for files before anywhere else
204 ini_set('include_path', $CFG->libdir.'/zend' . PATH_SEPARATOR . ini_get('include_path'));
206 require('version.php');
207 $CFG->target_release = $release;
209 $SESSION = new stdClass();
210 $SESSION->lang = $CFG->lang;
212 $USER = new stdClass();
213 $USER->id = 0;
215 $COURSE = new stdClass();
216 $COURSE->id = 0;
218 $SITE = $COURSE;
219 define('SITEID', 0);
221 $hint_dataroot = '';
222 $hint_admindir = '';
223 $hint_database = '';
225 // Are we in help mode?
226 if (isset($_GET['help'])) {
227 install_print_help_page($_GET['help']);
230 //first time here? find out suitable dataroot
231 if (is_null($CFG->dataroot)) {
232 $CFG->dataroot = dirname(dirname(__FILE__)).DIRECTORY_SEPARATOR.'moodledata';
234 $i = 0; //safety check - dirname might return some unexpected results
235 while(is_dataroot_insecure()) {
236 $parrent = dirname($CFG->dataroot);
237 $i++;
238 if ($parrent == '/' or $parrent == '.' or preg_match('/^[a-z]:\\\?$/i', $parrent) or ($i > 100)) {
239 $CFG->dataroot = ''; //can not find secure location for dataroot
240 break;
242 $CFG->dataroot = dirname($parrent).DIRECTORY_SEPARATOR.'moodledata';
244 $config->dataroot = $CFG->dataroot;
245 $config->stage = INSTALL_WELCOME;
248 // now let's do the stage work
249 if ($config->stage < INSTALL_WELCOME) {
250 $config->stage = INSTALL_WELCOME;
252 if ($config->stage > INSTALL_SAVE) {
253 $config->stage = INSTALL_SAVE;
258 if ($config->stage == INSTALL_SAVE) {
259 $CFG->early_install_lang = false;
261 $database = moodle_database::get_driver_instance($config->dbtype, 'native');
262 if (!$database->driver_installed()) {
263 $config->stage = INSTALL_DATABASETYPE;
264 } else {
265 if (function_exists('distro_pre_create_db')) { // Hook for distros needing to do something before DB creation
266 $distro = distro_pre_create_db($database, $config->dbhost, $config->dbuser, $config->dbpass, $config->dbname, $config->prefix, array('dbpersist'=>0, 'dbsocket'=>$config->dbsocket), $distro);
268 $hint_database = install_db_validate($database, $config->dbhost, $config->dbuser, $config->dbpass, $config->dbname, $config->prefix, array('dbpersist'=>0, 'dbsocket'=>$config->dbsocket));
270 if ($hint_database === '') {
271 $configphp = install_generate_configphp($database, $CFG);
273 umask(0137);
274 if (($fh = @fopen($configfile, 'w')) !== false) {
275 fwrite($fh, $configphp);
276 fclose($fh);
279 if (file_exists($configfile)) {
280 // config created, let's continue!
281 redirect("$CFG->wwwroot/$config->admin/index.php?lang=$config->lang");
284 install_print_header($config, 'config.php',
285 get_string('configurationcompletehead', 'install'),
286 get_string('configurationcompletesub', 'install').get_string('configfilenotwritten', 'install'));
287 echo '<div class="configphp"><pre>';
288 echo p($configphp);
289 echo '</pre></div>';
291 install_print_footer($config);
292 die;
294 } else {
295 $config->stage = INSTALL_DATABASE;
302 if ($config->stage == INSTALL_DOWNLOADLANG) {
303 if (empty($CFG->dataroot)) {
304 $config->stage = INSTALL_PATHS;
306 } else if (is_dataroot_insecure()) {
307 $hint_dataroot = get_string('pathsunsecuredataroot', 'install');
308 $config->stage = INSTALL_PATHS;
310 } else if (!file_exists($CFG->dataroot)) {
311 $a = new stdClass();
312 $a->parent = dirname($CFG->dataroot);
313 $a->dataroot = $CFG->dataroot;
314 if (!is_writable($a->parent)) {
315 $hint_dataroot = get_string('pathsroparentdataroot', 'install', $a);
316 $config->stage = INSTALL_PATHS;
317 } else {
318 if (!install_init_dataroot($CFG->dataroot, $CFG->directorypermissions)) {
319 $hint_dataroot = get_string('pathserrcreatedataroot', 'install', $a);
320 $config->stage = INSTALL_PATHS;
324 } else if (!install_init_dataroot($CFG->dataroot, $CFG->directorypermissions)) {
325 $hint_dataroot = get_string('pathserrcreatedataroot', 'install', array('dataroot' => $CFG->dataroot));
326 $config->stage = INSTALL_PATHS;
329 if (empty($hint_dataroot) and !is_writable($CFG->dataroot)) {
330 $hint_dataroot = get_string('pathsrodataroot', 'install');
331 $config->stage = INSTALL_PATHS;
334 if ($config->admin === '' or !file_exists($CFG->dirroot.'/'.$config->admin.'/environment.xml')) {
335 $hint_admindir = get_string('pathswrongadmindir', 'install');
336 $config->stage = INSTALL_PATHS;
342 if ($config->stage == INSTALL_DOWNLOADLANG) {
343 // no need to download anything if en lang selected
344 if ($CFG->lang == 'en') {
345 $config->stage = INSTALL_DATABASETYPE;
351 if ($config->stage == INSTALL_DATABASETYPE) {
352 // skip db selection if distro package supports only one db
353 if (!empty($distro->dbtype)) {
354 $config->stage = INSTALL_DATABASE;
359 if ($config->stage == INSTALL_DOWNLOADLANG) {
360 $downloaderror = '';
362 // download and install required lang packs, the lang dir has already been created in install_init_dataroot
363 $installer = new lang_installer($CFG->lang);
364 $results = $installer->run();
365 foreach ($results as $langcode => $langstatus) {
366 if ($langstatus === lang_installer::RESULT_DOWNLOADERROR) {
367 $a = new stdClass();
368 $a->url = $installer->lang_pack_url($langcode);
369 $a->dest = $CFG->dataroot.'/lang';
370 $downloaderror = get_string('remotedownloaderror', 'error', $a);
374 if ($downloaderror !== '') {
375 install_print_header($config, get_string('language'), get_string('langdownloaderror', 'install', $CFG->lang), $downloaderror);
376 install_print_footer($config);
377 die;
378 } else {
379 if (empty($distro->dbtype)) {
380 $config->stage = INSTALL_DATABASETYPE;
381 } else {
382 $config->stage = INSTALL_DATABASE;
386 // switch the string_manager instance to stop using install/lang/
387 $CFG->early_install_lang = false;
388 $CFG->langotherroot = $CFG->dataroot.'/lang';
389 $CFG->langlocalroot = $CFG->dataroot.'/lang';
390 get_string_manager(true);
394 if ($config->stage == INSTALL_DATABASE) {
395 $CFG->early_install_lang = false;
397 $database = moodle_database::get_driver_instance($config->dbtype, 'native');
399 $sub = '<h3>'.$database->get_name().'</h3>'.$database->get_configuration_help();
401 install_print_header($config, get_string('database', 'install'), get_string('databasehead', 'install'), $sub);
403 $strdbhost = get_string('databasehost', 'install');
404 $strdbname = get_string('databasename', 'install');
405 $strdbuser = get_string('databaseuser', 'install');
406 $strdbpass = get_string('databasepass', 'install');
407 $strprefix = get_string('dbprefix', 'install');
408 $strdbsocket = get_string('databasesocket', 'install');
410 echo '<div class="userinput">';
412 $disabled = empty($distro->dbhost) ? '' : 'disabled="disabled';
413 echo '<div class="formrow"><label for="id_dbhost" class="formlabel">'.$strdbhost.'</label>';
414 echo '<input id="id_dbhost" name="dbhost" '.$disabled.' type="text" value="'.s($config->dbhost).'" size="50" class="forminput" />';
415 echo '</div>';
417 echo '<div class="formrow"><label for="id_dbname" class="formlabel">'.$strdbname.'</label>';
418 echo '<input id="id_dbname" name="dbname" type="text" value="'.s($config->dbname).'" size="50" class="forminput" />';
419 echo '</div>';
421 $disabled = empty($distro->dbuser) ? '' : 'disabled="disabled';
422 echo '<div class="formrow"><label for="id_dbuser" class="formlabel">'.$strdbuser.'</label>';
423 echo '<input id="id_dbuser" name="dbuser" '.$disabled.' type="text" value="'.s($config->dbuser).'" size="50" class="forminput" />';
424 echo '</div>';
426 echo '<div class="formrow"><label for="id_dbpass" class="formlabel">'.$strdbpass.'</label>';
427 // no password field here, the password may be visible in config.php if we can not write it to disk
428 echo '<input id="id_dbpass" name="dbpass" type="text" value="'.s($config->dbpass).'" size="50" class="forminput" />';
429 echo '</div>';
431 echo '<div class="formrow"><label for="id_prefix" class="formlabel">'.$strprefix.'</label>';
432 echo '<input id="id_prefix" name="prefix" type="text" value="'.s($config->prefix).'" size="10" class="forminput" />';
433 echo '</div>';
435 if (!(stristr(PHP_OS, 'win') && !stristr(PHP_OS, 'darwin'))) {
436 $checked = $config->dbsocket ? 'checked="checked' : '';
437 echo '<div class="formrow"><label for="id_dbsocket" class="formlabel">'.$strdbsocket.'</label>';
438 echo '<input type="hidden" value="0" name="dbsocket" />';
439 echo '<input type="checkbox" id="id_dbsocket" value="1" name="dbsocket" '.$checked.' class="forminput" />';
440 echo '</div>';
443 echo '<div class="hint">'.$hint_database.'</div>';
444 echo '</div>';
445 install_print_footer($config);
446 die;
450 if ($config->stage == INSTALL_DATABASETYPE) {
451 $CFG->early_install_lang = false;
453 // Finally ask for DB type
454 install_print_header($config, get_string('database', 'install'),
455 get_string('databasetypehead', 'install'),
456 get_string('databasetypesub', 'install'));
458 $databases = array('mysqli' => moodle_database::get_driver_instance('mysqli', 'native'),
459 'pgsql' => moodle_database::get_driver_instance('pgsql', 'native'),
460 'oci' => moodle_database::get_driver_instance('oci', 'native'),
461 'sqlsrv' => moodle_database::get_driver_instance('sqlsrv', 'native'), // MS SQL*Server PHP driver
462 'mssql' => moodle_database::get_driver_instance('mssql', 'native'), // FreeTDS driver
465 echo '<div class="userinput">';
466 echo '<div class="formrow"><label class="formlabel" for="dbtype">'.get_string('dbtype', 'install').'</label>';
467 echo '<select id="dbtype" name="dbtype" class="forminput">';
468 $disabled = array();
469 $options = array();
470 foreach ($databases as $type=>$database) {
471 if ($database->driver_installed() !== true) {
472 $disabled[$type] = $database;
473 continue;
475 echo '<option value="'.s($type).'">'.$database->get_name().'</option>';
477 if ($disabled) {
478 echo '<optgroup label="'.s(get_string('notavailable')).'">';
479 foreach ($disabled as $type=>$database) {
480 echo '<option value="'.s($type).'" class="notavailable">'.$database->get_name().'</option>';
482 echo '</optgroup>';
484 echo '</select></div>';
485 echo '</div>';
487 install_print_footer($config);
488 die;
493 if ($config->stage == INSTALL_ENVIRONMENT or $config->stage == INSTALL_PATHS) {
494 $version_fail = (version_compare(phpversion(), "5.3.3") < 0);
495 $curl_fail = ($lang !== 'en' and !extension_loaded('curl')); // needed for lang pack download
496 $zip_fail = ($lang !== 'en' and !extension_loaded('zip')); // needed for lang pack download
498 if ($version_fail or $curl_fail or $zip_fail) {
499 $config->stage = INSTALL_ENVIRONMENT;
501 install_print_header($config, get_string('environmenthead', 'install'),
502 get_string('errorsinenvironment', 'install'),
503 get_string('environmentsub2', 'install'));
505 echo '<div id="envresult"><dl>';
506 if ($version_fail) {
507 $a = (object)array('needed'=>'5.3.3', 'current'=>phpversion());
508 echo '<dt>'.get_string('phpversion', 'install').'</dt><dd>'.get_string('environmentrequireversion', 'admin', $a).'</dd>';
510 if ($curl_fail) {
511 echo '<dt>'.get_string('phpextension', 'install', 'cURL').'</dt><dd>'.get_string('environmentrequireinstall', 'admin').'</dd>';
513 if ($zip_fail) {
514 echo '<dt>'.get_string('phpextension', 'install', 'Zip').'</dt><dd>'.get_string('environmentrequireinstall', 'admin').'</dd>';
516 echo '</dl></div>';
518 install_print_footer($config, true);
519 die;
521 } else {
522 $config->stage = INSTALL_PATHS;
528 if ($config->stage == INSTALL_PATHS) {
529 $paths = array('wwwroot' => get_string('wwwroot', 'install'),
530 'dirroot' => get_string('dirroot', 'install'),
531 'dataroot' => get_string('dataroot', 'install'));
533 $sub = '<dl>';
534 foreach ($paths as $path=>$name) {
535 $sub .= '<dt>'.$name.'</dt><dd>'.get_string('pathssub'.$path, 'install').'</dd>';
537 if (!file_exists("$CFG->dirroot/admin/environment.xml")) {
538 $sub .= '<dt>'.get_string('admindirname', 'install').'</dt><dd>'.get_string('pathssubadmindir', 'install').'</dd>';
540 $sub .= '</dl>';
542 install_print_header($config, get_string('paths', 'install'), get_string('pathshead', 'install'), $sub);
544 $strwwwroot = get_string('wwwroot', 'install');
545 $strdirroot = get_string('dirroot', 'install');
546 $strdataroot = get_string('dataroot', 'install');
547 $stradmindirname = get_string('admindirname', 'install');
549 echo '<div class="userinput">';
550 echo '<div class="formrow"><label for="id_wwwroot" class="formlabel">'.$paths['wwwroot'].'</label>';
551 echo '<input id="id_wwwroot" name="wwwroot" type="text" value="'.s($CFG->wwwroot).'" disabled="disabled" size="70" class="forminput" />';
552 echo '</div>';
554 echo '<div class="formrow"><label for="id_dirroot" class="formlabel">'.$paths['dirroot'].'</label>';
555 echo '<input id="id_dirroot" name="dirroot" type="text" value="'.s($CFG->dirroot).'" disabled="disabled" size="70"class="forminput" />';
556 echo '</div>';
558 echo '<div class="formrow"><label for="id_dataroot" class="formlabel">'.$paths['dataroot'].'</label>';
559 echo '<input id="id_dataroot" name="dataroot" type="text" value="'.s($config->dataroot).'" size="70" class="forminput" />';
560 if ($hint_dataroot !== '') {
561 echo '<div class="hint">'.$hint_dataroot.'</div>';
563 echo '</div>';
566 if (!file_exists("$CFG->dirroot/admin/environment.xml")) {
567 echo '<div class="formrow"><label for="id_admin" class="formlabel">'.$paths['admindir'].'</label>';
568 echo '<input id="id_admin" name="admin" type="text" value="'.s($config->admin).'" size="10" class="forminput" />';
569 if ($hint_admindir !== '') {
570 echo '<div class="hint">'.$hint_admindir.'</div>';
572 echo '</div>';
575 echo '</div>';
577 install_print_footer($config);
578 die;
583 $config->stage = INSTALL_WELCOME;
585 if ($distro) {
586 ob_start();
587 include('install/distribution.html');
588 $sub = ob_get_clean();
590 install_print_header($config, get_string('language'),
591 get_string('chooselanguagehead', 'install'),
592 $sub);
594 } else {
595 install_print_header($config, get_string('language'),
596 get_string('chooselanguagehead', 'install'),
597 get_string('chooselanguagesub', 'install'));
600 $languages = get_string_manager()->get_list_of_translations();
601 echo '<div class="userinput">';
602 echo '<div class="formrow"><label class="formlabel" for="langselect">'.get_string('language').'</label>';
603 echo '<select id="langselect" name="lang" class="forminput" onchange="this.form.submit()">';
604 foreach ($languages as $name=>$value) {
605 $selected = ($name == $CFG->lang) ? 'selected="selected"' : '';
606 echo '<option value="'.s($name).'" '.$selected.'>'.$value.'</option>';
608 echo '</select></div>';
609 echo '</div>';
611 install_print_footer($config);
612 die;