X-Git-Url: https://scripts.mit.edu/gitweb/autoinstallsdev/mediawiki.git/blobdiff_plain/87219ebd28426c6d21cb545233ee52f5f7af7dfd..18a6620945d02687fbcfc4c27355d952fd748b41:/maintenance/deleteArchivedRevisions.inc

diff --git a/maintenance/deleteArchivedRevisions.inc b/maintenance/deleteArchivedRevisions.inc
new file mode 100644
index 00000000..10bd4cff
--- /dev/null
+++ b/maintenance/deleteArchivedRevisions.inc
@@ -0,0 +1,57 @@
+<?php
+
+/**
+ * Delete archived (deleted from public) revisions from the database
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License along
+ * with this program; if not, write to the Free Software Foundation, Inc.,
+ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ * http://www.gnu.org/copyleft/gpl.html
+ *
+ * @ingroup Maintenance
+ */
+
+class DeleteArchivedRevisionsImplementation {
+
+	/**
+	 * Perform the delete on archived revisions.
+
+	 * @param $maint Object An object (typically of class Maintenance)
+	 * that implements two methods: handleOutput() and
+	 * purgeRedundantText().  See Maintenance for a description of
+	 * those methods.
+	 */
+	static public function doDelete( $maint ) {
+		$dbw = wfGetDB( DB_MASTER );
+
+		$dbw->begin();
+
+		$tbl_arch = $dbw->tableName( 'archive' );
+
+		# Delete as appropriate
+		$maint->handleOutput( "Deleting archived revisions... " );
+		$dbw->query( "DELETE FROM $tbl_arch" );
+
+		$count = $dbw->affectedRows();
+		$deletedRows = $count != 0;
+
+		$maint->handleOutput( "done. $count revisions deleted.\n" );
+
+		# This bit's done
+		# Purge redundant text records
+		$dbw->commit();
+		if ( $deletedRows ) {
+			$maint->purgeRedundantText( true );
+		}
+	}
+}
\ No newline at end of file