Quick hack to clear out brokenlinks to existing pages (doesn't yet add them to links)

diff --git a/maintenance/remove-brokenlinks.php b/maintenance/remove-brokenlinks.php
new file mode 100644 (file)
index 0000000..2023318
--- /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 );
+
+?>