From eebe7e3ef58635e18d08bc6ee9b2c53d57370112 Mon Sep 17 00:00:00 2001
From: Antoine Musso <hashar@users.mediawiki.org>
Date: Sun, 15 Aug 2004 19:54:15 +0000
Subject: [PATCH] Migrate doubleredirect and brokenredirect subpages from
 SpecialMaintenance.php to their own SpecialXX.php scripts. TODO: do not die
 when a user access the old page but relocate instead

---
 includes/SpecialBrokenRedirects.php | 51 ++++++++++++++++
 includes/SpecialDoubleRedirects.php | 55 +++++++++++++++++
 includes/SpecialMaintenance.php     | 92 ++++-------------------------
 includes/SpecialPage.php            |  3 +
 4 files changed, 120 insertions(+), 81 deletions(-)
 create mode 100644 includes/SpecialBrokenRedirects.php
 create mode 100644 includes/SpecialDoubleRedirects.php

diff --git a/includes/SpecialBrokenRedirects.php b/includes/SpecialBrokenRedirects.php
new file mode 100644
index 0000000000..42bba16900
--- /dev/null
+++ b/includes/SpecialBrokenRedirects.php
@@ -0,0 +1,51 @@
+<?php
+
+require_once('QueryPage.php');
+
+class BrokenRedirectsPage extends PageQueryPage {
+
+	function getName() {
+		return 'brokenredirects';
+	}
+	
+	function isExpensive( ) { return true; }
+
+	function getPageHeader( ) {
+		#FIXME : probably need to add a backlink to the maintenance page.
+		return '<p>'.wfMsg('brokenredirectstext')."</p><br>\n";
+	}
+
+	function getSQL() {
+		$dbr =& wfGetDB( DB_SLAVE );
+		extract( $dbr->tableNames( 'cur', 'brokenlinks' ) );
+
+		$sql = "SELECT bl_to,cur_title FROM $brokenlinks,$cur " .
+		       "WHERE cur_is_redirect=1 AND cur_namespace=0 AND bl_from=cur_id ";
+		return $sql;
+	}
+
+	function getOrder() {
+		return '';
+	}
+	
+	function formatResult( $skin, $result ) {
+		global $wgLang ;
+		
+		$ns = $wgLang->getNamespaces() ;
+		$from = $skin->makeKnownLink( $result->cur_title ,'', 'redirect=no' );
+		$edit = $skin->makeBrokenLink( $result->cur_title , "(".wfMsg("qbedit").")" , 'redirect=no');
+		$to   = $skin->makeBrokenLink( $result->bl_to );
+				
+		return "$from $edit => $to";
+	}
+}
+
+function wfSpecialBrokenRedirects() {
+	list( $limit, $offset ) = wfCheckLimits();
+	
+	$sbr = new BrokenRedirectsPage();
+	
+	return $sbr->doQuery( $offset, $limit );
+
+}
+?>
diff --git a/includes/SpecialDoubleRedirects.php b/includes/SpecialDoubleRedirects.php
new file mode 100644
index 0000000000..1c98a05b60
--- /dev/null
+++ b/includes/SpecialDoubleRedirects.php
@@ -0,0 +1,55 @@
+<?php
+
+require_once('QueryPage.php');
+
+class DoubleRedirectsPage extends PageQueryPage {
+
+	function getName() {
+		return 'doubleredirects';
+	}
+	
+	function isExpensive( ) { return true; }
+
+	function getPageHeader( ) {
+		#FIXME : probably need to add a backlink to the maintenance page.
+		return '<p>'.wfMsg("doubleredirectstext")."</p><br>\n";
+	}
+
+	function getSQL() {
+		$dbr =& wfGetDB( DB_SLAVE );
+		extract( $dbr->tableNames( 'cur', 'links' ) );
+
+		$sql = "SELECT ca.cur_namespace as ns_a, ca.cur_title as title_a," . 
+			   "  cb.cur_namespace as ns_b, cb.cur_title as title_b," .
+			   "  cb.cur_text AS rt " . 
+			   "FROM $links,$cur AS ca,$cur AS cb ". 
+			   "WHERE ca.cur_is_redirect=1 AND cb.cur_is_redirect=1 AND l_to=cb.cur_id " .
+			   "  AND l_from=ca.cur_id " ;
+		return $sql;
+	}
+
+	function getOrder() {
+		return '';
+	}
+	
+	function formatResult( $skin, $result ) {
+		global $wgLang ;
+		$ns = $wgLang->getNamespaces() ;
+		$from = $skin->makeKnownLink( $ns[$result->ns_a].':'.$result->title_a ,'', 'redirect=no' );
+		$edit = $skin->makeBrokenLink( $ns[$result->ns_a].':'.$result->title_a , "(".wfMsg("qbedit").")" , 'redirect=no');
+		$to   = $skin->makeKnownLink( $ns[$result->ns_b].':'.$result->title_b ,'');
+		$content = $result->rt;
+		
+		return "$from $edit => $to ($content)";
+	}
+}
+
+function wfSpecialDoubleRedirects() {
+	list( $limit, $offset ) = wfCheckLimits();
+	
+	$sdr = new DoubleRedirectsPage();
+	
+	return $sdr->doQuery( $offset, $limit );
+
+}
+?>
diff --git a/includes/SpecialMaintenance.php b/includes/SpecialMaintenance.php
index 44d24cbed9..a9a5cc16db 100644
--- a/includes/SpecialMaintenance.php
+++ b/includes/SpecialMaintenance.php
@@ -31,8 +31,11 @@ function wfSpecialMaintenance( $par=NULL ) {
 	# Call the subfunction requested by the user
 	switch( $subfunction ) {
 	case 'disambiguations': return wfSpecialDisambiguations() ; break;
+	
+	# doubleredirects & brokenredirects are old maintenance subpages.
 	case 'doubleredirects': return wfSpecialDoubleRedirects() ; break;
 	case 'brokenredirects': return wfSpecialBrokenRedirects() ; break;
+	
 	case 'selflinks':       return wfSpecialSelfLinks()       ; break;
 	case 'mispeelings':     return wfSpecialMispeelings()     ; break;
 	case 'missinglanguagelinks': return wfSpecialMissingLanguageLinks() ; break;
@@ -50,8 +53,8 @@ function wfSpecialMaintenance( $par=NULL ) {
 	# Links to subfunctions
 	$r .= "<UL>\n" ;
 	#$r .= "<li>".getMPL("disambiguations")."</li>\n" ; # Doesn't work
-	$r .= '<li>'.getMPL("doubleredirects")."</li>\n" ;
-	$r .= '<li>'.getMPL("brokenredirects")."</li>\n" ;
+	$r .= '<li>'.$sk->makeKnownLink( sns().':DoubleRedirects', wfMsg('doubleredirects')) . "</li>\n";
+	$r .= '<li>'.$sk->makeKnownLink( sns().':BrokenRedirects', wfMsg('brokenredirects')) . "</li>\n";
 	#$r .= "<li>".getMPL("selflinks")."</li>\n" ; # Doesn't work
 	$r .= '<li>'.getMPL("mispeelings")."</li>\n" ;
 
@@ -157,89 +160,16 @@ function wfSpecialDisambiguations() {
 	$wgOut->addHTML( "<p>{$sl}\n" );
 }
 
-
+# TODO & FIXME
+# DoubleRedirects and BrokenRedirects are now using the QueryPage class.
+# Might want to automaticly redirect users to the new pages instead
+# of dieing.
 function wfSpecialDoubleRedirects() {
-	global $wgUser, $wgOut, $wgLang, $wgTitle;
-	$fname = 'wfSpecialDoubleRedirects';
-
-	list( $limit, $offset ) = wfCheckLimits();
-	$dbr =& wfGetDB( DB_SLAVE );
-	extract( $dbr->tableNames( 'cur', 'links' ) );
-
-	$sql = "SELECT ca.cur_namespace as ns_a, ca.cur_title as title_a," . 
-	       "  cb.cur_namespace as ns_b, cb.cur_title as title_b," .
-		   "  cb.cur_text AS rt " . 
-	       "FROM $links,$cur AS ca,$cur AS cb ". 
-	       "WHERE ca.cur_is_redirect=1 AND cb.cur_is_redirect=1 AND l_to=cb.cur_id " .
-	       "  AND l_from=ca.cur_id LIMIT {$offset}, {$limit}" ;
-
-	$res = $dbr->query( $sql, $fname );
-
-	$top = getMaintenancePageBacklink( 'doubleredirects' );
-	$top .= '<p>'.wfMsg("doubleredirectstext")."</p><br>\n";
-	$top .= wfShowingResults( $offset, $limit );
-	$wgOut->addHTML( "<p>{$top}\n" );
-
-	$sl = wfViewPrevNext( $offset, $limit, 'REPLACETHIS' ) ;
-	$sl = str_replace ( 'REPLACETHIS' , sns().':Maintenance&subfunction=doubleredirects' , $sl ) ;
-	$wgOut->addHTML( "<br>{$sl}\n" );
-
-	$sk = $wgUser->getSkin();
-	$s = '<ol start=' . ( $offset + 1 ) . '>';
-	while ( $obj = $dbr->fetchObject( $res ) ) {
-		$n = explode ( "\n" , $obj->rt ) ;
-		$n = $n[0] ;
-		$sourceTitle = Title::makeTitle( $obj->ns_a, $obj->title_a );
-		$destTitle = Title::makeTitle( $obj->ns_b, $obj->title_b );
-
-		$l1 = $sk->makeKnownLinkObj( $sourceTitle , '' , 'redirect=no' ) ; 
-		$l2 = $sk->makeKnownLinkObj( $destTitle , '' , 'redirect=no' ) ;
-		$l3 = $sk->makeBrokenLinkObj( $sourceTitle , '('.wfMsg('qbedit').')' , 'redirect=no' ) ;
-		$s .= "<li>{$l1} {$l3} => {$l2} (\"{$n}\")</li>\n" ;
-	}
-	$dbr->freeResult( $res );
-	$s .= '</ol>';
-	$wgOut->addHTML( $s );
-	$wgOut->addHTML( "<p>{$sl}\n" );
+	wfDebugDieBacktrace( 'SpecialMaintenance.php:wfSpecialDoubleRedirects() is obsolete use SpecialDoubleRedirects.php');
 }
 
-
 function wfSpecialBrokenRedirects() {
-	global $wgUser, $wgOut, $wgLang, $wgTitle;
-	$fname = 'wfSpecialBrokenRedirects';
-
-	list( $limit, $offset ) = wfCheckLimits();
-	$dbr =& wfGetDB( DB_SLAVE );
-	extract( $dbr->tableNames( 'cur', 'brokenlinks' ) );
-
-
-	$sql = "SELECT bl_to,cur_title FROM $brokenlinks,$cur " .
-	  "WHERE cur_is_redirect=1 AND cur_namespace=0 AND bl_from=cur_id " . 
-	  "LIMIT {$offset}, {$limit}" ;
-
-	$res = $dbr->query( $sql, $fname );
-
-	$top = getMaintenancePageBacklink( 'brokenredirects' );
-	$top .= '<p>'.wfMsg('brokenredirectstext')."</p><br>\n";
-	$top .= wfShowingResults( $offset, $limit );
-	$wgOut->addHTML( "<p>{$top}\n" );
-
-	$sl = wfViewPrevNext( $offset, $limit, 'REPLACETHIS' ) ;
-	$sl = str_replace ( 'REPLACETHIS' , sns().":Maintenance&subfunction=brokenredirects" , $sl ) ;
-	$wgOut->addHTML( "<br>{$sl}\n" );
-
-	$sk = $wgUser->getSkin();
-	$s = '<ol start=' . ( $offset + 1 ) . '>';
-	while ( $obj = $dbr->fetchObject( $res ) ) {
-		$l1 = $sk->makeKnownLink ( $obj->cur_title , '' , 'redirect=no' ) ;
-		$l2 = $sk->makeBrokenLink ( $obj->cur_title , "(".wfMsg("qbedit").")" , "redirect=no" ) ;
-		$l3 = $sk->makeBrokenLink ( $obj->bl_to , '' , 'redirect=no' ) ;
-		$s .= "<li>{$l1} {$l2} => {$l3}</li>\n" ;
-	}
-	$dbr->freeResult( $res );
-	$s .= '</ol>';
-	$wgOut->addHTML( $s );
-	$wgOut->addHTML( "<p>{$sl}\n" );
+	wfDebugDieBacktrace( 'SpecialMaintenance.php:wfSpecialBrokenRedirects() is obsolete use SpecialBrokenRedirects.php');
 }
 
 
diff --git a/includes/SpecialPage.php b/includes/SpecialPage.php
index c13c578a21..4737db6484 100644
--- a/includes/SpecialPage.php
+++ b/includes/SpecialPage.php
@@ -13,6 +13,9 @@
 global $wgSpecialPages;
 
 /* private */ $wgSpecialPages = array(
+	'DoubleRedirects'	=> new UnlistedSpecialPage ( 'DoubleRedirects' ),
+	'BrokenRedirects'	=> new UnlistedSpecialPage ( 'BrokenRedirects' ),
+	
 	"Userlogin"         => new SpecialPage( "Userlogin" ),
 	"Userlogout"        => new UnlistedSpecialPage( "Userlogout" ),
 	"Preferences"       => new SpecialPage( "Preferences" ),
-- 
2.20.1