--- /dev/null
+<?php
+
+/**
+ * Remove pages with only 1 revision from the MediaWiki namespace, without
+ * flooding recent changes, delete logs, etc.
+ * Irreversible (can't use standard undelete) and does not update link tables
+ *
+ * This is mainly useful to run before maintenance/update.php when upgrading
+ * to 1.9, to prevent flooding recent changes/deletion logs. It's intended
+ * to be conservative, so it's possible that a few entries will be left for
+ * deletion by the upgrade script. It's also possible that it hasn't been
+ * tested thouroughly enough, and will delete something it shouldn't; so
+ * back up your DB if there's anything in the MediaWiki that is important to
+ * you.
+ *
+ * You can also specify --nodelete to see what will get deleted, without
+ * deleting anything.
+ *
+ * @package MediaWiki
+ * @subpackage Maintenance
+ * @author Steve Sanbeg
+ * based on nukePage by Rob Church
+ */
+
+require_once( 'commandLine.inc' );
+require_once( 'nukePage.inc' );
+
+$ns = NS_MEDIAWIKI;
+$delete = true;
+
+if (isset($options['ns']))
+{
+ $ns = $options['ns'];
+}
+
+if (isset( $options['nodelete'] ))
+{
+ $delete = false;
+}
+
+
+if ($delete) echo "delete $ns\n";
+exit (0);
+
+
+NukeNS( $ns, $delete);
+
+function NukeNS($ns_no, $delete) {
+
+ $dbw =& wfGetDB( DB_MASTER );
+ $dbw->begin();
+
+ $tbl_pag = $dbw->tableName( 'page' );
+ $tbl_rev = $dbw->tableName( 'revision' );
+ $res = $dbw->query( "SELECT page_title FROM $tbl_pag WHERE page_namespace = $ns_no" );
+
+ while( $row = $dbw->fetchObject( $res ) ) {
+ //echo "$ns_name:".$row->page_title, "\n";
+ $title = Title::newFromText($row->page_title, $ns_no);
+ $id = $title->getArticleID();
+
+ // Get corresponding revisions
+ $res2 = $dbw->query( "SELECT rev_id FROM $tbl_rev WHERE rev_page = $id" );
+ $revs = array();
+
+ while( $row2 = $dbw->fetchObject( $res2 ) ) {
+ $revs[] = $row2->rev_id;
+ }
+ $count = count( $revs );
+
+ //skip anything that looks modified (i.e. multiple revs)
+ if (($count == 1)) {
+ #echo $title->getPrefixedText(), "\t", $count, "\n";
+ echo "delete: ", $title->getPrefixedText(), "\n";
+
+ //as much as I hate to cut & paste this, it's a little different, and
+ //I already have the id & revs
+
+ if( $delete ) {
+ $dbw->query( "DELETE FROM $tbl_pag WHERE page_id = $id" );
+ $dbw->commit();
+ // Delete revisions as appropriate
+ DeleteRevisions( $revs );
+ PurgeRedundantText( true );
+ }
+ } else {
+ echo "skip: ", $title->getPrefixedText(), "\n";
+ }
+
+
+ }
+}
+
+
+?>
\ No newline at end of file