{$err}\n" ); + if ( $err != '' ) { + $wgOut->setSubtitle( wfMsg( 'formerror' ) ); + $wgOut->addWikiText( '
' . wfMsg($err) . "
\n" ); } - $wgOut->addHTML( "-
\n" ); } - function doSubmit() - { + function doSubmit() { global $wgOut, $wgUser, $wgLang; global $wgDeferredUpdateList, $wgMessageCache; - global $wgUseSquid, $wgInternalServer; + global $wgUseSquid, $wgRequest; $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" ) ); + + 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(); + + # Variables beginning with 'o' for old article 'n' for new article - $this->oldid = $this->ot->getArticleID(); - $this->newid = $this->nt->getArticleID(); + $ot = Title::newFromText( $this->oldTitle ); + $nt = Title::newFromText( $this->newTitle ); - if ( strlen( trim( $this->ndt ) ) < 1 ) { - $this->showForm( wfMsg( "articleexists" ) ); - return; + # 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(); + $error = $ot->moveTo( $nt, true, $this->reason ); + if ( $error !== true ) { + $this->showForm( $error ); + return; } - - $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 - $wgInternalServer.$this->nt->getLocalURL(), - # purge old title - $wgInternalServer.$this->ot->getLocalURL(), - ); - 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 ); + # Move talk page if + # (1) the checkbox says to, + # (2) the namespaces are not themselves talk namespaces, and of course + # (3) it exists. + if ( ( $wgRequest->getVal('wpMovetalk') == 1 ) && + ( ! Namespace::isTalk( $ons ) ) && + ( ! Namespace::isTalk( $nns ) ) ) { + # get old talk page namespace + $ons = Namespace::getTalk( $ons ); + # get new talk page namespace + $nns = Namespace::getTalk( $nns ); - } - - # 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 ); - - - } + # make talk page title objects + $ott = Title::makeTitle( $ons, $ot->getDBkey() ); + $ntt = Title::makeTitle( $nns, $nt->getDBkey() ); + + # Attempt the move + $error = $ott->moveTo( $ntt, true, $this->reason ); + if ( $error === true ) { + $talkmoved = 1; + } else { + $talkmoved = $error; } + } else { + # Stay silent on the subject of talk. + $talkmoved = ''; } - $titleObj = Title::makeTitle( NS_SPECIAL, "Movepage" ); + + # Give back result to user. + $titleObj = Title::makeTitle( NS_SPECIAL, 'Movepage' ); $success = $titleObj->getFullURL( - "action=success&oldtitle=" . wfUrlencode( $this->ofx ) . - "&newtitle=" . wfUrlencode( $this->nfx ) . - "&talkmoved={$this->talkmoved}" ); + 'action=success&oldtitle=' . wfUrlencode( $ot->getPrefixedText() ) . + '&newtitle=' . wfUrlencode( $nt->getPrefixedText() ) . + '&talkmoved='.$talkmoved ); $wgOut->redirect( $success ); } - function showSuccess() - { - global $wgOut, $wgUser; + function showSuccess() { + global $wgOut, $wgRequest, $wgRawHtml; - $wgOut->setPagetitle( wfMsg( "movepage" ) ); - $wgOut->setSubtitle( wfMsg( "pagemovedsub" ) ); - - $text = wfMsg( "pagemovedtext", $_REQUEST['oldtitle'], $_REQUEST['newtitle'] ); + $wgOut->setPagetitle( wfMsg( 'movepage' ) ); + $wgOut->setSubtitle( wfMsg( 'pagemovedsub' ) ); + $oldtitle = $wgRequest->getVal('oldtitle'); + $newtitle = $wgRequest->getVal('newtitle'); + $talkmoved = $wgRequest->getVal('talkmoved'); + + $text = wfMsg( 'pagemovedtext', $oldtitle, $newtitle ); + + # Temporarily disable raw html wikitext option out of XSS paranoia + $marchingantofdoom = $wgRawHtml; + $wgRawHtml = false; $wgOut->addWikiText( $text ); + $wgRawHtml = $marchingantofdoom; - if ( 1 == $_REQUEST['talkmoved'] ) { - $wgOut->addHTML( "\n" . wfMsg( "talkpagemoved" ) ); - } elseif( 'invalid' == $_REQUEST['talkmoved'] ) { - $wgOut->addHTML( "\n
" . wfMsg( "talkexists" ) . "" ); + if ( $talkmoved == 1 ) { + $wgOut->addWikiText( wfMsg( 'talkpagemoved' ) ); + } elseif( 'articleexists' == $talkmoved ) { + $wgOut->addWikiText( wfMsg( 'talkexists' ) ); } else { - $ot = Title::newFromURL( $_REQUEST['oldtitle'] ); - if ( ! Namespace::isTalk( $ot->getNamespace() ) ) { - $wgOut->addHTML( "\n
" . wfMsg( "talkpagenotmoved" ) ); - } - } - } - - # 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; } - - if ( preg_match( "/\\[\\[\\s*([^\\]]*)]]/", $obj->cur_text, $m ) ) { - $rt = Title::newFromText( $m[1] ); - if ( 0 != strcmp( wfStrencode( $rt->getPrefixedDBkey() ), - $this->oft ) ) { - return false; + $ot = Title::newFromURL( $oldtitle ); + if ( ! $ot->isTalkPage() ) { + $wgOut->addWikiText( wfMsg( 'talkpagenotmoved', wfMsg( $talkmoved ) ) ); } } - $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; } - - # 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 ); - - RecentChange::notifyMove( $now, $this->ot, $this->nt, $wgUser, $mt ); - - # The only link from here should be the old redirect - - $sql = "DELETE FROM links WHERE l_from='{$this->nft}'"; - wfQuery( $sql, DB_WRITE, $fname ); - - $sql = "UPDATE links SET l_from='{$this->nft}' WHERE l_from='{$this->oft}'"; - wfQuery( $sql, DB_WRITE, $fname ); - - # 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 - - $sql = "UPDATE links SET l_to=4294967295 WHERE l_to={$this->oldid}"; - wfQuery( $sql, DB_WRITE, $fname ); - - $sql = "UPDATE links SET l_to={$this->oldid} WHERE l_to={$this->newid}"; - wfQuery( $sql, DB_WRITE, $fname ); - - $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! - - $sql = "INSERT INTO links (l_from,l_to) VALUES ('{$this->oft}',{$this->oldid})"; - wfQuery( $sql, DB_WRITE, $fname ); - - $sql = "UPDATE imagelinks SET il_from='{$this->nft}' WHERE il_from='{$this->oft}'"; - 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 ); - - $sql = "UPDATE links SET l_from='{$this->nft}' WHERE l_from='{$this->oft}'"; - wfQuery( $sql, DB_WRITE, $fname ); - - $sql = "UPDATE links SET l_to={$this->newid} WHERE l_to={$this->oldid}"; - wfQuery( $sql, DB_WRITE, $fname ); - - $sql = "INSERT INTO links (l_from,l_to) VALUES ('{$this->oft}',{$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(); - - $sql = "UPDATE imagelinks SET il_from='{$this->nft}' WHERE il_from='{$this->oft}'"; - wfQuery( $sql, DB_WRITE, $fname ); - } - - 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 ); - } - } ?>