libdir.'/adminlib.php');
admin_externalpage_setup('healthcenter');
define('SEVERITY_NOTICE', 'notice');
define('SEVERITY_ANNOYANCE', 'annoyance');
define('SEVERITY_SIGNIFICANT', 'significant');
define('SEVERITY_CRITICAL', 'critical');
$solution = optional_param('solution', 0, PARAM_SAFEDIR); //in fact it is class name alhanumeric and _
require_login();
require_capability('moodle/site:config', get_context_instance(CONTEXT_SYSTEM));
$site = get_site();
admin_externalpage_print_header();
echo << There are two ways you can solve this problem: There are two ways you can solve this problem: There are two ways you can solve this problem: IIS:';
foreach($issues[$severity] as $classname => $data) {
echo '
';
}
}
}
}
function health_print_solution($classname) {
$problem = new $classname;
$data = array(
'title' => $problem->title(),
'severity' => $problem->severity(),
'description' => $problem->description(),
'solution' => $problem->solution()
);
print_heading(get_string('healthcenter'));
print_heading(get_string('healthproblemsolution'));
echo '';
echo '
';
echo '';
}
class problem_base {
function exists() {
return false;
}
function title() {
return '???';
}
function severity() {
return SEVERITY_NOTICE;
}
function description() {
return '';
}
function solution() {
return '';
}
}
class problem_000001 extends problem_base {
function title() {
return 'Invalid value for $CFG->dirroot';
}
function exists() {
global $CFG;
$dirroot = dirname(realpath('../index.php'));
if (!empty($dirroot) && $dirroot != $CFG->dirroot) {
return true;
}
return false;
}
function severity() {
return SEVERITY_CRITICAL;
}
function description() {
global $CFG;
return 'Your config.php file contains the setting $CFG->dirroot = "'.$CFG->dirroot.'", which is incorrect. Unless you correct this problem, Moodle will not function correctly, if at all.';
}
function solution() {
global $CFG;
$dirroot = dirname(realpath('../index.php'));
return 'You need to edit your config.php file. Find the line which reads $CFG->dirroot = \''.$CFG->dirroot.'\';
and change it to read $CFG->dirroot = \''.$dirroot.'\'
';
}
}
class problem_000002 extends problem_base {
function title() {
return 'Extra characters at the end of config.php or other library function';
}
function exists() {
global $extraws;
if($extraws === '') {
return false;
}
return true;
}
function severity() {
return SEVERITY_SIGNIFICANT;
}
function description() {
return 'Your Moodle configuration file config.php or another library file, contains some characters after the closing PHP tag (?>). This causes Moodle to exhibit several kinds of problems (such as broken downloaded files) and must be fixed.';
}
function solution() {
global $CFG;
return 'You need to edit '.$CFG->dirroot.'/config.php and remove all characters (including spaces and returns) after the ending ?> tag. These two characters should be the very last in that file. The extra trailing whitespace may be also present in other PHP files that are included from lib/setup.php.';
}
}
class problem_000003 extends problem_base {
function title() {
return '$CFG->dataroot does not exist or does not have write permissions';
}
function exists() {
global $CFG;
if(!is_dir($CFG->dataroot) || !is_writable($CFG->dataroot)) {
return true;
}
return false;
}
function severity() {
return SEVERITY_SIGNIFICANT;
}
function description() {
global $CFG;
return 'Your config.php says that your "data root" directory is '.$CFG->dataroot.'. However, this directory either does not exist or cannot be written to by Moodle. This means that a variety of problems will be present, such as users not being able to log in and not being able to upload any files. It is imperative that you address this problem for Moodle to work correctly.';
}
function solution() {
global $CFG;
return 'First of all, make sure that the directory '.$CFG->dataroot.' exists. If the directory does exist, then you must make sure that Moodle is able to write to it. Contact your web server administrator and request that he gives write permissions for that directory to the user that the web server process is running as.';
}
}
class problem_000004 extends problem_base {
function title() {
return 'cron.php is not set up to run automatically';
}
function exists() {
global $CFG;
$lastcron = get_field_sql('SELECT max(lastcron) FROM '.$CFG->prefix.'modules');
return (time() - $lastcron > 3600 * 24);
}
function severity() {
return SEVERITY_SIGNIFICANT;
}
function description() {
return 'The cron.php mainenance script has not been run in the past 24 hours. This probably means that your server is not configured to automatically run this script in regular time intervals. If this is the case, then Moodle will mostly work as it should but some operations (notably sending email to users) will not be carried out at all.';
}
function solution() {
global $CFG;
return 'For detailed instructions on how to enable cron, see this section of the installation manual.';
}
}
class problem_000005 extends problem_base {
function title() {
return 'PHP: session.auto_start is enabled';
}
function exists() {
return ini_get_bool('session.auto_start');
}
function severity() {
return SEVERITY_CRITICAL;
}
function description() {
return 'Your PHP configuration includes an enabled setting, session.auto_start, that must be disabled in order for Moodle to work correctly. Notable symptoms arising from this misconfiguration include fatal errors and/or blank pages when trying to log in.';
}
function solution() {
global $CFG;
return '
';
}
}
class problem_000006 extends problem_base {
function title() {
return 'PHP: magic_quotes_runtime is enabled';
}
function exists() {
return (ini_get_bool('magic_quotes_runtime'));
}
function severity() {
return SEVERITY_SIGNIFICANT;
}
function description() {
return 'Your PHP configuration includes an enabled setting, magic_quotes_runtime, that must be disabled in order for Moodle to work correctly. Notable symptoms arising from this misconfiguration include strange display errors whenever a text field that includes single or double quotes is processed.';
}
function solution() {
global $CFG;
return 'session.auto_start = 1
and change it to session.auto_start = 0
and then restart your web server. Be warned that this, as any other PHP setting change, might affect other web applications running on the server.php_value session.auto_start "0"
';
}
}
class problem_000007 extends problem_base {
function title() {
return 'PHP: file_uploads is disabled';
}
function exists() {
return !ini_get_bool('file_uploads');
}
function severity() {
return SEVERITY_SIGNIFICANT;
}
function description() {
return 'Your PHP configuration includes a disabled setting, file_uploads, that must be enabled to let Moodle offer its full functionality. Until this setting is enabled, it will not be possible to upload any files into Moodle. This includes, for example, course content and user pictures.';
}
function solution() {
global $CFG;
return 'magic_quotes_runtime = On
and change it to magic_quotes_runtime = Off
and then restart your web server. Be warned that this, as any other PHP setting change, might affect other web applications running on the server.php_value magic_quotes_runtime "Off"
';
}
}
class problem_000008 extends problem_base {
function title() {
return 'PHP: memory_limit cannot be controlled by Moodle';
}
function exists() {
$oldmemlimit = @ini_get('memory_limit');
if(empty($oldmemlimit)) {
// PHP not compiled with memory limits, this means that it's
// probably limited to 8M or in case of Windows not at all.
// We can ignore it for now - there is not much to test anyway
// TODO: add manual test that fills memory??
return false;
}
$oldmemlimit = get_real_size($oldmemlimit);
//now lets change the memory limit to something unique below 128M==134217728
if (empty($CFG->extramemorylimit)) {
raise_memory_limit('128M');
} else {
raise_memory_limit($CFG->extramemorylimit);
}
$testmemlimit = get_real_size(@ini_get('memory_limit'));
//verify the change had any effect at all
if ($oldmemlimit == $testmemlimit) {
//memory limit can not be changed - is it big enough then?
if ($oldmemlimit < get_real_size('128M')) {
return true;
} else {
return false;
}
}
reduce_memory_limit($oldmemlimit);
return false;
}
function severity() {
return SEVERITY_NOTICE;
}
function description() {
return 'The settings for PHP on your server do not allow a script to request more memory during its execution. '.
'This means that there is a hard limit of '.@ini_get('memory_limit').' for each script. '.
'It is possible that certain operations within Moodle will require more than this amount in order '.
'to complete successfully, especially if there are lots of data to be processed.';
}
function solution() {
return 'It is recommended that you contact your web server administrator to address this issue.';
}
}
class problem_000009 extends problem_base {
function title() {
return 'SQL: using account without password';
}
function exists() {
global $CFG;
return empty($CFG->dbpass);
}
function severity() {
return SEVERITY_CRITICAL;
}
function description() {
global $CFG;
return 'The user account your are connecting to the database server with is set up without a password. This is a very big security risk and is only somewhat lessened if your database is configured to not accept connections from any hosts other than the server Moodle is running on. Unless you use a strong password to connect to the database, you risk unauthorized access to and manipulation of your data.'.($CFG->dbuser != 'root'?'':' This is especially alarming because such access to the database would be as the superuser (root)!');
}
function solution() {
global $CFG;
return 'You should change the password of the user '.$CFG->dbuser.' both in your database and in your Moodle config.php immediately!'.($CFG->dbuser != 'root'?'':' It would also be a good idea to change the user account from root to something else, because this would lessen the impact in the event that your database is compromised anyway.');
}
}
class problem_000010 extends problem_base {
function title() {
return 'Uploaded files: slasharguments disabled or not working';
}
function exists() {
if (!$this->is_enabled()) {
return true;
}
if ($this->status() < 1) {
return true;
}
return false;
}
function severity() {
if ($this->is_enabled() and $this->status() == 0) {
return SEVERITY_SIGNIFICANT;
} else {
return SEVERITY_ANNOYANCE;
}
}
function description() {
global $CFG;
$desc = 'Slasharguments are needed for relative linking in uploaded resources:file_uploads = Off
and change it to file_uploads = On
and then restart your web server. Be warned that this, as any other PHP setting change, might affect other web applications running on the server.php_value file_uploads "On"
';
if (!$this->is_enabled()) {
$desc .= '
';
return $desc;
}
function solution() {
global $CFG;
$enabled = $this->is_enabled();
$status = $this->status();
$solution = '';
if ($enabled and ($status == 0)) {
$solution .= 'Slasharguments are enabled, but the test failed. Please disable slasharguments in Moodle configuration or fix the server configuration.
';
} else if ((!$enabled) and ($status == 0)) {
$solution .= 'Slasharguments are disabled and the test failed. You may try to fix the server configuration.
';
} else if ($enabled and ($status == -1)) {
$solution .= 'Slasharguments are enabled, automatic testing not possible.
';
} else if ((!$enabled) and ($status == -1)) {
$solution .= 'Slasharguments are disabled, automatic testing not possible.
';
} else if ((!$enabled) and ($status > 0)) {
$solution .= 'Slasharguments are disabled though the iternal test is OK. You should enable slasharguments in Moodle configuration.';
} else if ($enabled and ($status > 0)) {
$solution .= 'Congratulations - everything seems OK now :-D';
}
if ($status < 1) {
$solution .= 'cgi.fix_pathinfo=1
to php.ini
Apache 1:
cgi.fix_pathinfo=1
to php.iniApache 2:
AcceptPathInfo on
to php.ini or .htaccesscgi.fix_pathinfo=1
to php.iniSession errors can be caused by:
For random questions, question.parent should equal question.id. ' . 'There are some questions in your database for which this is not true. ' . 'One way that this could have happened is for random questions restored from backup before ' . 'MDL-5482 was fixed.
'; } function solution() { global $CFG; return 'Upgrade to Moodle 1.9.1 or later, or manually execute the SQL
' . 'UPDATE ' . $CFG->prefix . 'question SET parent = id WHERE qtype = \'random\' and parent <> id;'; } } class problem_000013 extends problem_base { function title() { return 'Multi-answer questions data consistency'; } function exists() { global $CFG; $positionexpr = sql_position(sql_concat("','", "q.id", "','"), sql_concat("','", "qma.sequence", "','")); return record_exists_sql(" SELECT * FROM {$CFG->prefix}question q JOIN {$CFG->prefix}question_multianswer qma ON $positionexpr > 0 WHERE qma.question <> q.parent") || record_exists_sql(" SELECT * FROM {$CFG->prefix}question q JOIN {$CFG->prefix}question parent_q ON parent_q.id = q.parent WHERE q.category <> parent_q.category"); } function severity() { return SEVERITY_ANNOYANCE; } function description() { return '
For each sub-question whose id is listed in ' . 'question_multianswer.sequence, its question.parent field should equal ' . 'question_multianswer.question; and each sub-question should be in the same ' . 'category as its parent. There are questions in your database for ' . 'which this is not the case. One way that this could have happened is ' . 'for multi-answer questions restored from backup before ' . 'MDL-14750 was fixed.
'; } function solution() { return 'Upgrade to Moodle 1.9.1 or later, or manually execute the ' . 'code in question_multianswer_fix_subquestion_parents_and_categories in ' . '/question/type/multianswer/db/upgrade.php' . 'from the 1.9 stable branch.
'; } } class problem_000014 extends problem_base { function title() { return 'Only multianswer and random questions should be the parent of another question'; } function exists() { global $CFG; return record_exists_sql(" SELECT * FROM {$CFG->prefix}question q JOIN {$CFG->prefix}question parent_q ON parent_q.id = q.parent WHERE parent_q.qtype NOT IN ('random', 'multianswer')"); } function severity() { return SEVERITY_ANNOYANCE; } function description() { return 'You have questions that violate this in your databse. ' . 'You will need to investigate to determine how this happened.
'; } function solution() { return 'It is impossible to give a solution without knowing more about ' . ' how the problem was caused. You may be able to get help from the ' . 'Quiz forum.
'; } } class problem_000015 extends problem_base { function title() { return 'Question categories should belong to a valid context'; } function exists() { global $CFG; return record_exists_sql(" SELECT qc.*, (SELECT COUNT(1) FROM {$CFG->prefix}question q WHERE q.category = qc.id) AS numquestions FROM {$CFG->prefix}question_categories qc LEFT JOIN {$CFG->prefix}context con ON qc.contextid = con.id WHERE con.id IS NULL"); } function severity() { return SEVERITY_ANNOYANCE; } function description() { global $CFG; $problemcategories = get_records_sql(" SELECT qc.id, qc.name, qc.contextid, (SELECT COUNT(1) FROM {$CFG->prefix}question q WHERE q.category = qc.id) AS numquestions FROM {$CFG->prefix}question_categories qc LEFT JOIN {$CFG->prefix}context con ON qc.contextid = con.id WHERE con.id IS NULL ORDER BY numquestions DESC, qc.name"); $table = 'Cat id | Category name | ' . "Context id | Num Questions |
---|---|---|---|
$cat->id | " . s($cat->name) . " | " . $cat->contextid ." | $cat->numquestions |
All question categories are linked to a context id, and, ' . 'the context they are linked to must exist. The following categories ' . 'belong to a non-existant category:
' . $table . 'Any of these ' . 'categories that contain no questions can just be deleted form the database. ' . 'Other categories will require more thought.
'; } function solution() { global $CFG; return 'You can delete the empty categories by executing the following SQL:
DELETE FROM ' . $CFG->prefix . 'question_categories WHERE NOT EXISTS (SELECT * FROM ' . $CFG->prefix . 'question q WHERE q.category = ' . $CFG->prefix . 'question_categories.id) AND NOT EXISTS (SELECT * FROM ' . $CFG->prefix . 'context con WHERE contextid = con.id)
Any remaining categories that contain questions will require more thought. ' . 'People in the Quiz forum may be able to help.
'; } } class problem_000016 extends problem_base { function title() { return 'Question categories should belong to the same context as their parent'; } function exists() { global $CFG; return record_exists_sql(" SELECT parent_qc.id AS parent, child_qc.id AS child, child_qc.contextid FROM {$CFG->prefix}question_categories child_qc JOIN {$CFG->prefix}question_categories parent_qc ON child_qc.parent = parent_qc.id WHERE child_qc.contextid <> parent_qc.contextid"); } function severity() { return SEVERITY_ANNOYANCE; } function description() { global $CFG; $problemcategories = get_records_sql(" SELECT parent_qc.id AS parentid, parent_qc.name AS parentname, parent_qc.contextid AS parentcon, child_qc.id AS childid, child_qc.name AS childname, child_qc.contextid AS childcon FROM {$CFG->prefix}question_categories child_qc JOIN {$CFG->prefix}question_categories parent_qc ON child_qc.parent = parent_qc.id WHERE child_qc.contextid <> parent_qc.contextid"); $table = 'Child category | Parent category | ||||
---|---|---|---|---|---|
Id | Name | Context id | ' . 'Id | Name | Context id | ' . "
$cat->childid | " . s($cat->childname) . " | $cat->childcon | $cat->parentid | " . s($cat->parentname) . " | $cat->parentcon |
When one question category is the parent of another, then they ' . 'should both belong to the same context. This is not true for the following categories:
' . $table; } function solution() { return 'An automated solution is difficult. It depends whether the ' . 'parent or child category is in the wrong pace.' . 'People in the Quiz forum may be able to help.
'; } } class problem_000017 extends problem_base { function title() { return 'Question categories tree structure'; } function find_problems() { static $answer = null; if (is_null($answer)) { $categories = get_records('question_categories', '', '', 'id'); // Look for missing parents. $missingparent = array(); foreach ($categories as $category) { if ($category->parent != 0 && !array_key_exists($category->parent, $categories)) { $missingparent[$category->id] = $category; } } // Look for loops. $loops = array(); while (!empty($categories)) { $current = array_pop($categories); $thisloop = array($current->id => $current); while (true) { if (isset($thisloop[$current->parent])) { // Loop detected $loops[$current->id] = $thisloop; break; } else if (!isset($categories[$current->parent])) { // Got to the top level, or a category we already know is OK. break; } else { // Continue following the path. $current = $categories[$current->parent]; $thisloop[$current->id] = $current; unset($categories[$current->id]); } } } $answer = array($missingparent, $loops); } return $answer; } function exists() { list($missingparent, $loops) = $this->find_problems(); return !empty($missingparent) || !empty($loops); } function severity() { return SEVERITY_ANNOYANCE; } function description() { list($missingparent, $loops) = $this->find_problems(); $description = 'The question categories should be arranged into tree ' . ' structures by the question_categories.parent field. Sometimes ' . ' this tree structure gets messed up.
'; if (!empty($missingparent)) { $description .= 'The following categories are missing their parents:
The following categories form a loop of parents:
Consider executing the following SQL queries. These fix ' . 'the problem by moving some categories to the top level.
'; if (!empty($missingparent)) { $solution .= "UPDATE " . $CFG->prefix . "question_categories\n" . " SET parent = 0\n" . " WHERE id IN (" . implode(',', array_keys($missingparent)) . ");\n"; } if (!empty($loops)) { $solution .= "
UPDATE " . $CFG->prefix . "question_categories\n" . " SET parent = 0\n" . " WHERE id IN (" . implode(',', array_keys($loops)) . ");\n"; } return $solution; } } class problem_00000x extends problem_base { function title() { return ''; } function exists() { return false; } function severity() { return SEVERITY_SIGNIFICANT; } function description() { return ''; } function solution() { global $CFG; return ''; } } /* TODO: session.save_path -- it doesn't really matter because we are already IN a session, right? detect unsupported characters in $CFG->wwwroot - see bug Bug #6091 - relative vs absolute path during backup/restore process */ ?>