lib/installlib.php

   1 <?php
   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
  18 /**
  19  * Functions to support installation process
  20  *
  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
  25  */
  26
  27 defined('MOODLE_INTERNAL') || die();
  28
  29 /** INSTALL_WELCOME = 0 */
  30 define('INSTALL_WELCOME',       0);
  31 /** INSTALL_ENVIRONMENT = 1 */
  32 define('INSTALL_ENVIRONMENT',   1);
  33 /** INSTALL_PATHS = 2 */
  34 define('INSTALL_PATHS',         2);
  35 /** INSTALL_DOWNLOADLANG = 3 */
  36 define('INSTALL_DOWNLOADLANG',  3);
  37 /** INSTALL_DATABASETYPE = 4 */
  38 define('INSTALL_DATABASETYPE',  4);
  39 /** INSTALL_DATABASE = 5 */
  40 define('INSTALL_DATABASE',      5);
  41 /** INSTALL_SAVE = 6 */
  42 define('INSTALL_SAVE',          6);
  43
  44 /**
  45  * Tries to detect the right www root setting.
  46  * @return string detected www root
  47  */
  48 function install_guess_wwwroot() {
  49     $wwwroot = '';
  50     if (empty($_SERVER['HTTPS']) or $_SERVER['HTTPS'] == 'off') {
  51         $wwwroot .= 'http://';
  52     } else {
  53         $wwwroot .= 'https://';
  54     }
  55     $hostport = explode(':', $_SERVER['HTTP_HOST']);
  56     $wwwroot .= reset($hostport);
  57     if ($_SERVER['SERVER_PORT'] != 80 and $_SERVER['SERVER_PORT'] != '443') {
  58         $wwwroot .= ':'.$_SERVER['SERVER_PORT'];
  59     }
  60     $wwwroot .= $_SERVER['SCRIPT_NAME'];
  61
  62     list($wwwroot, $xtra) = explode('/install.php', $wwwroot);
  63
  64     return $wwwroot;
  65 }
  66
  67 /**
  68  * Copy of @see{ini_get_bool()}
  69  * @param string $ini_get_arg
  70  * @return bool
  71  */
  72 function install_ini_get_bool($ini_get_arg) {
  73     $temp = ini_get($ini_get_arg);
  74
  75     if ($temp == '1' or strtolower($temp) == 'on') {
  76         return true;
  77     }
  78     return false;
  79 }
  80
  81 /**
  82  * Creates dataroot if not exists yet,
  83  * makes sure it is writable, add lang directory
  84  * and add .htaccess just in case it works.
  85  *
  86  * @param string $dataroot full path to dataroot
  87  * @param int $dirpermissions
  88  * @return bool success
  89  */
  90 function install_init_dataroot($dataroot, $dirpermissions) {
  91     if (file_exists($dataroot) and !is_dir($dataroot)) {
  92         // file with the same name exists
  93         return false;
  94     }
  95
  96     umask(0000);
  97     if (!file_exists($dataroot)) {
  98         if (!mkdir($dataroot, $dirpermissions, true)) {
  99             // most probably this does not work, but anyway
 100             return false;
 101         }
 102     }
 103     @chmod($dataroot, $dirpermissions);
 104
 105     if (!is_writable($dataroot)) {
 106         return false; // we can not continue
 107     }
 108
 109     // now create the lang folder - we need it and it makes sure we can really write in dataroot
 110     if (!is_dir("$dataroot/lang")) {
 111         if (!mkdir("$dataroot/lang", $dirpermissions, true)) {
 112             return false;
 113         }
 114     }
 115     if (!is_writable("$dataroot/lang")) {
 116         return false; // we can not continue
 117     }
 118
 119     // finally just in case some broken .htaccess that prevents access just in case it is allowed
 120     if (!file_exists("$dataroot/.htaccess")) {
 121         if ($handle = fopen("$dataroot/.htaccess", 'w')) {
 122             fwrite($handle, "deny from all\r\nAllowOverride None\r\nNote: this file is broken intentionally, we do not want anybody to undo it in subdirectory!\r\n");
 123             fclose($handle);
 124         } else {
 125             return false;
 126         }
 127     }
 128
 129     return true;
 130 }
 131
 132 /**
 133  * Print help button
 134  * @param string $url
 135  * @param string $titel
 136  * @return void
 137  */
 138 function install_helpbutton($url, $title='') {
 139     if ($title == '') {
 140         $title = get_string('help');
 141     }
 142     echo "<a href=\"javascript:void(0)\" ";
 143     echo "onclick=\"return window.open('$url','Help','menubar=0,location=0,scrollbars,resizable,width=500,height=400')\"";
 144     echo ">";
 145     echo "<img src=\"pix/help.gif\" class=\"iconhelp\" alt=\"$title\" title=\"$title\"/>";
 146     echo "</a>\n";
 147 }
 148
 149 /**
 150  * This is in function because we want the /install.php to parse in PHP4
 151  *
 152  * @param object $database
 153  * @param string $dbhsot
 154  * @param string $dbuser
 155  * @param string $dbpass
 156  * @param string $dbname
 157  * @param string $prefix
 158  * @param mixed $dboptions
 159  * @return string
 160  */
 161 function install_db_validate($database, $dbhost, $dbuser, $dbpass, $dbname, $prefix, $dboptions) {
 162     try {
 163         try {
 164             $database->connect($dbhost, $dbuser, $dbpass, $dbname, $prefix, $dboptions);
 165         } catch (moodle_exception $e) {
 166             // let's try to create new database
 167             if ($database->create_database($dbhost, $dbuser, $dbpass, $dbname, $dboptions)) {
 168                 $database->connect($dbhost, $dbuser, $dbpass, $dbname, $prefix, $dboptions);
 169             } else {
 170                 throw $e;
 171             }
 172         }
 173         return '';
 174     } catch (dml_exception $ex) {
 175         return get_string($ex->errorcode, $ex->module, $ex->a).'<br />'.$ex->debuginfo;
 176     }
 177 }
 178
 179 /**
 180  * Returns content of config.php file.
 181  *
 182  * Uses PHP_EOL for generating proper end of lines for the given platform.
 183  *
 184  * @param moodle_database $database database instance
 185  * @param object $cfg copy of $CFG
 186  * @return string
 187  */
 188 function install_generate_configphp($database, $cfg) {
 189     $configphp = '<?php  // Moodle configuration file' . PHP_EOL . PHP_EOL;
 190
 191     $configphp .= 'unset($CFG);' . PHP_EOL;
 192     $configphp .= 'global $CFG;' . PHP_EOL;
 193     $configphp .= '$CFG = new stdClass();' . PHP_EOL . PHP_EOL; // prevent PHP5 strict warnings
 194
 195     $dbconfig = $database->export_dbconfig();
 196
 197     foreach ($dbconfig as $key=>$value) {
 198         $key = str_pad($key, 9);
 199         $configphp .= '$CFG->'.$key.' = '.var_export($value, true) . ';' . PHP_EOL;
 200     }
 201     $configphp .= PHP_EOL;
 202
 203     $configphp .= '$CFG->wwwroot   = '.var_export($cfg->wwwroot, true) . ';' . PHP_EOL ;
 204
 205     $configphp .= '$CFG->dataroot  = '.var_export($cfg->dataroot, true) . ';' . PHP_EOL;
 206
 207     $configphp .= '$CFG->admin     = '.var_export($cfg->admin, true) . ';' . PHP_EOL . PHP_EOL;
 208
 209     if (empty($cfg->directorypermissions)) {
 210         $chmod = '02777';
 211     } else {
 212         $chmod = '0' . decoct($cfg->directorypermissions);
 213     }
 214     $configphp .= '$CFG->directorypermissions = ' . $chmod . ';' . PHP_EOL . PHP_EOL;
 215
 216     $configphp .= '$CFG->passwordsaltmain = '.var_export(complex_random_string(), true) . ';' . PHP_EOL . PHP_EOL;
 217
 218     $configphp .= 'require_once(dirname(__FILE__) . \'/lib/setup.php\');' . PHP_EOL . PHP_EOL;
 219     $configphp .= '// There is no php closing tag in this file,' . PHP_EOL;
 220     $configphp .= '// it is intentional because it prevents trailing whitespace problems!' . PHP_EOL;
 221
 222     return $configphp;
 223 }
 224
 225 /**
 226  * Prints complete help page used during installation.
 227  * Does not return.
 228  *
 229  * @global object
 230  * @param string $help
 231  */
 232 function install_print_help_page($help) {
 233     global $CFG, $OUTPUT; //TODO: MUST NOT USE $OUTPUT HERE!!!
 234
 235     @header('Content-Type: text/html; charset=UTF-8');
 236     @header('Cache-Control: no-store, no-cache, must-revalidate');
 237     @header('Cache-Control: post-check=0, pre-check=0', false);
 238     @header('Pragma: no-cache');
 239     @header('Expires: Mon, 20 Aug 1969 09:23:00 GMT');
 240     @header('Last-Modified: ' . gmdate('D, d M Y H:i:s') . ' GMT');
 241
 242     echo '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">';
 243     echo '<html dir="'.(right_to_left() ? 'rtl' : 'ltr').'">
 244           <head>
 245           <link rel="shortcut icon" href="theme/standard/pix/favicon.ico" />
 246           <link rel="stylesheet" type="text/css" href="'.$CFG->wwwroot.'/install.php?css=1" />
 247           <title>'.get_string('installation','install').'</title>
 248           <meta http-equiv="content-type" content="text/html; charset=UTF-8" />
 249           <meta http-equiv="pragma" content="no-cache" />
 250           <meta http-equiv="expires" content="0" />';
 251
 252     echo '</head><body>';
 253     switch ($help) {
 254         case 'phpversionhelp':
 255             print_string($help, 'install', phpversion());
 256             break;
 257         case 'memorylimithelp':
 258             print_string($help, 'install', @ini_get('memory_limit'));
 259             break;
 260         default:
 261             print_string($help, 'install');
 262     }
 263     echo $OUTPUT->close_window_button(); //TODO: MUST NOT USE $OUTPUT HERE!!!
 264     echo '</body></html>';
 265     die;
 266 }
 267
 268 /**
 269  * Prints installation page header, we can no use weblib yet in installer.
 270  *
 271  * @global object
 272  * @param array $config
 273  * @param string $stagename
 274  * @param string $heading
 275  * @param string $stagetext
 276  * @return void
 277  */
 278 function install_print_header($config, $stagename, $heading, $stagetext) {
 279     global $CFG;
 280
 281     @header('Content-Type: text/html; charset=UTF-8');
 282     @header('Cache-Control: no-store, no-cache, must-revalidate');
 283     @header('Cache-Control: post-check=0, pre-check=0', false);
 284     @header('Pragma: no-cache');
 285     @header('Expires: Mon, 20 Aug 1969 09:23:00 GMT');
 286     @header('Last-Modified: ' . gmdate('D, d M Y H:i:s') . ' GMT');
 287
 288     echo '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">';
 289     echo '<html dir="'.(right_to_left() ? 'rtl' : 'ltr').'">
 290           <head>
 291           <link rel="shortcut icon" href="theme/standard/pix/favicon.ico" />';
 292
 293     $sheets = array('pagelayout','core');
 294     $csss = array();
 295     foreach ($sheets as $sheet) {
 296         $csss[] = $CFG->wwwroot.'/theme/base/style/'.$sheet.'.css';
 297     }
 298     $sheets = array('core', 'css3');
 299     foreach ($sheets as $sheet) {
 300         $csss[] = $CFG->wwwroot.'/theme/standard/style/'.$sheet.'.css';
 301     }
 302     foreach ($csss as $css) {
 303         echo '<link rel="stylesheet" type="text/css" href="'.$css.'" />'."\n";
 304     }
 305
 306     echo '<link rel="stylesheet" type="text/css" href="'.$CFG->wwwroot.'/install.php?css=1" />
 307           <title>'.get_string('installation','install').' - Moodle '.$CFG->target_release.'</title>
 308           <meta http-equiv="content-type" content="text/html; charset=UTF-8" />
 309           <meta http-equiv="pragma" content="no-cache" />
 310           <meta http-equiv="expires" content="0" />';
 311
 312     echo '</head><body class="notloggedin">
 313             <div id="page" class="stage'.$config->stage.'">
 314                 <div id="page-header">
 315                     <div id="header" class=" clearfix">
 316                         <h1 class="headermain">'.get_string('installation','install').'</h1>
 317                         <div class="headermenu">&nbsp;</div>
 318                     </div>
 319                     <div class="navbar clearfix">
 320                         <div class="breadcrumb">
 321                             <ul><li class="first">'.$stagename.'</li></ul>
 322                         </div>
 323                         <div class="navbutton">&nbsp;</div>
 324                     </div>
 325                 </div>
 326           <!-- END OF HEADER -->
 327           <div id="installdiv">';
 328
 329     echo '<h2>'.$heading.'</h2>';
 330
 331     if ($stagetext !== '') {
 332         echo '<div class="stage generalbox box">';
 333         echo $stagetext;
 334         echo '</div>';
 335     }
 336     // main
 337     echo '<form id="installform" method="post" action="install.php"><fieldset>';
 338     foreach ($config as $name=>$value) {
 339         echo '<input type="hidden" name="'.$name.'" value="'.s($value).'" />';
 340     }
 341 }
 342
 343 /**
 344  * Prints installation page header, we can no use weblib yet in isntaller.
 345  *
 346  * @global object
 347  * @param array $config
 348  * @param bool $reload print reload button instead of next
 349  * @return void
 350  */
 351 function install_print_footer($config, $reload=false) {
 352     global $CFG;
 353
 354     if ($config->stage > INSTALL_WELCOME) {
 355         $first = '<input type="submit" id="previousbutton" name="previous" value="&laquo; '.s(get_string('previous')).'" />';
 356     } else {
 357         $first = '<input type="submit" id="previousbutton" name="next" value="'.s(get_string('reload')).'" />';
 358         $first .= '<script type="text/javascript">
 359 //<![CDATA[
 360     var first = document.getElementById("previousbutton");
 361     first.style.visibility = "hidden";
 362 //]]>
 363 </script>
 364 ';
 365     }
 366
 367     if ($reload) {
 368         $next = '<input type="submit" id="nextbutton" name="next" value="'.s(get_string('reload')).'" />';
 369     } else {
 370         $next = '<input type="submit" id="nextbutton" name="next" value="'.s(get_string('next')).' &raquo;" />';
 371     }
 372
 373     echo '</fieldset><fieldset id="nav_buttons">'.$first.$next.'</fieldset>';
 374
 375     $homelink  = '<div class="sitelink">'.
 376        '<a title="Moodle '. $CFG->target_release .'" href="http://docs.moodle.org/en/Administrator_documentation" onclick="this.target=\'_blank\'">'.
 377        '<img style="width:100px;height:30px" src="pix/moodlelogo.gif" alt="moodlelogo" /></a></div>';
 378
 379     echo '</form></div>';
 380     echo '<div id="footer"><hr />'.$homelink.'</div>';
 381     echo '</div></body></html>';
 382 }
 383
 384
 385 /**
 386  * Prints css needed on installation page, tries to look like the rest of installation.
 387  * Does not return.
 388  *
 389  * @global object
 390  */
 391 function install_css_styles() {
 392     global $CFG;
 393
 394     @header('Content-type: text/css');  // Correct MIME type
 395     @header('Cache-Control: no-store, no-cache, must-revalidate');
 396     @header('Cache-Control: post-check=0, pre-check=0', false);
 397     @header('Pragma: no-cache');
 398     @header('Expires: Mon, 20 Aug 1969 09:23:00 GMT');
 399     @header('Last-Modified: ' . gmdate('D, d M Y H:i:s') . ' GMT');
 400
 401 //TODO: add rtl support here, make it match new default theme MDL-21149
 402
 403     echo '
 404
 405 h2 {
 406   text-align:center;
 407 }
 408
 409 #installdiv {
 410   width: 800px;
 411   margin-left:auto;
 412   margin-right:auto;
 413 }
 414
 415 #installdiv dt {
 416   font-weight: bold;
 417 }
 418
 419 #installdiv dd {
 420   padding-bottom: 0.5em;
 421 }
 422
 423 .stage {
 424   margin-top: 2em;
 425   margin-bottom: 2em;
 426   width: 100%;
 427   padding:25px;
 428 }
 429
 430 #installform {
 431   width: 100%;
 432 }
 433
 434 #nav_buttons input {
 435   margin: 5px;
 436 }
 437
 438 #envresult {
 439   text-align:left;
 440   width: auto;
 441   margin-left:10em;
 442 }
 443
 444 #envresult dd {
 445   color: red;
 446 }
 447
 448 .formrow {
 449   clear:both;
 450   text-align:left;
 451   padding: 8px;
 452 }
 453
 454 .formrow label.formlabel {
 455   display:block;
 456   float:left;
 457   width: 260px;
 458   margin-right:5px;
 459   text-align:right;
 460 }
 461
 462 .formrow .forminput {
 463   display:block;
 464   float:left;
 465 }
 466
 467 fieldset {
 468   text-align:center;
 469   border:none;
 470 }
 471
 472 .hint {
 473   display:block;
 474   clear:both;
 475   padding-left: 265px;
 476   color: red;
 477 }
 478
 479 .configphp {
 480   text-align:left;
 481   background-color:white;
 482   padding:1em;
 483   width:95%;
 484 }
 485
 486 .stage6 .stage {
 487   font-weight: bold;
 488   color: red;
 489 }
 490
 491 ';
 492
 493     die;
 494 }
 495
 496 /**
 497  * Install Moodle DB,
 498  * config.php must exist, there must not be any tables in db yet.
 499  *
 500  * @param array $options adminpass is mandatory
 501  * @param bool $interactive
 502  * @return void
 503  */
 504 function install_cli_database(array $options, $interactive) {
 505     global $CFG, $DB;
 506     require_once($CFG->libdir.'/environmentlib.php');
 507     require_once($CFG->libdir.'/upgradelib.php');
 508
 509     // show as much debug as possible
 510     @error_reporting(1023);
 511     @ini_set('display_errors', '1');
 512     $CFG->debug = 38911;
 513     $CFG->debugdisplay = true;
 514
 515     $CFG->version = '';
 516     $CFG->release = '';
 517     $version = null;
 518     $release = null;
 519
 520     // read $version and $release
 521     require($CFG->dirroot.'/version.php');
 522
 523     if ($DB->get_tables() ) {
 524         cli_error(get_string('clitablesexist', 'install'));
 525     }
 526
 527     if (empty($options['adminpass'])) {
 528         cli_error('Missing required admin password');
 529     }
 530
 531     // test environment first
 532     if (!check_moodle_environment($version, $environment_results, false, ENV_SELECT_RELEASE)) {
 533         $errors = environment_get_errors($environment_results);
 534         cli_heading(get_string('environment', 'admin'));
 535         foreach ($errors as $error) {
 536             list($info, $report) = $error;
 537             echo "!! $info !!\n$report\n\n";
 538         }
 539         exit(1);
 540     }
 541
 542     if (!$DB->setup_is_unicodedb()) {
 543         if (!$DB->change_db_encoding()) {
 544             // If could not convert successfully, throw error, and prevent installation
 545             cli_error(get_string('unicoderequired', 'admin'));
 546         }
 547     }
 548
 549     if ($interactive) {
 550         cli_separator();
 551         cli_heading(get_string('databasesetup'));
 552     }
 553
 554     // install core
 555     install_core($version, true);
 556     set_config('release', $release);
 557
 558     // install all plugins types, local, etc.
 559     upgrade_noncore(true);
 560
 561     // set up admin user password
 562     $DB->set_field('user', 'password', hash_internal_user_password($options['adminpass']), array('username' => 'admin'));
 563
 564     // rename admin username if needed
 565     if (isset($options['adminuser']) and $options['adminuser'] !== 'admin' and $options['adminuser'] !== 'guest') {
 566         $DB->set_field('user', 'username', $options['adminuser'], array('username' => 'admin'));
 567     }
 568
 569     // indicate that this site is fully configured
 570     set_config('rolesactive', 1);
 571     upgrade_finished();
 572
 573     // log in as admin - we need do anything when applying defaults
 574     $admins = get_admins();
 575     $admin = reset($admins);
 576     session_set_user($admin);
 577     message_set_default_message_preferences($admin);
 578
 579     // apply all default settings, do it twice to fill all defaults - some settings depend on other setting
 580     admin_apply_default_settings(NULL, true);
 581     admin_apply_default_settings(NULL, true);
 582     set_config('registerauth', '');
 583
 584     // set the site name
 585     if (isset($options['shortname']) and $options['shortname'] !== '') {
 586         $DB->set_field('course', 'shortname', $options['shortname'], array('format' => 'site'));
 587     }
 588     if (isset($options['fullname']) and $options['fullname'] !== '') {
 589         $DB->set_field('course', 'fullname', $options['fullname'], array('format' => 'site'));
 590     }
 591 }