{$err}\n" ); + $movearticle = wfMsgHtml( 'movearticle' ); + $newtitle = wfMsgHtml( 'newtitle' ); + $movereason = wfMsgHtml( 'movereason' ); + + $titleObj = SpecialPage::getTitleFor( 'Movepage' ); + $action = $titleObj->escapeLocalURL( 'action=submit' ); + $token = htmlspecialchars( $wgUser->editToken() ); + + if ( $err != '' ) { + $wgOut->setSubtitle( wfMsg( 'formerror' ) ); + $errMsg = ""; + if( $err == 'hookaborted' ) { + $errMsg = "
$hookErr
\n"; + } else { + $errMsg = '' . wfMsgWikiHtml( $err ) . "
\n"; + } + $wgOut->addHTML( $errMsg ); } - $wgOut->addHTML( "+ + $moveTalkChecked = $this->moveTalk ? ' checked="checked"' : ''; + + $wgOut->addHTML( "
\n" ); + $this->showLogFragment( $ot, $wgOut ); + } - function doSubmit() - { - global $wgOut, $wgUser, $wgLang; - global $wgDeferredUpdateList, $wgMessageCache; - global $wgUseSquid; - $fname = "MovePageForm::doSubmit"; - - $this->ot = Title::newFromText( $this->oldTitle ); - $this->nt = Title::newFromText( $this->newTitle ); - if( !$this->ot or !$this->nt ) { - $this->showForm( wfMsg( "badtitletext" ) ); + function doSubmit() { + global $wgOut, $wgUser, $wgRequest; + + if ( $wgUser->pingLimiter( 'move' ) ) { + $wgOut->rateLimited(); return; } - $this->ons = $this->ot->getNamespace(); - $this->nns = $this->nt->getNamespace(); - $this->odt = wfStrencode( $this->ot->getDBkey() ); - $this->ndt = wfStrencode( $this->nt->getDBkey() ); - $this->oft = wfStrencode( $this->ot->getPrefixedDBkey() ); - $this->nft = wfStrencode( $this->nt->getPrefixedDBkey() ); - $this->ofx = $this->ot->getPrefixedText(); - $this->nfx = $this->nt->getPrefixedText(); - - $this->oldid = $this->ot->getArticleID(); - $this->newid = $this->nt->getArticleID(); - - if ( strlen( trim( $this->ndt ) ) < 1 ) { - $this->showForm( wfMsg( "articleexists" ) ); - return; + + # Variables beginning with 'o' for old article 'n' for new article + + $ot = Title::newFromText( $this->oldTitle ); + $nt = Title::newFromText( $this->newTitle ); + + # Delete to make way if requested + if ( $wgUser->isAllowed( 'delete' ) && $this->deleteAndMove ) { + $article = new Article( $nt ); + // This may output an error message and exit + $article->doDelete( wfMsgForContent( 'delete_and_move_reason' ) ); } - if ( ( ! Namespace::isMovable( $this->ons ) ) || - ( "" == $this->odt ) || - ( "" != $this->ot->getInterwiki() ) || - ( !$this->ot->userCanEdit() ) || - ( !$this->oldid ) || - ( ! Namespace::isMovable( $this->nns ) ) || - ( "" == $this->ndt ) || - ( "" != $this->nt->getInterwiki() ) || - ( !$this->nt->userCanEdit() ) || - ( $this->ons == NS_MEDIAWIKI && $wgMessageCache->isCacheable( $this->odt ) ) ) { - $this->showForm( wfMsg( "badarticleerror" ) ); + + # don't allow moving to pages with # in + if ( !$nt || $nt->getFragment() != '' ) { + $this->showForm( 'badtitletext' ); return; } - # The move is allowed only if (1) the target doesn't exist, or - # (2) the target is a redirect to the source, and has no history - # (so we can undo bad moves right after they're done). - - if ( 0 != $this->newid ) { # Target exists; check for validity - if ( ! $this->isValidTarget() ) { - $this->showForm( wfMsg( "articleexists" ) ); - return; - } - $this->moveOverExistingRedirect(); - } else { # Target didn't exist, do normal move. - $this->moveToNewTitle(); - } - - $this->updateWatchlists(); - $u = new SearchUpdate( $this->oldid, $this->nt->getPrefixedDBkey() ); - $u->doUpdate(); - $u = new SearchUpdate( $this->newid, $this->ot->getPrefixedDBkey(), "" ); - $u->doUpdate(); - - # Squid purging - if ( $wgUseSquid ) { - /* this needs to be done after LinksUpdate */ - $urlArr = Array( - # purge new title - $this->nt->getInternalURL(), - # purge old title - $this->ot->getInternalURL(), - ); - wfPurgeSquidServers($urlArr); - # purge pages linking to new title - $u = new SquidUpdate($this->nt); - array_push( $wgDeferredUpdateList, $u ); - # purge pages linking to old title - $u = new SquidUpdate($this->ot); - array_push( $wgDeferredUpdateList, $u ); - - + $hookErr = null; + if( !wfRunHooks( 'AbortMove', array( $ot, $nt, $wgUser, &$hookErr ) ) ) { + $this->showForm( 'hookaborted', $hookErr ); + return; } - # Move talk page if (1) the checkbox says to, (2) the source - # and target namespaces are identical, (3) the namespaces are not - # themselves talk namespaces, and of course (4) it exists. - - if ( ( 1 == $_REQUEST['wpMovetalk'] ) && - ( ! Namespace::isTalk( $this->ons ) ) && - ( $this->ons == $this->nns ) ) { - - $this->ons = $this->nns = Namespace::getTalk( $this->ons ); - $this->ot = Title::makeTitle( $this->ons, $this->ot->getDBkey() ); - $this->nt = Title::makeTitle( $this->nns, $this->nt->getDBkey() ); - - # odt, ndt, ofx, nfx remain the same - - $this->oft = wfStrencode( $this->ot->getPrefixedDBkey() ); - $this->nft = wfStrencode( $this->nt->getPrefixedDBkey() ); - - $this->oldid = $this->ot->getArticleID(); - $this->newid = $this->nt->getArticleID(); - - if ( 0 != $this->oldid ) { - if ( 0 != $this->newid ) { - if ( $this->isValidTarget() ) { - $this->moveOverExistingRedirect(); - $this->talkmoved = 1; - } else { - $this->talkmoved = 'invalid'; - } - } else { - $this->moveToNewTitle(); - $this->talkmoved = 1; - } - $u = new SearchUpdate( $this->oldid, $this->nt->getPrefixedDBkey() ); - $u->doUpdate(); - $u = new SearchUpdate( $this->newid, $this->ot->getPrefixedDBkey(), "" ); - $u->doUpdate(); - - # Squid purging - if ( $wgUseSquid ) { - /* this needs to be done after LinksUpdate */ - $urlArr = Array( - # purge new title - $nt->getInternalURL(), - # purge old title - $ot->getInternalURL(), - ); - wfPurgeSquidServers($urlArr); - # purge pages linking to new title - $u = new SquidUpdate($this->nt); - array_push( $wgDeferredUpdateList, $u ); - # purge pages linking to old title - $u = new SquidUpdate($this->ot); - array_push( $wgDeferredUpdateList, $u ); + $error = $ot->moveTo( $nt, true, $this->reason ); + if ( $error !== true ) { + $this->showForm( $error ); + return; + } + wfRunHooks( 'SpecialMovepageAfterMove', array( &$this , &$ot , &$nt ) ) ; + # Move the talk page if relevant, if it exists, and if we've been told to + $ott = $ot->getTalkPage(); + if( $ott->exists() ) { + if( $this->moveTalk && !$ot->isTalkPage() && !$nt->isTalkPage() ) { + $ntt = $nt->getTalkPage(); + + # Attempt the move + $error = $ott->moveTo( $ntt, true, $this->reason ); + if ( $error === true ) { + $talkmoved = 1; + wfRunHooks( 'SpecialMovepageAfterMove', array( &$this , &$ott , &$ntt ) ) ; + } else { + $talkmoved = $error; } + } else { + # Stay silent on the subject of talk. + $talkmoved = ''; } + } else { + $talkmoved = 'notalkpage'; } - $titleObj = Title::makeTitle( NS_SPECIAL, "Movepage" ); - $success = $titleObj->getFullURL( - "action=success&oldtitle=" . wfUrlencode( $this->ofx ) . - "&newtitle=" . wfUrlencode( $this->nfx ) . - "&talkmoved={$this->talkmoved}" ); - - $wgOut->redirect( $success ); - } - - function showSuccess() - { - global $wgOut, $wgUser; - - $wgOut->setPagetitle( wfMsg( "movepage" ) ); - $wgOut->setSubtitle( wfMsg( "pagemovedsub" ) ); - - $text = wfMsg( "pagemovedtext", $_REQUEST['oldtitle'], $_REQUEST['newtitle'] ); - $wgOut->addWikiText( $text ); - - if ( 1 == $_REQUEST['talkmoved'] ) { - $wgOut->addHTML( "\n" . wfMsg( "talkpagemoved" ) ); - } elseif( 'invalid' == $_REQUEST['talkmoved'] ) { - $wgOut->addHTML( "\n
" . wfMsg( "talkexists" ) . "" ); + + # Deal with watches + if( $this->watch ) { + $wgUser->addWatch( $ot ); + $wgUser->addWatch( $nt ); } else { - $ot = Title::newFromURL( $_REQUEST['oldtitle'] ); - if ( ! Namespace::isTalk( $ot->getNamespace() ) ) { - $wgOut->addHTML( "\n
" . wfMsg( "talkpagenotmoved" ) ); - } + $wgUser->removeWatch( $ot ); + $wgUser->removeWatch( $nt ); } - } - - # Is the the existing target title valid? - - function isValidTarget() - { - $fname = "MovePageForm::isValidTarget"; - - $sql = "SELECT cur_is_redirect,cur_text FROM cur " . - "WHERE cur_id={$this->newid}"; - $res = wfQuery( $sql, DB_READ, $fname ); - $obj = wfFetchObject( $res ); - if ( 0 == $obj->cur_is_redirect ) { return false; } + # Give back result to user. + $titleObj = SpecialPage::getTitleFor( 'Movepage' ); + $success = $titleObj->getFullURL( + 'action=success&oldtitle=' . wfUrlencode( $ot->getPrefixedText() ) . + '&newtitle=' . wfUrlencode( $nt->getPrefixedText() ) . + '&talkmoved='.$talkmoved ); - if ( preg_match( "/\\[\\[\\s*([^\\]]*)]]/", $obj->cur_text, $m ) ) { - $rt = Title::newFromText( $m[1] ); - if ( 0 != strcmp( wfStrencode( $rt->getPrefixedDBkey() ), - $this->oft ) ) { - return false; - } - } - $sql = "SELECT old_id FROM old WHERE old_namespace={$this->nns} " . - "AND old_title='{$this->ndt}'"; - $res = wfQuery( $sql, DB_READ, $fname ); - if ( 0 != wfNumRows( $res ) ) { return false; } - - return true; + $wgOut->redirect( $success ); } - # Move page to title which is presently a redirect to the source - # page. Handling link tables here is tricky. - - function moveOverExistingRedirect() - { - global $wgUser, $wgLinkCache; - $fname = "MovePageForm::moveOverExistingRedirect"; - $mt = wfMsg( "movedto" ); - - # Change the name of the target page: - $now = wfTimestampNow(); - $won = wfInvertTimestamp( $now ); - $sql = "UPDATE cur SET cur_touched='{$now}'," . - "cur_namespace={$this->nns},cur_title='{$this->ndt}' " . - "WHERE cur_id={$this->oldid}"; - wfQuery( $sql, DB_WRITE, $fname ); - $wgLinkCache->clearLink( $this->nft ); - - # Repurpose the old redirect. We don't save it to history since - # by definition if we've got here it's rather uninteresting. - $sql = "UPDATE cur SET cur_touched='{$now}',cur_timestamp='{$now}',inverse_timestamp='${won}'," . - "cur_namespace={$this->ons},cur_title='{$this->odt}'," . - "cur_text='#REDIRECT [[{$this->nft}]]\n',cur_comment='" . - "{$mt} \\\"{$this->nft}\\\"',cur_user='" . $wgUser->getID() . - "',cur_minor_edit=0,cur_counter=0,cur_restrictions=''," . - "cur_user_text='" . wfStrencode( $wgUser->getName() ) . "'," . - "cur_is_redirect=1,cur_is_new=0 WHERE cur_id={$this->newid}"; - wfQuery( $sql, DB_WRITE, $fname ); - $wgLinkCache->clearLink( $this->oft ); - - # Fix the redundant names for the past revisions of the target page. - # The redirect should have no old revisions. - $sql = "UPDATE old SET " . - "old_namespace={$this->nns},old_title='{$this->ndt}' WHERE " . - "old_namespace={$this->ons} AND old_title='{$this->odt}'"; - wfQuery( $sql, DB_WRITE, $fname ); + function showSuccess() { + global $wgOut, $wgRequest, $wgUser; - RecentChange::notifyMove( $now, $this->ot, $this->nt, $wgUser, $mt ); - - # Swap links. Using MAXINT as a temp; if there's ever an article - # with id 4294967295, this will fail, but I think that's pretty safe - - # FIXME: LOCK TABLE - # Reassign links to the old title to LIMBO - $sql = "UPDATE links SET l_to=4294967295 WHERE l_to={$this->oldid}"; - wfQuery( $sql, DB_WRITE, $fname ); - - # Reassign links to the new title to the old title - $sql = "UPDATE links SET l_to={$this->oldid} WHERE l_to={$this->newid}"; - wfQuery( $sql, DB_WRITE, $fname ); - - # Reassign links from LIMBO to the new title. Ah, clear as mud! - $sql = "UPDATE links SET l_to={$this->newid} WHERE l_to=4294967295"; - wfQuery( $sql, DB_WRITE, $fname ); - - # Note: the insert below must be after the updates above! - - # Now, we record the link from the redirect to the new title. - # It should have no other outgoing links... - $sql = "DELETE FROM links WHERE l_from={$this->newid}"; - wfQuery( $sql, DB_WRITE, $fname ); - $sql = "INSERT INTO links (l_from,l_to) VALUES ({$this->newid},{$this->oldid})"; - wfQuery( $sql, DB_WRITE, $fname ); - } - - # Move page to non-existing title. - - function moveToNewTitle() - { - global $wgUser, $wgLinkCache; - $fname = "MovePageForm::moveToNewTitle"; - $mt = wfMsg( "movedto" ); - - $now = wfTimestampNow(); - $won = wfInvertTimestamp( $now ); - $sql = "UPDATE cur SET cur_touched='{$now}'," . - "cur_namespace={$this->nns},cur_title='{$this->ndt}' " . - "WHERE cur_id={$this->oldid}"; - wfQuery( $sql, DB_WRITE, $fname ); - $wgLinkCache->clearLink( $this->nft ); - - $comment = "{$mt} \"{$this->nft}\""; - $encComment = wfStrencode( $comment ); - $common = "{$this->ons},'{$this->odt}'," . - "'$encComment','" .$wgUser->getID() . "','" . - wfStrencode( $wgUser->getName() ) ."','{$now}'"; - $sql = "INSERT INTO cur (cur_namespace,cur_title," . - "cur_comment,cur_user,cur_user_text,cur_timestamp,inverse_timestamp," . - "cur_touched,cur_text,cur_is_redirect,cur_is_new) " . - "VALUES ({$common},'{$won}','{$now}','#REDIRECT [[{$this->nft}]]\n',1,1)"; - wfQuery( $sql, DB_WRITE, $fname ); - $this->newid = wfInsertId(); - $wgLinkCache->clearLink( $this->oft ); - - $sql = "UPDATE old SET " . - "old_namespace={$this->nns},old_title='{$this->ndt}' WHERE " . - "old_namespace={$this->ons} AND old_title='{$this->odt}'"; - wfQuery( $sql, DB_WRITE, $fname ); - - RecentChange::notifyMove( $now, $this->ot, $this->nt, $wgUser, $comment ); - Article::onArticleCreate( $this->nt ); - - # Any text links to the old title must be reassigned to the redirect - $sql = "UPDATE links SET l_to={$this->newid} WHERE l_to={$this->oldid}"; - wfQuery( $sql, DB_WRITE, $fname ); - - # Record the just-created redirect's linking to the page - $sql = "INSERT INTO links (l_from,l_to) VALUES ({$this->newid},{$this->oldid})"; - wfQuery( $sql, DB_WRITE, $fname ); - - # Non-existent target may have had broken links to it; these must - # now be removed and made into good links. - $update = new LinksUpdate( $this->oldid, $this->nft ); - $update->fixBrokenLinks(); + $old = Title::newFromText( $wgRequest->getVal( 'oldtitle' ) ); + $new = Title::newFromText( $wgRequest->getVal( 'newtitle' ) ); + + if( is_null( $old ) || is_null( $new ) ) { + throw new ErrorPageError( 'badtitle', 'badtitletext' ); + } + + $wgOut->setPagetitle( wfMsg( 'movepage' ) ); + $wgOut->setSubtitle( wfMsg( 'pagemovedsub' ) ); + + $talkmoved = $wgRequest->getVal( 'talkmoved' ); + $oldUrl = $old->getFullUrl( 'redirect=no' ); + $newUrl = $new->getFullURl(); + $oldText = wfEscapeWikiText( $old->getPrefixedText() ); + $newText = wfEscapeWikiText( $new->getPrefixedText() ); + $oldLink = "[$oldUrl $oldText]"; + $newLink = "[$newUrl $newText]"; + + $s = wfMsg( 'movepage-moved', $oldLink, $newLink, $oldText, $newText ); + + if ( $talkmoved == 1 ) { + $s .= "\n\n" . wfMsg( 'talkpagemoved' ); + } elseif( 'articleexists' == $talkmoved ) { + $s .= "\n\n" . wfMsg( 'talkexists' ); + } else { + if( !$old->isTalkPage() && $talkmoved != 'notalkpage' ) { + $s .= "\n\n" . wfMsg( 'talkpagenotmoved', wfMsg( $talkmoved ) ); + } + } + $wgOut->addWikiText( $s ); } - - function updateWatchlists() - { - $oldnamespace = $this->ons & ~1; - $newnamespace = $this->nns & ~1; - $oldtitle = $this->odt; - $newtitle = $this->ndt; - - if( $oldnamespace == $newnamespace and $oldtitle == $newtitle ) - return; - - WatchedItem::duplicateEntries( $this->ot, $this->nt ); + + function showLogFragment( $title, &$out ) { + $out->addHtml( wfElement( 'h2', NULL, LogPage::logName( 'move' ) ) ); + $request = new FauxRequest( array( 'page' => $title->getPrefixedText(), 'type' => 'move' ) ); + $viewer = new LogViewer( new LogReader( $request ) ); + $viewer->showList( $out ); } - + } -?> +