MDL-25336 fixed & in mod/url and fixed incomplete click url when embedding
[moodle.git] / lib / setup.php
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.
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/>.
18 /**
19  * setup.php - Sets up sessions, connects to databases and so on
20  *
21  * Normally this is only called by the main config.php file
22  * Normally this file does not need to be edited.
23  *
24  * @package    core
25  * @subpackage lib
26  * @copyright  1999 onwards Martin Dougiamas  {@link http://moodle.com}
27  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
28  */
30 /**
31  * Holds the core settings that affect how Moodle works. Some of its fields
32  * are set in config.php, and the rest are loaded from the config table.
33  *
34  * Some typical settings in the $CFG global:
35  *  - $CFG->wwwroot  - Path to moodle index directory in url format.
36  *  - $CFG->dataroot - Path to moodle data files directory on server's filesystem.
37  *  - $CFG->dirroot  - Path to moodle's library folder on server's filesystem.
38  *  - $CFG->libdir   - Path to moodle's library folder on server's filesystem.
39  *
40  * @global object $CFG
41  * @name $CFG
42  */
43 global $CFG; // this should be done much earlier in config.php before creating new $CFG instance
45 if (!isset($CFG)) {
46     if (defined('PHPUNIT_SCRIPT') and PHPUNIT_SCRIPT) {
47         echo('There is a missing "global $CFG;" at the beginning of the config.php file.'."\n");
48         exit(1);
49     } else {
50         // this should never happen, maybe somebody is accessing this file directly...
51         exit(1);
52     }
53 }
55 // We can detect real dirroot path reliably since PHP 4.0.2,
56 // it can not be anything else, there is no point in having this in config.php
57 $CFG->dirroot = dirname(dirname(__FILE__));
59 // Normalise dataroot - we do not want any symbolic links, trailing / or any other weirdness there
60 if (!isset($CFG->dataroot)) {
61     if (isset($_SERVER['REMOTE_ADDR'])) {
62         header($_SERVER['SERVER_PROTOCOL'] . ' 503 Service Unavailable');
63     }
64     echo('Fatal error: $CFG->dataroot is not specified in config.php! Exiting.'."\n");
65     exit(1);
66 }
67 $CFG->dataroot = realpath($CFG->dataroot);
68 if ($CFG->dataroot === false) {
69     if (isset($_SERVER['REMOTE_ADDR'])) {
70         header($_SERVER['SERVER_PROTOCOL'] . ' 503 Service Unavailable');
71     }
72     echo('Fatal error: $CFG->dataroot is not configured properly, directory does not exist or is not accessible! Exiting.'."\n");
73     exit(1);
74 } else if (!is_writable($CFG->dataroot)) {
75     if (isset($_SERVER['REMOTE_ADDR'])) {
76         header($_SERVER['SERVER_PROTOCOL'] . ' 503 Service Unavailable');
77     }
78     echo('Fatal error: $CFG->dataroot is not writable, admin has to fix directory permissions! Exiting.'."\n");
79     exit(1);
80 }
82 // wwwroot is mandatory
83 if (!isset($CFG->wwwroot) or $CFG->wwwroot === 'http://example.com/moodle') {
84     if (isset($_SERVER['REMOTE_ADDR'])) {
85         header($_SERVER['SERVER_PROTOCOL'] . ' 503 Service Unavailable');
86     }
87     echo('Fatal error: $CFG->wwwroot is not configured! Exiting.'."\n");
88     exit(1);
89 }
91 // Define admin directory
92 if (!isset($CFG->admin)) {   // Just in case it isn't defined in config.php
93     $CFG->admin = 'admin';   // This is relative to the wwwroot and dirroot
94 }
96 // Set up some paths.
97 $CFG->libdir = $CFG->dirroot .'/lib';
99 // The current directory in PHP version 4.3.0 and above isn't necessarily the
100 // directory of the script when run from the command line. The require_once()
101 // would fail, so we'll have to chdir()
102 if (!isset($_SERVER['REMOTE_ADDR']) && isset($_SERVER['argv'][0])) {
103     chdir(dirname($_SERVER['argv'][0]));
106 // sometimes default PHP settings are borked on shared hosting servers, I wonder why they have to do that??
107 ini_set('precision', 14); // needed for upgrades and gradebook
109 // Scripts may request no debug and error messages in output
110 // please note it must be defined before including the config.php script
111 // and in some cases you also need to set custom default exception handler
112 if (!defined('NO_DEBUG_DISPLAY')) {
113     define('NO_DEBUG_DISPLAY', false);
116 // Some scripts such as upgrade may want to prevent output buffering
117 if (!defined('NO_OUTPUT_BUFFERING')) {
118     define('NO_OUTPUT_BUFFERING', false);
121 // Servers should define a default timezone in php.ini, but if they don't then make sure something is defined.
122 // This is a quick hack.  Ideally we should ask the admin for a value.  See MDL-22625 for more on this.
123 if (function_exists('date_default_timezone_set') and function_exists('date_default_timezone_get')) {
124     $olddebug = error_reporting(0);
125     date_default_timezone_set(date_default_timezone_get());
126     error_reporting($olddebug);
127     unset($olddebug);
130 // PHPUnit scripts are a special case, for now we treat them as normal CLI scripts,
131 // please note you must install PHPUnit library separately via PEAR
132 if (!defined('PHPUNIT_SCRIPT')) {
133     define('PHPUNIT_SCRIPT', false);
135 if (PHPUNIT_SCRIPT) {
136     define('CLI_SCRIPT', true);
139 // Detect CLI scripts - CLI scripts are executed from command line, do not have session and we do not want HTML in output
140 // In your new CLI scripts just add "define('CLI_SCRIPT', true);" before requiring config.php.
141 // Please note that one script can not be accessed from both CLI and web interface.
142 if (!defined('CLI_SCRIPT')) {
143     define('CLI_SCRIPT', false);
145 if (defined('WEB_CRON_EMULATED_CLI')) {
146     if (!isset($_SERVER['REMOTE_ADDR'])) {
147         echo('Web cron can not be executed as CLI script any more, please use admin/cli/cron.php instead'."\n");
148         exit(1);
149     }
150 } else if (isset($_SERVER['REMOTE_ADDR'])) {
151     if (CLI_SCRIPT) {
152         echo('Command line scripts can not be executed from the web interface');
153         exit(1);
154     }
155 } else {
156     if (!CLI_SCRIPT) {
157         echo('Command line scripts must define CLI_SCRIPT before requiring config.php'."\n");
158         exit(1);
159     }
162 // Detect CLI maintenance mode - this is useful when you need to mess with database, such as during upgrades
163 if (file_exists("$CFG->dataroot/climaintenance.html")) {
164     if (!CLI_SCRIPT) {
165         header('Content-type: text/html');
166         /// Headers to make it not cacheable and json
167         header('Cache-Control: no-store, no-cache, must-revalidate');
168         header('Cache-Control: post-check=0, pre-check=0', false);
169         header('Pragma: no-cache');
170         header('Expires: Mon, 20 Aug 1969 09:23:00 GMT');
171         header('Last-Modified: ' . gmdate('D, d M Y H:i:s') . ' GMT');
172         header('Accept-Ranges: none');
173         readfile("$CFG->dataroot/climaintenance.html");
174         die;
175     } else {
176         if (!defined('CLI_MAINTENANCE')) {
177             define('CLI_MAINTENANCE', true);
178         }
179     }
180 } else {
181     if (!defined('CLI_MAINTENANCE')) {
182         define('CLI_MAINTENANCE', false);
183     }
186 // Detect ajax scripts - they are similar to CLI because we can not redirect, output html, etc.
187 if (!defined('AJAX_SCRIPT')) {
188     define('AJAX_SCRIPT', false);
191 // File permissions on created directories in the $CFG->dataroot
192 if (empty($CFG->directorypermissions)) {
193     $CFG->directorypermissions = 02777;      // Must be octal (that's why it's here)
195 if (empty($CFG->filepermissions)) {
196     $CFG->filepermissions = ($CFG->directorypermissions & 0666); // strip execute flags
198 // better also set default umask because recursive mkdir() does not apply permissions recursively otherwise
199 umask(0000);
201 // exact version of currently used yui2 and 3 library
202 $CFG->yui2version = '2.8.2';
203 $CFG->yui3version = '3.2.0';
206 // special support for highly optimised scripts that do not need libraries and DB connection
207 if (defined('ABORT_AFTER_CONFIG')) {
208     if (!defined('ABORT_AFTER_CONFIG_CANCEL')) {
209         // hide debugging if not enabled in config.php - we do not want to disclose sensitive info
210         if (isset($CFG->debug)) {
211             error_reporting($CFG->debug);
212         } else {
213             error_reporting(0);
214         }
215         if (empty($CFG->debugdisplay)) {
216             ini_set('display_errors', '0');
217             ini_set('log_errors', '1');
218         } else {
219             ini_set('display_errors', '1');
220         }
221         require_once("$CFG->dirroot/lib/configonlylib.php");
222         return;
223     }
226 /** Used by library scripts to check they are being called by Moodle */
227 if (!defined('MOODLE_INTERNAL')) { // necessary because cli installer has to define it earlier
228     define('MOODLE_INTERNAL', true);
231 /**
232  * Database connection. Used for all access to the database.
233  * @global moodle_database $DB
234  * @name $DB
235  */
236 global $DB;
238 /**
239  * Moodle's wrapper round PHP's $_SESSION.
240  *
241  * @global object $SESSION
242  * @name $SESSION
243  */
244 global $SESSION;
246 /**
247  * Holds the user table record for the current user. Will be the 'guest'
248  * user record for people who are not logged in.
249  *
250  * $USER is stored in the session.
251  *
252  * Items found in the user record:
253  *  - $USER->email - The user's email address.
254  *  - $USER->id - The unique integer identified of this user in the 'user' table.
255  *  - $USER->email - The user's email address.
256  *  - $USER->firstname - The user's first name.
257  *  - $USER->lastname - The user's last name.
258  *  - $USER->username - The user's login username.
259  *  - $USER->secret - The user's ?.
260  *  - $USER->lang - The user's language choice.
261  *
262  * @global object $USER
263  * @name $USER
264  */
265 global $USER;
267 /**
268  * A central store of information about the current page we are
269  * generating in response to the user's request.
270  *
271  * @global moodle_page $PAGE
272  * @name $PAGE
273  */
274 global $PAGE;
276 /**
277  * The current course. An alias for $PAGE->course.
278  * @global object $COURSE
279  * @name $COURSE
280  */
281 global $COURSE;
283 /**
284  * $OUTPUT is an instance of core_renderer or one of its subclasses. Use
285  * it to generate HTML for output.
286  *
287  * $OUTPUT is initialised the first time it is used. See {@link bootstrap_renderer}
288  * for the magic that does that. After $OUTPUT has been initialised, any attempt
289  * to change something that affects the current theme ($PAGE->course, logged in use,
290  * httpsrequried ... will result in an exception.)
291  *
292  * Please note the $OUTPUT is replacing the old global $THEME object.
293  *
294  * @global object $OUTPUT
295  * @name $OUTPUT
296  */
297 global $OUTPUT;
299 /**
300  * Shared memory cache.
301  * @global object $MCACHE
302  * @name $MCACHE
303  */
304 global $MCACHE;
306 /**
307  * Full script path including all params, slash arguments, scheme and host.
308  * @global string $FULLME
309  * @name $FULLME
310  */
311 global $FULLME;
313 /**
314  * Script path including query string and slash arguments without host.
315  * @global string $ME
316  * @name $ME
317  */
318 global $ME;
320 /**
321  * $FULLME without slasharguments and query string.
322  * @global string $FULLSCRIPT
323  * @name $FULLSCRIPT
324  */
325 global $FULLSCRIPT;
327 /**
328  * Relative moodle script path '/course/view.php'
329  * @global string $SCRIPT
330  * @name $SCRIPT
331  */
332 global $SCRIPT;
334 // Store settings from config.php in array in $CFG - we can use it later to detect problems and overrides
335 $CFG->config_php_settings = (array)$CFG;
336 // Forced plugin settings override values from config_plugins table
337 unset($CFG->config_php_settings['forced_plugin_settings']);
338 if (!isset($CFG->forced_plugin_settings)) {
339     $CFG->forced_plugin_settings = array();
341 // Set httpswwwroot default value (this variable will replace $CFG->wwwroot
342 // inside some URLs used in HTTPSPAGEREQUIRED pages.
343 $CFG->httpswwwroot = $CFG->wwwroot;
345 require_once($CFG->libdir .'/setuplib.php');        // Functions that MUST be loaded first
347 if (NO_OUTPUT_BUFFERING) {
348     disable_output_buffering();
351 // Increase memory limits if possible
352 raise_memory_limit(MEMORY_STANDARD);
354 // Time to start counting
355 init_performance_info();
357 // Put $OUTPUT in place, so errors can be displayed.
358 $OUTPUT = new bootstrap_renderer();
360 // set handler for uncaught exceptions - equivalent to print_error() call
361 set_exception_handler('default_exception_handler');
362 set_error_handler('default_error_handler', E_ALL | E_STRICT);
364 // If there are any errors in the standard libraries we want to know!
365 error_reporting(E_ALL);
367 // Just say no to link prefetching (Moz prefetching, Google Web Accelerator, others)
368 // http://www.google.com/webmasters/faq.html#prefetchblock
369 if (!empty($_SERVER['HTTP_X_moz']) && $_SERVER['HTTP_X_moz'] === 'prefetch'){
370     header($_SERVER['SERVER_PROTOCOL'] . ' 404 Prefetch Forbidden');
371     echo('Prefetch request forbidden.');
372     exit(1);
375 if (!isset($CFG->prefix)) {   // Just in case it isn't defined in config.php
376     $CFG->prefix = '';
379 // location of all languages except core English pack
380 if (!isset($CFG->langotherroot)) {
381     $CFG->langotherroot = $CFG->dataroot.'/lang';
384 // location of local lang pack customisations (dirs with _local suffix)
385 if (!isset($CFG->langlocalroot)) {
386     $CFG->langlocalroot = $CFG->dataroot.'/lang';
389 //point pear include path to moodles lib/pear so that includes and requires will search there for files before anywhere else
390 //the problem is that we need specific version of quickforms and hacked excel files :-(
391 ini_set('include_path', $CFG->libdir.'/pear' . PATH_SEPARATOR . ini_get('include_path'));
392 //point zend include path to moodles lib/zend so that includes and requires will search there for files before anywhere else
393 //please note zend library is supposed to be used only from web service protocol classes, it may be removed in future
394 ini_set('include_path', $CFG->libdir.'/zend' . PATH_SEPARATOR . ini_get('include_path'));
396 // Load up standard libraries
397 require_once($CFG->libdir .'/textlib.class.php');   // Functions to handle multibyte strings
398 require_once($CFG->libdir .'/filterlib.php');       // Functions for filtering test as it is output
399 require_once($CFG->libdir .'/ajax/ajaxlib.php');    // Functions for managing our use of JavaScript and YUI
400 require_once($CFG->libdir .'/weblib.php');          // Functions relating to HTTP and content
401 require_once($CFG->libdir .'/outputlib.php');       // Functions for generating output
402 require_once($CFG->libdir .'/navigationlib.php');   // Class for generating Navigation structure
403 require_once($CFG->libdir .'/dmllib.php');          // Database access
404 require_once($CFG->libdir .'/datalib.php');         // Legacy lib with a big-mix of functions.
405 require_once($CFG->libdir .'/accesslib.php');       // Access control functions
406 require_once($CFG->libdir .'/deprecatedlib.php');   // Deprecated functions included for backward compatibility
407 require_once($CFG->libdir .'/moodlelib.php');       // Other general-purpose functions
408 require_once($CFG->libdir .'/enrollib.php');        // Enrolment related functions
409 require_once($CFG->libdir .'/pagelib.php');         // Library that defines the moodle_page class, used for $PAGE
410 require_once($CFG->libdir .'/blocklib.php');        // Library for controlling blocks
411 require_once($CFG->libdir .'/eventslib.php');       // Events functions
412 require_once($CFG->libdir .'/grouplib.php');        // Groups functions
413 require_once($CFG->libdir .'/sessionlib.php');      // All session and cookie related stuff
414 require_once($CFG->libdir .'/editorlib.php');       // All text editor related functions and classes
415 require_once($CFG->libdir .'/messagelib.php');      // Messagelib functions
417 // make sure PHP is not severly misconfigured
418 setup_validate_php_configuration();
420 // Connect to the database
421 setup_DB();
423 // Disable errors for now - needed for installation when debug enabled in config.php
424 if (isset($CFG->debug)) {
425     $originalconfigdebug = $CFG->debug;
426     unset($CFG->debug);
427 } else {
428     $originalconfigdebug = -1;
431 // Load up any configuration from the config table
432 initialise_cfg();
434 // Verify upgrade is not running unless we are in a script that needs to execute in any case
435 if (!defined('NO_UPGRADE_CHECK') and isset($CFG->upgraderunning)) {
436     if ($CFG->upgraderunning < time()) {
437         unset_config('upgraderunning');
438     } else {
439         print_error('upgraderunning');
440     }
443 // Turn on SQL logging if required
444 if (!empty($CFG->logsql)) {
445     $DB->set_logging(true);
448 // Prevent warnings from roles when upgrading with debug on
449 if (isset($CFG->debug)) {
450     $originaldatabasedebug = $CFG->debug;
451     unset($CFG->debug);
452 } else {
453     $originaldatabasedebug = -1;
456 // enable circular reference collector in PHP 5.3,
457 // it helps a lot when using large complex OOP structures such as in amos or gradebook
458 if (function_exists('gc_enable')) {
459     gc_enable();
462 // Register default shutdown tasks - such as Apache memory release helper, perf logging, etc.
463 if (function_exists('register_shutdown_function')) {
464     register_shutdown_function('moodle_request_shutdown');
467 // Defining the site
468 try {
469     $SITE = get_site();
470     /**
471      * If $SITE global from {@link get_site()} is set then SITEID to $SITE->id, otherwise set to 1.
472      */
473     define('SITEID', $SITE->id);
474     // And the 'default' course - this will usually get reset later in require_login() etc.
475     $COURSE = clone($SITE);
476 } catch (dml_exception $e) {
477     $SITE = null;
478     if (empty($CFG->version)) {
479         // we are just installing
480         /**
481          * @ignore
482          */
483         define('SITEID', 1);
484         // And the 'default' course
485         $COURSE = new stdClass();  // no site created yet
486         $COURSE->id = 1;
487     } else {
488         throw $e;
489     }
492 // define SYSCONTEXTID in config.php if you want to save some queries (after install or upgrade!)
493 if (!defined('SYSCONTEXTID')) {
494     get_system_context();
497 // Set error reporting back to normal
498 if ($originaldatabasedebug == -1) {
499     $CFG->debug = DEBUG_MINIMAL;
500 } else {
501     $CFG->debug = $originaldatabasedebug;
503 if ($originalconfigdebug !== -1) {
504     $CFG->debug = $originalconfigdebug;
506 unset($originalconfigdebug);
507 unset($originaldatabasedebug);
508 error_reporting($CFG->debug);
510 // find out if PHP configured to display warnings,
511 // this is a security problem because some moodle scripts may
512 // disclose sensitive information
513 if (ini_get_bool('display_errors')) {
514     define('WARN_DISPLAY_ERRORS_ENABLED', true);
516 // If we want to display Moodle errors, then try and set PHP errors to match
517 if (!isset($CFG->debugdisplay)) {
518     // keep it "as is" during installation
519 } else if (NO_DEBUG_DISPLAY) {
520     // some parts of Moodle cannot display errors and debug at all.
521     ini_set('display_errors', '0');
522     ini_set('log_errors', '1');
523 } else if (empty($CFG->debugdisplay)) {
524     ini_set('display_errors', '0');
525     ini_set('log_errors', '1');
526 } else {
527     // This is very problematic in XHTML strict mode!
528     ini_set('display_errors', '1');
531 // detect unsupported upgrade jump as soon as possible - do not change anything, do not use system functions
532 if (!empty($CFG->version) and $CFG->version < 2007101509) {
533     print_error('upgraderequires19', 'error');
534     die;
537 // Shared-Memory cache init -- will set $MCACHE
538 // $MCACHE is a global object that offers at least add(), set() and delete()
539 // with similar semantics to the memcached PHP API http://php.net/memcache
540 // Ensure we define rcache - so we can later check for it
541 // with a really fast and unambiguous $CFG->rcache === false
542 if (!empty($CFG->cachetype)) {
543     if (empty($CFG->rcache)) {
544         $CFG->rcache = false;
545     } else {
546         $CFG->rcache = true;
547     }
549     // do not try to initialize if cache disabled
550     if (!$CFG->rcache) {
551         $CFG->cachetype = '';
552     }
554     if ($CFG->cachetype === 'memcached' && !empty($CFG->memcachedhosts)) {
555         if (!init_memcached()) {
556             debugging("Error initialising memcached");
557             $CFG->cachetype = '';
558             $CFG->rcache = false;
559         }
560     } else if ($CFG->cachetype === 'eaccelerator') {
561         if (!init_eaccelerator()) {
562             debugging("Error initialising eaccelerator cache");
563             $CFG->cachetype = '';
564             $CFG->rcache = false;
565         }
566     }
568 } else { // just make sure it is defined
569     $CFG->cachetype = '';
570     $CFG->rcache    = false;
573 // Calculate and set $CFG->ostype to be used everywhere. Possible values are:
574 // - WINDOWS: for any Windows flavour.
575 // - UNIX: for the rest
576 // Also, $CFG->os can continue being used if more specialization is required
577 if (stristr(PHP_OS, 'win') && !stristr(PHP_OS, 'darwin')) {
578     $CFG->ostype = 'WINDOWS';
579 } else {
580     $CFG->ostype = 'UNIX';
582 $CFG->os = PHP_OS;
584 // Configure ampersands in URLs
585 ini_set('arg_separator.output', '&amp;');
587 // Work around for a PHP bug   see MDL-11237
588 ini_set('pcre.backtrack_limit', 20971520);  // 20 MB
590 // Location of standard files
591 $CFG->wordlist = $CFG->libdir .'/wordlist.txt';
592 $CFG->moddata  = 'moddata';
594 // Create the $PAGE global.
595 if (!empty($CFG->moodlepageclass)) {
596     $classname = $CFG->moodlepageclass;
597 } else {
598     $classname = 'moodle_page';
600 $PAGE = new $classname();
601 unset($classname);
603 // A hack to get around magic_quotes_gpc being turned on
604 // It is strongly recommended to disable "magic_quotes_gpc"!
605 if (ini_get_bool('magic_quotes_gpc')) {
606     function stripslashes_deep($value) {
607         $value = is_array($value) ?
608                 array_map('stripslashes_deep', $value) :
609                 stripslashes($value);
610         return $value;
611     }
612     $_POST = array_map('stripslashes_deep', $_POST);
613     $_GET = array_map('stripslashes_deep', $_GET);
614     $_COOKIE = array_map('stripslashes_deep', $_COOKIE);
615     $_REQUEST = array_map('stripslashes_deep', $_REQUEST);
616     if (!empty($_SERVER['REQUEST_URI'])) {
617         $_SERVER['REQUEST_URI'] = stripslashes($_SERVER['REQUEST_URI']);
618     }
619     if (!empty($_SERVER['QUERY_STRING'])) {
620         $_SERVER['QUERY_STRING'] = stripslashes($_SERVER['QUERY_STRING']);
621     }
622     if (!empty($_SERVER['HTTP_REFERER'])) {
623         $_SERVER['HTTP_REFERER'] = stripslashes($_SERVER['HTTP_REFERER']);
624     }
625    if (!empty($_SERVER['PATH_INFO'])) {
626         $_SERVER['PATH_INFO'] = stripslashes($_SERVER['PATH_INFO']);
627     }
628     if (!empty($_SERVER['PHP_SELF'])) {
629         $_SERVER['PHP_SELF'] = stripslashes($_SERVER['PHP_SELF']);
630     }
631     if (!empty($_SERVER['PATH_TRANSLATED'])) {
632         $_SERVER['PATH_TRANSLATED'] = stripslashes($_SERVER['PATH_TRANSLATED']);
633     }
636 // neutralise nasty chars in PHP_SELF
637 if (isset($_SERVER['PHP_SELF'])) {
638     $phppos = strpos($_SERVER['PHP_SELF'], '.php');
639     if ($phppos !== false) {
640         $_SERVER['PHP_SELF'] = substr($_SERVER['PHP_SELF'], 0, $phppos+4);
641     }
642     unset($phppos);
645 // initialise ME's
646 initialise_fullme();
649 // init session prevention flag - this is defined on pages that do not want session
650 if (CLI_SCRIPT) {
651     // no sessions in CLI scripts possible
652     define('NO_MOODLE_COOKIES', true);
654 } else if (!defined('NO_MOODLE_COOKIES')) {
655     if (empty($CFG->version) or $CFG->version < 2009011900) {
656         // no session before sessions table gets created
657         define('NO_MOODLE_COOKIES', true);
658     } else if (CLI_SCRIPT) {
659         // CLI scripts can not have session
660         define('NO_MOODLE_COOKIES', true);
661     } else {
662         define('NO_MOODLE_COOKIES', false);
663     }
666 // start session and prepare global $SESSION, $USER
667 session_get_instance();
668 $SESSION = &$_SESSION['SESSION'];
669 $USER    = &$_SESSION['USER'];
671 // Process theme change in the URL.
672 if (!empty($CFG->allowthemechangeonurl) and !empty($_GET['theme'])) {
673     // we have to use _GET directly because we do not want this to interfere with _POST
674     $urlthemename = optional_param('theme', '', PARAM_SAFEDIR);
675     try {
676         $themeconfig = theme_config::load($urlthemename);
677         // Makes sure the theme can be loaded without errors.
678         if ($themeconfig->name === $urlthemename) {
679             $SESSION->theme = $urlthemename;
680         } else {
681             unset($SESSION->theme);
682         }
683         unset($themeconfig);
684         unset($urlthemename);
685     } catch (Exception $e) {
686         debugging('Failed to set the theme from the URL.', DEBUG_DEVELOPER, $e->getTrace());
687     }
689 unset($urlthemename);
691 // Ensure a valid theme is set.
692 if (!isset($CFG->theme)) {
693     $CFG->theme = 'standardwhite';
696 // Set language/locale of printed times.  If user has chosen a language that
697 // that is different from the site language, then use the locale specified
698 // in the language file.  Otherwise, if the admin hasn't specified a locale
699 // then use the one from the default language.  Otherwise (and this is the
700 // majority of cases), use the stored locale specified by admin.
701 // note: do not accept lang parameter from POST
702 if (isset($_GET['lang']) and ($lang = optional_param('lang', '', PARAM_SAFEDIR))) {
703     if (get_string_manager()->translation_exists($lang, false)) {
704         $SESSION->lang = $lang;
705     }
707 unset($lang);
709 setup_lang_from_browser();
711 if (empty($CFG->lang)) {
712     if (empty($SESSION->lang)) {
713         $CFG->lang = 'en';
714     } else {
715         $CFG->lang = $SESSION->lang;
716     }
719 // Set the default site locale, a lot of the stuff may depend on this
720 // it is definitely too late to call this first in require_login()!
721 moodle_setlocale();
723 if (!empty($CFG->debugvalidators) and !empty($CFG->guestloginbutton)) {
724     if ($CFG->theme == 'standard' or $CFG->theme == 'standardwhite') {    // Temporary measure to help with XHTML validation
725         if (isset($_SERVER['HTTP_USER_AGENT']) and empty($USER->id)) {      // Allow W3CValidator in as user called w3cvalidator (or guest)
726             if ((strpos($_SERVER['HTTP_USER_AGENT'], 'W3C_Validator') !== false) or
727                 (strpos($_SERVER['HTTP_USER_AGENT'], 'Cynthia') !== false )) {
728                 if ($user = get_complete_user_data("username", "w3cvalidator")) {
729                     $user->ignoresesskey = true;
730                 } else {
731                     $user = guest_user();
732                 }
733                 session_set_user($user);
734             }
735         }
736     }
739 // Apache log integration. In apache conf file one can use ${MOODULEUSER}n in
740 // LogFormat to get the current logged in username in moodle.
741 if ($USER && function_exists('apache_note')
742     && !empty($CFG->apacheloguser) && isset($USER->username)) {
743     $apachelog_userid = $USER->id;
744     $apachelog_username = clean_filename($USER->username);
745     $apachelog_name = '';
746     if (isset($USER->firstname)) {
747         // We can assume both will be set
748         // - even if to empty.
749         $apachelog_name = clean_filename($USER->firstname . " " .
750                                          $USER->lastname);
751     }
752     if (session_is_loggedinas()) {
753         $realuser = session_get_realuser();
754         $apachelog_username = clean_filename($realuser->username." as ".$apachelog_username);
755         $apachelog_name = clean_filename($realuser->firstname." ".$realuser->lastname ." as ".$apachelog_name);
756         $apachelog_userid = clean_filename($realuser->id." as ".$apachelog_userid);
757     }
758     switch ($CFG->apacheloguser) {
759         case 3:
760             $logname = $apachelog_username;
761             break;
762         case 2:
763             $logname = $apachelog_name;
764             break;
765         case 1:
766         default:
767             $logname = $apachelog_userid;
768             break;
769     }
770     apache_note('MOODLEUSER', $logname);
773 // Adjust ALLOWED_TAGS
774 adjust_allowed_tags();
776 // Use a custom script replacement if one exists
777 if (!empty($CFG->customscripts)) {
778     if (($customscript = custom_script_path()) !== false) {
779         require ($customscript);
780     }
783 // in the first case, ip in allowed list will be performed first
784 // for example, client IP is 192.168.1.1
785 // 192.168 subnet is an entry in allowed list
786 // 192.168.1.1 is banned in blocked list
787 // This ip will be banned finally
788 if (!empty($CFG->allowbeforeblock)) { // allowed list processed before blocked list?
789     if (!empty($CFG->allowedip)) {
790         if (!remoteip_in_list($CFG->allowedip)) {
791             die(get_string('ipblocked', 'admin'));
792         }
793     }
794     // need further check, client ip may a part of
795     // allowed subnet, but a IP address are listed
796     // in blocked list.
797     if (!empty($CFG->blockedip)) {
798         if (remoteip_in_list($CFG->blockedip)) {
799             die(get_string('ipblocked', 'admin'));
800         }
801     }
803 } else {
804     // in this case, IPs in blocked list will be performed first
805     // for example, client IP is 192.168.1.1
806     // 192.168 subnet is an entry in blocked list
807     // 192.168.1.1 is allowed in allowed list
808     // This ip will be allowed finally
809     if (!empty($CFG->blockedip)) {
810         if (remoteip_in_list($CFG->blockedip)) {
811             // if the allowed ip list is not empty
812             // IPs are not included in the allowed list will be
813             // blocked too
814             if (!empty($CFG->allowedip)) {
815                 if (!remoteip_in_list($CFG->allowedip)) {
816                     die(get_string('ipblocked', 'admin'));
817                 }
818             } else {
819                 die(get_string('ipblocked', 'admin'));
820             }
821         }
822     }
823     // if blocked list is null
824     // allowed list should be tested
825     if(!empty($CFG->allowedip)) {
826         if (!remoteip_in_list($CFG->allowedip)) {
827             die(get_string('ipblocked', 'admin'));
828         }
829     }
833 // note: we can not block non utf-8 installations here, because empty mysql database
834 // might be converted to utf-8 in admin/index.php during installation
838 // this is a funny trick to make Eclipse believe that $OUTPUT and other globals
839 // contains an instance of core_renderer, etc. which in turn fixes autocompletion ;-)
840 if (false) {
841     $DB = new moodle_database();
842     $OUTPUT = new core_renderer(null, null);
843     $PAGE = new moodle_page();