2 include_once( "LinksUpdate.php" );
4 function wfSpecialMovepage()
6 global $wgUser, $wgOut, $action, $target;
8 if ( 0 == $wgUser->getID() or $wgUser->isBlocked() ) {
9 $wgOut->errorpage( "movenologin", "movenologintext" );
13 $wgOut->readOnlyPage();
16 $fields = array( "wpNewTitle", "wpOldTitle" );
17 wfCleanFormFields( $fields );
19 $f = new MovePageForm();
21 if ( "success" == $action ) { $f->showSuccess(); }
22 else if ( "submit" == $action ) { $f->doSubmit(); }
23 else { $f->showForm( "" ); }
28 var $ot, $nt; # Old, new Title objects
29 var $ons, $nns; # Namespaces
30 var $odt, $ndt; # Pagenames (dbkey form)
31 var $oft, $nft; # Full page titles (DBkey form)
32 var $ofx, $nfx; # Full page titles (Text form)
33 var $oldid, $newid; # "cur_id" field (yes, both from "cur")
36 function showForm( $err )
38 global $wgOut, $wgUser, $wgLang;
39 global $wpNewTitle, $wpOldTitle, $wpMovetalk, $target;
41 $wgOut->setPagetitle( wfMsg( "movepage" ) );
43 if ( ! $wpOldTitle ) {
44 $target = wfCleanQueryVar( $target );
45 if ( "" == $target ) {
46 $wgOut->errorpage( "notargettitle", "notargettext" );
49 $wpOldTitle = $target;
51 $ot = Title
::newFromURL( $wpOldTitle );
52 $ott = $ot->getPrefixedText();
54 $wgOut->addWikiText( wfMsg( "movepagetext" ) );
55 if ( ! Namespace::isTalk( $ot->getNamespace() ) )
56 $wgOut->addWikiText( "\n\n" . wfMsg( "movepagetalktext" ) );
58 $ma = wfMsg( "movearticle" );
59 $newt = wfMsg( "newtitle" );
60 $mpb = wfMsg( "movepagebtn" );
61 $movetalk = wfMsg( "movetalk" );
63 $action = wfLocalUrlE( $wgLang->specialPage( "Movepage" ),
67 $wgOut->setSubtitle( wfMsg( "formerror" ) );
68 $wgOut->addHTML( "<p><font color='red' size='+1'>{$err}</font>\n" );
71 <form id=\"movepage\" method=\"post\" action=\"{$action}\">
73 <td align=right>{$ma}:</td>
74 <td align=left><strong>{$ott}</strong></td>
76 <td align=right>{$newt}:</td>
78 <input type=text size=40 name=\"wpNewTitle\" value=\"{$wpNewTitle}\">
79 <input type=hidden name=\"wpOldTitle\" value=\"{$wpOldTitle}\">
83 if ( ! Namespace::isTalk( $ot->getNamespace() ) ) {
87 <input type=checkbox name=\"wpMovetalk\" checked value=\"1\">
88 </td><td>{$movetalk}</td>
93 <td> </td><td align=left>
94 <input type=submit name=\"wpMove\" value=\"{$mpb}\">
102 global $wgOut, $wgUser, $wgLang;
103 global $wpNewTitle, $wpOldTitle, $wpMovetalk, $target;
104 global $wgDeferredUpdateList;
105 $fname = "MovePageForm::doSubmit";
107 $this->ot
= Title
::newFromText( $wpOldTitle );
108 $this->nt
= Title
::newFromText( $wpNewTitle );
109 if( !$this->ot
or !$this->nt
) {
110 $this->showForm( wfMsg( "badtitletext" ) );
113 $this->ons
= $this->ot
->getNamespace();
114 $this->nns
= $this->nt
->getNamespace();
115 $this->odt
= wfStrencode( $this->ot
->getDBkey() );
116 $this->ndt
= wfStrencode( $this->nt
->getDBkey() );
117 $this->oft
= wfStrencode( $this->ot
->getPrefixedDBkey() );
118 $this->nft
= wfStrencode( $this->nt
->getPrefixedDBkey() );
119 $this->ofx
= $this->ot
->getPrefixedText();
120 $this->nfx
= $this->nt
->getPrefixedText();
122 $this->oldid
= $this->ot
->getArticleID();
123 $this->newid
= $this->nt
->getArticleID();
125 if ( strlen( trim( $this->ndt
) ) < 1 ) {
126 $this->showForm( wfMsg( "articleexists" ) );
129 if ( ( ! Namespace::isMovable( $this->ons
) ) ||
130 ( "" == $this->odt
) ||
131 ( "" != $this->ot
->getInterwiki() ) ||
132 ( !$this->ot
->userCanEdit() ) ||
134 ( ! Namespace::isMovable( $nns ) ) ||
135 ( "" == $this->ndt
) ||
136 ( "" != $this->nt
->getInterwiki() ) ||
137 ( !$this->nt
->userCanEdit() ) ) {
138 $this->showForm( wfMsg( "badarticleerror" ) );
141 # The move is allowed only if (1) the target doesn't exist, or
142 # (2) the target is a redirect to the source, and has no history
143 # (so we can undo bad moves right after they're done).
145 if ( 0 != $this->newid
) { # Target exists; check for validity
146 if ( ! $this->isValidTarget() ) {
147 $this->showForm( wfMsg( "articleexists" ) );
150 $this->moveOverExistingRedirect();
151 } else { # Target didn't exist, do normal move.
152 $this->moveToNewTitle();
155 $this->updateWatchlists();
157 $u = new SearchUpdate( $this->oldid
, $this->nt
->getPrefixedDBkey() );
159 $u = new SearchUpdate( $this->newid
, $this->ot
->getPrefixedDBkey(), "" );
162 # Move talk page if (1) the checkbox says to, (2) the source
163 # and target namespaces are identical, (3) the namespaces are not
164 # themselves talk namespaces, and of course (4) it exists.
166 if ( ( 1 == $wpMovetalk ) &&
167 ( ! Namespace::isTalk( $this->ons
) ) &&
168 ( $this->ons
== $this->nns
) ) {
170 $this->ons
= $this->nns
= Namespace::getTalk( $this->ons
);
172 $this->ot
= Title
::newFromText( Title
::makeName(
173 $this->ons
, $wpOldTitle ) );
174 $this->nt
= Title
::newFromText( Title
::makeName(
175 $this->nns
, $wpNewTitle ) );
177 # odt, ndt, ofx, nfx remain the same
179 $this->oft
= wfStrencode( $this->ot
->getPrefixedDBkey() );
180 $this->nft
= wfStrencode( $this->nt
->getPrefixedDBkey() );
182 $this->oldid
= $this->ot
->getArticleID();
183 $this->newid
= $this->nt
->getArticleID();
185 if ( 0 != $this->oldid
) {
186 if ( 0 != $this->newid
) {
187 if ( $this->isValidTarget() ) {
188 $this->moveOverExistingRedirect();
189 $this->talkmoved
= 1;
191 $this->talkmoved
= 'invalid';
194 $this->moveToNewTitle();
195 $this->talkmoved
= 1;
197 $u = new SearchUpdate( $this->oldid
, $this->nt
->getPrefixedDBkey() );
199 $u = new SearchUpdate( $this->newid
, $this->ot
->getPrefixedDBkey(), "" );
203 $success = wfLocalUrl( $wgLang->specialPage( "Movepage" ),
204 "action=success&oldtitle=" . wfUrlencode( $this->ofx
) .
205 "&newtitle=" . wfUrlencode( $this->nfx
) .
206 "&talkmoved={$this->talkmoved}" );
208 $wgOut->redirect( $success );
211 function showSuccess()
213 global $wgOut, $wgUser;
214 global $newtitle, $oldtitle, $talkmoved;
216 $wgOut->setPagetitle( wfMsg( "movepage" ) );
217 $wgOut->setSubtitle( wfMsg( "pagemovedsub" ) );
219 $fields = array( "oldtitle", "newtitle" );
220 wfCleanFormFields( $fields );
222 $text = wfMsg( "pagemovedtext", $oldtitle, $newtitle );
223 $wgOut->addWikiText( $text );
225 if ( 1 == $talkmoved ) {
226 $wgOut->addHTML( "\n<p>" . wfMsg( "talkpagemoved" ) );
227 } elseif( 'invalid' == $talkmoved ) {
228 $wgOut->addHTML( "\n<p><strong>" . wfMsg( "talkexists" ) . "</strong>" );
230 $ot = Title
::newFromURL( $oldtitle );
231 if ( ! Namespace::isTalk( $ot->getNamespace() ) ) {
232 $wgOut->addHTML( "\n<p>" . wfMsg( "talkpagenotmoved" ) );
237 # Is the the existing target title valid?
239 function isValidTarget()
241 $fname = "MovePageForm::isValidTarget";
243 $sql = "SELECT cur_is_redirect,cur_text FROM cur " .
244 "WHERE cur_id={$this->newid}";
245 $res = wfQuery( $sql, DB_READ
, $fname );
246 $obj = wfFetchObject( $res );
248 if ( 0 == $obj->cur_is_redirect
) { return false; }
250 if ( preg_match( "/\\[\\[\\s*([^\\]]*)]]/", $obj->cur_text
, $m ) ) {
251 $rt = Title
::newFromText( $m[1] );
252 if ( 0 != strcmp( wfStrencode( $rt->getPrefixedDBkey() ),
257 $sql = "SELECT old_id FROM old WHERE old_namespace={$this->nns} " .
258 "AND old_title='{$this->ndt}'";
259 $res = wfQuery( $sql, DB_READ
, $fname );
260 if ( 0 != wfNumRows( $res ) ) { return false; }
265 # Move page to title which is presently a redirect to the source
266 # page. Handling link tables here is tricky.
268 function moveOverExistingRedirect()
270 global $wgUser, $wgLinkCache;
271 $fname = "MovePageForm::moveOverExistingRedirect";
272 $mt = wfMsg( "movedto" );
274 # Change the name of the target page:
275 $now = wfTimestampNow();
276 $sql = "UPDATE cur SET cur_touched='{$now}'," .
277 "cur_namespace={$this->nns},cur_title='{$this->ndt}' " .
278 "WHERE cur_id={$this->oldid}";
279 wfQuery( $sql, DB_WRITE
, $fname );
280 $wgLinkCache->clearLink( $this->nft
);
282 # Repurpose the old redirect. We don't save it to history since
283 # by definition if we've got here it's rather uninteresting.
284 $sql = "UPDATE cur SET cur_touched='{$now}',cur_timestamp='{$now}'," .
285 "cur_namespace={$this->ons},cur_title='{$this->odt}'," .
286 "cur_text='#REDIRECT [[{$this->nft}]]\n',cur_comment='" .
287 "{$mt} \\\"{$this->nft}\\\"',cur_user='" . $wgUser->getID() .
288 "',cur_minor_edit=0,cur_counter=0,cur_restrictions=''," .
289 "cur_user_text='" . wfStrencode( $wgUser->getName() ) . "'," .
290 "cur_is_redirect=1,cur_is_new=0 WHERE cur_id={$this->newid}";
291 wfQuery( $sql, DB_WRITE
, $fname );
292 $wgLinkCache->clearLink( $this->oft
);
294 # Fix the redundant names for the past revisions of the target page.
295 # The redirect should have no old revisions.
296 $sql = "UPDATE old SET " .
297 "old_namespace={$this->nns},old_title='{$this->ndt}' WHERE " .
298 "old_namespace={$this->ons} AND old_title='{$this->odt}'";
299 wfQuery( $sql, DB_WRITE
, $fname );
301 $sql = "UPDATE recentchanges SET ".
302 "rc_namespace={$this->nns}, rc_title='{$this->ndt}' WHERE ".
303 "rc_cur_id={$this->oldid}";
304 wfQuery( $sql, DB_WRITE
, $fname );
306 # FIXME: Here we mark the redirect as 'new' in recentchanges,
307 # but as old in cur. Is there a reason for this?
308 $sql = "INSERT INTO recentchanges (rc_namespace,rc_title,
309 rc_comment,rc_user,rc_user_text,rc_timestamp,
310 rc_cur_time,rc_cur_id,rc_new)
311 VALUES ({$this->ons},'{$this->odt}'," .
312 "'{$mt} \\\"{$this->nft}\\\"','" .
313 $wgUser->getID() . "','" . wfStrencode( $wgUser->getName() ) .
314 "','{$now}','{$now}',{$this->newid},1)";
315 wfQuery( $sql, DB_WRITE
, $fname );
317 # The only link from here should be the old redirect
319 $sql = "DELETE FROM links WHERE l_from='{$this->nft}'";
320 wfQuery( $sql, DB_WRITE
, $fname );
322 $sql = "UPDATE links SET l_from='{$this->nft}' WHERE l_from='{$this->oft}'";
323 wfQuery( $sql, DB_WRITE
, $fname );
325 # Swap links. Using MAXINT as a temp; if there's ever an article
326 # with id 4294967295, this will fail, but I think that's pretty safe
328 $sql = "UPDATE links SET l_to=4294967295 WHERE l_to={$this->oldid}";
329 wfQuery( $sql, DB_WRITE
, $fname );
331 $sql = "UPDATE links SET l_to={$this->oldid} WHERE l_to={$this->newid}";
332 wfQuery( $sql, DB_WRITE
, $fname );
334 $sql = "UPDATE links SET l_to={$this->newid} WHERE l_to=4294967295";
335 wfQuery( $sql, DB_WRITE
, $fname );
337 # Note: the insert below must be after the updates above!
339 $sql = "INSERT INTO links (l_from,l_to) VALUES ('{$this->oft}',{$this->oldid})";
340 wfQuery( $sql, DB_WRITE
, $fname );
342 $sql = "UPDATE imagelinks SET il_from='{$this->nft}' WHERE il_from='{$this->oft}'";
343 wfQuery( $sql, DB_WRITE
, $fname );
346 # Move page to non-existing title.
348 function moveToNewTitle()
350 global $wgUser, $wgLinkCache;
351 $fname = "MovePageForm::moveToNewTitle";
352 $mt = wfMsg( "movedto" );
354 $now = wfTimestampNow();
355 $won = wfInvertTimestamp( $now );
356 $sql = "UPDATE cur SET cur_touched='{$now}'," .
357 "cur_namespace={$this->nns},cur_title='{$this->ndt}' " .
358 "WHERE cur_id={$this->oldid}";
359 wfQuery( $sql, DB_WRITE
, $fname );
360 $wgLinkCache->clearLink( $this->nft
);
362 $common = "{$this->ons},'{$this->odt}'," .
363 "'{$mt} \\\"{$this->nft}\\\"','" .
364 $wgUser->getID() . "','" . wfStrencode( $wgUser->getName() ) .
366 $sql = "INSERT INTO cur (cur_namespace,cur_title," .
367 "cur_comment,cur_user,cur_user_text,cur_timestamp,inverse_timestamp," .
368 "cur_touched,cur_text,cur_is_redirect,cur_is_new) " .
369 "VALUES ({$common},'{$won}','{$now}','#REDIRECT [[{$this->nft}]]\n',1,1)";
370 wfQuery( $sql, DB_WRITE
, $fname );
371 $this->newid
= wfInsertId();
372 $wgLinkCache->clearLink( $this->oft
);
374 $sql = "UPDATE old SET " .
375 "old_namespace={$this->nns},old_title='{$this->ndt}' WHERE " .
376 "old_namespace={$this->ons} AND old_title='{$this->odt}'";
377 wfQuery( $sql, DB_WRITE
, $fname );
379 $sql = "UPDATE recentchanges SET ".
380 "rc_namespace={$this->nns}, rc_title='{$this->ndt}' WHERE ".
381 "rc_namespace={$this->ons} AND rc_title='{$this->odt}'";
382 wfQuery( $sql, DB_WRITE
, $fname );
384 $sql = "INSERT INTO recentchanges (rc_namespace,rc_title,
385 rc_comment,rc_user,rc_user_text,rc_timestamp,
386 rc_cur_time,rc_cur_id,rc_new)
387 VALUES ({$common},'{$now}',{$this->newid},1)";
388 wfQuery( $sql, DB_WRITE
, $fname );
390 global $wgEnablePersistentLC;
391 if ( $wgEnablePersistentLC ) {
392 // Purge related entries in links cache on new page, to heal broken links
393 $ptitle = wfStrencode( $this->nft
);
394 wfQuery("DELETE linkscc FROM linkscc,brokenlinks ".
395 "WHERE lcc_pageid=bl_from AND bl_to='{$ptitle}'", DB_WRITE
);
398 $sql = "UPDATE links SET l_from='{$this->nft}' WHERE l_from='{$this->oft}'";
399 wfQuery( $sql, DB_WRITE
, $fname );
401 $sql = "UPDATE links SET l_to={$this->newid} WHERE l_to={$this->oldid}";
402 wfQuery( $sql, DB_WRITE
, $fname );
404 $sql = "INSERT INTO links (l_from,l_to) VALUES ('{$this->oft}',{$this->oldid})";
405 wfQuery( $sql, DB_WRITE
, $fname );
407 # Non-existent target may have had broken links to it; these must
408 # now be removed and made into good links.
409 $update = new LinksUpdate( $this->oldid
, $this->nft
);
410 $update->fixBrokenLinks();
412 $sql = "UPDATE imagelinks SET il_from='{$this->nft}' WHERE il_from='{$this->oft}'";
413 wfQuery( $sql, DB_WRITE
, $fname );
416 function updateWatchlists()
418 $oldnamespace = $this->ons
& ~
1;
419 $newnamespace = $this->nns
& ~
1;
420 $oldtitle = $this->odt
;
421 $newtitle = $this->ndt
;
423 if( $oldnamespace == $newnamespace and $oldtitle == $newtitle )
426 WatchedItem
::duplicateEntries( $this->ot
, $this->nt
);