From c3fe33524131d0fb672157cfb91c0d7bd085c469 Mon Sep 17 00:00:00 2001
From: Brion Vibber <brion@users.mediawiki.org>
Date: Wed, 3 Dec 2003 12:02:53 +0000
Subject: [PATCH] Quick hack to clear out brokenlinks to existing pages
 (doesn't yet add them to links)

---
 maintenance/remove-brokenlinks.php | 71 ++++++++++++++++++++++++++++++
 1 file changed, 71 insertions(+)
 create mode 100644 maintenance/remove-brokenlinks.php

diff --git a/maintenance/remove-brokenlinks.php b/maintenance/remove-brokenlinks.php
new file mode 100644
index 0000000000..2023318e97
--- /dev/null
+++ b/maintenance/remove-brokenlinks.php
@@ -0,0 +1,71 @@
+<?
+
+# Remove spurious brokenlinks
+
+if ( ! is_readable( "../LocalSettings.php" ) ) {
+	print "A copy of your installation's LocalSettings.php\n" .
+	  "must exist in the source directory.\n";
+	exit();
+}
+
+$wgCommandLineMode = true;
+$DP = "../includes";
+include_once( "../LocalSettings.php" );
+include_once( "../AdminSettings.php" );
+
+$sep = strchr( $include_path = ini_get( "include_path" ), ";" ) ? ";" : ":";
+ini_set( "include_path", "$IP$sep$include_path" );
+
+include_once( "Setup.php" );
+include_once( "./rebuildrecentchanges.inc" );
+$wgTitle = Title::newFromText( "Rebuild brokenlinks script" );
+set_time_limit(0);
+
+$wgDBuser			= $wgDBadminuser;
+$wgDBpassword		= $wgDBadminpassword;
+
+
+# That above is common code and should be hidden away :(
+
+$n = 0;
+
+echo "Checking for broken brokenlinks...\n";
+
+$sql = "SELECT cur_namespace,cur_title,cur_id FROM cur";
+$res = wfQuery( $sql, DB_WRITE );
+while( $s = wfFetchObject( $res ) ) {
+	$n++;
+	if(($n % 500) == 0) {
+		echo "$n\n";
+	}
+	$title = Title::makeTitle( $s->cur_namespace, $s->cur_title );
+	if($title) {
+		$t = $title->getPrefixedDBKey();
+		$tt = wfStrencode( $t );
+		$any = false;
+		$sql2 = "SELECT bl_from,cur_id,cur_namespace,cur_title FROM brokenlinks,cur WHERE bl_to='$tt' AND cur_id=bl_from";
+		$res2 = wfQuery( $sql2, DB_WRITE );
+		while( $s = wfFetchObject( $res2 ) ) {
+			$from = Title::makeTitle( $s->cur_namespace, $s->cur_title );
+			$xt = $from->getPrefixedText();
+			echo "Found bad brokenlink to [[$tt]] from page #$s->cur_id [[$xt]]!\n";
+			$any = true;
+		}
+		wfFreeResult( $res2 );
+		if($any) {
+			echo "Removing brokenlinks to [[$t]]...\n";
+			$sql3 = "DELETE FROM brokenlinks WHERE bl_to='$tt'";
+			#$res3 = wfQuery( $sql3, DB_WRITE );
+			echo "-- $sql3\n";
+		}
+	} else {
+		echo "Illegal title?! Namespace $s->cur_namespace, title '$s->cur_title'\n";
+	}
+}
+echo "Done at $n.\n\n";
+
+echo "Clearing linkscc table...\n";
+$sql4 = "DELETE FROM linkscc";
+wfQuery( $sql4, DB_WRITE );
+
+?>
-- 
2.20.1