MDL-21742 fixed serious regressions - require_login(); could not be called after...
[moodle.git] / lib / setup.php
CommitLineData
da8759cb 1<?php
b37eac91 2
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.
14//
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/>.
17
da8759cb 18/**
19 * setup.php - Sets up sessions, connects to databases and so on
20 *
75249234 21 * Normally this is only called by the main config.php file
22 * Normally this file does not need to be edited.
b37eac91 23 *
24 * @package moodlecore
25 * @copyright 1999 onwards Martin Dougiamas {@link http://moodle.com}
26 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
da8759cb 27 */
28
da8759cb 29/**
e1d1b796 30 * Holds the core settings that affect how Moodle works. Some of its fields
31 * are set in config.php, and the rest are loaded from the config table.
32 *
33 * Some typical settings in the $CFG global:
34 * - $CFG->wwwroot - Path to moodle index directory in url format.
35 * - $CFG->dataroot - Path to moodle index directory on server's filesystem.
36 * - $CFG->libdir - Path to moodle's library folder on server's filesystem.
37 *
38 * @global object $CFG
b37eac91 39 * @name $CFG
e1d1b796 40 */
41global $CFG;
42
60f2c866
PS
43// Set up some paths.
44$CFG->libdir = $CFG->dirroot .'/lib';
45
46// exact version of currently used yui2 and 3 library
47$CFG->yui2version = '2.8.0r4';
48$CFG->yui3version = '3.0.0';
49
50// special support for highly optimised scripts that do not need libraries and DB connection
51if (defined('ABORT_AFTER_CONFIG')) {
52 if (!defined('ABORT_AFTER_CONFIG_CANCEL')) {
0037dcc9
PS
53 // hide debugging if not enabled in config.php - we do not want to disclose sensitive info
54 if (isset($CFG->debug)) {
55 error_reporting($CFG->debug);
56 } else {
57 error_reporting(0);
58 }
59 if (empty($CFG->debugdisplay)) {
60 @ini_set('display_errors', '0');
61 @ini_set('log_errors', '1');
62 } else {
63 @ini_set('display_errors', '1');
64 }
60f2c866
PS
65 require_once("$CFG->dirroot/lib/configonlylib.php");
66 return;
67 }
68}
69
e1d1b796 70/**
71 * Database connection. Used for all access to the database.
72 * @global moodle_database $DB
b37eac91 73 * @name $DB
e1d1b796 74 */
75global $DB;
76
77/**
78 * Moodle's wrapper round PHP's $_SESSION.
79 *
80 * @global object $SESSION
b37eac91 81 * @name $SESSION
e1d1b796 82 */
83global $SESSION;
84
85/**
86 * Holds the user table record for the current user. Will be the 'guest'
87 * user record for people who are not logged in.
88 *
89 * $USER is stored in the session.
da8759cb 90 *
735b8567 91 * Items found in the user record:
da8759cb 92 * - $USER->emailstop - Does the user want email sent to them?
93 * - $USER->email - The user's email address.
94 * - $USER->id - The unique integer identified of this user in the 'user' table.
95 * - $USER->email - The user's email address.
96 * - $USER->firstname - The user's first name.
97 * - $USER->lastname - The user's last name.
98 * - $USER->username - The user's login username.
99 * - $USER->secret - The user's ?.
100 * - $USER->lang - The user's language choice.
101 *
e1d1b796 102 * @global object $USER
b37eac91 103 * @name $USER
da8759cb 104 */
674fb525 105global $USER;
e1d1b796 106
c13a5e71 107/**
108 * A central store of information about the current page we are
109 * generating in response to the user's request.
110 *
111 * @global moodle_page $PAGE
b37eac91 112 * @name $PAGE
c13a5e71 113 */
114global $PAGE;
115
da8759cb 116/**
e1d1b796 117 * The current course. An alias for $PAGE->course.
118 * @global object $COURSE
b37eac91 119 * @name $COURSE
da8759cb 120 */
121global $COURSE;
e1d1b796 122
da8759cb 123/**
78946b9b 124 * $OUTPUT is an instance of core_renderer or one of its subclasses. Use
34a2777c 125 * it to generate HTML for output.
da8759cb 126 *
c84a2dbe 127 * $OUTPUT is initialised the first time it is used. See {@link bootstrap_renderer}
128 * for the magic that does that. After $OUTPUT has been initialised, any attempt
129 * to change something that affects the current theme ($PAGE->course, logged in use,
130 * httpsrequried ... will result in an exception.)
34a2777c 131 *
cbcc9852
PS
132 * Please note the $OUTPUT is replacing the old global $THEME object.
133 *
34a2777c 134 * @global object $OUTPUT
135 * @name $OUTPUT
136 */
137global $OUTPUT;
138
9d0dd812 139/**
e1d1b796 140 * Shared memory cache.
141 * @global object $MCACHE
b37eac91 142 * @name $MCACHE
e1d1b796 143 */
144global $MCACHE;
145
146/**
147 * A global to define if the page being displayed must run under HTTPS.
6800d78e 148 *
e1d1b796 149 * Its primary goal is to allow 100% HTTPS pages when $CFG->loginhttps is enabled. Default to false.
b7009474 150 * Its enabled only by the $PAGE->https_required() function and used in some pages to update some URLs
b37eac91 151 *
152 * @global bool $HTTPSPAGEREQUIRED
153 * @name $HTTPSPAGEREQUIRED
154 */
9d0dd812 155global $HTTPSPAGEREQUIRED;
156
b37eac91 157/**
158 * Full script path including all params, slash arguments, scheme and host.
159 * @global string $FULLME
160 * @name $FULLME
161 */
11e7b506 162global $FULLME;
e1d1b796 163
b37eac91 164/**
165 * Script path including query string and slash arguments without host.
166 * @global string $ME
167 * @name $ME
168 */
11e7b506 169global $ME;
e1d1b796 170
b37eac91 171/**
172 * $FULLME without slasharguments and query string.
173 * @global string $FULLSCRIPT
174 * @name $FULLSCRIPT
175 */
11e7b506 176global $FULLSCRIPT;
e1d1b796 177
b37eac91 178/**
179 * Relative moodle script path '/course/view.php'
180 * @global string $SCRIPT
181 * @name $SCRIPT
182 */
11e7b506 183global $SCRIPT;
9d0dd812 184
2e9b772f
PS
185// Scripts may request no debug and error messages in output
186// please note it must be defined before including the config.php script
187// and in some cases you also need to set custom default exception handler
188if (!defined('NO_DEBUG_DISPLAY')) {
189 define('NO_DEBUG_DISPLAY', false);
190}
191
ccda6d68
PS
192// wwwroot is mandatory
193if (!isset($CFG->wwwroot)) {
194 // trigger_error() is not correct here, no need to log this
47c2811b
PS
195 header($_SERVER['SERVER_PROTOCOL'] . ' 503 Service Unavailable');
196 echo('Fatal: $CFG->wwwroot is not configured! Exiting.');
197 exit(1);
ccda6d68 198}
75249234 199
4dffc775
PS
200// Detect CLI scripts - CLI scripts are executed from command line, do not have session and we do not want HTML in output
201if (!defined('CLI_SCRIPT')) { // CLI_SCRIPT might be defined in 'fake' CLI scripts like admin/cron.php
202 if (isset($_SERVER['REMOTE_ADDR'])) {
203 define('CLI_SCRIPT', false);
204 } else {
205 /** @ignore */
206 define('CLI_SCRIPT', true);
a91b910e 207 }
4dffc775 208}
a91b910e 209
4dffc775
PS
210// sometimes default PHP settings are borked on shared hosting servers, I wonder why they have to do that??
211@ini_set('precision', 14); // needed for upgrades and gradebook
133b5929 212
4dffc775
PS
213// The current directory in PHP version 4.3.0 and above isn't necessarily the
214// directory of the script when run from the command line. The require_once()
215// would fail, so we'll have to chdir()
216if (!isset($_SERVER['REMOTE_ADDR']) && isset($_SERVER['argv'][0])) {
217 chdir(dirname($_SERVER['argv'][0]));
218}
133b5929 219
4dffc775
PS
220// Store settings from config.php in array in $CFG - we can use it later to detect problems and overrides
221$CFG->config_php_settings = (array)$CFG;
a91b910e 222
4dffc775
PS
223// Set httpswwwroot default value (this variable will replace $CFG->wwwroot
224// inside some URLs used in HTTPSPAGEREQUIRED pages.
225$CFG->httpswwwroot = $CFG->wwwroot;
d3f9f1f8 226
4dffc775 227require_once($CFG->libdir .'/setuplib.php'); // Functions that MUST be loaded first
17da2e6f 228
4dffc775
PS
229// Time to start counting
230init_performance_info();
b7009474 231
4dffc775
PS
232// Put $OUTPUT in place, so errors can be displayed.
233$OUTPUT = new bootstrap_renderer();
9d0dd812 234
4c1c9175 235// set handler for uncaught exceptions - equivalent to print_error() call
4dffc775 236set_exception_handler('default_exception_handler');
6800d78e 237
4dffc775
PS
238// If there are any errors in the standard libraries we want to know!
239error_reporting(E_ALL);
c84a2dbe 240
4dffc775
PS
241// Just say no to link prefetching (Moz prefetching, Google Web Accelerator, others)
242// http://www.google.com/webmasters/faq.html#prefetchblock
243if (!empty($_SERVER['HTTP_X_moz']) && $_SERVER['HTTP_X_moz'] === 'prefetch'){
244 header($_SERVER['SERVER_PROTOCOL'] . ' 404 Prefetch Forbidden');
245 echo('Prefetch request forbidden.');
246 exit(1);
247}
b8cea9b2 248
4dffc775
PS
249// Define admin directory
250if (!isset($CFG->admin)) { // Just in case it isn't defined in config.php
251 $CFG->admin = 'admin'; // This is relative to the wwwroot and dirroot
252}
f9903ed0 253
4dffc775
PS
254if (!isset($CFG->prefix)) { // Just in case it isn't defined in config.php
255 $CFG->prefix = '';
256}
d7196099 257
4dffc775
PS
258// Load up standard libraries
259require_once($CFG->libdir .'/textlib.class.php'); // Functions to handle multibyte strings
260require_once($CFG->libdir .'/filterlib.php'); // Functions for filtering test as it is output
261require_once($CFG->libdir .'/ajax/ajaxlib.php'); // Functions for managing our use of JavaScript and YUI
262require_once($CFG->libdir .'/weblib.php'); // Functions relating to HTTP and content
263require_once($CFG->libdir .'/outputlib.php'); // Functions for generating output
264require_once($CFG->libdir .'/navigationlib.php'); // Class for generating Navigation structure
265require_once($CFG->libdir .'/dmllib.php'); // Database access
266require_once($CFG->libdir .'/datalib.php'); // Legacy lib with a big-mix of functions.
267require_once($CFG->libdir .'/accesslib.php'); // Access control functions
268require_once($CFG->libdir .'/deprecatedlib.php'); // Deprecated functions included for backward compatibility
269require_once($CFG->libdir .'/moodlelib.php'); // Other general-purpose functions
270require_once($CFG->libdir .'/pagelib.php'); // Library that defines the moodle_page class, used for $PAGE
271require_once($CFG->libdir .'/blocklib.php'); // Library for controlling blocks
272require_once($CFG->libdir .'/eventslib.php'); // Events functions
273require_once($CFG->libdir .'/grouplib.php'); // Groups functions
274require_once($CFG->libdir .'/sessionlib.php'); // All session and cookie related stuff
275require_once($CFG->libdir .'/editorlib.php'); // All text editor related functions and classes
7c7d3afa 276require_once($CFG->libdir .'/messagelib.php'); // Messagelib functions
4dffc775
PS
277
278//point pear include path to moodles lib/pear so that includes and requires will search there for files before anywhere else
279//the problem is that we need specific version of quickforms and hacked excel files :-(
280ini_set('include_path', $CFG->libdir.'/pear' . PATH_SEPARATOR . ini_get('include_path'));
281//point zend include path to moodles lib/zend so that includes and requires will search there for files before anywhere else
6e03bed7 282//please note zend library is supposed to be used only from web service protocol classes, it may be removed in future
4dffc775
PS
283ini_set('include_path', $CFG->libdir.'/zend' . PATH_SEPARATOR . ini_get('include_path'));
284
285// make sure PHP is not severly misconfigured
286setup_validate_php_configuration();
287
288// Increase memory limits if possible
289raise_memory_limit('96M'); // We should never NEED this much but just in case...
290
291// Connect to the database
292setup_DB();
293
294// Disable errors for now - needed for installation when debug enabled in config.php
295if (isset($CFG->debug)) {
296 $originalconfigdebug = $CFG->debug;
297 unset($CFG->debug);
298} else {
299 $originalconfigdebug = -1;
300}
dae73c05 301
4dffc775
PS
302// Load up any configuration from the config table
303try {
304 $CFG = get_config();
305} catch (dml_read_exception $e) {
306 // most probably empty db, going to install soon
307}
a8a71844 308
4dffc775
PS
309// Verify upgrade is not running unless we are in a script that needs to execute in any case
310if (!defined('NO_UPGRADE_CHECK') and isset($CFG->upgraderunning)) {
311 if ($CFG->upgraderunning < time()) {
312 unset_config('upgraderunning');
aa893d6b 313 } else {
4dffc775 314 print_error('upgraderunning');
aa893d6b 315 }
4dffc775 316}
aa893d6b 317
4dffc775
PS
318// Turn on SQL logging if required
319if (!empty($CFG->logsql)) {
320 $DB->set_logging(true);
321}
f9903ed0 322
4dffc775
PS
323// Prevent warnings from roles when upgrading with debug on
324if (isset($CFG->debug)) {
325 $originaldatabasedebug = $CFG->debug;
326 unset($CFG->debug);
327} else {
328 $originaldatabasedebug = -1;
329}
775f811a 330
1e3e716f 331
4dffc775
PS
332// For now, only needed under apache (and probably unstable in other contexts)
333if (function_exists('register_shutdown_function')) {
334 register_shutdown_function('moodle_request_shutdown');
335}
4fd7ccc0 336
4dffc775
PS
337// Defining the site
338try {
339 $SITE = get_site();
4dffc775
PS
340 /**
341 * If $SITE global from {@link get_site()} is set then SITEID to $SITE->id, otherwise set to 1.
342 */
343 define('SITEID', $SITE->id);
7b51fb61
PS
344 // And the 'default' course - this will usually get reset later in require_login() etc.
345 $COURSE = clone($SITE);
346} catch (dml_read_exception $e) {
347 $SITE = null;
348 if (empty($CFG->version)) {
349 // we are just installing
350 /**
351 * @ignore
352 */
353 define('SITEID', 1);
354 // And the 'default' course
355 $COURSE = new object(); // no site created yet
356 $COURSE->id = 1;
357 } else {
358 throw $e;
359 }
4dffc775 360}
cf8133c4 361
4dffc775
PS
362// define SYSCONTEXTID in config.php if you want to save some queries (after install or upgrade!)
363if (!defined('SYSCONTEXTID')) {
364 get_system_context();
365}
c23b0ea1 366
4dffc775
PS
367// Set error reporting back to normal
368if ($originaldatabasedebug == -1) {
369 $CFG->debug = DEBUG_MINIMAL;
370} else {
371 $CFG->debug = $originaldatabasedebug;
372}
373if ($originalconfigdebug !== -1) {
374 $CFG->debug = $originalconfigdebug;
375}
376unset($originalconfigdebug);
377unset($originaldatabasedebug);
378error_reporting($CFG->debug);
379
380// find out if PHP cofigured to display warnings,
381// this is a security problem because some moodle scripts may
382// disclose sensitive information
383if (ini_get_bool('display_errors')) {
384 define('WARN_DISPLAY_ERRORS_ENABLED', true);
385}
386// If we want to display Moodle errors, then try and set PHP errors to match
387if (!isset($CFG->debugdisplay)) {
388 // keep it "as is" during installation
389} else if (NO_DEBUG_DISPLAY) {
390 // some parts of Moodle cannot display errors and debug at all.
391 @ini_set('display_errors', '0');
392 @ini_set('log_errors', '1');
393} else if (empty($CFG->debugdisplay)) {
394 @ini_set('display_errors', '0');
395 @ini_set('log_errors', '1');
396} else {
397 // This is very problematic in XHTML strict mode!
398 @ini_set('display_errors', '1');
399}
475e9de8 400
4dffc775
PS
401// detect unsupported upgrade jump as soon as possible - do not change anything, do not use system functions
402if (!empty($CFG->version) and $CFG->version < 2007101509) {
403 print_error('upgraderequires19', 'error');
404 die;
405}
475e9de8 406
4dffc775
PS
407// Shared-Memory cache init -- will set $MCACHE
408// $MCACHE is a global object that offers at least add(), set() and delete()
409// with similar semantics to the memcached PHP API http://php.net/memcache
410// Ensure we define rcache - so we can later check for it
411// with a really fast and unambiguous $CFG->rcache === false
412if (!empty($CFG->cachetype)) {
413 if (empty($CFG->rcache)) {
414 $CFG->rcache = false;
25338300 415 } else {
4dffc775 416 $CFG->rcache = true;
25338300 417 }
418
4dffc775
PS
419 // do not try to initialize if cache disabled
420 if (!$CFG->rcache) {
421 $CFG->cachetype = '';
f9955801 422 }
423
4dffc775
PS
424 if ($CFG->cachetype === 'memcached' && !empty($CFG->memcachedhosts)) {
425 if (!init_memcached()) {
426 debugging("Error initialising memcached");
427 $CFG->cachetype = '';
392e7363 428 $CFG->rcache = false;
392e7363 429 }
4dffc775
PS
430 } else if ($CFG->cachetype === 'eaccelerator') {
431 if (!init_eaccelerator()) {
432 debugging("Error initialising eaccelerator cache");
392e7363 433 $CFG->cachetype = '';
4dffc775 434 $CFG->rcache = false;
392e7363 435 }
2142d492 436 }
aa893d6b 437
4dffc775
PS
438} else { // just make sure it is defined
439 $CFG->cachetype = '';
440 $CFG->rcache = false;
441}
0182c65c 442
4dffc775
PS
443// File permissions on created directories in the $CFG->dataroot
444if (empty($CFG->directorypermissions)) {
445 $CFG->directorypermissions = 0777; // Must be octal (that's why it's here)
446}
447if (empty($CFG->filepermissions)) {
448 $CFG->filepermissions = ($CFG->directorypermissions & 0666); // strip execute flags
449}
450// better also set default umask because recursive mkdir() does not apply permissions recursively otherwise
451umask(0000);
452
453// Calculate and set $CFG->ostype to be used everywhere. Possible values are:
454// - WINDOWS: for any Windows flavour.
455// - UNIX: for the rest
456// Also, $CFG->os can continue being used if more specialization is required
457if (stristr(PHP_OS, 'win') && !stristr(PHP_OS, 'darwin')) {
458 $CFG->ostype = 'WINDOWS';
459} else {
460 $CFG->ostype = 'UNIX';
461}
462$CFG->os = PHP_OS;
820743c5 463
4dffc775
PS
464// Setup cache dir for Smarty and others
465if (!file_exists($CFG->dataroot .'/cache')) {
466 make_upload_directory('cache');
467}
d6ead3a2 468
4dffc775
PS
469// Configure ampersands in URLs
470@ini_set('arg_separator.output', '&amp;');
de7e4ac9 471
4dffc775
PS
472// Work around for a PHP bug see MDL-11237
473@ini_set('pcre.backtrack_limit', 20971520); // 20 MB
e7aa5a88 474
4dffc775 475// Location of standard files
4c1c9175
PS
476$CFG->wordlist = $CFG->libdir .'/wordlist.txt';
477$CFG->moddata = 'moddata';
f9903ed0 478
4dffc775
PS
479// Create the $PAGE global.
480if (!empty($CFG->moodlepageclass)) {
481 $classname = $CFG->moodlepageclass;
482} else {
483 $classname = 'moodle_page';
484}
485$PAGE = new $classname();
486unset($classname);
487
488// A hack to get around magic_quotes_gpc being turned on
489// It is strongly recommended to disable "magic_quotes_gpc"!
490if (ini_get_bool('magic_quotes_gpc')) {
491 function stripslashes_deep($value) {
492 $value = is_array($value) ?
493 array_map('stripslashes_deep', $value) :
494 stripslashes($value);
495 return $value;
c84a2dbe 496 }
4dffc775
PS
497 $_POST = array_map('stripslashes_deep', $_POST);
498 $_GET = array_map('stripslashes_deep', $_GET);
499 $_COOKIE = array_map('stripslashes_deep', $_COOKIE);
500 $_REQUEST = array_map('stripslashes_deep', $_REQUEST);
501 if (!empty($_SERVER['REQUEST_URI'])) {
502 $_SERVER['REQUEST_URI'] = stripslashes($_SERVER['REQUEST_URI']);
f98cfb53 503 }
4dffc775
PS
504 if (!empty($_SERVER['QUERY_STRING'])) {
505 $_SERVER['QUERY_STRING'] = stripslashes($_SERVER['QUERY_STRING']);
506 }
507 if (!empty($_SERVER['HTTP_REFERER'])) {
508 $_SERVER['HTTP_REFERER'] = stripslashes($_SERVER['HTTP_REFERER']);
aa6af0f8 509 }
4dffc775
PS
510 if (!empty($_SERVER['PATH_INFO'])) {
511 $_SERVER['PATH_INFO'] = stripslashes($_SERVER['PATH_INFO']);
512 }
513 if (!empty($_SERVER['PHP_SELF'])) {
514 $_SERVER['PHP_SELF'] = stripslashes($_SERVER['PHP_SELF']);
515 }
516 if (!empty($_SERVER['PATH_TRANSLATED'])) {
517 $_SERVER['PATH_TRANSLATED'] = stripslashes($_SERVER['PATH_TRANSLATED']);
518 }
519}
7a302afc 520
4dffc775
PS
521// neutralise nasty chars in PHP_SELF
522if (isset($_SERVER['PHP_SELF'])) {
523 $phppos = strpos($_SERVER['PHP_SELF'], '.php');
524 if ($phppos !== false) {
525 $_SERVER['PHP_SELF'] = substr($_SERVER['PHP_SELF'], 0, $phppos+4);
18b9d664 526 }
4dffc775
PS
527 unset($phppos);
528}
529
530// initialise ME's
531initialise_fullme();
532
533// start session and prepare global $SESSION, $USER
534session_get_instance();
535$SESSION = &$_SESSION['SESSION'];
536$USER = &$_SESSION['USER'];
18b9d664 537
4dffc775 538// Process theme change in the URL.
998999e7
PS
539if (!empty($CFG->allowthemechangeonurl) and !empty($_GET['theme'])) {
540 // we have to use _GET directly because we do not want this to interfere with _POST
541 $urlthemename = optional_param('theme', '', PARAM_SAFEDIR);
4dffc775 542 try {
998999e7
PS
543 $themeconfig = theme_config::load($urlthemename);
544 // Makes sure the theme can be loaded without errors.
545 if ($themeconfig->name === $urlthemename) {
546 $SESSION->theme = $urlthemename;
547 } else {
548 unset($SESSION->theme);
549 }
550 unset($themeconfig);
551 unset($urlthemename);
4dffc775
PS
552 } catch (Exception $e) {
553 debugging('Failed to set the theme from the URL.', DEBUG_DEVELOPER, $e->getTrace());
18b9d664 554 }
4dffc775
PS
555}
556unset($urlthemename);
18b9d664 557
4dffc775
PS
558// Ensure a valid theme is set.
559if (!isset($CFG->theme)) {
560 $CFG->theme = 'standardwhite';
561}
562
563// Set language/locale of printed times. If user has chosen a language that
564// that is different from the site language, then use the locale specified
565// in the language file. Otherwise, if the admin hasn't specified a locale
566// then use the one from the default language. Otherwise (and this is the
567// majority of cases), use the stored locale specified by admin.
568if (($lang = optional_param('lang', '', PARAM_SAFEDIR))) {
569 if (file_exists($CFG->dataroot .'/lang/'. $lang) or
570 file_exists($CFG->dirroot .'/lang/'. $lang)) {
571 $SESSION->lang = $lang;
572 } else if (file_exists($CFG->dataroot.'/lang/'.$lang.'_utf8') or
573 file_exists($CFG->dirroot .'/lang/'.$lang.'_utf8')) {
574 $SESSION->lang = $lang.'_utf8';
3e9b5d5a 575 }
4dffc775
PS
576}
577unset($lang);
ab036ed9 578
4dffc775 579setup_lang_from_browser();
ab036ed9 580
4dffc775
PS
581if (empty($CFG->lang)) {
582 if (empty($SESSION->lang)) {
583 $CFG->lang = 'en_utf8';
584 } else {
585 $CFG->lang = $SESSION->lang;
16ba7351 586 }
4dffc775 587}
6800d78e 588
00dadbe1
PS
589// Set the default site locale, a lot of the stuff may depend on this
590// it is definitely too late to call this first in require_login()!
591moodle_setlocale();
4dffc775
PS
592
593if (!empty($CFG->debugvalidators) and !empty($CFG->guestloginbutton)) {
594 if ($CFG->theme == 'standard' or $CFG->theme == 'standardwhite') { // Temporary measure to help with XHTML validation
595 if (isset($_SERVER['HTTP_USER_AGENT']) and empty($USER->id)) { // Allow W3CValidator in as user called w3cvalidator (or guest)
596 if ((strpos($_SERVER['HTTP_USER_AGENT'], 'W3C_Validator') !== false) or
597 (strpos($_SERVER['HTTP_USER_AGENT'], 'Cynthia') !== false )) {
598 if ($user = get_complete_user_data("username", "w3cvalidator")) {
599 $user->ignoresesskey = true;
600 } else {
601 $user = guest_user();
9610a66e 602 }
4dffc775 603 session_set_user($user);
9610a66e 604 }
605 }
606 }
4dffc775 607}
9610a66e 608
4c1c9175 609// Apache log integration. In apache conf file one can use ${MOODULEUSER}n in
4dffc775
PS
610// LogFormat to get the current logged in username in moodle.
611if ($USER && function_exists('apache_note')
612 && !empty($CFG->apacheloguser) && isset($USER->username)) {
613 $apachelog_userid = $USER->id;
614 $apachelog_username = clean_filename($USER->username);
615 $apachelog_name = '';
616 if (isset($USER->firstname)) {
617 // We can assume both will be set
618 // - even if to empty.
619 $apachelog_name = clean_filename($USER->firstname . " " .
620 $USER->lastname);
621 }
622 if (session_is_loggedinas()) {
623 $realuser = session_get_realuser();
624 $apachelog_username = clean_filename($realuser->username." as ".$apachelog_username);
625 $apachelog_name = clean_filename($realuser->firstname." ".$realuser->lastname ." as ".$apachelog_name);
626 $apachelog_userid = clean_filename($realuser->id." as ".$apachelog_userid);
627 }
628 switch ($CFG->apacheloguser) {
629 case 3:
630 $logname = $apachelog_username;
631 break;
632 case 2:
633 $logname = $apachelog_name;
634 break;
635 case 1:
636 default:
637 $logname = $apachelog_userid;
638 break;
639 }
640 apache_note('MOODLEUSER', $logname);
641}
a559eee6 642
4dffc775
PS
643// Adjust ALLOWED_TAGS
644adjust_allowed_tags();
5982740d 645
4dffc775
PS
646// Use a custom script replacement if one exists
647if (!empty($CFG->customscripts)) {
648 if (($customscript = custom_script_path()) !== false) {
649 require ($customscript);
18259d4f 650 }
4dffc775 651}
18259d4f 652
4dffc775
PS
653// in the first case, ip in allowed list will be performed first
654// for example, client IP is 192.168.1.1
655// 192.168 subnet is an entry in allowed list
656// 192.168.1.1 is banned in blocked list
657// This ip will be banned finally
658if (!empty($CFG->allowbeforeblock)) { // allowed list processed before blocked list?
659 if (!empty($CFG->allowedip)) {
660 if (!remoteip_in_list($CFG->allowedip)) {
661 die(get_string('ipblocked', 'admin'));
ab99c8f0 662 }
4dffc775
PS
663 }
664 // need further check, client ip may a part of
665 // allowed subnet, but a IP address are listed
666 // in blocked list.
667 if (!empty($CFG->blockedip)) {
668 if (remoteip_in_list($CFG->blockedip)) {
669 die(get_string('ipblocked', 'admin'));
5035228f 670 }
4dffc775 671 }
d255c6e9 672
4dffc775
PS
673} else {
674 // in this case, IPs in blocked list will be performed first
675 // for example, client IP is 192.168.1.1
676 // 192.168 subnet is an entry in blocked list
677 // 192.168.1.1 is allowed in allowed list
678 // This ip will be allowed finally
679 if (!empty($CFG->blockedip)) {
680 if (remoteip_in_list($CFG->blockedip)) {
681 // if the allowed ip list is not empty
682 // IPs are not included in the allowed list will be
683 // blocked too
684 if (!empty($CFG->allowedip)) {
685 if (!remoteip_in_list($CFG->allowedip)) {
d255c6e9 686 die(get_string('ipblocked', 'admin'));
687 }
4dffc775 688 } else {
d255c6e9 689 die(get_string('ipblocked', 'admin'));
690 }
5035228f 691 }
4dffc775
PS
692 }
693 // if blocked list is null
694 // allowed list should be tested
695 if(!empty($CFG->allowedip)) {
696 if (!remoteip_in_list($CFG->allowedip)) {
697 die(get_string('ipblocked', 'admin'));
698 }
ab99c8f0 699 }
700
4dffc775 701}
092bfaf1 702
4dffc775
PS
703// note: we can not block non utf-8 installations here, because empty mysql database
704// might be converted to utf-8 in admin/index.php during installation
d5fac1cf
PS
705
706
707
708// this is a funny trick to make Eclipse believe that $OUTPUT and other globals
709// contains an instance of core_renderer, etc. which in turn fixes autocompletion ;-)
710if (false) {
711 $DB = new moodle_database();
712 $OUTPUT = new core_renderer(null, null);
713 $PAGE = new moodle_page();
714}