This is an old revision of this page, as edited by Wbm1058 (talk | contribs) at 21:59, 1 February 2017 (v 1.23 – trap false-positive regex match on Template:Merge portions from, which is in Category:Split maintenance templates). The present address (URL) is a permanent link to this revision, which may differ significantly from the current revision.
Revision as of 21:59, 1 February 2017 by Wbm1058 (talk | contribs) (v 1.23 – trap false-positive regex match on Template:Merge portions from, which is in Category:Split maintenance templates)(diff) ← Previous revision | Latest revision (diff) | Newer revision → (diff)<?php
/** proposedmergers.php - To generate lists of proposed page mergers on Misplaced Pages
* Version 1.23
*
* (c) 2009 James Hare - http://en.wikipedia.org/User:Harej
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*
* Developers (add your self here if you worked on the code):
* James Hare - ] - Wrote everything
* WBM - ] - March/April 2013 updates
**/
ini_set("display_errors", 1);
error_reporting(E_ALL ^ E_NOTICE);
require_once 'botclasses.php'; // Botclasses.php was written by User:Chris_G and is available under the GNU General Public License
include("logininfo.php");
function templateprocess($processed) {
echo " :: " . $processed;
$processed = preg_replace("/\s?\|\s?/", "|", $processed);
$processed = preg_replace("/\{{2}\s?/", "", $processed);
$processed = preg_replace("/\s?\}{2}/", "", $processed);
$processed = preg_replace("/\s?=\s?/", "=", $processed);
# Redirects to {{Merge}} (14 aliases)
$processed = preg_replace("/^(Mergewith|Merge with|Merge_with|MergeVfD|Mergesplit|MergeSplit|Merge)/i", "merge", $processed);
$processed = preg_replace("/^(Mergedisputed|MergeDisputed|Merge-disputed|Merge disputed|Merge_disputed)/i", "merge", $processed);
$processed = preg_replace("/^(Merge-multiple|Mergemulti|Mergetomultiple-with|Multimerge)/i", "merge", $processed);
$processed = preg_replace("/^(Proposed merge|Proposed_merge)/i", "merge", $processed);
# {{Merging}}
$processed = preg_replace("/^(Mergingsectionto|Merging|Merging to|Merging_to)/i", "merge", $processed);
# Redirects to {{Merge from}} (11 aliases)
$processed = preg_replace("/^(Merge from|Merge_from|Merge-from|Include|Mergrefrom|Mergefrom-category|MergeFrom|Mergefrom)/i", "mergefrom", $processed);
$processed = preg_replace("/^(Mergefrom-multiple|Multiplemergefrom|Mergefrommultiple|Mergefrommulti|Multimergefrom)/i", "mergefrom", $processed);
# {{Afd-merge from}}, {{Merging from}}
$processed = preg_replace("/^(Afd-merge from|Afd-merge_from|Afd-mergefrom|Afdmergefrom|Merging from|Merging_from|Mergingfrom)/i", "mergefrom", $processed);
# Redirects to {{Merge to}} (15 aliases)
$processed = preg_replace("/^(Merge to|Merge_to|Merge-to|Mergeinto|MergetoCat|Mergelist|Mergeto-disputed)/i", "mergeto", $processed);
$processed = preg_replace("/^(MergePartial|Merge-multiple-to|Merge to article|Merge_to_article)/i", "mergeto", $processed);
$processed = preg_replace("/^(Mergeto-multiple|Multiplemergeto|Multiplemergeinto|Merge into|Merge_into|MergeTo|Mergeto|Merge2)/i", "mergeto", $processed);
# {{Afd-merge to}}
$processed = preg_replace("/^(Afd-merge to|Afd-merge_to|Afd-mergeto|Afdmergeto|AfD-merge to|AfD-merge_to)/i", "mergeto", $processed);
# {{Merge portions from}} // This is really a splitting template, not a merging template
$processed = preg_replace("/^(Merge portions from|Merge_portions_from|Move portions from|Move_portions_from)/i", "false-positive", $processed);
return $processed;
}
$othernamespace = 0;
$matchfailed = 0;
$templatesplitfailed = 0;
$nopartner = 0;
$mainsubmission = "";
echo "Logging in...\n";
$objwiki = new wikipedia();
$objwiki->login($mbuser, $mbpass);
echo "...done.\n";
$mergemonths = $objwiki->categorymembers("Category:Articles to be merged");
print_r($mergemonths);
for ($a = 0; $a < count($mergemonths); $a++) { // for each month
#if (preg_match("/Category:Articles to be merged/", $mergemonths)) {
if (preg_match("/Category:Articles to be merged from/", $mergemonths)) {
echo "\n__________\n" . $a . ": " . $mergemonths . "\n";
$transcludes = $objwiki->categorymembers($mergemonths);
#print_r($transcludes);
$monthyear = str_replace("Category:Articles to be merged from ", "", $mergemonths, $repcount);
if ($repcount == 0) {
$monthyear = str_replace("Category:", "", $mergemonths);
}
for ($i = 0; $i < count($transcludes); $i++) { // for each page
if ($i > $maxi) {
$maxi = $i;
}
if (preg_match("/^((User|Misplaced Pages|File|MediaWiki|Template|Help|Category|Portal)(( |_)talk)?|Talk):/", $transcludes)) {
echo "\n\n?? Other namespace: " . $transcludes . "\n\n";
$others = $transcludes;
$othernamespace += 1;
continue;
}
$getpagefailed = 0;
do {
$contents = $objwiki->getpage($transcludes);
if ($contents == FALSE) {
echo "\n\n?? getpage failed: " . $transcludes . "\n\n";
$getpagefailed += 1;
if ($getpagefailed == 5) {
die("getpage Error");
}
sleep(10);
continue;
}
} while ($contents == FALSE);
if (preg_match_all("/\{{2}\s?(merge|afd-merge|merging|move section)*\}{2}/i", $contents, $raw) == 0) {
#echo "contents:\n";
#echo "$contents";
#echo "\n";
unset($contents);
echo "\n\n?? Match failed: " . $transcludes . "\n\n";
$nomatches = $transcludes;
$matchfailed += 1;
continue;
}
$takeofflater = 0;
for ($j = 0; $j < count($raw); $j++) { // for each utterance
$key = $a . "-" . $i . "-" . $j;
$pagename = $transcludes;
echo $key . ">> " . $pagename;
$template = templateprocess($raw);
#echo "Count of raw: " . count($raw) . "\n";
unset($contents);
$templatesplit = array_map('trim',explode("|", $template));
echo " " . $templatesplit;
switch ($templatesplit) {
case "mergefrom":
$type = "into";
break;
case "mergeto":
echo " . "]\n";
unset($pagename);
$takeofflater += 1;
break;
case "merge":
$type = "with";
break;
case "false-positive":
echo " . "]\n";
unset($pagename);
$takeofflater += 1;
break;
default:
echo "*** templatesplitfailed: " . $templatesplit . "\n";
print_r($templatesplit);
$nosplits = $transcludes;
$templatesplitfailed += 1;
echo " . "]\n";
unset($pagename);
$takeofflater += 1;
break;
}
$otherpage = "{{pagelist|nspace=|";
for ($para = 1; $para < count($templatesplit); $para++) {
if (preg_match("/^date=/i", $templatesplit)) {
$date = str_replace("date=", "", $templatesplit);
}
elseif (preg_match("/^discuss=/i", $templatesplit)) {
$discuss = str_replace("discuss=", "", $templatesplit);
}
elseif (preg_match("/^target=/i", $templatesplit)) {
$target = str_replace("target=", "", $templatesplit);
if (in_array($target, $pagename)) {
echo " . "]\n";
unset($pagename);
unset($type);
unset($date);
unset($discuss);
unset($target);
unset($multiplesections);
$takeofflater += 1;
continue 2;
}
}
elseif (preg_match("/^multiplesections=/i", $templatesplit)) { // Template:Mergefrom uses parameter multiplesections; Merge and Mergeto do not
$multiplesections = str_replace("multiplesections=", "", $templatesplit);
}
else {
if (in_array($templatesplit, $pagename)) {
echo " . "]\n";
unset($pagename);
unset($type);
unset($date);
unset($discuss);
unset($target);
unset($multiplesections);
$takeofflater += 1;
continue 2;
}
else {
$otherpage .= $templatesplit . "|";
}
}
}
$otherpage .= "}}";
echo " -- " . $otherpage . "\n";
if ($date == "") {
$date = date("F Y");
}
elseif ($date != $monthyear) {
echo "\nAnother date: " . $date . " not " . $monthyear . "\n";
unset($pagename);
unset($type);
unset($date);
unset($discuss);
unset($target);
unset($multiplesections);
$takeofflater += 1;
}
if ($discuss == "") {
if (preg_match("/^(User|Misplaced Pages|Image|File|MediaWiki|Template|Help|Category|Portal):/i",$transcludes,$m)) {
$discuss = str_replace($m,$m.' talk',$transcludes);
}
else {
$discuss = "Talk:" . $transcludes;
}
}
}
}
$j = $j - $takeofflater;
$mainsubmission .= "* ]\n";
}
else {
echo "\n" . $a . ": Skipped: " . $mergemonths . "\n";
$skipped += 1;
}
}
if (count($pagename) < 1) {
echo "No pagenames! Exiting.";
die();
}
echo "\n*** Preparing Updates ***\n\n";
print_r($pagename);
foreach ($pagename as $key => $title) {
if ($counter] > $maxcounter) {
$maxcounter = $counter];
}
switch ($type) {
case "with": // regular merge
if ($target != "") {
#$submission] .= "# . "]] Request to merge ''']''' with '''" . $otherpage . "''' to ''' . "]]''' ([[" .
# $discuss . "|Discuss]])\n";
$submission] .= "{{merge log entry|1=]|2=$otherpage|3=]]|talk=$discuss|type=with}}\n";
}
else {
#$submission] .= "# . "]] Request to merge ''']''' with '''" . $otherpage . "''' ( . "|Discuss]])\n";
$submission] .= "{{merge log entry|1=]|2=$otherpage|talk=$discuss|type=with}}\n";
}
break;
case "into": // merge-from
#$submission] .= "# ''' . "]]''' Request to merge '''" . $otherpage . "''' into ''']''' ( . "|Discuss]])\n";
$submission] .= "{{merge log entry|1=$otherpage|2=]|talk=$discuss|type=into}}\n";
break;
default:
echo "\n*error* " . $type . "\n";
continue;
}
if ($otherpage == "{{pagelist|nspace=|}}") {
$nopartners = $title;
$nopartner += 1;
}
$counter] += 1;
echo $date . " | " . $counter] . ") " . $key . " ++ " . $title. "\n";
}
echo "\n\n*** Posting Updates ***\n\n";
foreach ($submission as $log => $content) {
echo "Updating> " . $log. "\n";
#echo $content . "\n";
$objwiki->edit("Misplaced Pages:Proposed mergers/Log/" . $log,$content,"Updating list of proposed mergers",false,true);
}
echo "Updating Misplaced Pages:Proposed mergers/Log\n";
$objwiki->edit("Misplaced Pages:Proposed mergers/Log",$mainsubmission,"Updating list of logs",true,true);
echo "done.\n";
echo "\nCategory members skipped: " . $skipped;
echo "\nMaximum pages in a category: " . $maxi;
echo "\nMaximum items on a report page: " . $maxcounter;
echo "\nOther namespaces skipped: " . $othernamespace . "\n";
print_r($others);
echo "\nPattern match failed: " . $matchfailed . "\n";
print_r($nomatches);
echo "\nTemplatesplit failed: " . $templatesplitfailed . "\n";
print_r($nosplits);
echo "\nNo partner: " . $nopartner . "\n";
print_r($nopartners);
echo "\nMission accomplished.\n\n";
?>