Rework the user_groups system, again, into something that seems to actually
[lhc/web/wiklou.git] / config / index.php
1 <?php
2 # MediaWiki web-based config/installation
3 # Copyright (C) 2004 Brion Vibber <brion@pobox.com>
4 # http://www.mediawiki.org/
5 #
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.
10 #
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.
15 #
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
20
21 error_reporting( E_ALL );
22 header( "Content-type: text/html; charset=utf-8" );
23 @ini_set( "display_errors", true );
24
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;
42 }
43
44 dl.setup dd {
45 margin-left: 0;
46 }
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;
54 }
55 dl.setup dt {
56 clear: left;
57 font-size: 0.8em;
58 margin-left: 10em;
59 /* margin-right: 200px; */
60 margin-bottom: 2em;
61 }
62 .error {
63 color: red;
64 }
65 ul.plain {
66 list-style: none;
67 clear: both;
68 margin-left: 12em;
69 }
70 </style>
71 </head>
72
73 <body>
74
75 <div id="credit">
76 <center>
77 <a href="http://www.mediawiki.org/">
78 <img src="../skins/common/images/mediawiki.png" width="135" height="135" alt="" border="0" />
79 </a>
80 </center>
81
82 <strong><a href="http://www.mediawiki.org/">MediaWiki</a></strong> is
83 Copyright (C) 2001-<?=date('Y')?> by Magnus Manske, Brion Vibber, Lee Daniel Crocker,
84 Tim Starling, Erik M&ouml;ller, Gabriel Wicke, Thomas Gries and others.</p>
85
86 <ul>
87 <li><a href="../README">Readme</a></li>
88 <li><a href="../RELEASE-NOTES">Release notes</a></li>
89 <li><a href="../docs/">doc/</a></li>
90 <li><a href="http://meta.wikipedia.org/wiki/MediaWiki_User's_Guide">User's Guide</a></li>
91 </ul>
92
93 <p>This program is free software; you can redistribute it and/or modify
94 it under the terms of the GNU General Public License as published by
95 the Free Software Foundation; either version 2 of the License, or
96 (at your option) any later version.</p>
97
98 <p>This program is distributed in the hope that it will be useful,
99 but WITHOUT ANY WARRANTY; without even the implied warranty of
100 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
101 GNU General Public License for more details.</p>
102
103 <p>You should have received <a href="../COPYING">a copy of the GNU General Public License</a>
104 along with this program; if not, write to the Free Software
105 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
106 or <a href="http://www.gnu.org/copyleft/gpl.html">read it online</a></p>
107 </div>
108
109 <?php
110
111 # Relative includes seem to break if a parent directory is not readable;
112 # this is common for public_html subdirs under user home directories.
113 #
114 # As a dirty hack, we'll try to set up the include path first.
115 #
116 $IP = dirname( dirname( __FILE__ ) );
117 $sep = (DIRECTORY_SEPARATOR == "\\") ? ";" : ":";
118 ini_set( "include_path", ".$sep$IP$sep$IP/includes$sep$IP/languages" );
119
120 define( "MEDIAWIKI", true );
121 define( "MEDIAWIKI_INSTALL", true );
122 require_once( "includes/Defines.php" );
123 require_once( "includes/DefaultSettings.php" );
124 require_once( "includes/MagicWord.php" );
125 require_once( "includes/Namespace.php" );
126 ?>
127
128 <h1>MediaWiki <?php print $wgVersion ?> installation</h1>
129
130
131 <?php
132
133 /* Check for existing configurations and bug out! */
134
135 if( file_exists( "../LocalSettings.php" ) ) {
136 dieout( "<h2>Wiki is configured.</h2>
137
138 <p>Already configured... <a href='../index.php'>return to the wiki</a>.</p>
139
140 <p>(You should probably remove this directory for added security.)</p>" );
141 }
142
143 if( file_exists( "./LocalSettings.php" ) ) {
144 writeSuccessMessage();
145
146 dieout( '' );
147 }
148
149 if( !is_writable( "." ) ) {
150 dieout( "<h2>Can't write config file, aborting</h2>
151
152 <p>In order to configure the wiki you have to make the <tt>config</tt> subdirectory
153 writable by the web server. Once configuration is done you'll move the created
154 <tt>LocalSettings.php</tt> to the parent directory, and for added safety you can
155 then remove the <tt>config</tt> subdirectory entirely.</p>
156
157 <p>To make the directory writable on a Unix/Linux system:</p>
158
159 <blockquote>
160 <tt>cd /path/to/wiki</tt><br>
161 <tt>chmod a+w config</tt>
162 </blockquote>" );
163 }
164
165
166 require_once( "install-utils.inc" );
167 require_once( "maintenance/updaters.inc" );
168 require_once( "maintenance/convertLinks.inc" );
169 require_once( "maintenance/archives/moveCustomMessages.inc" );
170
171 class ConfigData {
172 function getEncoded( $data ) {
173 # removing latin1 support, no need...
174 return $data;
175 }
176 function getSitename() { return $this->getEncoded( $this->Sitename ); }
177 function getSysopName() { return $this->getEncoded( $this->SysopName ); }
178 function getSysopPass() { return $this->getEncoded( $this->SysopPass ); }
179 }
180
181 ?>
182
183 <p><em>Please include all of the lines below when reporting installation problems.</em></p>
184
185 <h2>Checking environment...</h2>
186 <ul>
187 <?php
188 $endl = "
189 ";
190 $wgNoOutputBuffer = true;
191 $conf = new ConfigData;
192
193 install_version_checks();
194
195 print "<li>PHP " . phpversion() . ": ok</li>\n";
196
197 if( ini_get( "register_globals" ) ) {
198 ?>
199 <li><b class='error'>Warning:</b> <strong>PHP's
200 <tt><a href="http://php.net/register_globals">register_globals</a></tt>
201 option is enabled.</strong> MediaWiki will work correctly, but this setting
202 increases your exposure to potential security vulnerabilities in PHP-based
203 software running on your server. <strong>You should disable it if you are able.</strong></li>
204 <?php
205 }
206
207 $fatal = false;
208
209 if( ini_get( "magic_quotes_runtime" ) ) {
210 $fatal = true;
211 ?><li class='error'><strong>Fatal: <a href='http://www.php.net/manual/en/ref.info.php#ini.magic-quotes-runtime'>magic_quotes_runtime</a> is active!</strong>
212 This option corrupts data input unpredictably; you cannot install or use
213 MediaWiki unless this option is disabled.
214 <?php
215 }
216
217 if( ini_get( "magic_quotes_sybase" ) ) {
218 $fatal = true;
219 ?><li class='error'><strong>Fatal: <a href='http://www.php.net/manual/en/ref.sybase.php#ini.magic-quotes-sybase'>magic_quotes_sybase</a> is active!</strong>
220 This option corrupts data input unpredictably; you cannot install or use
221 MediaWiki unless this option is disabled.
222 <?php
223 }
224
225 if( $fatal ) {
226 dieout( "</ul><p>Cannot install wiki.</p>" );
227 }
228
229 if( ini_get( "safe_mode" ) ) {
230 $conf->safeMode = true;
231 ?>
232 <li><b class='error'>Warning:</b> <strong>PHP's
233 <a href='http://www.php.net/features.safe-mode'>safe mode</a> is active.</strong>
234 You may have problems caused by this, particularly if using image uploads.
235 </li>
236 <?php
237 } else {
238 $conf->safeMode = false;
239 }
240
241
242 $sapi = php_sapi_name();
243 $conf->prettyURLs = true;
244 print "<li>PHP server API is $sapi; ";
245 switch( $sapi ) {
246 case "apache":
247 case "apache2handler":
248 print "ok, using pretty URLs (<tt>index.php/Page_Title</tt>)";
249 break;
250 case "cgi":
251 case "cgi-fcgi":
252 case "apache2filter":
253 print "using ugly URLs (<tt>index.php?title=Page_Title</tt>)";
254 $conf->prettyURLs = false;
255 break;
256 default:
257 print "unknown; using pretty URLs (<tt>index.php/Page_Title</tt>), if you have trouble change this in <tt>LocalSettings.php</tt>";
258 }
259 print "</li>\n";
260
261 $conf->xml = function_exists( "utf8_encode" );
262 if( $conf->xml ) {
263 print "<li>Have XML / Latin1-UTF-8 conversion support.</li>\n";
264 } else {
265 dieout( "PHP's XML module is missing; the wiki requires functions in
266 this module and won't work in this configuration.
267 If you're running Mandrake, install the php-xml package." );
268 }
269
270 $memlimit = ini_get( "memory_limit" );
271 $conf->raiseMemory = false;
272 if( empty( $memlimit ) || $memlimit == -1 ) {
273 print "<li>PHP is configured with no <tt>memory_limit</tt>.</li>\n";
274 } else {
275 print "<li>PHP's <tt>memory_limit</tt> is " . htmlspecialchars( $memlimit ) . ". <strong>If this is too low, installation may fail!</strong> ";
276 $n = IntVal( $memlimit );
277 if( preg_match( '/^([0-9]+)[Mm]$/', trim( $memlimit ), $m ) ) {
278 $n = IntVal( $m[1] * (1024*1024) );
279 }
280 if( $n < 20*1024*1024 ) {
281 print "Attempting to raise limit to 20M... ";
282 if( false === ini_set( "memory_limit", "20M" ) ) {
283 print "failed.";
284 } else {
285 $conf->raiseMemory = true;
286 print "ok.";
287 }
288 }
289 print "</li>\n";
290 }
291
292 $conf->zlib = function_exists( "gzencode" );
293 if( $conf->zlib ) {
294 print "<li>Have zlib support; enabling output compression.</li>\n";
295 } else {
296 print "<li>No zlib support.</li>\n";
297 }
298
299 $conf->turck = function_exists( 'mmcache_get' );
300 if ( $conf->turck ) {
301 print "<li><a href=\"http://turck-mmcache.sourceforge.net/\">Turck MMCache</a> installed</li>\n";
302 }
303 $conf->eaccel = function_exists( 'eaccelerator_get' );
304 if ( $conf->eaccel ) {
305 $conf->turck = 'eaccelerator';
306 print "<li><a href=\"http://eaccelerator.sourceforge.net/\">eAccelerator</a> installed</li>\n";
307 }
308 if (!$conf->turck && !$conf->eaccel) {
309 print "<li>Neither <a href=\"http://turck-mmcache.sourceforge.net/\">Turck MMCache</a> nor <a href=\"http://eaccelerator.sourceforge.net/\">eAccelerator</a> are installed, " .
310 "can't use object caching functions</li>\n";
311 }
312
313 $conf->ImageMagick = false;
314 $imcheck = array( "/usr/bin", "/usr/local/bin", "/sw/bin", "/opt/local/bin" );
315 foreach( $imcheck as $dir ) {
316 $im = "$dir/convert";
317 if( file_exists( $im ) ) {
318 print "<li>Found ImageMagick: <tt>$im</tt>; image thumbnailing will be enabled if you enable uploads.</li>\n";
319 $conf->ImageMagick = $im;
320 break;
321 }
322 }
323
324 $conf->HaveGD = function_exists( "imagejpeg" );
325 if( $conf->HaveGD ) {
326 print "<li>Found GD graphics library built-in";
327 if( !$conf->ImageMagick ) {
328 print ", image thumbnailing will be enabled if you enable uploads";
329 }
330 print ".</li>\n";
331 } else {
332 if( !$conf->ImageMagick ) {
333 print "<li>Couldn't find GD library or ImageMagick; image thumbnailing disabled.</li>\n";
334 }
335 }
336
337 $conf->UseImageResize = $conf->HaveGD || $conf->ImageMagick;
338
339 # $conf->IP = "/Users/brion/Sites/inplace";
340 $conf->IP = dirname( dirname( __FILE__ ) );
341 print "<li>Installation directory: <tt>" . htmlspecialchars( $conf->IP ) . "</tt></li>\n";
342
343 # $conf->ScriptPath = "/~brion/inplace";
344 $conf->ScriptPath = preg_replace( '{^(.*)/config.*$}', '$1', $_SERVER["PHP_SELF"] ); # was SCRIPT_NAME
345 print "<li>Script URI path: <tt>" . htmlspecialchars( $conf->ScriptPath ) . "</tt></li>\n";
346
347 $conf->posted = ($_SERVER["REQUEST_METHOD"] == "POST");
348
349 $conf->Sitename = ucfirst( importPost( "Sitename", "" ) );
350 $defaultEmail = empty( $_SERVER["SERVER_ADMIN"] )
351 ? 'root@localhost'
352 : $_SERVER["SERVER_ADMIN"];
353 $conf->EmergencyContact = importPost( "EmergencyContact", $defaultEmail );
354 $conf->DBserver = importPost( "DBserver", "localhost" );
355 $conf->DBname = importPost( "DBname", "wikidb" );
356 $conf->DBuser = importPost( "DBuser", "wikiuser" );
357 $conf->DBpassword = importPost( "DBpassword" );
358 $conf->DBpassword2 = importPost( "DBpassword2" );
359 $conf->DBprefix = importPost( "DBprefix" );
360 $conf->RootPW = importPost( "RootPW" );
361 $conf->LanguageCode = importPost( "LanguageCode", "en" );
362 $conf->SysopName = importPost( "SysopName", "WikiSysop" );
363 $conf->SysopPass = importPost( "SysopPass" );
364 $conf->SysopPass2 = importPost( "SysopPass2" );
365
366 /* Check for validity */
367 $errs = array();
368
369 if( $conf->Sitename == "" || $conf->Sitename == "MediaWiki" || $conf->Sitename == "Mediawiki" ) {
370 $errs["Sitename"] = "Must not be blank or \"MediaWiki\".";
371 }
372 if( $conf->DBuser == "" ) {
373 $errs["DBuser"] = "Must not be blank";
374 }
375 if( $conf->DBpassword == "" ) {
376 $errs["DBpassword"] = "Must not be blank";
377 }
378 if( $conf->DBpassword != $conf->DBpassword2 ) {
379 $errs["DBpassword2"] = "Passwords don't match!";
380 }
381 if( !preg_match( '/^[A-Za-z_0-9]*$/', $conf->DBprefix ) ) {
382 $errs["DBprefix"] = "Invalid table prefix";
383 }
384
385 if( $conf->SysopPass == "" ) {
386 $errs["SysopPass"] = "Must not be blank";
387 }
388 if( $conf->SysopPass != $conf->SysopPass2 ) {
389 $errs["SysopPass2"] = "Passwords don't match!";
390 }
391
392 $conf->License = importRequest( "License", "none" );
393 if( $conf->License == "gfdl" ) {
394 $conf->RightsUrl = "http://www.gnu.org/copyleft/fdl.html";
395 $conf->RightsText = "GNU Free Documentation License 1.2";
396 $conf->RightsCode = "gfdl";
397 $conf->RightsIcon = '${wgStylePath}/common/images/gnu-fdl.png';
398 } elseif( $conf->License == "none" ) {
399 $conf->RightsUrl = $conf->RightsText = $conf->RightsCode = $conf->RightsIcon = "";
400 } else {
401 $conf->RightsUrl = importRequest( "RightsUrl", "" );
402 $conf->RightsText = importRequest( "RightsText", "" );
403 $conf->RightsCode = importRequest( "RightsCode", "" );
404 $conf->RightsIcon = importRequest( "RightsIcon", "" );
405 }
406
407 $conf->Shm = importRequest( "Shm", "none" );
408 $conf->MCServers = importRequest( "MCServers" );
409
410 /* Test memcached servers */
411
412 if ( $conf->Shm == 'memcached' && $conf->MCServers ) {
413 $conf->MCServerArray = array_map( 'trim', explode( ',', $conf->MCServers ) );
414 foreach ( $conf->MCServerArray as $server ) {
415 $error = testMemcachedServer( $server );
416 if ( $error ) {
417 $errs["MCServers"] = $error;
418 break;
419 }
420 }
421 } else if ( $conf->Shm == 'memcached' ) {
422 $errs["MCServers"] = "Please specify at least one server if you wish to use memcached";
423 }
424
425 /* default values for installation */
426 $conf->Email =importRequest("Email", "email_enabled");
427 $conf->Emailuser=importRequest("Emailuser", "emailuser_enabled");
428 $conf->Enotif =importRequest("Enotif", "enotif_allpages");
429 $conf->Eauthent =importRequest("Eauthent", "eauthent_enabled");
430
431 if( $conf->posted && ( 0 == count( $errs ) ) ) {
432 do { /* So we can 'continue' to end prematurely */
433 $conf->Root = ($conf->RootPW != "");
434
435 /* Load up the settings and get installin' */
436 $local = writeLocalSettings( $conf );
437 $wgCommandLineMode = false;
438 chdir( ".." );
439 eval($local);
440 $wgDBadminuser = "root";
441 $wgDBadminpassword = $conf->RootPW;
442 $wgDBprefix = $conf->DBprefix;
443 $wgCommandLineMode = true;
444 $wgUseDatabaseMessages = false; /* FIXME: For database failure */
445 require_once( "includes/Setup.php" );
446 chdir( "config" );
447
448 require_once( "maintenance/InitialiseMessages.inc" );
449
450 $wgTitle = Title::newFromText( "Installation script" );
451 print "<li>Trying to connect to MySQL on $wgDBserver as root...\n";
452 $wgDatabase = Database::newFromParams( $wgDBserver, "root", $conf->RootPW, "", 1 );
453
454 if( $wgDatabase->isOpen() ) {
455 $myver = mysql_get_server_info( $wgDatabase->mConn );
456 $wgDatabase->ignoreErrors(true);
457 $conf->Root = true;
458 print "<ul><li>Connected as root (automatic)</li></ul></li>\n";
459 } else {
460 print "<ul><li>MySQL error " . ($err = mysql_errno() ) .
461 ": " . htmlspecialchars( mysql_error() ) . "</li></ul></li>";
462 $ok = false;
463 switch( $err ) {
464 case 1045:
465 case 2000:
466 if( $conf->Root ) {
467 $errs["RootPW"] = "Check password";
468 } else {
469 print "<li>Trying regular user...\n";
470 /* Try the regular user... */
471 $wgDBadminuser = $wgDBuser;
472 $wgDBadminpassword = $wgDBpassword;
473 /* Wait one second for connection rate limiting, present on some systems */
474 sleep(1);
475 $wgDatabase = Database::newFromParams( $wgDBserver, $wgDBuser, $wgDBpassword, "", 1 );
476 if( !$wgDatabase->isOpen() ) {
477 print "<ul><li>MySQL error " . ($err = mysql_errno() ) .
478 ": " . htmlspecialchars( mysql_error() ) . "</li></ul></li>";
479 $errs["DBuser"] = "Check name/pass";
480 $errs["DBpassword"] = "or enter root";
481 $errs["DBpassword2"] = "password below";
482 $errs["RootPW"] = "Got root?";
483 } else {
484 $myver = mysql_get_server_info( $wgDatabase->mConn );
485 $wgDatabase->ignoreErrors(true);
486 $conf->Root = false;
487 $conf->RootPW = "";
488 print " ok.</li>\n";
489 # And keep going...
490 $ok = true;
491 }
492 break;
493 }
494 case 2002:
495 case 2003:
496 $errs["DBserver"] = "Connection failed";
497 break;
498 default:
499 $errs["DBserver"] = "Couldn't connect to database";
500 break;
501 }
502 if( !$ok ) continue;
503 }
504
505 if ( !$wgDatabase->isOpen() ) {
506 $errs["DBserver"] = "Couldn't connect to database";
507 continue;
508 }
509
510 print "<li>Connected to $myver";
511 if( version_compare( $myver, "4.0.0" ) >= 0 ) {
512 print "; enabling MySQL 4 enhancements";
513 $conf->DBmysql4 = true;
514 $local = writeLocalSettings( $conf );
515 }
516 print "</li>\n";
517
518 @$sel = mysql_select_db( $wgDBname, $wgDatabase->mConn );
519 if( $sel ) {
520 print "<li>Database <tt>" . htmlspecialchars( $wgDBname ) . "</tt> exists</li>\n";
521 } else {
522 $err = mysql_errno();
523 if ( $err != 1049 ) {
524 print "<ul><li>Error selecting database $wgDBname: $err " . htmlspecialchars( mysql_error() ) .
525 "</li></ul>";
526 continue;
527 }
528 $res = $wgDatabase->query( "CREATE DATABASE `$wgDBname`" );
529 if( !$res ) {
530 print "<li>Couldn't create database <tt>" .
531 htmlspecialchars( $wgDBname ) .
532 "</tt>; try with root access or check your username/pass.</li>\n";
533 $errs["RootPW"] = "&lt;- Enter";
534 continue;
535 }
536 print "<li>Created database <tt>" . htmlspecialchars( $wgDBname ) . "</tt></li>\n";
537 }
538
539 $wgDatabase->selectDB( $wgDBname );
540
541 if( $wgDatabase->tableExists( "cur" ) || $wgDatabase->tableExists( "revision" ) ) {
542 print "<li>There are already MediaWiki tables in this database. Checking if updates are needed...</li>\n";
543
544 # Create user if required
545 if ( $conf->Root ) {
546 $conn = Database::newFromParams( $wgDBserver, $wgDBuser, $wgDBpassword, $wgDBname, 1 );
547 if ( $conn->isOpen() ) {
548 print "<li>DB user account ok</li>\n";
549 $conn->close();
550 } else {
551 print "<li>Granting user permissions...</li>\n";
552 dbsource( "../maintenance/users.sql", $wgDatabase );
553 }
554 }
555 print "<pre>\n";
556 chdir( ".." );
557 flush();
558 do_all_updates();
559 chdir( "config" );
560
561 print "</pre>\n";
562 print "<li>Finished update checks.</li>\n";
563 } else {
564 # FIXME: Check for errors
565 print "<li>Creating tables...";
566 dbsource( "../maintenance/tables.sql", $wgDatabase );
567 dbsource( "../maintenance/interwiki.sql", $wgDatabase );
568 print " done.</li>\n";
569
570 print "<li>Initializing data...";
571 $wgDatabase->insert( 'site_stats',
572 array( 'ss_row_id' => 1,
573 'ss_total_views' => 0,
574 'ss_total_edits' => 0,
575 'ss_good_articles' => 0 ) );
576 # setting up the db user
577 if( $conf->Root ) {
578 print "<li>Granting user permissions...</li>\n";
579 dbsource( "../maintenance/users.sql", $wgDatabase );
580 }
581
582 if( $conf->SysopName ) {
583 $u = User::newFromName( $conf->getSysopName() );
584 if ( 0 == $u->idForName() ) {
585 $u->addToDatabase();
586 $u->setPassword( $conf->getSysopPass() );
587 $u->saveSettings();
588
589 $u->addGroup( "sysop" );
590 $u->addGroup( "bureaucrat" );
591
592 print "<li>Created sysop account <tt>" .
593 htmlspecialchars( $conf->SysopName ) . "</tt>.</li>\n";
594 } else {
595 print "<li>Could not create user - already exists!</li>\n";
596 }
597 } else {
598 print "<li>Skipped sysop account creation, no name given.</li>\n";
599 }
600
601 $titleobj = Title::newFromText( wfMsgNoDB( "mainpage" ) );
602 $article = new Article( $titleobj );
603 $newid = $article->insertOn( $wgDatabase );
604 $revision = new Revision( array(
605 'page' => $newid,
606 'text' => wfMsg( 'mainpagetext' ) . "\n\n" . wfMsg( 'mainpagedocfooter' ),
607 'comment' => '',
608 'user' => 0,
609 'user_text' => 'MediaWiki default',
610 ) );
611 $revid = $revision->insertOn( $wgDatabase );
612 $article->updateRevisionOn( $wgDatabase, $revision );
613
614 print "<li><pre>";
615 initialiseMessages();
616 print "</pre></li>\n";
617 }
618
619 /* Write out the config file now that all is well */
620 print "<p>Creating LocalSettings.php...</p>\n\n";
621 $localSettings = "<" . "?php$endl$local$endl?" . ">";
622 // Fix up a common line-ending problem (due to CVS on Windows)
623 $localSettings = str_replace( "\r\n", "\n", $localSettings );
624
625 if( version_compare( phpversion(), "4.3.2" ) >= 0 ) {
626 $xt = "xt"; # Refuse to overwrite an existing file
627 } else {
628 $xt = "wt"; # 'x' is not available prior to PHP 4.3.2. We did check above, but race conditions blah blah
629 }
630 $f = fopen( "LocalSettings.php", $xt );
631
632 if( $f == false ) {
633 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" .
634 "<p>Here's the file that would have been written, try to paste it into place manually:</p>\n" .
635 "<pre>\n" . htmlspecialchars( $localSettings ) . "</pre>\n" );
636 }
637 if(fwrite( $f, $localSettings ) ) {
638 fclose( $f );
639 writeSuccessMessage();
640 } else {
641 fclose( $f );
642 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");
643
644 }
645
646 } while( false );
647 }
648 ?>
649 </ul>
650
651
652 <?php
653
654 if( count( $errs ) ) {
655 /* Display options form */
656
657 if( $conf->posted ) {
658 echo "<p class='error'>Something's not quite right yet; make sure everything below is filled out correctly.</p>\n";
659 }
660 ?>
661
662 <form action="index.php" name="config" method="post">
663
664
665 <h2>Site config</h2>
666
667 <dl class="setup">
668 <dd>
669 <?php
670 aField( $conf, "Sitename", "Site name:" );
671 ?>
672 </dd>
673 <dt>
674 Your site name should be a relatively short word. It'll appear as the namespace
675 name for 'meta' pages as well as throughout the user interface. Good site names
676 are things like "<a href="http://www.wikipedia.org/">Wikipedia</a>" and
677 "<a href="http://openfacts.berlios.de/">OpenFacts</a>"; avoid punctuation,
678 which may cause problems.
679 </dt>
680
681 <dd>
682 <?php
683 aField( $conf, "EmergencyContact", "Contact e-mail" );
684 ?>
685 </dd>
686 <dt>
687 This will be used as the return address for password reminders and
688 may be displayed in some error conditions so visitors can get in
689 touch with you. It is also be used as the default sender address of e-mail
690 notifications (enotifs).
691 </dt>
692
693 <dd>
694 <label class='column' for="LanguageCode">Language</label>
695 <select id="LanguageCode" name="LanguageCode">
696
697 <?php
698 $list = getLanguageList();
699 foreach( $list as $code => $name ) {
700 $sel = ($code == $conf->LanguageCode) ? 'selected="selected"' : '';
701 echo "\t\t<option value=\"$code\" $sel>$name</option>\n";
702 }
703 ?>
704 </select>
705 </dd>
706 <dt>
707 You may select the language for the user interface of the wiki...
708 Some localizations are less complete than others. Unicode (UTF-8 encoding)
709 is used for all localizations.
710 </dt>
711
712 <dd>
713 <label class='column'>Copyright/license metadata</label>
714 <div>Select one:</div>
715
716 <ul class="plain">
717 <li><?php aField( $conf, "License", "no license metadata", "radio", "none" ); ?></li>
718 <li><?php aField( $conf, "License", "GNU Free Documentation License 1.2 (Wikipedia-compatible)", "radio", "gfdl" ); ?></li>
719 <li><?php
720 aField( $conf, "License", "a Creative Commons license...", "radio", "cc" );
721 $partner = "MediaWiki";
722 $exit = urlencode( "$wgServer{$conf->ScriptPath}/config/index.php?License=cc&RightsUrl=[license_url]&RightsText=[license_name]&RightsCode=[license_code]&RightsIcon=[license_button]" );
723 $icon = urlencode( "$wgServer$wgUploadPath/wiki.png" );
724 $ccApp = htmlspecialchars( "http://creativecommons.org/license/?partner=$partner&exit_url=$exit&partner_icon_url=$icon" );
725 print "<a href=\"$ccApp\">choose</a>";
726 ?> (link will wipe out any other data in this form!)
727 <?php if( $conf->License == "cc" ) { ?>
728 <ul>
729 <li><?php aField( $conf, "RightsIcon", "<img src=\"" . htmlspecialchars( $conf->RightsIcon ) . "\" alt='icon' />", "hidden" ); ?></li>
730 <li><?php aField( $conf, "RightsText", htmlspecialchars( $conf->RightsText ), "hidden" ); ?></li>
731 <li><?php aField( $conf, "RightsCode", "code: " . htmlspecialchars( $conf->RightsCode ), "hidden" ); ?></li>
732 <li><?php aField( $conf, "RightsUrl", "<a href=\"" . htmlspecialchars( $conf->RightsUrl ) . "\">" . htmlspecialchars( $conf->RightsUrl ) . "</a>", "hidden" ); ?></li>
733 </ul>
734 <?php } ?>
735 </li>
736 </ul>
737 </dd>
738 <dt>
739 MediaWiki can include a basic license notice, icon, and machine-readable
740 copyright metadata if your wiki's content is to be licensed under
741 the GNU FDL or a Creative Commons license. If you're not sure, leave
742 it at "none".
743 </dt>
744
745
746 <dd>
747 <?php aField( $conf, "SysopName", "Sysop account name:", "" ) ?>
748 </dd>
749 <dd>
750 <?php aField( $conf, "SysopPass", "password:", "password" ) ?>
751 </dd>
752 <dd>
753 <?php aField( $conf, "SysopPass2", "again:", "password" ) ?>
754 </dd>
755 <dt>
756 A sysop user account can lock or delete pages, block problematic IP
757 addresses from editing, and other maintenance tasks. If creating a new
758 wiki database, a sysop account will be created with the given name
759 and password.
760 </dt>
761
762 <dd>
763 <label class='column'>Shared memory caching</label>
764 <div>Select one:</div>
765
766 <ul class="plain">
767 <li><?php aField( $conf, "Shm", "no caching", "radio", "none" ); ?></li>
768 <?php
769 if ( $conf->turck ) {
770 echo "<li>";
771 aField( $conf, "Shm", "Turck MMCache", "radio", "turck" );
772 echo "</li>";
773 }
774 ?>
775 <?php
776 if ( $conf->eaccel ) {
777 echo "<li>";
778 aField( $conf, "Shm", "eAccelerator", "radio", "eaccel" );
779 echo "</li>";
780 }
781 ?>
782 <li><?php aField( $conf, "Shm", "Memcached", "radio", "memcached" ); ?></li>
783 <li><?php aField( $conf, "MCServers", "Memcached servers", "" ) ?></li>
784 </ul>
785 </dd>
786 <dt>
787 Using a shared memory system such as Turck MMCache, eAccelerator, or Memcached will speed
788 up MediaWiki significantly. Memcached is the best solution but needs to be
789 installed. Specify the server addresses and ports in a comma-separted list. Only
790 use Turck shared memory if the wiki will be running on a single Apache server.
791 </dl>
792
793 <h2>E-mail, e-mail notification and authentification setup</h2>
794
795 <dl class="setup">
796 <dd>
797 <label class='column'>E-mail (general)</label>
798 <div>Select one:</div>
799
800 <ul class="plain">
801 <li><?php aField( $conf, "Email", "enabled", "radio", "email_enabled" ); ?></li>
802 <li><?php aField( $conf, "Email", "disabled", "radio", "email_disabled" ); ?></li>
803 </ul>
804 </dd>
805 <dt>
806 Use this to disable all e-mail functions (send a password reminder, user-to-user e-mail and e-mail notification),
807 if sending e-mails on your server doesn't work.
808 </dt>
809 <dd>
810 <label class='column'>User-to-user e-mail</label>
811 <div>Select one:</div>
812
813 <ul class="plain">
814 <li><?php aField( $conf, "Emailuser", "enabled", "radio", "emailuser_enabled" ); ?></li>
815 <li><?php aField( $conf, "Emailuser", "disabled", "radio", "emailuser_disabled" ); ?></li>
816 </ul>
817 </dd>
818 <dt>
819 Use this to disable only the user-to-user e-mail function (EmailUser).
820 </dt>
821 <dd>
822 <label class='column'>E-mail notification</label>
823 <div>Select one:</div>
824
825 <ul class="plain">
826 <li><?php aField( $conf, "Enotif", "disabled", "radio", "enotif_disabled" ); ?></li>
827 <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>
828 <li><?php aField( $conf, "Enotif", "enabled for changes of user_talk pages only (suited for small and large wikis)", "radio", "enotif_usertalk" ); ?></li>
829 </ul>
830 </dd>
831 <dt>
832 <p>
833 E-mail notification sends a notification e-mail to a user, when the user_talk page is changed
834 and/or when watch-listed pages are changed, depending on the above settings.
835 When testing this feature, be reminded, that obviously an e-mail address must be present in your preferences
836 and that your own changes never trigger notifications to be sent to yourself.</p>
837
838 <p>Users get corresponding options to select or deselect in their users' preferences.
839 The user options are not shown on the preference page, if e-mail notification is disabled.</p>
840
841 <p>There are additional options for fine tuning in /includes/DefaultSettings.php .</p>
842 </dt>
843
844 <dd>
845 <label class='column'>E-mail address authentication</label>
846 <div>Select one:</div>
847
848 <ul class="plain">
849 <li><?php aField( $conf, "Eauthent", "disabled", "radio", "eauthent_disabled" ); ?></li>
850 <li><?php aField( $conf, "Eauthent", "enabled", "radio", "eauthent_enabled" ); ?></li>
851 </ul>
852 </dd>
853 <dt>
854 <p>
855 E-mail address authentication 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
856 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
857 is only authenticated at the moment when the user logs in with the one-time temporary password.<p>
858
859 <p>The e-mail address stays authenticated as long as the user does not change it; the time of authentication is indicated
860 on the user preference page.</p>
861
862 <p>If the option is enabled, only authenticated e-mail addresses can receive EmailUser mails and/or
863 e-mail notification mails.</p>
864 </dt>
865
866 </dl>
867
868 <h2>Database config</h2>
869
870 <dl class="setup">
871 <dd><?php
872 aField( $conf, "DBserver", "MySQL server" );
873 ?></dd>
874 <dt>
875 If your database server isn't on your web server, enter the name
876 or IP address here.
877 </dt>
878
879 <dd><?php
880 aField( $conf, "DBname", "Database name" );
881 ?></dd>
882 <dd><?php
883 aField( $conf, "DBuser", "DB username" );
884 ?></dd>
885 <dd><?php
886 aField( $conf, "DBpassword", "DB password", "password" );
887 ?></dd>
888 <dd><?php
889 aField( $conf, "DBpassword2", "again", "password" );
890 ?></dd>
891 <dt>
892 If you only have a single user account and database available,
893 enter those here. If you have database root access (see below)
894 you can specify new accounts/databases to be created.
895 </dt>
896
897 <dd><?php
898 aField( $conf, "DBprefix", "Database table prefix" );
899 ?></dd>
900 <dt>
901 <p>If you need to share one database between multiple wikis, or
902 MediaWiki and another web application, you may choose to
903 add a prefix to all the table names to avoid conflicts.</p>
904
905 <p>Avoid exotic characters; something like <tt>mw_</tt> is good.</p>
906 </dt>
907
908 <dd>
909 <?php
910 aField( $conf, "RootPW", "DB root password", "password" );
911 ?>
912 </dd>
913 <dt>
914 You will only need this if the database and/or user account
915 above don't already exist.
916 Do <em>not</em> type in your machine's root password! MySQL
917 has its own "root" user with a separate password. (It might
918 even be blank, depending on your configuration.)
919 </dt>
920
921 <dd>
922 <label class='column'>&nbsp;</label>
923 <input type="submit" value="Install!" />
924 </dd>
925 </dl>
926
927
928 </form>
929
930 <?php
931 }
932
933 /* -------------------------------------------------------------------------------------- */
934 function writeSuccessMessage() {
935 global $conf;
936 if ( ini_get( 'safe_mode' ) && !ini_get( 'open_basedir' ) ) {
937 echo <<<EOT
938 <p>Installation successful!</p>
939 <p>To complete the installation, please do the following:
940 <ol>
941 <li>Download config/LocalSettings.php with your FTP client or file manager</li>
942 <li>Upload it to the parent directory</li>
943 <li>Delete config/LocalSettings.php</li>
944 <li>Start using <a href='../index.php'>your wiki</a>!
945 </ol>
946 <p>If you are in a shared hosting environment, do <strong>not</strong> just move LocalSettings.php
947 remotely. LocalSettings.php is currently owned by the user your webserver is running under,
948 which means that anyone on the same server can read your database password! Downloading
949 it and uploading it again will hopefully change the ownership to a user ID specific to you.</p>
950 EOT;
951 } else {
952 echo "<p>Installation successful! Move the config/LocalSettings.php file into the parent directory, then follow
953 <a href='../index.php'>this link</a> to your wiki.</p>\n";
954 }
955 }
956
957
958 function escapePhpString( $string ) {
959 return strtr( $string,
960 array(
961 "\n" => "\\n",
962 "\r" => "\\r",
963 "\t" => "\\t",
964 "\\" => "\\\\",
965 "\$" => "\\\$",
966 "\"" => "\\\""
967 ));
968 }
969
970 function writeLocalSettings( $conf ) {
971 $conf->DBmysql4 = @$conf->DBmysql4 ? 'true' : 'false';
972 $conf->UseImageResize = $conf->UseImageResize ? 'true' : 'false';
973 $conf->PasswordSender = $conf->EmergencyContact;
974 $zlib = ($conf->zlib ? "" : "# ");
975 $magic = ($conf->ImageMagick ? "" : "# ");
976 $convert = ($conf->ImageMagick ? $conf->ImageMagick : "/usr/bin/convert" );
977 $pretty = ($conf->prettyURLs ? "" : "# ");
978 $ugly = ($conf->prettyURLs ? "# " : "");
979 $rights = ($conf->RightsUrl) ? "" : "# ";
980 $hashedUploads = $conf->safeMode ? '' : '# ';
981
982 switch ( $conf->Shm ) {
983 case 'memcached':
984 $cacheType = 'CACHE_MEMCACHED';
985 $mcservers = var_export( $conf->MCServerArray, true );
986 break;
987 case 'turck':
988 case 'eaccel':
989 $cacheType = 'CACHE_ACCEL';
990 $mcservers = 'array()';
991 break;
992 default:
993 $cacheType = 'CACHE_NONE';
994 $mcservers = 'array()';
995 }
996
997 if ( $conf->Email == 'email_enabled' ) {
998 $enableemail = 'true';
999 $enableuseremail = ( $conf->Emailuser == 'emailuser_enabled' ) ? 'true' : 'false' ;
1000 $eauthent = ( $conf->Eauthent == 'eauthent_enabled' ) ? 'true' : 'false' ;
1001 switch ( $conf->Enotif ) {
1002 case 'enotif_usertalk':
1003 $enotifusertalk = 'true';
1004 $enotifwatchlist = 'false';
1005 break;
1006 case 'enotif_allpages':
1007 $enotifusertalk = 'true';
1008 $enotifwatchlist = 'true';
1009 break;
1010 default:
1011 $enotifusertalk = 'false';
1012 $enotifwatchlist = 'false';
1013 }
1014 } else {
1015 $enableuseremail = 'false';
1016 $enableemail = 'false';
1017 $eauthent = 'false';
1018 $enotifusertalk = 'false';
1019 $enotifwatchlist = 'false';
1020 }
1021
1022 $file = @fopen( "/dev/urandom", "r" );
1023 if ( $file ) {
1024 $secretKey = bin2hex( fread( $file, 32 ) );
1025 fclose( $file );
1026 } else {
1027 $secretKey = "";
1028 for ( $i=0; $i<8; $i++ ) {
1029 $secretKey .= dechex(mt_rand(0, 0x7fffffff));
1030 }
1031 print "<li>Warning: \$wgSecretKey key is insecure, generated with mt_rand(). Consider changing it manually.</li>\n";
1032 }
1033
1034 # Add slashes to strings for double quoting
1035 $slconf = array_map( "escapePhpString", get_object_vars( $conf ) );
1036 if( $conf->License == 'gfdl' ) {
1037 # Needs literal string interpolation for the current style path
1038 $slconf['RightsIcon'] = $conf->RightsIcon;
1039 }
1040
1041 $sep = (DIRECTORY_SEPARATOR == "\\") ? ";" : ":";
1042 return "
1043 # This file was automatically generated by the MediaWiki installer.
1044 # If you make manual changes, please keep track in case you need to
1045 # recreate them later.
1046
1047 \$IP = \"{$slconf['IP']}\";
1048 ini_set( \"include_path\", \".$sep\$IP$sep\$IP/includes$sep\$IP/languages\" );
1049 require_once( \"includes/DefaultSettings.php\" );
1050
1051 # If PHP's memory limit is very low, some operations may fail.
1052 " . ($conf->raiseMemory ? '' : '# ' ) . "ini_set( 'memory_limit', '20M' );" . "
1053
1054 if ( \$wgCommandLineMode ) {
1055 if ( isset( \$_SERVER ) && array_key_exists( 'REQUEST_METHOD', \$_SERVER ) ) {
1056 die( \"This script must be run from the command line\\n\" );
1057 }
1058 } elseif ( empty( \$wgNoOutputBuffer ) ) {
1059 ## Compress output if the browser supports it
1060 {$zlib}if( !ini_get( 'zlib.output_compression' ) ) @ob_start( 'ob_gzhandler' );
1061 }
1062
1063 \$wgSitename = \"{$slconf['Sitename']}\";
1064
1065 \$wgScriptPath = \"{$slconf['ScriptPath']}\";
1066 \$wgScript = \"\$wgScriptPath/index.php\";
1067 \$wgRedirectScript = \"\$wgScriptPath/redirect.php\";
1068
1069 ## If using PHP as a CGI module, use the ugly URLs
1070 {$pretty}\$wgArticlePath = \"\$wgScript/\$1\";
1071 {$ugly}\$wgArticlePath = \"\$wgScript?title=\$1\";
1072
1073 \$wgStylePath = \"\$wgScriptPath/skins\";
1074 \$wgStyleDirectory = \"\$IP/skins\";
1075 \$wgLogo = \"\$wgStylePath/common/images/wiki.png\";
1076
1077 \$wgUploadPath = \"\$wgScriptPath/images\";
1078 \$wgUploadDirectory = \"\$IP/images\";
1079
1080 \$wgEnableEmail = $enableemail;
1081 \$wgEnableUserEmail = $enableuseremail;
1082
1083 \$wgEmergencyContact = \"{$slconf['EmergencyContact']}\";
1084 \$wgPasswordSender = \"{$slconf['PasswordSender']}\";
1085
1086 ## For a detailed description of the following switches see
1087 ## http://meta.wikimedia.org/Enotif and http://meta.wikimedia.org/Eauthent
1088 ## There are many more options for fine tuning available see
1089 ## /includes/DefaultSettings.php
1090 ## UPO means: this is also a user preference option
1091 \$wgEnotifUserTalk = $enotifusertalk; # UPO
1092 \$wgEnotifWatchlist = $enotifwatchlist; # UPO
1093 \$wgEmailAuthentication = $eauthent;
1094
1095 \$wgDBserver = \"{$slconf['DBserver']}\";
1096 \$wgDBname = \"{$slconf['DBname']}\";
1097 \$wgDBuser = \"{$slconf['DBuser']}\";
1098 \$wgDBpassword = \"{$slconf['DBpassword']}\";
1099 \$wgDBprefix = \"{$slconf['DBprefix']}\";
1100
1101 # If you're on MySQL 3.x, this next line must be FALSE:
1102 \$wgDBmysql4 = {$conf->DBmysql4};
1103
1104 ## Shared memory settings
1105 \$wgMainCacheType = $cacheType;
1106 \$wgMemCachedServers = $mcservers;
1107
1108 ## To enable image uploads, make sure the 'images' directory
1109 ## is writable, then uncomment this:
1110 # \$wgEnableUploads = true;
1111 \$wgUseImageResize = {$conf->UseImageResize};
1112 {$magic}\$wgUseImageMagick = true;
1113 {$magic}\$wgImageMagickConvertCommand = \"{$convert}\";
1114
1115 ## If you want to use image uploads under safe mode,
1116 ## create the directories images/archive, images/thumb and
1117 ## images/temp, and make them all writable. Then uncomment
1118 ## this, if it's not already uncommented:
1119 {$hashedUploads}\$wgHashedUploadDirectory = false;
1120
1121 ## If you have the appropriate support software installed
1122 ## you can enable inline LaTeX equations:
1123 # \$wgUseTeX = true;
1124 \$wgMathPath = \"{\$wgUploadPath}/math\";
1125 \$wgMathDirectory = \"{\$wgUploadDirectory}/math\";
1126 \$wgTmpDirectory = \"{\$wgUploadDirectory}/tmp\";
1127
1128 \$wgLocalInterwiki = \$wgSitename;
1129
1130 \$wgLanguageCode = \"{$slconf['LanguageCode']}\";
1131
1132 \$wgProxyKey = \"$secretKey\";
1133
1134 ## Default skin: you can change the default skin. Use the internal symbolic
1135 ## names, ie 'standard', 'nostalgia', 'cologneblue', 'monobook':
1136 # \$wgDefaultSkin = 'monobook';
1137
1138 ## For attaching licensing metadata to pages, and displaying an
1139 ## appropriate copyright notice / icon. GNU Free Documentation
1140 ## License and Creative Commons licenses are supported so far.
1141 {$rights}\$wgEnableCreativeCommonsRdf = true;
1142 \$wgRightsPage = \"\"; # Set to the title of a wiki page that describes your license/copyright
1143 \$wgRightsUrl = \"{$slconf['RightsUrl']}\";
1144 \$wgRightsText = \"{$slconf['RightsText']}\";
1145 \$wgRightsIcon = \"{$slconf['RightsIcon']}\";
1146 # \$wgRightsCode = \"{$slconf['RightsCode']}\"; # Not yet used
1147 ";
1148 }
1149
1150 function dieout( $text ) {
1151 die( $text . "\n\n</body>\n</html>" );
1152 }
1153
1154 function importVar( &$var, $name, $default = "" ) {
1155 if( isset( $var[$name] ) ) {
1156 $retval = $var[$name];
1157 if ( get_magic_quotes_gpc() ) {
1158 $retval = stripslashes( $retval );
1159 }
1160 } else {
1161 $retval = $default;
1162 }
1163 return $retval;
1164 }
1165
1166 function importPost( $name, $default = "" ) {
1167 return importVar( $_POST, $name, $default );
1168 }
1169
1170 function importRequest( $name, $default = "" ) {
1171 return importVar( $_REQUEST, $name, $default );
1172 }
1173
1174 function aField( &$conf, $field, $text, $type = "", $value = "" ) {
1175 if( $type != "" ) {
1176 $xtype = "type=\"$type\"";
1177 } else {
1178 $xtype = "";
1179 }
1180
1181 if(!(isset($id)) or ($id == "") ) $id = $field;
1182 $nolabel = ($type == "radio") || ($type == "hidden");
1183 if( $nolabel ) {
1184 echo "\t\t<label>";
1185 } else {
1186 echo "\t\t<label class='column' for=\"$id\">$text</label>\n";
1187 }
1188
1189 if( $type == "radio" && $value == $conf->$field ) {
1190 $checked = "checked='checked'";
1191 } else {
1192 $checked = "";
1193 }
1194 echo "\t\t<input $xtype name=\"$field\" id=\"$id\" $checked value=\"";
1195 if( $type == "radio" ) {
1196 echo htmlspecialchars( $value );
1197 } else {
1198 echo htmlspecialchars( $conf->$field );
1199 }
1200 echo "\" />\n";
1201 if( $nolabel ) {
1202 echo " $text</label>\n";
1203 }
1204
1205 global $errs;
1206 if(isset($errs[$field])) echo "<span class='error'>" . $errs[$field] . "</span>\n";
1207 }
1208
1209 function getLanguageList() {
1210 global $wgLanguageNames;
1211 if( !isset( $wgLanguageNames ) ) {
1212 $wgContLanguageCode = "xxx";
1213 function wfLocalUrl( $x ) { return $x; }
1214 function wfLocalUrlE( $x ) { return $x; }
1215 require_once( "languages/Names.php" );
1216 }
1217
1218 $codes = array();
1219
1220 $d = opendir( "../languages" );
1221 while( false !== ($f = readdir( $d ) ) ) {
1222 if( preg_match( '/Language([A-Z][a-z_]+)\.php$/', $f, $m ) ) {
1223 $code = str_replace( '_', '-', strtolower( $m[1] ) );
1224 if( isset( $wgLanguageNames[$code] ) ) {
1225 $name = $code . ' - ' . $wgLanguageNames[$code];
1226 } else {
1227 $name = $code;
1228 }
1229 $codes[$code] = $name;
1230 }
1231 }
1232 closedir( $d );
1233 ksort( $codes );
1234 return $codes;
1235 }
1236
1237 # Test a memcached server
1238 function testMemcachedServer( $server ) {
1239 $hostport = explode(":", $server);
1240 $errstr = false;
1241 $fp = false;
1242 if ( !function_exists( 'fsockopen' ) ) {
1243 $errstr = "Can't connect to memcached, fsockopen() not present";
1244 }
1245 if ( !$errstr && count( $hostport ) != 2 ) {
1246 $errstr = 'Please specify host and port';
1247 var_dump( $hostport );
1248 }
1249 if ( !$errstr ) {
1250 list( $host, $port ) = $hostport;
1251 $errno = 0;
1252 $fsockerr = '';
1253
1254 $fp = @fsockopen( $host, $port, $errno, $fsockerr, 1.0 );
1255 if ( $fp === false ) {
1256 $errstr = "Cannot connect to memcached on $host:$port : $fsockerr";
1257 }
1258 }
1259 if ( !$errstr ) {
1260 $command = "version\r\n";
1261 $bytes = fwrite( $fp, $command );
1262 if ( $bytes != strlen( $command ) ) {
1263 $errstr = "Cannot write to memcached socket on $host:$port";
1264 }
1265 }
1266 if ( !$errstr ) {
1267 $expected = "VERSION ";
1268 $response = fread( $fp, strlen( $expected ) );
1269 if ( $response != $expected ) {
1270 $errstr = "Didn't get correct memcached response from $host:$port";
1271 }
1272 }
1273 if ( $fp ) {
1274 fclose( $fp );
1275 }
1276 if ( !$errstr ) {
1277 echo "<li>Connected to memcached on $host:$port successfully";
1278 }
1279 return $errstr;
1280 }
1281 ?>
1282
1283 </body>
1284 </html>