Do *NOT* force all wikis into a non-functional initial state with a broken whitelist...
[mediawiki.git] / config / index.php
blob69e1d2ef6b09798b1313e0127b19c319c0468274
1 <?php
2 # MediaWiki web-based config/installation
3 # Copyright (C) 2004 Brion Vibber <brion@pobox.com>
4 # http://www.mediawiki.org/
6 # This program is free software; you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 2 of the License, or
9 # (at your option) any later version.
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with this program; if not, write to the Free Software Foundation, Inc.,
18 # 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
19 # http://www.gnu.org/copyleft/gpl.html
21 error_reporting( E_ALL );
22 header( "Content-type: text/html; charset=utf-8" );
23 @ini_set( "display_errors", true );
25 ?><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
26 "http://www.w3.org/TR/html4/loose.dtd">
27 <html>
28 <head>
29 <meta http-equiv="Content-type" content="text/html; charset=utf-8">
30 <meta name="robots" content="noindex,nofollow">
31 <title>MediaWiki installation</title>
32 <style type="text/css">
33 #credit {
34 float: right;
35 width: 200px;
36 font-size: 0.7em;
37 background-color: #eee;
38 color: black;
39 border: solid 1px #444;
40 padding: 8px;
41 margin-left: 8px;
44 dl.setup dd {
45 margin-left: 0;
47 dl.setup dd label.column {
48 clear: left;
49 font-weight: bold;
50 width: 12em;
51 float: left;
52 text-align: right;
53 padding-right: 1em;
55 dl.setup dt {
56 clear: left;
57 font-size: 0.8em;
58 margin-left: 10em;
59 /* margin-right: 200px; */
60 margin-bottom: 2em;
62 .error {
63 color: red;
65 ul.plain {
66 list-style: none;
67 clear: both;
68 margin-left: 12em;
70 </style>
71 </head>
73 <body>
75 <div id="credit">
76 <center>
77 <a href="http://www.mediawiki.org/"><img
78 src="../skins/common/images/wiki.png" width="135" height="135" alt="" border="0" /></a>
79 </center>
81 <b><a href="http://www.mediawiki.org/">MediaWiki</a></b> is
82 Copyright (C) 2001-2004 by Magnus Manske, Brion Vibber, Lee Daniel Crocker,
83 Tim Starling, Erik M&ouml;ller, Gabriel Wicke, Thomas Gries and others.</p>
85 <ul>
86 <li><a href="../README">Readme</a></li>
87 <li><a href="../RELEASE-NOTES">Release notes</a></li>
88 <li><a href="../docs/">doc/</a></li>
89 <li><a href="http://meta.wikipedia.org/wiki/MediaWiki_User's_Guide">User's Guide</a></li>
90 </ul>
92 <p>This program is free software; you can redistribute it and/or modify
93 it under the terms of the GNU General Public License as published by
94 the Free Software Foundation; either version 2 of the License, or
95 (at your option) any later version.</p>
97 <p>This program is distributed in the hope that it will be useful,
98 but WITHOUT ANY WARRANTY; without even the implied warranty of
99 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
100 GNU General Public License for more details.</p>
102 <p>You should have received <a href="../COPYING">a copy of the GNU General Public License</a>
103 along with this program; if not, write to the Free Software
104 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
105 or <a href="http://www.gnu.org/copyleft/gpl.html">read it online</a></p>
106 </div>
108 <?php
110 $IP = ".."; # Just to suppress notices, not for anything useful
111 define( "MEDIAWIKI", true );
112 define( "MEDIAWIKI_INSTALL", true );
113 require_once( "../includes/Defines.php" );
114 require_once( "../includes/DefaultSettings.php" );
115 require_once( "../includes/MagicWord.php" );
116 require_once( "../includes/Namespace.php" );
119 <h1>MediaWiki <?php print $wgVersion ?> installation</h1>
122 <?php
124 /* Check for existing configurations and bug out! */
126 if( file_exists( "../LocalSettings.php" ) || file_exists( "../AdminSettings.php" ) ) {
127 dieout( "<h2>Wiki is configured.</h2>
129 <p>Already configured... <a href='../index.php'>return to the wiki</a>.</p>
131 <p>(You should probably remove this directory for added security.)</p>" );
134 if( file_exists( "./LocalSettings.php" ) || file_exists( "./AdminSettings.php" ) ) {
135 dieout( "<h2>You're configured!</h2>
137 <p>Please move <tt>LocalSettings.php</tt> to the parent directory, then
138 <a href='../index.php'>try out your wiki</a>.
139 (You should remove this config directory for added security once you're done.)</p>" );
142 if( !is_writable( "." ) ) {
143 dieout( "<h2>Can't write config file, aborting</h2>
145 <p>In order to configure the wiki you have to make the <tt>config</tt> subdirectory
146 writable by the web server. Once configuration is done you'll move the created
147 <tt>LocalSettings.php</tt> to the parent directory, and for added safety you can
148 then remove the <tt>config</tt> subdirectory entirely.</p>
150 <p>To make the directory writable on a Unix/Linux system:</p>
152 <pre>
153 cd <i>/path/to/wiki</i>
154 chmod a+w config
155 </pre>" );
159 require_once( "../install-utils.inc" );
160 require_once( "../maintenance/updaters.inc" );
161 require_once( "../maintenance/convertLinks.inc" );
162 require_once( "../maintenance/archives/moveCustomMessages.inc" );
164 class ConfigData {
165 function getEncoded( $data ) {
166 # Hackish
167 global $wgUseLatin1;
168 if( $wgUseLatin1 ) {
169 return utf8_decode( $data ); /* to latin1 wikis */
170 } else {
171 return $data;
174 function getSitename() { return $this->getEncoded( $this->Sitename ); }
175 function getSysopName() { return $this->getEncoded( $this->SysopName ); }
176 function getSysopPass() { return $this->getEncoded( $this->SysopPass ); }
181 <p><i>Please include all of the lines below when reporting installation problems.</i></p>
183 <h2>Checking environment...</h2>
184 <ul>
185 <?php
186 $endl = "
188 $wgConfiguring = true;
189 $conf = new ConfigData;
191 install_version_checks();
193 print "<li>PHP " . phpversion() . ": ok</li>\n";
195 if( ini_get( "register_globals" ) ) {
197 <li><b class='error'>Warning:</b> <b>PHP's
198 <tt><a href="http://php.net/register_globals">register_globals</a></tt>
199 option is enabled.</b> MediaWiki will work correctly, but this setting
200 increases your exposure to potential security vulnerabilities in PHP-based
201 software running on your server. <b>You should disable it if you are able.</b></li>
202 <?php
205 if( ini_get( "safe_mode" ) ) {
207 <li class='error'><b>Warning: PHP's
208 <a href='http://www.php.net/features.safe-mode'>safe mode</a> is active!</b>
209 You will likely have problems caused by this. You may need to make the
210 'images' subdirectory writable or specify a TMP environment variable pointing to
211 a writable temporary directory owned by you, since safe mode breaks the system
212 temporary directory.</li>
213 <?php
216 $sapi = php_sapi_name();
217 $conf->prettyURLs = true;
218 print "<li>PHP server API is $sapi; ";
219 switch( $sapi ) {
220 case "apache":
221 case "apache2handler":
222 print "ok, using pretty URLs (<tt>index.php/Page_Title</tt>)";
223 break;
224 case "cgi":
225 case "cgi-fcgi":
226 case "apache2filter":
227 print "using ugly URLs (<tt>index.php?title=Page_Title</tt>)";
228 $conf->prettyURLs = false;
229 break;
230 default:
231 print "unknown; using pretty URLs (<tt>index.php/Page_Title</tt>), if you have trouble change this in <tt>LocalSettings.php</tt>";
233 print "</li>\n";
235 $conf->xml = function_exists( "utf8_encode" );
236 if( $conf->xml ) {
237 print "<li>Have XML / Latin1-UTF-8 conversion support.</li>\n";
238 } else {
239 dieout( "PHP's XML module is missing; the wiki requires functions in
240 this module and won't work in this configuration.
241 If you're running Mandrake, install the php-xml package." );
244 $memlimit = ini_get( "memory_limit" );
245 $conf->raiseMemory = false;
246 if( empty( $memlimit ) ) {
247 print "<li>PHP is configured with no <tt>memory_limit</tt>.</li>\n";
248 } else {
249 print "<li>PHP's <tt>memory_limit</tt> is " . htmlspecialchars( $memlimit ) . ". <b>If this is too low, installation may fail!</b> ";
250 $n = IntVal( $memlimit );
251 if( preg_match( '/^([0-9]+)[Mm]$/', trim( $memlimit ), $m ) ) {
252 $n = IntVal( $m[1] * (1024*1024) );
254 if( $n < 20*1024*1024 ) {
255 print "Attempting to raise limit to 20M... ";
256 if( false === ini_set( "memory_limit", "20M" ) ) {
257 print "failed.";
258 } else {
259 $conf->raiseMemory = true;
260 print "ok.";
263 print "</li>\n";
266 $conf->zlib = function_exists( "gzencode" );
267 if( $conf->zlib ) {
268 print "<li>Have zlib support; enabling output compression.</li>\n";
269 } else {
270 print "<li>No zlib support.</li>\n";
273 $conf->turck = function_exists( 'mmcache_get' );
274 if ( $conf->turck ) {
275 print "<li><a href=\"http://turck-mmcache.sourceforge.net/\">Turck MMCache</a> installed</li>\n";
276 } else {
277 print "<li><a href=\"http://turck-mmcache.sourceforge.net/\">Turck MMCache</a> not installed, " .
278 "can't use object caching functions</li>\n";
281 $conf->ImageMagick = false;
282 $imcheck = array( "/usr/bin", "/usr/local/bin", "/sw/bin", "/opt/local/bin" );
283 foreach( $imcheck as $dir ) {
284 $im = "$dir/convert";
285 if( file_exists( $im ) ) {
286 print "<li>Found ImageMagick: <tt>$im</tt>; image thumbnailing will be enabled if you enable uploads.</li>\n";
287 $conf->ImageMagick = $im;
288 break;
292 $conf->HaveGD = function_exists( "imagejpeg" );
293 if( $conf->HaveGD ) {
294 print "<li>Found GD graphics library built-in";
295 if( !$conf->ImageMagick ) {
296 print ", image thumbnailing will be enabled if you enable uploads";
298 print ".</li>\n";
299 } else {
300 if( !$conf->ImageMagick ) {
301 print "<li>Couldn't find GD library or ImageMagick; image thumbnailing disabled.</li>\n";
305 $conf->UseImageResize = $conf->HaveGD || $conf->ImageMagick;
307 # $conf->IP = "/Users/brion/Sites/inplace";
308 $conf->IP = dirname( dirname( __FILE__ ) );
309 print "<li>Installation directory: <tt>" . htmlspecialchars( $conf->IP ) . "</tt></li>\n";
311 # $conf->ScriptPath = "/~brion/inplace";
312 $conf->ScriptPath = preg_replace( '{^(.*)/config.*$}', '$1', $_SERVER["REQUEST_URI"] );
313 print "<li>Script URI path: <tt>" . htmlspecialchars( $conf->ScriptPath ) . "</tt></li>\n";
315 $conf->posted = ($_SERVER["REQUEST_METHOD"] == "POST");
317 $conf->Sitename = ucfirst( importPost( "Sitename", "" ) );
318 $conf->EmergencyContact = importPost( "EmergencyContact", $_SERVER["SERVER_ADMIN"] );
319 $conf->DBserver = importPost( "DBserver", "localhost" );
320 $conf->DBname = importPost( "DBname", "wikidb" );
321 $conf->DBuser = importPost( "DBuser", "wikiuser" );
322 $conf->DBpassword = importPost( "DBpassword" );
323 $conf->DBpassword2 = importPost( "DBpassword2" );
324 $conf->DBprefix = importPost( "DBprefix" );
325 $conf->RootPW = importPost( "RootPW" );
326 $conf->LanguageCode = importPost( "LanguageCode", "en" );
327 $conf->SysopName = importPost( "SysopName", "WikiSysop" );
328 $conf->SysopPass = importPost( "SysopPass" );
329 $conf->SysopPass2 = importPost( "SysopPass2" );
331 /* Check for validity */
332 $errs = array();
334 if( $conf->Sitename == "" || $conf->Sitename == "MediaWiki" || $conf->Sitename == "Mediawiki" ) {
335 $errs["Sitename"] = "Must not be blank or \"MediaWiki\".";
337 if( $conf->DBuser == "" ) {
338 $errs["DBuser"] = "Must not be blank";
340 if( $conf->DBpassword == "" ) {
341 $errs["DBpassword"] = "Must not be blank";
343 if( $conf->DBpassword != $conf->DBpassword2 ) {
344 $errs["DBpassword2"] = "Passwords don't match!";
346 if( !preg_match( '/^[A-Za-z_0-9]*$/', $conf->DBprefix ) ) {
347 $errs["DBprefix"] = "Invalid table prefix";
350 if( $conf->SysopPass == "" ) {
351 $errs["SysopPass"] = "Must not be blank";
353 if( $conf->SysopPass != $conf->SysopPass2 ) {
354 $errs["SysopPass2"] = "Passwords don't match!";
357 $conf->License = importRequest( "License", "none" );
358 if( $conf->License == "gfdl" ) {
359 $conf->RightsUrl = "http://www.gnu.org/copyleft/fdl.html";
360 $conf->RightsText = "GNU Free Documentation License 1.2";
361 $conf->RightsCode = "gfdl";
362 $conf->RightsIcon = '${wgStylePath}/common/images/gnu-fdl.png';
363 } elseif( $conf->License == "none" ) {
364 $conf->RightsUrl = $conf->RightsText = $conf->RightsCode = $conf->RightsIcon = "";
365 } else {
366 $conf->RightsUrl = importRequest( "RightsUrl", "" );
367 $conf->RightsText = importRequest( "RightsText", "" );
368 $conf->RightsCode = importRequest( "RightsCode", "" );
369 $conf->RightsIcon = importRequest( "RightsIcon", "" );
372 $conf->Shm = importRequest( "Shm", "none" );
373 $conf->MCServers = importRequest( "MCServers" );
375 /* Test memcached servers */
377 if ( $conf->Shm == 'memcached' && $conf->MCServers ) {
378 $conf->MCServerArray = array_map( 'trim', explode( ',', $conf->MCServers ) );
379 foreach ( $conf->MCServerArray as $server ) {
380 $error = testMemcachedServer( $server );
381 if ( $error ) {
382 $errs["MCServers"] = $error;
383 break;
386 } else if ( $conf->Shm == 'memcached' ) {
387 $errs["MCServers"] = "Please specify at least one server if you wish to use memcached";
390 /* default values for installation */
391 $conf->Email =importRequest("Email", "email_enabled");
392 $conf->Emailuser=importRequest("Emailuser", "emailuser_enabled");
393 $conf->Enotif =importRequest("Enotif", "enotif_allpages");
394 $conf->Eauthent =importRequest("Eauthent", "eauthent_enabled");
396 if( $conf->posted && ( 0 == count( $errs ) ) ) {
397 do { /* So we can 'continue' to end prematurely */
398 $conf->Root = ($conf->RootPW != "");
400 /* Load up the settings and get installin' */
401 $local = writeLocalSettings( $conf );
402 $wgCommandLineMode = false;
403 chdir( ".." );
404 eval($local);
405 $wgDBadminuser = "root";
406 $wgDBadminpassword = $conf->RootPW;
407 $wgDBprefix = $conf->DBprefix;
408 $wgCommandLineMode = true;
409 $wgUseDatabaseMessages = false; /* FIXME: For database failure */
410 require_once( "includes/Setup.php" );
411 chdir( "config" );
413 require_once( "../maintenance/InitialiseMessages.inc" );
415 $wgTitle = Title::newFromText( "Installation script" );
416 $wgDatabase = Database::newFromParams( $wgDBserver, "root", $conf->RootPW, "", 1 );
417 $wgDatabase->ignoreErrors(true);
419 @$myver = mysql_get_server_info( $wgDatabase->mConn );
420 if( $myver ) {
421 $conf->Root = true;
422 print "<li>Connected as root (automatic)</li>\n";
423 } else {
424 print "<li>MySQL error " . ($err = mysql_errno() ) .
425 ": " . htmlspecialchars( mysql_error() );
426 $ok = false;
427 switch( $err ) {
428 case 1045:
429 case 2000:
430 if( $conf->Root ) {
431 $errs["RootPW"] = "Check password";
432 } else {
433 print "<li>Trying regular user...\n";
434 /* Try the regular user... */
435 $wgDBadminuser = $wgDBuser;
436 $wgDBadminpassword = $wgDBpassword;
437 $wgDatabase = Database::newFromParams( $wgDBserver, $wgDBuser, $wgDBpassword, "", 1 );
438 $wgDatabase->isOpen();
439 $wgDatabase->ignoreErrors(true);
440 @$myver = mysql_get_server_info( $wgDatabase->mConn );
441 if( !$myver ) {
442 $errs["DBuser"] = "Check name/pass";
443 $errs["DBpassword"] = "or enter root";
444 $errs["DBpassword2"] = "password below";
445 $errs["RootPW"] = "Got root?";
446 print " need password.</li>\n";
447 } else {
448 $conf->Root = false;
449 $conf->RootPW = "";
450 print " ok.</li>\n";
451 # And keep going...
452 $ok = true;
454 break;
456 case 2002:
457 case 2003:
458 $errs["DBserver"] = "Connection failed";
459 break;
460 default:
461 $errs["DBserver"] = "Couldn't connect to database";
462 break;
464 if( !$ok ) continue;
467 if ( !$wgDatabase->isOpen() ) {
468 $errs["DBserver"] = "Couldn't connect to database";
469 continue;
472 print "<li>Connected to database... $myver";
473 if( version_compare( $myver, "4.0.0" ) >= 0 ) {
474 print "; enabling MySQL 4 enhancements";
475 $conf->DBmysql4 = true;
476 $local = writeLocalSettings( $conf );
478 print "</li>\n";
480 @$sel = mysql_select_db( $wgDBname, $wgDatabase->mConn );
481 if( $sel ) {
482 print "<li>Database <tt>" . htmlspecialchars( $wgDBname ) . "</tt> exists</li>\n";
483 } else {
484 $res = $wgDatabase->query( "CREATE DATABASE `$wgDBname`" );
485 if( !$res ) {
486 print "<li>Couldn't create database <tt>" .
487 htmlspecialchars( $wgDBname ) .
488 "</tt>; try with root access or check your username/pass.</li>\n";
489 $errs["RootPW"] = "&lt;- Enter";
490 continue;
492 print "<li>Created database <tt>" . htmlspecialchars( $wgDBname ) . "</tt></li>\n";
495 $wgDatabase->selectDB( $wgDBname );
497 if( $wgDatabase->tableExists( "cur" ) || $wgDatabase->tableExists( "revision" ) ) {
498 print "<li>There are already MediaWiki tables in this database. Checking if updates are needed...</li>\n";
500 # Create user if required
501 if ( $conf->Root ) {
502 $conn = Database::newFromParams( $wgDBserver, $wgDBuser, $wgDBpassword, $wgDBname, 1 );
503 if ( $conn->isOpen() ) {
504 print "<li>DB user account ok</li>\n";
505 $conn->close();
506 } else {
507 print "<li>Granting user permissions...</li>\n";
508 dbsource( "../maintenance/users.sql", $wgDatabase );
511 print "<pre>\n";
512 chdir( ".." );
513 flush();
514 do_all_updates();
515 chdir( "config" );
517 print "</pre>\n";
518 print "<li>Finished update checks.</li>\n";
519 } else {
520 # FIXME: Check for errors
521 print "<li>Creating tables...";
522 dbsource( "../maintenance/tables.sql", $wgDatabase );
523 dbsource( "../maintenance/interwiki.sql", $wgDatabase );
524 dbsource( "../maintenance/archives/patch-userlevels-defaultgroups.sql", $wgDatabase );
525 print " done.</li>\n";
527 print "<li>Initializing data...";
528 $wgDatabase->insert( 'site_stats',
529 array( 'ss_row_id' => 1,
530 'ss_total_views' => 0,
531 'ss_total_edits' => 0,
532 'ss_good_articles' => 0 ) );
533 # setting up the db user
534 if( $conf->Root ) {
535 print "<li>Granting user permissions...</li>\n";
536 dbsource( "../maintenance/users.sql", $wgDatabase );
539 if( $conf->SysopName ) {
540 $u = User::newFromName( $conf->getSysopName() );
541 if ( 0 == $u->idForName() ) {
542 $u->addToDatabase();
543 $u->setPassword( $conf->getSysopPass() );
544 $u->addRight( "sysop" );
545 $u->addRight( "bureaucrat" );
546 $u->saveSettings();
548 # Set up the new user in the sysop group
549 # This is a bit of an ugly hack
550 global $wgSysopGroupId, $wgBureaucratGroupId;
551 $groups = $u->getGroups();
552 $groups[] = $wgSysopGroupId;
553 $groups[] = $wgBureaucratGroupId;
554 $u->setGroups( $groups );
555 $u->saveSettings();
557 print "<li>Created sysop account <tt>" .
558 htmlspecialchars( $conf->SysopName ) . "</tt>.</li>\n";
559 } else {
560 print "<li>Could not create user - already exists!</li>\n";
562 } else {
563 print "<li>Skipped sysop account creation, no name given.</li>\n";
566 $titleobj = Title::newFromText( wfMsgNoDB( "mainpage" ) );
567 $now = wfTimestampNow();
568 $won = wfInvertTimestamp( $now );
570 extract( $wgDatabase->tableNames( 'text', 'page', 'revision' ) );
571 $titleobj = Title::newFromText( wfMsgNoDB( "mainpage" ) );
572 $title = $titleobj->getDBkey();
573 $sql = "INSERT INTO $text (old_text, old_flags) VALUES ('" .
574 wfStrencode( wfMsg( "mainpagetext" ) . "\n\n" . wfMsg( "mainpagedocfooter" ) ) .
575 "', '')";
576 $wgDatabase->query( $sql, $fname );
577 $text_id = $wgDatabase->insertID();
579 $sql = "INSERT INTO $page (page_namespace, page_title, page_restrictions, page_counter, page_is_redirect,
580 page_is_new, page_random, page_touched, page_latest) VALUES (
581 0, '{$title}', '', 0, 0, 1, 0.5, '{$now}', {$text_id} )";
582 $wgDatabase->query( $sql, $fname );
583 $page_id = $wgDatabase->insertID();
585 $sql = "INSERT INTO $revision (rev_id, rev_page, rev_comment, rev_user, rev_user_text,
586 rev_timestamp, inverse_timestamp, rev_minor_edit)
587 VALUES ({$text_id}, {$page_id}, '', 0, 'MediaWiki default', '{$now}', '{$won}', 0)";
588 $wgDatabase->query( $sql, $fname );
590 print "<li><pre>";
591 initialiseMessages();
592 print "</pre></li>\n";
595 /* Write out the config file now that all is well */
596 print "<p>Creating LocalSettings.php...</p>\n\n";
597 $localSettings = "<" . "?php$endl$local$endl?" . ">";
599 if( version_compare( phpversion(), "4.3.2" ) >= 0 ) {
600 $xt = "xt"; # Refuse to overwrite an existing file
601 } else {
602 $xt = "wt"; # 'x' is not available prior to PHP 4.3.2. We did check above, but race conditions blah blah
604 $f = fopen( "LocalSettings.php", $xt );
606 if( $f == false ) {
607 dieout( "<p>Couldn't write out LocalSettings.php. Check that the directory permissions are correct and that there isn't already a file of that name here...</p>\n" .
608 "<p>Here's the file that would have been written, try to paste it into place manually:</p>\n" .
609 "<pre>\n" . htmlspecialchars( $localSettings ) . "</pre>\n" );
611 if(fwrite( $f, $localSettings ) ) {
612 fclose( $f );
614 print "<p>Success! Move the config/LocalSettings.php file into the parent directory, then follow
615 <a href='{$conf->ScriptPath}/index.php'>this link</a> to your wiki.</p>\n";
616 } else {
617 fclose( $f );
618 die("<p class='error'>An error occured while writing the config/LocalSettings.php file. Check user rights and disk space then try again.</p>\n");
622 } while( false );
625 </ul>
628 <?php
630 if( count( $errs ) ) {
631 /* Display options form */
633 if( $conf->posted ) {
634 echo "<p class='error'>Something's not quite right yet; make sure everything below is filled out correctly.</p>\n";
638 <form name="config" method="post">
641 <h2>Site config</h2>
643 <dl class="setup">
644 <dd>
645 <?php
646 aField( $conf, "Sitename", "Site name:" );
648 </dd>
649 <dt>
650 Your site name should be a relatively short word. It'll appear as the namespace
651 name for 'meta' pages as well as throughout the user interface. Good site names
652 are things like "<a href="http://www.wikipedia.org/">Wikipedia</a>" and
653 "<a href="http://openfacts.berlios.de/">OpenFacts</a>"; avoid punctuation,
654 which may cause problems.
655 </dt>
657 <dd>
658 <?php
659 aField( $conf, "EmergencyContact", "Contact e-mail" );
661 </dd>
662 <dt>
663 This will be used as the return address for password reminders and
664 may be displayed in some error conditions so visitors can get in
665 touch with you. It is also be used as the default sender address of e-mail
666 notifications (enotifs).
667 </dt>
669 <dd>
670 <label class='column' for="LanguageCode">Language</label>
671 <select id="LanguageCode" name="LanguageCode">
672 <?php
673 $list = getLanguageList();
674 foreach( $list as $code => $name ) {
675 $sel = ($code == $conf->LanguageCode) ? 'selected="selected"' : '';
676 echo "\t\t<option value=\"$code\" $sel>$name</option>\n";
679 </select>
680 </dd>
681 <dt>
682 You may select the language for the user interface of the wiki...
683 Some localizations are less complete than others. This also controls
684 the character encoding; Unicode is more flexible, but Latin-1 may be
685 more compatible with older browsers for some languages. Unicode will
686 be used where not specified otherwise.
687 </dt>
689 <dd>
690 <label class='column'>Copyright/license metadata</label>
691 <div>Select one:</div>
693 <ul class="plain">
694 <li><?php aField( $conf, "License", "no license metadata", "radio", "none" ); ?></li>
695 <li><?php aField( $conf, "License", "GNU Free Documentation License 1.2 (Wikipedia-compatible)", "radio", "gfdl" ); ?></li>
696 <li><?php
697 aField( $conf, "License", "a Creative Commons license...", "radio", "cc" );
698 $partner = "MediaWiki";
699 $exit = urlencode( "$wgServer{$conf->ScriptPath}/config/index.php?License=cc&RightsUrl=[license_url]&RightsText=[license_name]&RightsCode=[license_code]&RightsIcon=[license_button]" );
700 $icon = urlencode( "$wgServer$wgUploadPath/wiki.png" );
701 $ccApp = htmlspecialchars( "http://creativecommons.org/license/?partner=$partner&exit_url=$exit&partner_icon_url=$icon" );
702 print "<a href=\"$ccApp\">choose</a>";
703 ?> (link will wipe out any other data in this form!)
704 <?php if( $conf->License == "cc" ) { ?>
705 <ul>
706 <li><?php aField( $conf, "RightsIcon", "<img src=\"" . htmlspecialchars( $conf->RightsIcon ) . "\" alt='icon' />", "hidden" ); ?></li>
707 <li><?php aField( $conf, "RightsText", htmlspecialchars( $conf->RightsText ), "hidden" ); ?></li>
708 <li><?php aField( $conf, "RightsCode", "code: " . htmlspecialchars( $conf->RightsCode ), "hidden" ); ?></li>
709 <li><?php aField( $conf, "RightsUrl", "<a href=\"" . htmlspecialchars( $conf->RightsUrl ) . "\">" . htmlspecialchars( $conf->RightsUrl ) . "</a>", "hidden" ); ?></li>
710 </ul>
711 <?php } ?>
712 </li>
713 </ul>
714 </dd>
715 <dt>
716 MediaWiki can include a basic license notice, icon, and machine-readable
717 copyright metadata if your wiki's content is to be licensed under
718 the GNU FDL or a Creative Commons license. If you're not sure, leave
719 it at "none".
720 </dt>
723 <dd>
724 <?php aField( $conf, "SysopName", "Sysop account name:", "" ) ?>
725 </dd>
726 <dd>
727 <?php aField( $conf, "SysopPass", "password:", "password" ) ?>
728 </dd>
729 <dd>
730 <?php aField( $conf, "SysopPass2", "again:", "password" ) ?>
731 </dd>
732 <dt>
733 A sysop user account can lock or delete pages, block problematic IP
734 addresses from editing, and other maintenance tasks. If creating a new
735 wiki database, a sysop account will be created with the given name
736 and password.
737 </dt>
739 <dd>
740 <label class='column'>Shared memory caching</label>
741 <div>Select one:</div>
743 <ul class="plain">
744 <li><?php aField( $conf, "Shm", "no caching", "radio", "none" ); ?></li>
745 <?php
746 if ( $conf->turck ) {
747 echo "<li>";
748 aField( $conf, "Shm", "Turck MMCache", "radio", "turck" );
749 echo "</li>";
752 <li><?php aField( $conf, "Shm", "Memcached", "radio", "memcached" ); ?></li>
753 <li><?php aField( $conf, "MCServers", "Memcached servers", "" ) ?></li>
754 </ul>
755 </dd>
756 <dt>
757 Using a shared memory system such as Turck MMCache or Memcached will speed
758 up MediaWiki significantly. Memcached is the best solution but needs to be
759 installed. Specify the server addresses and ports in a comma-separted list. Only
760 use Turck shared memory if the wiki will be running on a single Apache server.
761 </dl>
763 <h2>E-mail, e-mail notification and authentification setup</h2>
765 <dl class="setup">
766 <dd>
767 <label class='column'>E-mail (general)</label>
768 <div>Select one:</div>
770 <ul class="plain">
771 <li><?php aField( $conf, "Email", "enabled", "radio", "email_enabled" ); ?></li>
772 <li><?php aField( $conf, "Email", "disabled", "radio", "email_disabled" ); ?></li>
773 </ul>
774 </dd>
775 <dt>
776 Use this to disable all e-mail functions (send a password reminder, user-to-user e-mail and e-mail notification),
777 if sending e-mails on your server doesn't work.
778 </dt>
779 <dd>
780 <label class='column'>User-to-user e-mail</label>
781 <div>Select one:</div>
783 <ul class="plain">
784 <li><?php aField( $conf, "Emailuser", "enabled", "radio", "emailuser_enabled" ); ?></li>
785 <li><?php aField( $conf, "Emailuser", "disabled", "radio", "emailuser_disabled" ); ?></li>
786 </ul>
787 </dd>
788 <dt>
789 Use this to disable only the user-to-user e-mail function (EmailUser).
790 </dt>
791 <dd>
792 <label class='column'>E-mail notification</label>
793 <div>Select one:</div>
795 <ul class="plain">
796 <li><?php aField( $conf, "Enotif", "disabled", "radio", "enotif_disabled" ); ?></li>
797 <li><?php aField( $conf, "Enotif", "enabled for changes of watch-listed and user_talk pages (recommended for small wikis; perhaps not suited for large wikis)", "radio", "enotif_allpages" ); ?></li>
798 <li><?php aField( $conf, "Enotif", "enabled for changes of user_talk pages only (suited for small and large wikis)", "radio", "enotif_usertalk" ); ?></li>
799 </ul>
800 </dd>
801 <dt>
802 <p><?php
803 $ccEnotif = htmlspecialchars( 'http://meta.wikipedia.org/Enotif' );
804 print "<a href=\"$ccEnotif\">E-mail notification</a>";
806 sends a notification e-mail to a user, when the user_talk page is changed
807 and/or when watch-listed pages are changed, depending on the above settings.
808 When testing this feature, be reminded, that obviously an e-mail address must be present in your preferences
809 and that your own changes never trigger notifications to be sent to yourself.</p>
811 <p>Users get corresponding options to select or deselect in their users' preferences.
812 The user options are not shown on the preference page, if e-mail notification is disabled.</p>
814 <p>There are additional options for fine tuning in /includes/DefaultSettings.php .</p>
815 </dt>
817 <dd>
818 <label class='column'>E-mail address authentication</label>
819 <div>Select one:</div>
821 <ul class="plain">
822 <li><?php aField( $conf, "Eauthent", "disabled", "radio", "eauthent_disabled" ); ?></li>
823 <li><?php aField( $conf, "Eauthent", "enabled", "radio", "eauthent_enabled" ); ?></li>
824 </ul>
825 </dd>
826 <dt>
827 <p><?php
828 $ccEauthent = htmlspecialchars( 'http://meta.wikipedia.org/Eauthent' );
829 print "<a href=\"$ccEnotif\">E-mail address authentication</a>";
831 uses a scheme to authenticate e-mail addresses of the users. The user who initially enters or who changes his/her stored e-mail address
832 gets a one-time temporary password mailed to that address. The user can use the original password as long as wanted, however, the stored e-mail address
833 is only authenticated at the moment when the user logs in with the one-time temporary password.<p>
835 <p>The e-mail address stays authenticated as long as the user does not change it; the time of authentication is indicated
836 on the user preference page.</p>
838 <p>If the option is enabled, only authenticated e-mail addresses can receive EmailUser mails and/or
839 e-mail notification mails.</p>
840 </dt>
842 </dl>
844 <h2>Database config</h2>
846 <dl class="setup">
847 <dd><?php
848 aField( $conf, "DBserver", "MySQL server" );
849 ?></dd>
850 <dt>
851 If your database server isn't on your web server, enter the name
852 or IP address here.
853 </dt>
855 <dd><?php
856 aField( $conf, "DBname", "Database name" );
857 ?></dd>
858 <dd><?php
859 aField( $conf, "DBuser", "DB username" );
860 ?></dd>
861 <dd><?php
862 aField( $conf, "DBpassword", "DB password", "password" );
863 ?></dd>
864 <dd><?php
865 aField( $conf, "DBpassword2", "again", "password" );
866 ?></dd>
867 <dt>
868 If you only have a single user account and database available,
869 enter those here. If you have database root access (see below)
870 you can specify new accounts/databases to be created.
871 </dt>
873 <dd><?php
874 aField( $conf, "DBprefix", "Database table prefix" );
875 ?></dd>
876 <dt>
877 <p>If you need to share one database between multiple wikis, or
878 MediaWiki and another web application, you may choose to
879 add a prefix to all the table names to avoid conflicts.</p>
881 <p>Avoid exotic characters; something like <tt>mw_</tt> is good.</p>
882 </dt>
884 <dd>
885 <?php
886 aField( $conf, "RootPW", "DB root password", "password" );
888 </dd>
889 <dt>
890 You will only need this if the database and/or user account
891 above don't already exist.
892 Do <em>not</em> type in your machine's root password! MySQL
893 has its own "root" user with a separate password. (It might
894 even be blank, depending on your configuration.)
895 </dt>
897 <dd>
898 <label class='column'>&nbsp;</label>
899 <input type="submit" value="Install!" />
900 </dd>
901 </dl>
904 </form>
906 <?php
909 /* -------------------------------------------------------------------------------------- */
911 function writeAdminSettings( $conf ) {
912 return "
913 \$wgDBadminuser = \"{$conf->DBadminuser}\";
914 \$wgDBadminpassword = \"{$conf->DBadminpassword}\";
918 function escapePhpString( $string ) {
919 return strtr( $string,
920 array(
921 "\n" => "\\n",
922 "\r" => "\\r",
923 "\t" => "\\t",
924 "\\" => "\\\\",
925 "\$" => "\\\$",
926 "\"" => "\\\""
930 function writeLocalSettings( $conf ) {
931 $conf->DBmysql4 = @$conf->DBmysql4 ? 'true' : 'false';
932 $conf->UseImageResize = $conf->UseImageResize ? 'true' : 'false';
933 $conf->PasswordSender = $conf->EmergencyContact;
934 if( preg_match( '/^([a-z]+)-latin1$/', $conf->LanguageCode, $m ) ) {
935 $conf->LanguageCode = $m[1];
936 $conf->Latin1 = true;
937 } else {
938 $conf->Latin1 = false;
940 $zlib = ($conf->zlib ? "" : "# ");
941 $magic = ($conf->ImageMagick ? "" : "# ");
942 $convert = ($conf->ImageMagick ? $conf->ImageMagick : "/usr/bin/convert" );
943 $pretty = ($conf->prettyURLs ? "" : "# ");
944 $ugly = ($conf->prettyURLs ? "# " : "");
945 $rights = ($conf->RightsUrl) ? "" : "# ";
947 switch ( $conf->Shm ) {
948 case 'memcached':
949 $memcached = 'true';
950 $turck = '#';
951 $mcservers = var_export( $conf->MCServerArray, true );
952 break;
953 case 'turck':
954 $memcached = 'false';
955 $mcservers = 'array()';
956 $turck = '';
957 break;
958 default:
959 $memcached = 'false';
960 $mcservers = 'array()';
961 $turck = '#';
964 if ( $conf->Email == 'email_enabled' ) {
965 $enableemail = 'true';
966 $enableuseremail = ( $conf->Emailuser == 'emailuser_enabled' ) ? 'true' : 'false' ;
967 $eauthent = ( $conf->Eauthent == 'eauthent_enabled' ) ? 'true' : 'false' ;
968 switch ( $conf->Enotif ) {
969 case 'enotif_usertalk':
970 $enotifusertalk = 'true';
971 $enotifwatchlist = 'false';
972 break;
973 case 'enotif_allpages':
974 $enotifusertalk = 'true';
975 $enotifwatchlist = 'true';
976 break;
977 default:
978 $enotifusertalk = 'false';
979 $enotifwatchlist = 'false';
981 } else {
982 $enableuseremail = 'false';
983 $enableemail = 'false';
984 $eauthent = 'false';
985 $enotifusertalk = 'false';
986 $enotifwatchlist = 'false';
989 $file = @fopen( "/dev/urandom", "r" );
990 if ( $file ) {
991 $proxyKey = bin2hex( fread( $file, 32 ) );
992 fclose( $file );
993 } else {
994 $proxyKey = "";
995 for ( $i=0; $i<8; $i++ ) {
996 $proxyKey .= dechex(mt_rand(0, 0x7fffffff));
998 print "<li>Warning: \$wgProxyKey is insecure</li>\n";
1001 # Add slashes to strings for double quoting
1002 $slconf = array_map( "escapePhpString", get_object_vars( $conf ) );
1003 if( $conf->License == 'gfdl' ) {
1004 # Needs literal string interpolation for the current style path
1005 $slconf['RightsIcon'] = $conf->RightsIcon;
1008 $sep = (DIRECTORY_SEPARATOR == "\\") ? ";" : ":";
1009 return "
1010 # This file was automatically generated by the MediaWiki installer.
1011 # If you make manual changes, please keep track in case you need to
1012 # recreate them later.
1014 \$IP = \"{$slconf['IP']}\";
1015 ini_set( \"include_path\", \".$sep\$IP$sep\$IP/includes$sep\$IP/languages\" );
1016 require_once( \"includes/DefaultSettings.php\" );
1018 # If PHP's memory limit is very low, some operations may fail.
1019 " . ($conf->raiseMemory ? '' : '# ' ) . "ini_set( 'memory_limit', '20M' );" . "
1021 if ( \$wgCommandLineMode ) {
1022 if ( isset( \$_SERVER ) && array_key_exists( 'REQUEST_METHOD', \$_SERVER ) ) {
1023 die( \"This script must be run from the command line\\n\" );
1025 } elseif ( empty( \$wgConfiguring ) ) {
1026 ## Compress output if the browser supports it
1027 {$zlib}if( !ini_get( 'zlib.output_compression' ) ) @ob_start( 'ob_gzhandler' );
1030 \$wgSitename = \"{$slconf['Sitename']}\";
1032 \$wgScriptPath = \"{$slconf['ScriptPath']}\";
1033 \$wgScript = \"\$wgScriptPath/index.php\";
1034 \$wgRedirectScript = \"\$wgScriptPath/redirect.php\";
1036 ## If using PHP as a CGI module, use the ugly URLs
1037 {$pretty}\$wgArticlePath = \"\$wgScript/\$1\";
1038 {$ugly}\$wgArticlePath = \"\$wgScript?title=\$1\";
1040 \$wgStylePath = \"\$wgScriptPath/skins\";
1041 \$wgStyleDirectory = \"\$IP/skins\";
1042 \$wgLogo = \"\$wgStylePath/common/images/wiki.png\";
1044 \$wgUploadPath = \"\$wgScriptPath/images\";
1045 \$wgUploadDirectory = \"\$IP/images\";
1047 \$wgEnableEmail = $enableemail;
1048 \$wgEnableUserEmail = $enableuseremail;
1050 \$wgEmergencyContact = \"{$slconf['EmergencyContact']}\";
1051 \$wgPasswordSender = \"{$slconf['PasswordSender']}\";
1053 ## For a detailed description of the following switches see
1054 ## http://meta.wikimedia.org/Enotif and http://meta.wikimedia.org/Eauthent
1055 ## There are many more options for fine tuning available see
1056 ## /includes/DefaultSettings.php
1057 ## UPO means: this is also a user preference option
1058 \$wgEmailNotificationForUserTalkPages = $enotifusertalk; # UPO
1059 \$wgEmailNotificationForWatchlistPages = $enotifwatchlist; # UPO
1060 \$wgEmailAuthentication = $eauthent;
1062 \$wgDBserver = \"{$slconf['DBserver']}\";
1063 \$wgDBname = \"{$slconf['DBname']}\";
1064 \$wgDBuser = \"{$slconf['DBuser']}\";
1065 \$wgDBpassword = \"{$slconf['DBpassword']}\";
1066 \$wgDBprefix = \"{$slconf['DBprefix']}\";
1068 ## To allow SQL queries through the wiki's Special:Askaql page,
1069 ## uncomment the next lines. THIS IS VERY INSECURE. If you want
1070 ## to allow semipublic read-only SQL access for your sysops,
1071 ## you should define a MySQL user with limited privileges.
1072 ## See MySQL docs: http://www.mysql.com/doc/en/GRANT.html
1074 # \$wgAllowSysopQueries = true;
1075 # \$wgDBsqluser = \"sqluser\";
1076 # \$wgDBsqlpassword = \"sqlpass\";
1078 # If you're on MySQL 3.x, this next line must be FALSE:
1079 \$wgDBmysql4 = \$wgEnablePersistentLC = {$conf->DBmysql4};
1081 ## Shared memory settings
1082 \$wgUseMemCached = $memcached;
1083 \$wgMemCachedServers = $mcservers;
1084 {$turck}\$wgUseTurckShm = function_exists( 'mmcache_get' ) && php_sapi_name() == 'apache';
1086 ## To enable image uploads, make sure the 'images' directory
1087 ## is writable, then uncomment this:
1088 # \$wgDisableUploads = false;
1089 \$wgUseImageResize = {$conf->UseImageResize};
1090 {$magic}\$wgUseImageMagick = true;
1091 {$magic}\$wgImageMagickConvertCommand = \"{$convert}\";
1093 ## If you have the appropriate support software installed
1094 ## you can enable inline LaTeX equations:
1095 # \$wgUseTeX = true;
1096 \$wgMathPath = \"{\$wgUploadPath}/math\";
1097 \$wgMathDirectory = \"{\$wgUploadDirectory}/math\";
1098 \$wgTmpDirectory = \"{\$wgUploadDirectory}/tmp\";
1100 \$wgLocalInterwiki = \$wgSitename;
1102 \$wgLanguageCode = \"{$slconf['LanguageCode']}\";
1103 \$wgUseLatin1 = " . ($conf->Latin1 ? 'true' : 'false') . ";\n
1105 \$wgProxyKey = \"$proxyKey\";
1107 ## Default skin: you can change the default skin. Use the internal symbolic
1108 ## names, ie 'standard', 'nostalgia', 'cologneblue', 'monobook':
1109 # \$wgDefaultSkin = 'monobook';
1111 ## For attaching licensing metadata to pages, and displaying an
1112 ## appropriate copyright notice / icon. GNU Free Documentation
1113 ## License and Creative Commons licenses are supported so far.
1114 {$rights}\$wgEnableCreativeCommonsRdf = true;
1115 \$wgRightsPage = \"\"; # Set to the title of a wiki page that describes your license/copyright
1116 \$wgRightsUrl = \"{$slconf['RightsUrl']}\";
1117 \$wgRightsText = \"{$slconf['RightsText']}\";
1118 \$wgRightsIcon = \"{$slconf['RightsIcon']}\";
1119 # \$wgRightsCode = \"{$slconf['RightsCode']}\"; # Not yet used
1123 function dieout( $text ) {
1124 die( $text . "\n\n</body>\n</html>" );
1127 function importVar( &$var, $name, $default = "" ) {
1128 if( isset( $var[$name] ) ) {
1129 $retval = $var[$name];
1130 if ( get_magic_quotes_gpc() ) {
1131 $retval = stripslashes( $retval );
1133 } else {
1134 $retval = $default;
1136 return $retval;
1139 function importPost( $name, $default = "" ) {
1140 return importVar( $_POST, $name, $default );
1143 function importRequest( $name, $default = "" ) {
1144 return importVar( $_REQUEST, $name, $default );
1147 function aField( &$conf, $field, $text, $type = "", $value = "" ) {
1148 if( $type != "" ) {
1149 $xtype = "type=\"$type\"";
1150 } else {
1151 $xtype = "";
1154 if(!(isset($id)) or ($id == "") ) $id = $field;
1155 $nolabel = ($type == "radio") || ($type == "hidden");
1156 if( $nolabel ) {
1157 echo "\t\t<label>";
1158 } else {
1159 echo "\t\t<label class='column' for=\"$id\">$text</label>\n";
1162 if( $type == "radio" && $value == $conf->$field ) {
1163 $checked = "checked='checked'";
1164 } else {
1165 $checked = "";
1167 echo "\t\t<input $xtype name=\"$field\" id=\"$id\" $checked value=\"";
1168 if( $type == "radio" ) {
1169 echo htmlspecialchars( $value );
1170 } else {
1171 echo htmlspecialchars( $conf->$field );
1173 echo "\" />\n";
1174 if( $nolabel ) {
1175 echo " $text</label>\n";
1178 global $errs;
1179 if(isset($errs[$field])) echo "<span class='error'>" . $errs[$field] . "</span>\n";
1182 function getLanguageList() {
1183 global $wgLanguageNames;
1184 if( !isset( $wgLanguageNames ) ) {
1185 $wgContLanguageCode = "xxx";
1186 function wfLocalUrl( $x ) { return $x; }
1187 function wfLocalUrlE( $x ) { return $x; }
1188 require_once( "../languages/Names.php" );
1191 $codes = array();
1192 $latin1 = array( "da", "de", "en", "es", "fr", "nl", "sv" );
1194 $d = opendir( "../languages" );
1195 while( false !== ($f = readdir( $d ) ) ) {
1196 if( preg_match( '/Language([A-Z][a-z_]+)\.php$/', $f, $m ) ) {
1197 $code = str_replace( '_', '-', strtolower( $m[1] ) );
1198 if( isset( $wgLanguageNames[$code] ) ) {
1199 $name = $code . ' - ' . $wgLanguageNames[$code];
1200 } else {
1201 $name = $code;
1203 if( in_array( $code, $latin1 ) ) {
1204 $codes[$code] = $name . " - Unicode";
1205 $codes[$code.'-latin1'] = $name . " - Latin-1";
1206 } else {
1207 $codes[$code] = $name;
1211 closedir( $d );
1212 ksort( $codes );
1213 return $codes;
1216 # Test a memcached server
1217 function testMemcachedServer( $server ) {
1218 $hostport = explode(":", $server);
1219 $errstr = false;
1220 $fp = false;
1221 if ( !function_exists( 'fsockopen' ) ) {
1222 $errstr = "Can't connect to memcached, fsockopen() not present";
1224 if ( !$errstr && count( $hostport ) != 2 ) {
1225 $errstr = 'Please specify host and port';
1226 var_dump( $hostport );
1228 if ( !$errstr ) {
1229 list( $host, $port ) = $hostport;
1230 $errno = 0;
1231 $fsockerr = '';
1233 $fp = @fsockopen( $host, $port, $errno, $fsockerr, 1.0 );
1234 if ( $fp === false ) {
1235 $errstr = "Cannot connect to memcached on $host:$port : $fsockerr";
1238 if ( !$errstr ) {
1239 $command = "version\r\n";
1240 $bytes = fwrite( $fp, $command );
1241 if ( $bytes != strlen( $command ) ) {
1242 $errstr = "Cannot write to memcached socket on $host:$port";
1245 if ( !$errstr ) {
1246 $expected = "VERSION ";
1247 $response = fread( $fp, strlen( $expected ) );
1248 if ( $response != $expected ) {
1249 $errstr = "Didn't get correct memcached response from $host:$port";
1252 if ( $fp ) {
1253 fclose( $fp );
1255 if ( !$errstr ) {
1256 echo "<li>Connected to memcached on $host:$port successfully";
1258 return $errstr;
1262 </body>
1263 </html>