Copy.php

<?

1. Get copy-target and summary-text from form

xwGetProperty($properties, 'copy/target', $target); xwGetProperty($properties, 'copy/summary', $summary); xwGetProperty($properties, 'copy/xml', $xml); # move/copy properties too? xwGetProperty($properties, 'copy/talk', $talk); # move/copy talk too? xwGetProperty($properties, 'copy/action', $action);

if ($target) { # Perform the operation if target defined (called on data event)

global $wgContLang,$wgArticlePath; if ($summary) $summary = " : $summary"; $target = ucfirst(str_replace(' ', '_', $target)); $ot = Title::newFromText($title); $nt = Title::newFromText($target); $ns = $ot->getNamespace(); $err = $msg = ; $link = str_replace('$1',,$wgArticlePath);

# Create list of articles to apply the process to (main, talk, xml) $list = array(); if ($xml) ereg('^Xml:',$title) ? $msg .= "*Properties not copied, $title is already a properties article!\n" : array_push($list,'Xml:'); if ($talk) $ns & 1 ? $msg .= "*Talk page not copied, $title is already a talk page!\n" : array_push($list,$wgContLang->getNsText($ns|1).':');

# Loop through the list and apply the requested action to each $title = $ot->getText(); $target = $nt->getText(); foreach ($list as $i => $nstxt) { $ot = Title::newFromText($nstxt.$title); $nt = Title::newFromText($nstxt.$target); if ($ot->getArticleID() == 0) $msg .= $err = "*Could not copy \"$nstxt$title\", article doesn't exist.\n"; else if ($nt->getArticleID()) $msg .= $err = "*Could not copy to \"$nstxt$target\", already exists!\n"; else { $oa = new Article($ot); $na = new Article($nt); if ($action == 'copy') { $na->insertNewArticle($article, "Copied from $nstxt$title$summary", false, false); $msg .= "New copy of $nstxt$title successfully created as $nstxt$target"; } else { if (($err = $ot->moveTo($nt)) != 1) $msg .= $err = "*Move from $nstxt$title to $nstxt$target failed: $err\n"; else { $err = ; $msg .= "*$nstxt$title successfully moved to $nstxt$target\n"; if ($action == 'rename') { $dbw =& wfGetDB(DB_MASTER); $dbw->delete('cur', array('cur_namespace' => $ns, 'cur_title' => $title)); $dbw->delete('old', array('old_namespace' => $ns, 'old_title' => $title)); $dbw->delete('recentchanges', array('rc_namespace' => $ns, 'rc_title' => $title)); } } } } if (($i == 0) && $err) { $msg = $err; break; } # bail if problem moving the main article } $article = "$msg\n\n\n\n$article"; } else { # Replace article content with form (called on view event bu xpath-query in button-url)

$msg = "

Rename/copy article:

<form action=\"/wiki/index.php\">

<input type=hidden name=title value=\"$title\"> <input type=hidden name=\"xpath:/properties:data\" value=\"$tTitle\"> <input type=hidden name=\"xpath:/properties:copy\">

New title:	<input type=text name=\"xpath:/properties/copy:target\">
Reason:	<input type=text name=\"xpath:/properties/copy:summary\">
Action:	<input type=radio name=\"xpath:/properties/copy:action\" value=rename checked>Rename   <input type=radio name=\"xpath:/properties/copy:action\" value=redir>Redirect   <input type=radio name=\"xpath:/properties/copy:action\" value=copy>Copy
	<input type=checkbox checked=checked value=1 name=\"xpath:/properties/copy:xml\"> Also apply to properties
	<input type=checkbox checked=checked value=1 name=\"xpath:/properties/copy:talk\"> Also apply to discussion
	<input type=submit value=\" Commit \">
Help Rename Changes the title of the article applying to current content and all the history. The original title becomes unused and all links to that title will become red creation links. Redirect Changes the title of the article applying to current content and all the history. Any links referring to the original title are automatically redirected to the new title (unless redir=no is included in the query-string). This is the action MediaWiki takes when \"move\" is applied to an article. Copy Creates a new article with the same content as the original, but exhibiting no history. The original title is left unaffected by this operation.

</form>";

$article = preg_replace('/(?<=).+(?=)/s',$msg,$article); }

?>