<?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;
}

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";
    }
    
    
  }
}


?>