| commit | author | age | ||
| 354978 | 1 | <?php |
| T | 2 | |
| 3 | /* | |
| 4 | +-----------------------------------------------------------------------+ | |
| 5 | | rcube_install.php | | |
| 6 | | | | |
| 7 | | This file is part of the RoundCube Webmail package | | |
| 8 | | Copyright (C) 2008, RoundCube Dev. - Switzerland | | |
| 9 | | Licensed under the GNU Public License | | |
| 10 | +-----------------------------------------------------------------------+ | |
| 11 | ||
| 12 | $Id: $ | |
| 13 | ||
| 14 | */ | |
| 15 | ||
| 16 | ||
| 17 | /** | |
| 18 | * Class to control the installation process of the RoundCube Webmail package | |
| 19 | * | |
| 20 | * @category Install | |
| 21 | * @package RoundCube | |
| 22 | * @author Thomas Bruederli | |
| 23 | */ | |
| 24 | class rcube_install | |
| 25 | { | |
| 26 | var $step; | |
| 237119 | 27 | var $is_post = false; |
| 354978 | 28 | var $failures = 0; |
| c5042d | 29 | var $config = array(); |
| b3f9df | 30 | var $configured = false; |
| c5042d | 31 | var $last_error = null; |
| ad43e6 | 32 | var $email_pattern = '([a-z0-9][a-z0-9\-\.\+\_]*@[a-z0-9]([a-z0-9\-][.]?)*[a-z0-9])'; |
| 27564f | 33 | var $config_props = array(); |
| 354978 | 34 | |
| T | 35 | /** |
| 36 | * Constructor | |
| 37 | */ | |
| 38 | function rcube_install() | |
| 39 | { | |
| 40 | $this->step = intval($_REQUEST['_step']); | |
| 237119 | 41 | $this->is_post = $_SERVER['REQUEST_METHOD'] == 'POST'; |
| 354978 | 42 | } |
| T | 43 | |
| c5042d | 44 | /** |
| T | 45 | * Singleton getter |
| 46 | */ | |
| 47 | function get_instance() | |
| 48 | { | |
| 49 | static $inst; | |
| 50 | ||
| 51 | if (!$inst) | |
| 52 | $inst = new rcube_install(); | |
| 53 | ||
| 54 | return $inst; | |
| 55 | } | |
| 354978 | 56 | |
| T | 57 | /** |
| c5042d | 58 | * Read the default config files and store properties |
| 354978 | 59 | */ |
| 190e97 | 60 | function load_defaults() |
| 354978 | 61 | { |
| c5042d | 62 | $this->_load_config('.php.dist'); |
| T | 63 | } |
| 64 | ||
| 65 | ||
| 66 | /** | |
| 67 | * Read the local config files and store properties | |
| 68 | */ | |
| 69 | function load_config() | |
| 70 | { | |
| b3f9df | 71 | $this->config = array(); |
| c5042d | 72 | $this->_load_config('.php'); |
| b3f9df | 73 | $this->configured = !empty($this->config); |
| c5042d | 74 | } |
| T | 75 | |
| 76 | /** | |
| 77 | * Read the default config file and store properties | |
| 78 | * @access private | |
| 79 | */ | |
| 80 | function _load_config($suffix) | |
| 81 | { | |
| 1c4e5d | 82 | @include '../config/main.inc' . $suffix; |
| 354978 | 83 | if (is_array($rcmail_config)) { |
| 190e97 | 84 | $this->config += $rcmail_config; |
| 354978 | 85 | } |
| T | 86 | |
| c5042d | 87 | @include '../config/db.inc'. $suffix; |
| 354978 | 88 | if (is_array($rcmail_config)) { |
| c5042d | 89 | $this->config += $rcmail_config; |
| 354978 | 90 | } |
| T | 91 | } |
| 92 | ||
| 93 | ||
| 94 | /** | |
| 95 | * Getter for a certain config property | |
| 96 | * | |
| 97 | * @param string Property name | |
| ad43e6 | 98 | * @param string Default value |
| 354978 | 99 | * @return string The property value |
| T | 100 | */ |
| fa7539 | 101 | function getprop($name, $default = '') |
| 354978 | 102 | { |
| 237119 | 103 | $value = $this->is_post && (isset($_POST["_$name"]) || $this->config_props[$name]) ? $_POST["_$name"] : $this->config[$name]; |
| 354978 | 104 | |
| ccb412 | 105 | if ($name == 'des_key' && !$this->configured && !isset($_REQUEST["_$name"])) |
| 807d17 | 106 | $value = rcube_install::random_key(24); |
| 354978 | 107 | |
| fa7539 | 108 | return $value !== null && $value !== '' ? $value : $default; |
| 354978 | 109 | } |
| T | 110 | |
| 111 | ||
| 112 | /** | |
| 113 | * Take the default config file and replace the parameters | |
| 114 | * with the submitted form data | |
| 115 | * | |
| 116 | * @param string Which config file (either 'main' or 'db') | |
| 117 | * @return string The complete config file content | |
| 118 | */ | |
| 119 | function create_config($which) | |
| 120 | { | |
| 121 | $out = file_get_contents("../config/{$which}.inc.php.dist"); | |
| 122 | ||
| 123 | if (!$out) | |
| 124 | return '[Warning: could not read the template file]'; | |
| 125 | ||
| c5042d | 126 | foreach ($this->config as $prop => $default) { |
| 27564f | 127 | $value = (isset($_POST["_$prop"]) || $this->config_props[$prop]) ? $_POST["_$prop"] : $default; |
| 354978 | 128 | |
| T | 129 | // convert some form data |
| 130 | if ($prop == 'debug_level' && is_array($value)) { | |
| 131 | $val = 0; | |
| 132 | foreach ($value as $i => $dbgval) | |
| 133 | $val += intval($dbgval); | |
| 134 | $value = $val; | |
| 135 | } | |
| c5042d | 136 | else if ($prop == 'db_dsnw' && !empty($_POST['_dbtype'])) { |
| 237119 | 137 | if ($_POST['_dbtype'] == 'sqlite') |
| T | 138 | $value = sprintf('%s://%s?mode=0646', $_POST['_dbtype'], $_POST['_dbname']{0} == '/' ? '/' . $_POST['_dbname'] : $_POST['_dbname']); |
| 139 | else | |
| b61965 | 140 | $value = sprintf('%s://%s:%s@%s/%s', $_POST['_dbtype'], |
| A | 141 | rawurlencode($_POST['_dbuser']), rawurlencode($_POST['_dbpass']), |
| 142 | $_POST['_dbhost'], $_POST['_dbname']); | |
| c5042d | 143 | } |
| T | 144 | else if ($prop == 'smtp_auth_type' && $value == '0') { |
| 145 | $value = ''; | |
| 146 | } | |
| 147 | else if ($prop == 'default_host' && is_array($value)) { | |
| 807d17 | 148 | $value = rcube_install::_clean_array($value); |
| c5042d | 149 | if (count($value) <= 1) |
| T | 150 | $value = $value[0]; |
| 151 | } | |
| ccb412 | 152 | else if ($prop == 'pagesize') { |
| T | 153 | $value = max(2, intval($value)); |
| 154 | } | |
| c5042d | 155 | else if ($prop == 'smtp_user' && !empty($_POST['_smtp_user_u'])) { |
| T | 156 | $value = '%u'; |
| 157 | } | |
| 158 | else if ($prop == 'smtp_pass' && !empty($_POST['_smtp_user_u'])) { | |
| 159 | $value = '%p'; | |
| 160 | } | |
| 161 | else if (is_bool($default)) { | |
| 27564f | 162 | $value = (bool)$value; |
| T | 163 | } |
| 164 | else if (is_numeric($value)) { | |
| 165 | $value = intval($value); | |
| c5042d | 166 | } |
| T | 167 | |
| 168 | // skip this property | |
| 169 | if ($value == $default) | |
| 170 | continue; | |
| 354978 | 171 | |
| T | 172 | // replace the matching line in config file |
| 173 | $out = preg_replace( | |
| 174 | '/(\$rcmail_config\[\''.preg_quote($prop).'\'\])\s+=\s+(.+);/Uie', | |
| 175 | "'\\1 = ' . var_export(\$value, true) . ';'", | |
| 176 | $out); | |
| 177 | } | |
| 178 | ||
| 967b34 | 179 | return trim($out); |
| c5042d | 180 | } |
| T | 181 | |
| 182 | ||
| 183 | /** | |
| 184 | * Getter for the last error message | |
| 185 | * | |
| 186 | * @return string Error message or null if none exists | |
| 187 | */ | |
| 188 | function get_error() | |
| 189 | { | |
| 190 | return $this->last_error['message']; | |
| 354978 | 191 | } |
| T | 192 | |
| 193 | ||
| 194 | /** | |
| 112c54 | 195 | * Return a list with all imap hosts configured |
| T | 196 | * |
| 197 | * @return array Clean list with imap hosts | |
| 198 | */ | |
| 199 | function get_hostlist() | |
| 200 | { | |
| 201 | $default_hosts = (array)$this->getprop('default_host'); | |
| 202 | $out = array(); | |
| 203 | ||
| 204 | foreach ($default_hosts as $key => $name) { | |
| 205 | if (!empty($name)) | |
| 206 | $out[] = is_numeric($key) ? $name : $key; | |
| 207 | } | |
| 208 | ||
| 209 | return $out; | |
| 210 | } | |
| 211 | ||
| 212 | ||
| 213 | /** | |
| 354978 | 214 | * Display OK status |
| T | 215 | * |
| 216 | * @param string Test name | |
| 217 | * @param string Confirm message | |
| 218 | */ | |
| 219 | function pass($name, $message = '') | |
| 220 | { | |
| 221 | echo Q($name) . ': <span class="success">OK</span>'; | |
| 6557d3 | 222 | $this->_showhint($message); |
| 354978 | 223 | } |
| T | 224 | |
| 225 | ||
| 226 | /** | |
| 227 | * Display an error status and increase failure count | |
| 228 | * | |
| 229 | * @param string Test name | |
| 230 | * @param string Error message | |
| 231 | * @param string URL for details | |
| 232 | */ | |
| 233 | function fail($name, $message = '', $url = '') | |
| 234 | { | |
| 235 | $this->failures++; | |
| 236 | ||
| 237 | echo Q($name) . ': <span class="fail">NOT OK</span>'; | |
| 6557d3 | 238 | $this->_showhint($message, $url); |
| 354978 | 239 | } |
| T | 240 | |
| 241 | ||
| 242 | /** | |
| 243 | * Display warning status | |
| 244 | * | |
| 245 | * @param string Test name | |
| 246 | * @param string Warning message | |
| 247 | * @param string URL for details | |
| 248 | */ | |
| 6557d3 | 249 | function na($name, $message = '', $url = '') |
| 354978 | 250 | { |
| 6557d3 | 251 | echo Q($name) . ': <span class="na">NOT AVAILABLE</span>'; |
| T | 252 | $this->_showhint($message, $url); |
| 253 | } | |
| 254 | ||
| 255 | ||
| 256 | function _showhint($message, $url = '') | |
| 257 | { | |
| 258 | $hint = Q($message); | |
| 259 | ||
| 354978 | 260 | if ($url) |
| 6557d3 | 261 | $hint .= ($hint ? '; ' : '') . 'See <a href="' . Q($url) . '" target="_blank">' . Q($url) . '</a>'; |
| T | 262 | |
| 263 | if ($hint) | |
| 264 | echo '<span class="indent">(' . $hint . ')</span>'; | |
| 354978 | 265 | } |
| T | 266 | |
| 267 | ||
| c5042d | 268 | function _clean_array($arr) |
| T | 269 | { |
| 270 | $out = array(); | |
| 271 | ||
| 272 | foreach (array_unique($arr) as $i => $val) | |
| 273 | if (!empty($val)) | |
| 274 | $out[] = $val; | |
| 275 | ||
| 276 | return $out; | |
| 277 | } | |
| 278 | ||
| 190e97 | 279 | |
| T | 280 | /** |
| 281 | * Initialize the database with the according schema | |
| 282 | * | |
| 283 | * @param object rcube_db Database connection | |
| 284 | * @return boolen True on success, False on error | |
| 285 | */ | |
| 286 | function init_db($DB) | |
| 287 | { | |
| 288 | $db_map = array('pgsql' => 'postgres', 'mysqli' => 'mysql'); | |
| 289 | $engine = isset($db_map[$DB->db_provider]) ? $db_map[$DB->db_provider] : $DB->db_provider; | |
| 290 | ||
| 291 | // find out db version | |
| 292 | if ($engine == 'mysql') { | |
| 293 | $DB->query('SELECT VERSION() AS version'); | |
| 294 | $sql_arr = $DB->fetch_assoc(); | |
| 295 | $version = floatval($sql_arr['version']); | |
| 296 | ||
| 297 | if ($version >= 4.1) | |
| 298 | $engine = 'mysql5'; | |
| 299 | } | |
| 300 | ||
| 301 | // read schema file from /SQL/* | |
| 302 | $fname = "../SQL/$engine.initial.sql"; | |
| 303 | if ($lines = @file($fname, FILE_SKIP_EMPTY_LINES)) { | |
| 304 | $buff = ''; | |
| 305 | foreach ($lines as $i => $line) { | |
| 306 | if (eregi('^--', $line)) | |
| 307 | continue; | |
| 308 | ||
| 309 | $buff .= $line . "\n"; | |
| 310 | if (eregi(';$', trim($line))) { | |
| 311 | $DB->query($buff); | |
| 312 | $buff = ''; | |
| c0dc90 | 313 | if ($this->get_error()) |
| T | 314 | break; |
| 190e97 | 315 | } |
| T | 316 | } |
| 317 | } | |
| 318 | else { | |
| 319 | $this->fail('DB Schema', "Cannot read the schema file: $fname"); | |
| 320 | return false; | |
| 321 | } | |
| 322 | ||
| 323 | if ($err = $this->get_error()) { | |
| 324 | $this->fail('DB Schema', "Error creating database schema: $err"); | |
| 325 | return false; | |
| 326 | } | |
| 327 | ||
| 328 | return true; | |
| 329 | } | |
| 330 | ||
| c5042d | 331 | /** |
| T | 332 | * Handler for RoundCube errors |
| 333 | */ | |
| 334 | function raise_error($p) | |
| 335 | { | |
| 336 | $this->last_error = $p; | |
| 337 | } | |
| 338 | ||
| 339 | ||
| 354978 | 340 | /** |
| T | 341 | * Generarte a ramdom string to be used as encryption key |
| 342 | * | |
| 343 | * @param int Key length | |
| 344 | * @return string The generated random string | |
| 345 | * @static | |
| 346 | */ | |
| 347 | function random_key($length) | |
| 348 | { | |
| 349 | $alpha = 'ABCDEFGHIJKLMNOPQERSTUVXYZabcdefghijklmnopqrtsuvwxyz0123456789+*%&?!$-_='; | |
| 350 | $out = ''; | |
| 351 | ||
| 352 | for ($i=0; $i < $length; $i++) | |
| 353 | $out .= $alpha{rand(0, strlen($alpha)-1)}; | |
| 354 | ||
| 355 | return $out; | |
| 356 | } | |
| 357 | ||
| 358 | } | |
| 359 | ||
| 360 | ||
| 361 | /** | |
| 362 | * Shortcut function for htmlentities() | |
| 363 | * | |
| 364 | * @param string String to quote | |
| 365 | * @return string The html-encoded string | |
| 366 | */ | |
| 367 | function Q($string) | |
| 368 | { | |
| 369 | return htmlentities($string); | |
| 370 | } | |
| 371 | ||
| c5042d | 372 | |
| T | 373 | /** |
| 374 | * Fake rinternal error handler to catch errors | |
| 375 | */ | |
| 376 | function raise_error($p) | |
| 377 | { | |
| 378 | $rci = rcube_install::get_instance(); | |
| 379 | $rci->raise_error($p); | |
| 380 | } | |
| 381 | ||
