X-Git-Url: https://git.heureux-cyclage.org/?a=blobdiff_plain;f=includes%2FSpecialWhatlinkshere.php;h=b0ae19c30a6c356b93c7424168fc7c1720740a26;hb=38c54a4528b60b3bfe24c11d8631bf899586730c;hp=8d1c4ba55626bad9af5cd1847a3788942d1b40a6;hpb=65ddd4bd1d7f2accc6c60532930ea557fe3de374;p=lhc%2Fweb%2Fwiklou.git

diff --git a/includes/SpecialWhatlinkshere.php b/includes/SpecialWhatlinkshere.php
index 8d1c4ba556..b0ae19c30a 100644
--- a/includes/SpecialWhatlinkshere.php
+++ b/includes/SpecialWhatlinkshere.php
@@ -1,113 +1,322 @@
-<?
+<?php
+/**
+ *
+ * @addtogroup SpecialPage
+ */
 
-function wfSpecialWhatlinkshere($par = NULL)
-{
-	global $wgUser, $wgOut, $target;
-	$fname = "wfSpecialWhatlinkshere";
+/**
+ * Entry point
+ * @param string $par An article name ??
+ */
+function wfSpecialWhatlinkshere($par = NULL) {
+	global $wgRequest;
+	$page = new WhatLinksHerePage( $wgRequest, $par );
+	$page->execute();
+}
 
-	if($par) {
-		$target = $par;
-	} else {
-		$target = wfCleanQueryVar( $_REQUEST['target'] );
-	}
-	if ( "" == $target ) {
-		$wgOut->errorpage( "notargettitle", "notargettext" );
-		return;
+/**
+ * implements Special:Whatlinkshere
+ * @addtogroup SpecialPage
+ */
+class WhatLinksHerePage {
+	var $request, $par;
+	var $limit, $from, $back, $target;
+	var $selfTitle, $skin;
+
+	private $namespace;
+
+	function WhatLinksHerePage( &$request, $par = null ) {
+		global $wgUser;
+		$this->request =& $request;
+		$this->skin = $wgUser->getSkin();
+		$this->par = $par;
 	}
-	$nt = Title::newFromURL( $target );
-	if( !$nt ) {
-		$wgOut->errorpage( "notargettitle", "notargettext" );
-		return;
+
+	function execute() {
+		global $wgOut;
+
+		$this->limit = min( $this->request->getInt( 'limit', 50 ), 5000 );
+		if ( $this->limit <= 0 ) {
+			$this->limit = 50;
+		}
+		$this->from = $this->request->getInt( 'from' );
+		$this->back = $this->request->getInt( 'back' );
+
+		$targetString = isset($this->par) ? $this->par : $this->request->getVal( 'target' );
+
+		if ( is_null( $targetString ) ) {
+			$wgOut->addHTML( $this->whatlinkshereForm() );
+			return;
+		}
+
+		$this->target = Title::newFromURL( $targetString );
+		if( !$this->target ) {
+			$wgOut->addHTML( $this->whatlinkshereForm() );
+			return;
+		}
+		$this->selfTitle = Title::makeTitleSafe( NS_SPECIAL,
+			'Whatlinkshere/' . $this->target->getPrefixedDBkey() );
+
+		$wgOut->setPageTitle( wfMsg( 'whatlinkshere-title', $this->target->getPrefixedText() ) );
+		$wgOut->setSubtitle( wfMsg( 'linklistsub' ) );
+
+		$wgOut->addHTML( wfMsgExt( 'whatlinkshere-barrow', array( 'escapenoentities') ) . ' '  .$this->skin->makeLinkObj($this->target, '', 'redirect=no' )."<br />\n");
+
+		$this->showIndirectLinks( 0, $this->target, $this->limit, $this->from, $this->back );
 	}
-	$wgOut->setPagetitle( $nt->getPrefixedText() );
-	$wgOut->setSubtitle( wfMsg( "linklistsub" ) );
 
-	$id = $nt->getArticleID();
-	$sk = $wgUser->getSkin();
-	$isredir = " (" . wfMsg( "isredirect" ) . ")\n";
+	/**
+	 * @param int       $level      Recursion level
+	 * @param Title     $target     Target title
+	 * @param int       $limit      Number of entries to display
+	 * @param Title     $from       Display from this article ID
+	 * @param Title     $back       Display from this article ID at backwards scrolling
+	 * @private
+	 */
+	function showIndirectLinks( $level, $target, $limit, $from = 0, $back = 0 ) {
+		global $wgOut;
+		$fname = 'WhatLinksHerePage::showIndirectLinks';
+		$dbr = wfGetDB( DB_READ );
+		$options = array();
+
+		$ns = $this->request->getIntOrNull( 'namespace' );
+		if ( isset( $ns ) ) {
+			$options['namespace'] = $ns;
+			$this->setNamespace( $options['namespace'] );
+		} else {
+			$options['namespace'] = '';
+		}
+
+		// Make the query
+		$plConds = array(
+			'page_id=pl_from',
+			'pl_namespace' => $target->getNamespace(),
+			'pl_title' => $target->getDBkey(),
+		);
 
-	if ( 0 == $id ) {
-		$sql = "SELECT DISTINCT bl_from FROM brokenlinks WHERE bl_to='" .
-		  wfStrencode( $nt->getPrefixedDBkey() ) . "' LIMIT 500";
-		$res = wfQuery( $sql, DB_READ, $fname );
+		$tlConds = array(
+			'page_id=tl_from',
+			'tl_namespace' => $target->getNamespace(),
+			'tl_title' => $target->getDBkey(),
+		);
 
-		if ( 0 == wfNumRows( $res ) ) {
-			$wgOut->addHTML( wfMsg( "nolinkshere" ) );
+		if ( $this->namespace !== null ){
+			$plConds['page_namespace'] = (int)$this->namespace;
+			$tlConds['page_namespace'] = (int)$this->namespace;
+		}
+
+		if ( $from ) {
+			$from = (int)$from; // just in case
+			$tlConds[] = "tl_from >= $from";
+			$plConds[] = "pl_from >= $from";
+		} 
+
+		// Read an extra row as an at-end check
+		$queryLimit = $limit + 1;
+
+		// enforce join order, sometimes namespace selector may 
+		// trigger filesorts which are far less efficient than scanning many entries
+		$options[] = 'STRAIGHT_JOIN';
+
+		$options['LIMIT'] = $queryLimit;
+		$fields = array( 'page_id', 'page_namespace', 'page_title', 'page_is_redirect' );
+
+		$options['ORDER BY'] = 'pl_from';
+		$plRes = $dbr->select( array( 'pagelinks', 'page' ), $fields,
+			$plConds, $fname, $options );
+
+		$options['ORDER BY'] = 'tl_from';
+		$tlRes = $dbr->select( array( 'templatelinks', 'page' ), $fields,
+			$tlConds, $fname, $options );
+
+		if ( !$dbr->numRows( $plRes ) && !$dbr->numRows( $tlRes ) ) {
+			if ( 0 == $level ) {
+				$options = array(); // reinitialize for a further namespace search
+				// really no links to here
+				$options['namespace'] = $this->namespace;
+				$options['target'] = $this->target->getPrefixedText();
+				list( $options['limit'], $options['offset']) = wfCheckLimits();
+				$wgOut->addHTML( $this->whatlinkshereForm( $options ) );
+				$errMsg = isset( $this->namespace ) ? 'nolinkshere-ns' : 'nolinkshere';
+				$wgOut->addWikiText( wfMsg( $errMsg, $this->target->getPrefixedText() ) );
+			}
+			return;
+		}
+
+		$options = array();
+		list( $options['limit'], $options['offset']) = wfCheckLimits();
+		if ( ( $ns = $this->request->getVal( 'namespace', null ) ) !== null && $ns !== '' && ctype_digit($ns) ) {
+			$options['namespace'] = intval( $ns );
+			$this->setNamespace( $options['namespace'] );
 		} else {
-			$wgOut->addHTML( wfMsg( "linkshere" ) );
-			$wgOut->addHTML( "\n<ul>" );
-
-			while ( $row = wfFetchObject( $res ) ) {
-				$lid = $row->bl_from;
-				$sql = "SELECT cur_namespace,cur_title,cur_is_redirect " .
-				  "FROM cur WHERE cur_id={$lid}";
-				$res2 = wfQuery( $sql, DB_READ, $fname );
-				$s = wfFetchObject( $res2 );
-
-				$n = Title::makeName( $s->cur_namespace, $s->cur_title );
-				$link = $sk->makeKnownLink( $n, "", "redirect=no" );
-				$wgOut->addHTML( "<li>{$link}" );
-
-				if ( 1 == $s->cur_is_redirect ) {
-					$wgOut->addHTML( $isredir );
-					wfShowIndirectLinks( 1, $lid );
+			$options['namespace'] = '';
+			$this->setNamespace( null );
+		}
+		$options['offset'] = $this->request->getVal( 'offset' );
+		/* Offset must be an integral. */
+		if ( !strlen( $options['offset'] ) || !preg_match( '/^[0-9]+$/', $options['offset'] ) )
+		$options['offset'] = '';
+		$options['target'] = $this->target->getPrefixedText();
+
+		// Read the rows into an array and remove duplicates
+		// templatelinks comes second so that the templatelinks row overwrites the
+		// pagelinks row, so we get (inclusion) rather than nothing
+		while ( $row = $dbr->fetchObject( $plRes ) ) {
+			$row->is_template = 0;
+			$rows[$row->page_id] = $row;
+		}
+		$dbr->freeResult( $plRes );
+		while ( $row = $dbr->fetchObject( $tlRes ) ) {
+			$row->is_template = 1;
+			$rows[$row->page_id] = $row;
+		}
+		$dbr->freeResult( $tlRes );
+
+		// Sort by key and then change the keys to 0-based indices
+		ksort( $rows );
+		$rows = array_values( $rows );
+
+		$numRows = count( $rows );
+
+		// Work out the start and end IDs, for prev/next links
+		if ( $numRows > $limit ) {
+			// More rows available after these ones
+			// Get the ID from the last row in the result set
+			$nextId = $rows[$limit]->page_id;
+			// Remove undisplayed rows
+			$rows = array_slice( $rows, 0, $limit );
+		} else {
+			// No more rows after
+			$nextId = false;
+		}
+		$prevId = $from;
+
+		if ( $level == 0 ) {
+			$wgOut->addHTML( $this->whatlinkshereForm( $options ) );
+			$wgOut->addWikiText( wfMsg( 'linkshere', $this->target->getPrefixedText() ) );
+
+			$prevnext = $this->getPrevNext( $limit, $prevId, $nextId, $options['namespace'] );
+			$wgOut->addHTML( $prevnext );
+		}
+
+		$wgOut->addHTML( '<ul>' );
+		foreach ( $rows as $row ) {
+			$nt = Title::makeTitle( $row->page_namespace, $row->page_title );
+
+			if ( $row->page_is_redirect ) {
+				$extra = 'redirect=no';
+			} else {
+				$extra = '';
+			}
+
+			$link = $this->skin->makeKnownLinkObj( $nt, '', $extra );
+			$wgOut->addHTML( '<li>'.$link );
+
+			// Display properties (redirect or template)
+			$props = array();
+			if ( $row->page_is_redirect ) {
+				$props[] = wfMsgHtml( 'isredirect' );
+			}
+			if ( $row->is_template ) {
+				$props[] = wfMsgHtml( 'istemplate' );
+			}
+			if ( count( $props ) ) {
+				$list = implode( wfMsgHtml( 'semicolon-separator' ), $props );
+				$wgOut->addHTML( " ($list) " );
+			}
+
+			# Space for utilities links, with a what-links-here link provided
+			$wlh = $this->skin->makeKnownLinkObj(
+				SpecialPage::getTitleFor( 'Whatlinkshere' ),
+				wfMsgHtml( 'whatlinkshere-links' ),
+				'target=' . $nt->getPrefixedUrl()
+			);
+			$wgOut->addHtml( ' <span class="mw-whatlinkshere-tools">(' . $wlh . ')</span>' );
+			
+			if ( $row->page_is_redirect ) {
+				if ( $level < 2 ) {
+					$this->showIndirectLinks( $level + 1, $nt, 500 );
 				}
-				$wgOut->addHTML( "</li>\n" );
 			}
-			$wgOut->addHTML( "</ul>\n" );
-			wfFreeResult( $res );
+			$wgOut->addHTML( "</li>\n" );
+		}
+		$wgOut->addHTML( "</ul>\n" );
+
+		if( $level == 0 ) {
+			$wgOut->addHTML( $prevnext );
 		}
-	} else {
-		wfShowIndirectLinks( 0, $id );
 	}
-}
 
-function wfShowIndirectLinks( $level, $lid )
-{
-	global $wgOut, $wgUser;
-	$fname = "wfShowIndirectLinks";
+	function makeSelfLink( $text, $query ) {
+		return $this->skin->makeKnownLinkObj( $this->selfTitle, $text, $query );
+	}
+
+	function getPrevNext( $limit, $prevId, $nextId ) {
+		global $wgLang;
+		$fmtLimit = $wgLang->formatNum( $limit );
+		$prev = wfMsgExt( 'whatlinkshere-prev', array( 'parsemag', 'escape' ), $fmtLimit );
+		$next = wfMsgExt( 'whatlinkshere-next', array( 'parsemag', 'escape' ), $fmtLimit );
 
-	$sql = "SELECT DISTINCT l_from FROM links WHERE l_to={$lid} LIMIT 500";
-	$res = wfQuery( $sql, DB_READ, $fname );
+		$nsText = '';
+		if( is_int($this->namespace) ) {
+			$nsText = "&namespace={$this->namespace}";
+		}
 
-	if ( 0 == wfNumRows( $res ) ) {
-		if ( 0 == $level ) {
-			$wgOut->addHTML( wfMsg( "nolinkshere" ) );
+		if ( 0 != $prevId ) {
+			$prevLink = $this->makeSelfLink( $prev, "limit={$limit}&from={$this->back}{$nsText}" );
+		} else {
+			$prevLink = $prev;
+		}
+		if ( 0 != $nextId ) {
+			$nextLink = $this->makeSelfLink( $next, "limit={$limit}&from={$nextId}&back={$prevId}{$nsText}" );
+		} else {
+			$nextLink = $next;
 		}
-		return;
+		$nums = $this->numLink( 20, $prevId ) . ' | ' .
+		  $this->numLink( 50, $prevId ) . ' | ' .
+		  $this->numLink( 100, $prevId ) . ' | ' .
+		  $this->numLink( 250, $prevId ) . ' | ' .
+		  $this->numLink( 500, $prevId );
+
+		return wfMsgHtml( 'viewprevnext', $prevLink, $nextLink, $nums );
 	}
-	if ( 0 == $level ) {
-		$wgOut->addHTML( wfMsg( "linkshere" ) );
+
+	function numLink( $limit, $from, $ns = null ) {
+		global $wgLang;
+		$query = "limit={$limit}&from={$from}";
+		if( is_int($this->namespace) ) { $query .= "&namespace={$this->namespace}";}
+		$fmtLimit = $wgLang->formatNum( $limit );
+		return $this->makeSelfLink( $fmtLimit, $query );
 	}
-	$sk = $wgUser->getSkin();
-	$isredir = " (" . wfMsg( "isredirect" ) . ")\n";
-
-	$wgOut->addHTML( "<ul>" );
-	while ( $row = wfFetchObject( $res ) ) {
-		$nt = Title::newFromDBkey( $row->l_from );
-		if( !$nt ) {
-			$wgOut->addHTML( "<!-- bad backlink: " . htmlspecialchars( $row->l_from ) . " -->\n" );
-		}
-		$ns = $nt->getNamespace();
-		$t = wfStrencode( $nt->getDBkey() );
-
-		$link = $sk->makeKnownLink( $row->l_from, "", "redirect=no" );
-		$wgOut->addHTML( "<li>{$link}" );
-
-		$sql = "SELECT cur_id,cur_is_redirect FROM cur " .
-		  "WHERE cur_namespace={$ns} AND cur_title='{$t}'";
-		$res2 = wfQuery( $sql, DB_READ, $fname );
-		$s = wfFetchObject( $res2 );
-
-		if ( 1 == $s->cur_is_redirect ) {
-			$wgOut->addHTML( $isredir );
-			if ( $level < 2 ) {
-				wfShowIndirectLinks( $level + 1, $s->cur_id );
-			}
+
+	function whatlinkshereForm( $options = array( 'target' => '', 'namespace' => '' ) ) {
+		global $wgScript, $wgTitle;
+
+		$options['title'] = $wgTitle->getPrefixedText();
+
+		$f = Xml::openElement( 'form', array( 'method' => 'get', 'action' => $wgScript ) ) .
+			Xml::openElement( 'fieldset' ) .
+			Xml::element( 'legend', array(), wfMsg( 'whatlinkshere' ) ) .
+			Xml::inputLabel( wfMsg( 'whatlinkshere-page' ), 'target', 'mw-whatlinkshere-target', 40, $options['target'] ) . ' ';
+
+		foreach ( $options as $name => $value ) {
+			if( $name === 'namespace' || $name === 'target' )
+				continue;
+			$f .= "\t" . Xml::hidden( $name, $value ). "\n";
 		}
-		$wgOut->addHTML( "</li>\n" );
+
+		$f .= Xml::label( wfMsg( 'namespace' ), 'namespace' ) . ' ' .
+			Xml::namespaceSelector( $options['namespace'], '' ) .
+			Xml::submitButton( wfMsg( 'allpagessubmit' ) ) .
+			Xml::closeElement( 'fieldset' ) .
+			Xml::closeElement( 'form' ) . "\n";
+
+		return $f;
+	}
+
+	/** Set the namespace we are filtering on */
+	private function setNamespace( $ns ) {
+		$this->namespace = $ns;
 	}
-	$wgOut->addHTML( "</ul>\n" );
-}
 
-?>
+}