Experimental: use absolute paths in require_once
[mediawiki.git] / includes / SpecialVersion.php
blob5f7e857f3f56e1e53fc9bcb5b11a8f67c16c2fdb
1 <?php
2 /**#@+
3 * Give information about the version of MediaWiki, PHP, the DB and extensions
5 * @package MediaWiki
6 * @subpackage SpecialPage
8 * @bug 2019, 4531
10 * @author Ævar Arnfjörð Bjarmason <avarab@gmail.com>
11 * @copyright Copyright © 2005, Ævar Arnfjörð Bjarmason
12 * @license http://www.gnu.org/copyleft/gpl.html GNU General Public License 2.0 or later
15 /**
16 * constructor
18 function wfSpecialVersion() {
19 $version = new SpecialVersion;
20 $version->execute();
23 class SpecialVersion {
24 /**
25 * main()
27 function execute() {
28 global $wgOut;
30 $wgOut->addHTML( '<div dir="ltr">' );
31 $wgOut->addWikiText(
32 $this->MediaWikiCredits() .
33 $this->extensionCredits() .
34 $this->wgHooks()
36 $wgOut->addHTML( $this->IPInfo() );
37 $wgOut->addHTML( '</div>' );
40 /**#@+
41 * @private
44 /**
45 * @static
47 function MediaWikiCredits() {
48 $version = $this->getVersion();
49 $dbr =& wfGetDB( DB_SLAVE );
51 $ret =
52 "__NOTOC__
53 This wiki is powered by '''[http://www.mediawiki.org/ MediaWiki]''',
54 copyright (C) 2001-2006 Magnus Manske, Brion Vibber, Lee Daniel Crocker,
55 Tim Starling, Erik Möller, Gabriel Wicke, Ævar Arnfjörð Bjarmason,
56 Niklas Laxström, Domas Mituzas, Rob Church and others.
58 MediaWiki is free software; you can redistribute it and/or modify
59 it under the terms of the GNU General Public License as published by
60 the Free Software Foundation; either version 2 of the License, or
61 (at your option) any later version.
63 MediaWiki is distributed in the hope that it will be useful,
64 but WITHOUT ANY WARRANTY; without even the implied warranty of
65 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
66 GNU General Public License for more details.
68 You should have received [{{SERVER}}{{SCRIPTPATH}}/COPYING a copy of the GNU General Public License]
69 along with this program; if not, write to the Free Software
70 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
71 or [http://www.gnu.org/copyleft/gpl.html read it online]
73 * [http://www.mediawiki.org/ MediaWiki]: $version
74 * [http://www.php.net/ PHP]: " . phpversion() . " (" . php_sapi_name() . ")
75 * " . $dbr->getSoftwareLink() . ": " . $dbr->getServerVersion();
77 return str_replace( "\t\t", '', $ret );
80 function getVersion() {
81 global $wgVersion, $IP;
82 $svn = $this->getSvnRevision( $IP );
83 return $svn ? "$wgVersion (r$svn)" : $wgVersion;
86 function extensionCredits() {
87 global $wgExtensionCredits, $wgExtensionFunctions, $wgParser, $wgSkinExtensionFunction;
89 if ( ! count( $wgExtensionCredits ) && ! count( $wgExtensionFunctions ) && ! count( $wgSkinExtensionFunction ) )
90 return '';
92 $extensionTypes = array(
93 'specialpage' => 'Special pages',
94 'parserhook' => 'Parser hooks',
95 'variable' => 'Variables',
96 'other' => 'Other',
98 wfRunHooks( 'SpecialVersionExtensionTypes', array( &$this, &$extensionTypes ) );
100 $out = "\n* Extensions:\n";
101 foreach ( $extensionTypes as $type => $text ) {
102 if ( count( @$wgExtensionCredits[$type] ) ) {
103 $out .= "** $text:\n";
105 usort( $wgExtensionCredits[$type], array( $this, 'compare' ) );
107 foreach ( $wgExtensionCredits[$type] as $extension ) {
108 wfSuppressWarnings();
109 $out .= $this->formatCredits(
110 $extension['name'],
111 $extension['version'],
112 $extension['author'],
113 $extension['url'],
114 $extension['description']
116 wfRestoreWarnings();
121 if ( count( $wgExtensionFunctions ) ) {
122 $out .= "** Extension functions:\n";
123 $out .= '***' . $this->listToText( $wgExtensionFunctions ) . "\n";
126 if ( $cnt = count( $tags = $wgParser->getTags() ) ) {
127 for ( $i = 0; $i < $cnt; ++$i )
128 $tags[$i] = "&lt;{$tags[$i]}&gt;";
129 $out .= "** Parser extension tags:\n";
130 $out .= '***' . $this->listToText( $tags ). "\n";
133 if ( count( $wgSkinExtensionFunction ) ) {
134 $out .= "** Skin extension functions:\n";
135 $out .= '***' . $this->listToText( $wgSkinExtensionFunction ) . "\n";
138 return $out;
141 function compare( $a, $b ) {
142 if ( $a['name'] === $b['name'] )
143 return 0;
144 else
145 return LanguageUtf8::lc( $a['name'] ) > LanguageUtf8::lc( $b['name'] ) ? 1 : -1;
148 function formatCredits( $name, $version = null, $author = null, $url = null, $description = null) {
149 $ret = '*** ';
150 if ( isset( $url ) )
151 $ret .= "[$url ";
152 $ret .= "''$name";
153 if ( isset( $version ) )
154 $ret .= " (version $version)";
155 $ret .= "''";
156 if ( isset( $url ) )
157 $ret .= ']';
158 if ( isset( $description ) )
159 $ret .= ', ' . $description;
160 if ( isset( $description ) && isset( $author ) )
161 $ret .= ', ';
162 if ( isset( $author ) )
163 $ret .= ' by ' . $this->listToText( (array)$author );
165 return "$ret\n";
169 * @return string
171 function wgHooks() {
172 global $wgHooks;
174 if ( count( $wgHooks ) ) {
175 $myWgHooks = $wgHooks;
176 ksort( $myWgHooks );
178 $ret = "* Hooks:\n";
179 foreach ($myWgHooks as $hook => $hooks)
180 $ret .= "** $hook: " . $this->listToText( $hooks ) . "\n";
182 return $ret;
183 } else
184 return '';
188 * @static
190 * @return string
192 function IPInfo() {
193 $ip = str_replace( '--', ' - ', htmlspecialchars( wfGetIP() ) );
194 return "<!-- visited from $ip -->\n" .
195 "<span style='display:none'>visited from $ip</span>";
199 * @param array $list
200 * @return string
202 function listToText( $list ) {
203 $cnt = count( $list );
205 if ( $cnt == 1 )
206 // Enforce always returning a string
207 return (string)$this->arrayToString( $list[0] );
208 else {
209 $t = array_slice( $list, 0, $cnt - 1 );
210 $one = array_map( array( &$this, 'arrayToString' ), $t );
211 $two = $this->arrayToString( $list[$cnt - 1] );
213 return implode( ', ', $one ) . " and $two";
218 * @static
220 * @param mixed $list Will convert an array to string if given and return
221 * the paramater unaltered otherwise
222 * @return mixed
224 function arrayToString( $list ) {
225 if ( ! is_array( $list ) )
226 return $list;
227 else {
228 $class = get_class( $list[0] );
229 return "($class, {$list[1]})";
234 * Retrieve the revision number of a Subversion working directory.
236 * @param string $dir
237 * @return mixed revision number as int, or false if not a SVN checkout
239 function getSvnRevision( $dir ) {
240 if( !function_exists( 'simplexml_load_file' ) ) {
241 // We could fall back to expat... YUCK
242 return false;
245 // http://svnbook.red-bean.com/nightly/en/svn.developer.insidewc.html
246 $entries = $dir . '/.svn/entries';
248 // SimpleXml whines about the xmlns...
249 wfSuppressWarnings();
250 $xml = simplexml_load_file( $entries );
251 wfRestoreWarnings();
253 if( $xml ) {
254 foreach( $xml->entry as $entry ) {
255 if( $xml->entry[0]['name'] == '' ) {
256 // The directory entry should always have a revision marker.
257 if( $entry['revision'] ) {
258 return intval( $entry['revision'] );
263 return false;
266 /**#@-*/
269 /**#@-*/