(bug 4974) Don't follow redirected talk page on "new messages" link
[lhc/web/wiklou.git] / includes / SpecialVersion.php
index d854b44..6341dd3 100644 (file)
@@ -1,11 +1,14 @@
 <?php
-/**
+/**#@+
  * Give information about the version of MediaWiki, PHP, the DB and extensions
  *
  * @package MediaWiki
  * @subpackage SpecialPage
  *
+ * @bug 2019, 4531
+ *
  * @author Ævar Arnfjörð Bjarmason <avarab@gmail.com>
+ * @copyright Copyright © 2005, Ævar Arnfjörð Bjarmason
  * @license http://www.gnu.org/copyleft/gpl.html GNU General Public License 2.0 or later
  */
 
@@ -19,78 +22,82 @@ function wfSpecialVersion() {
 
 class SpecialVersion {
        /**
-        * @var object
-        */
-       var $langObj;
-       
-       /**
-        * Constructor
+        * main()
         */
-       function SpecialVersion() {
-               // English motherfucker, do you speak it?
-               $this->langObj = setupLangObj( 'LanguageEn' );
-               $this->langObj->initEncoding();
-       }
-       
        function execute() {
                global $wgOut;
-               
-               $wgOut->setRobotpolicy( 'index,follow' );
-               $wgOut->addWikiText( $this->MediaWikiCredits() . $this->extensionCredits() );
+
+               $wgOut->addHTML( '<div dir="ltr">' );
+               $wgOut->addWikiText(
+                       $this->MediaWikiCredits() .
+                       $this->extensionCredits() .
+                       $this->wgHooks()
+               );
                $wgOut->addHTML( $this->IPInfo() );
+               $wgOut->addHTML( '</div>' );
        }
 
+       /**#@+
+        * @access private
+        */
+
+       /**
+        * @static
+        */
        function MediaWikiCredits() {
                global $wgVersion;
-               
+
                $dbr =& wfGetDB( DB_SLAVE );
-               
+
                $ret =
                "__NOTOC__
-               <div dir='ltr'>
-               This wiki is powered by '''[http://www.mediawiki.org/ MediaWiki]''',  
-               copyright (C) 2001-2005 Magnus Manske, Brion Vibber, Lee Daniel Crocker,
+               This wiki is powered by '''[http://www.mediawiki.org/ MediaWiki]''',
+               copyright (C) 2001-2006 Magnus Manske, Brion Vibber, Lee Daniel Crocker,
                Tim Starling, Erik Möller, and others.
-                
+
                MediaWiki is free software; you can redistribute it and/or modify
                it under the terms of the GNU General Public License as published by
                the Free Software Foundation; either version 2 of the License, or
                (at your option) any later version.
-                
+
                MediaWiki is distributed in the hope that it will be useful,
                but WITHOUT ANY WARRANTY; without even the implied warranty of
                MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                GNU General Public License for more details.
-               
+
                You should have received [{{SERVER}}{{SCRIPTPATH}}/COPYING a copy of the GNU General Public License]
                along with this program; if not, write to the Free Software
                Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
                or [http://www.gnu.org/copyleft/gpl.html read it online]
-               
+
                * [http://www.mediawiki.org/ MediaWiki]: $wgVersion
                * [http://www.php.net/ PHP]: " . phpversion() . " (" . php_sapi_name() . ")
-               * " . $dbr->getSoftwareLink() . ": " . $dbr->getServerVersion() . "
-               </div>";
+               * " . $dbr->getSoftwareLink() . ": " . $dbr->getServerVersion();
 
                return str_replace( "\t\t", '', $ret );
        }
 
        function extensionCredits() {
-               global $wgExtensionCredits, $wgExtensionFunctions, $wgSkinExtensionFunction;
-               
+               global $wgExtensionCredits, $wgExtensionFunctions, $wgParser, $wgSkinExtensionFunction;
+
                if ( ! count( $wgExtensionCredits ) && ! count( $wgExtensionFunctions ) && ! count( $wgSkinExtensionFunction ) )
                        return '';
 
                $extensionTypes = array(
                        'specialpage' => 'Special pages',
                        'parserhook' => 'Parser hooks',
+                       'variable' => 'Variables',
                        'other' => 'Other',
                );
-               
+               wfRunHooks( 'SpecialVersionExtensionTypes', array( &$this, &$extensionTypes ) );
+
                $out = "\n* Extensions:\n";
                foreach ( $extensionTypes as $type => $text ) {
                        if ( count( @$wgExtensionCredits[$type] ) ) {
                                $out .= "** $text:\n";
+
+                               usort( $wgExtensionCredits[$type], array( $this, 'compare' ) );
+
                                foreach ( $wgExtensionCredits[$type] as $extension ) {
                                        wfSuppressWarnings();
                                        $out .= $this->formatCredits(
@@ -107,17 +114,31 @@ class SpecialVersion {
 
                if ( count( $wgExtensionFunctions ) ) {
                        $out .= "** Extension functions:\n";
-                       $out .= '***' . $this->langObj->listToText( $wgExtensionFunctions ) . "\n";
+                       $out .= '***' . $this->listToText( $wgExtensionFunctions ) . "\n";
+               }
+
+               if ( $cnt = count( $tags = $wgParser->getTags() ) ) {
+                       for ( $i = 0; $i < $cnt; ++$i )
+                               $tags[$i] = "&lt;{$tags[$i]}&gt;";
+                       $out .= "** Parser extension tags:\n";
+                       $out .= '***' . $this->listToText( $tags ). "\n";
                }
 
                if ( count( $wgSkinExtensionFunction ) ) {
                        $out .= "** Skin extension functions:\n";
-                       $out .= '***' . $this->langObj->listToText( $wgSkinExtensionFunction ) . "\n";
+                       $out .= '***' . $this->listToText( $wgSkinExtensionFunction ) . "\n";
                }
 
                return $out;
        }
 
+       function compare( $a, $b ) {
+               if ( $a['name'] === $b['name'] )
+                       return 0;
+               else
+                       return LanguageUtf8::lc( $a['name'] ) > LanguageUtf8::lc( $b['name'] ) ? 1 : -1;
+       }
+
        function formatCredits( $name, $version = null, $author = null, $url = null, $description = null) {
                $ret = '*** ';
                if ( isset( $url ) )
@@ -133,16 +154,77 @@ class SpecialVersion {
                if ( isset( $description ) && isset( $author ) )
                        $ret .= ', ';
                if ( isset( $author ) )
-                       $ret .= ' by ' . $this->langObj->listToText( (array)$author );
+                       $ret .= ' by ' . $this->listToText( (array)$author );
 
                return "$ret\n";
        }
 
+       /**
+        * @return string
+        */
+       function wgHooks() {
+               global $wgHooks;
+
+               if ( count( $wgHooks ) ) {
+                       $myWgHooks = $wgHooks;
+                       ksort( $myWgHooks );
+                       
+                       $ret = "* Hooks:\n";
+                       foreach ($myWgHooks as $hook => $hooks)
+                               $ret .= "** $hook: " . $this->listToText( $hooks ) . "\n";
+                       
+                       return $ret;
+               } else
+                       return '';
+       }
+
+       /**
+        * @static
+        *
+        * @return string
+        */
        function IPInfo() {
-               global $wgIP;
-               
-               $ip =  str_replace( '--', ' - - ', htmlspecialchars( $wgIP ) );
+               $ip =  str_replace( '--', ' - ', htmlspecialchars( wfGetIP() ) );
                return "<!-- visited from $ip -->\n";
        }
+
+       /**
+        * @param array $list
+        * @return string
+        */
+       function listToText( $list ) {
+               $cnt = count( $list );
+
+           if ( $cnt == 1 )
+                       // Enforce always returning a string
+                       return (string)$this->arrayToString( $list[0] );
+           else {
+                       $t = array_slice( $list, 0, $cnt - 1 );
+                       $one = array_map( array( &$this, 'arrayToString' ), $t );
+                       $two = $this->arrayToString( $list[$cnt - 1] );
+                       
+                       return implode( ', ', $one ) . " and $two";
+           }
+       }
+
+       /**
+        * @static
+        *
+        * @param mixed $list Will convert an array to string if given and return
+        *                    the paramater unaltered otherwise
+        * @return mixed
+        */
+       function arrayToString( $list ) {
+               if ( ! is_array( $list ) )
+                       return $list;
+               else {
+                       $class = get_class( $list[0] );
+                       return "($class, {$list[1]})";
+               }
+       }
+
+       /**#@-*/
 }
+
+/**#@-*/
 ?>