<?php
/**
 * This is to display changes made to all articles linked in an article.
 * @file
 * @ingroup SpecialPage
 */

/**
 *
 */
require_once( 'SpecialRecentchanges.php' );

/**
 * Entrypoint
 * @param string $par parent page we will look at
 */
function wfSpecialRecentchangeslinked( $par = NULL ) {
	global $wgUser, $wgOut, $wgLang, $wgContLang, $wgRequest, $wgTitle, $wgScript;

	$days = $wgRequest->getInt( 'days' );
	$target = isset($par) ? $par : $wgRequest->getVal( 'target' );
	$hideminor = $wgRequest->getBool( 'hideminor' ) ? 1 : 0;
	$showlinkedto = $wgRequest->getBool( 'showlinkedto' ) ? 1 : 0;

	$title = Title::newFromURL( $target );
	$target = $title ? $title->getPrefixedText() : '';

	$wgOut->setPagetitle( wfMsg( 'recentchangeslinked' ) );
	$sk = $wgUser->getSkin();

	$wgOut->addHTML(
		Xml::openElement( 'form', array( 'method' => 'get', 'action' => $wgScript ) ) .
		Xml::openElement( 'fieldset' ) .
		Xml::element( 'legend', array(), wfMsg( 'recentchangeslinked' ) ) . "\n" .
		Xml::inputLabel( wfMsg( 'recentchangeslinked-page' ), 'target', 'recentchangeslinked-target', 40, $target ) .
		"&nbsp;&nbsp;&nbsp;<span style='white-space: nowrap'>" .
		Xml::check( 'showlinkedto', $showlinkedto, array('id' => 'showlinkedto') ) . ' ' .
		Xml::label( wfMsg("recentchangeslinked-to"), 'showlinkedto' ) .
		"</span><br/>\n" .
		Xml::hidden( 'title', $wgTitle->getPrefixedText() ). "\n" .
		Xml::submitButton( wfMsg( 'allpagessubmit' ) ) . "\n" .
		Xml::closeElement( 'fieldset' ) .
		Xml::closeElement( 'form' ) . "\n"
	);

	if ( !$target ) {
		return;
	}
	$nt = Title::newFromURL( $target );
	if( !$nt ) {
		$wgOut->showErrorPage( 'notargettitle', 'notargettext' );
		return;
	}
	$id = $nt->getArticleId();

	$wgOut->setPageTitle( wfMsg( 'recentchangeslinked-title', $nt->getPrefixedText() ) );
	$wgOut->setSyndicated();
	$wgOut->setFeedAppendQuery( "target=" . urlencode( $target ) );

	if ( !$days ) {
		$days = (int)$wgUser->getOption( 'rcdays', 7 );
	}
	list( $limit, /* offset */ ) = wfCheckLimits( 100, 'rclimit' );

	$dbr = wfGetDB( DB_SLAVE,'recentchangeslinked' );
	$cutoff = $dbr->timestamp( time() - ( $days * 86400 ) );

	$hideminor = ($hideminor ? 1 : 0);
	if ( $hideminor ) {
		$mlink = $sk->makeKnownLink( $wgContLang->specialPage( 'Recentchangeslinked' ),
	  	  wfMsg( 'show' ), 'target=' . htmlspecialchars( $nt->getPrefixedURL() ) .
		  "&days={$days}&limit={$limit}&hideminor=0&showlinkedto={$showlinkedto}" );
	} else {
		$mlink = $sk->makeKnownLink( $wgContLang->specialPage( "Recentchangeslinked" ),
	  	  wfMsg( "hide" ), "target=" . htmlspecialchars( $nt->getPrefixedURL() ) .
		  "&days={$days}&limit={$limit}&hideminor=1&showlinkedto={$showlinkedto}" );
	}
	if ( $hideminor ) {
		$cmq = 'AND rc_minor=0';
	} else { $cmq = ''; }

	list($recentchanges, $categorylinks, $pagelinks, $watchlist) =
	    $dbr->tableNamesN( 'recentchanges', 'categorylinks', 'pagelinks', "watchlist" );

	$uid = $wgUser->getId();
	// The fields we are selecting
	$fields = "rc_cur_id,rc_namespace,rc_title,
		rc_user,rc_comment,rc_user_text,rc_timestamp,rc_minor,rc_log_type,rc_log_action,rc_params,rc_deleted,
		rc_new, rc_id, rc_this_oldid, rc_last_oldid, rc_bot, rc_patrolled, rc_type, rc_old_len, rc_new_len";
	$fields .= $uid ? ",wl_user" : "";

	// Check if this should be a feed
	$feed = false;
	global $wgSitename, $wgFeedClasses, $wgContLanguageCode, $wgFeedLimit;
	$feedFormat = $wgRequest->getVal( 'feed' );
	if( $feedFormat && isset( $wgFeedClasses[$feedFormat] ) ) {
		$feedTitle = $wgSitename . ' - ' . wfMsgForContent( 'recentchangeslinked-title', $nt->getPrefixedText() ) . 
			' [' . $wgContLanguageCode . ']';
		$feed = new $wgFeedClasses[$feedFormat]( $feedTitle, 
			htmlspecialchars( wfMsgForContent('recentchangeslinked') ), $wgTitle->getFullUrl() );
		# Sanity check
		if( $limit > $wgFeedLimit ) {
			$limit = $wgFeedLimit;
		}
	}

	// If target is a Category, use categorylinks and invert from and to
	if( $nt->getNamespace() == NS_CATEGORY ) {
		$catkey = $dbr->addQuotes( $nt->getDBkey() );
		# The table clauses
		$tables = "$categorylinks, $recentchanges";
		$tables .= $uid ? "LEFT JOIN $watchlist ON wl_user={$uid} AND wl_title=rc_title AND wl_namespace=rc_namespace " : "";

		$sql = "SELECT /* wfSpecialRecentchangeslinked */ $fields FROM $tables 
			WHERE rc_timestamp > '{$cutoff}' {$cmq} 
			AND cl_from=rc_cur_id 
			AND cl_to=$catkey 
			GROUP BY $fields ORDER BY rc_timestamp DESC LIMIT {$limit}"; // Shitty-ass GROUP BY by for postgres apparently
	} else {
		if( $showlinkedto ) {
			$ns = $dbr->addQuotes( $nt->getNamespace() );
			$dbkey = $dbr->addQuotes( $nt->getDBkey() );
			$joinConds = "AND pl_namespace={$ns} AND pl_title={$dbkey} AND pl_from=rc_cur_id";
		} else {
			$joinConds = "AND pl_namespace=rc_namespace AND pl_title=rc_title AND pl_from=$id";
		}
		# The table clauses
		$tables = "$pagelinks, $recentchanges";
		$tables .= $uid ? "LEFT JOIN $watchlist ON wl_user={$uid} AND wl_title=rc_title AND wl_namespace=rc_namespace " : "";

		$sql = "SELECT /* wfSpecialRecentchangeslinked */ $fields FROM $tables
			WHERE rc_timestamp > '{$cutoff}' {$cmq}
			{$joinConds}
			GROUP BY $fields ORDER BY rc_timestamp DESC LIMIT {$limit}"; // Shitty-ass GROUP BY by for postgres apparently
	}
	# Actually do the query
	$res = $dbr->query( $sql, __METHOD__ );
	$count = $dbr->numRows( $res );
	$rchanges = array();
	# Output feeds now and be done with it!
	if( $feed ) {
		if( $count ) {
			$counter = 1;
			while ( $limit ) {
				if ( 0 == $count ) { break; }
				$obj = $dbr->fetchObject( $res );
				--$count;
				$rc = RecentChange::newFromRow( $obj );
				$rc->counter = $counter++;
				--$limit;
				$rchanges[] = $obj;
			}
		}
		require_once( "SpecialRecentchanges.php" );
		$wgOut->disable();
		rcDoOutputFeed( $rchanges, $feed );
		return;
	}
	
	# Otherwise, carry on with regular output...
	$wgOut->addHTML("&lt; ".$sk->makeLinkObj($nt, "", "redirect=no" )."<br />\n");
	$note = wfMsgExt( "rcnote", array ( 'parseinline' ), $limit, $days, $wgLang->timeAndDate( wfTimestampNow(), true ) );
	$wgOut->addHTML( "<hr />\n{$note}\n<br />" );

	$note = rcDayLimitlinks( $days, $limit, "Recentchangeslinked",
				 "target=" . $nt->getPrefixedURL() . "&hideminor={$hideminor}&showlinkedto={$showlinkedto}",
				 false, $mlink );

	$wgOut->addHTML( $note."\n" );

	$list = ChangesList::newFromUser( $wgUser );
	$s = $list->beginRecentChangesList();

	if ( $count ) {
		$counter = 1;
		while ( $limit ) {
			if ( 0 == $count ) { break; }
			$obj = $dbr->fetchObject( $res );
			--$count;
			$rc = RecentChange::newFromRow( $obj );
			$rc->counter = $counter++;
			$s .= $list->recentChangesLine( $rc , !empty( $obj->wl_user) );
			--$limit;
		}
	} else {
		$wgOut->addWikiMsg('recentchangeslinked-noresult');
	}
	$s .= $list->endRecentChangesList();

	$dbr->freeResult( $res );
	$wgOut->addHTML( $s );
}