User:Keller999/projects/gamepageupdate: Difference between revisions

* Remove existing non-used config variables if they are present in the page

Hooray for programming mini-project!  I put together a script that takes the Infobox and summary from Wikipedia, then the existing Dolphin Wiki article, and creates a standards-compliant merge of the two.  For an example of what this script does, please see [[Call of Duty: Black Ops/sandbox]].  Revision 23655 is before, Revision 23677 is after.  I did NOT do any additional touchup between these revs, as I wanted to show exactly what the script was doing.

I updated the script twice, to v1.02 now.  Most of the changes are a result of bugs I've hit as I've been processing.  At some point, I may see if I can script this process JUST for article cleanup, not for new Wikipedia info.  Would have to be extremely careful and go through a lot of testing, but this is definitely an automate-able process.

--[[User:Keller999|Keller999]] 12:48, 20 August 2011 (CEST)

Runs great on my Linux box, uses no special modules.  I know for a fact that system('clear') does NOT work in Windows, but you could probably replace it with system('cls') and get the same effect.

'''''1.0'''''

* Initial release

* Categories are now always capitalized

* Mention of any of our supported systems in description text is now automatically Wiki-fied

<pre>

$imageSize = 300; # Assuming Wii by default

#######

system('clear');

print "First, copy and paste the game's Wikipedia article from the top to wherever you'd like to end the new description.  Zero input is fine.  Enter \'-1\' to indicate the end, or -2 to just get a blank template.\n\n";

         chomp($line);

                 push (@wikipedia,$line);

         }

system('clear');

print "Now, copy and paste the existing Dolphin wiki article to import existing information.  Zero input is fine.  Enter \'-1\' to indicate the end.\n\n";

         chomp($line);

                 push (@originalArticle,$line);

         }

if    ($newLine =~ /^\{\{\ *Infobox.*/i) { $currentSection = "infobox"; $foundDolphinInfobox = 1; }

elsif ($newLine =~ /^\ *\[\[Category\:.*\]\]$/i) { $currentSection = "categories"; }

elsif ($newLine =~ /^\ *\{\{Navigation\ .*\}\}$/i) { $currentSection = "categories"; }

if ($newLine =~ /^\{\{\ *Infobox.*/i) {  # This is the start of the Infobox, ignore

# ignore

$currentSection = "description";

} else {  # We want to keep anything else in the infobox.  This is in case the user didn't give us a wikipedia article to generate a new one from

# Now we save the image filename and size to be added onto wikipedia's infobox, if its provided

}

}

} # Anything besides filled-out compat reports are not needed, the rest will be regenerated

} elsif ($currentSection eq "testing") {

# Matches test reports with all variables set (tester is optional) and dissects for reassembly (muahahaha!)

$testResult = "\{\{testing\/entry\|revision\=$1\|OS\=$2\|CPU\=$3\|GPU\=$4\|result\=$5\|tester\=".(($6)?"$6":"")."\}\}";

#Wii

$platforms .= '[[Wii]] ';

push (@autoCategory, "[[Category:Wii games]]");

$platformAltered = 1;

                 if ($newLine =~ /GameCube/i) {

$platforms .= '[[GameCube]] ';

push (@autoCategory, "[[Category:GameCube games]]");

$platformAltered = 1;

                 if ($newLine =~ /WiiWare/i) {

               $platforms .= '[[WiiWare]] ';

push (@autoCategory, "[[Category:WiiWare games]]");

$platformAltered = 1;

if ($newLine =~ /.*Virtual\ *Console.*/i) {

$platforms .= '[[Virtual Console]] ';

push (@autoCategory, "[[Category:Virtual Console games]]");

$platformAltered = 1;

                 if ($newLine =~ /TriForce/i) {

               $platforms .= '[[Triforce]] ';

push (@autoCategory, "[[Category:Triforce games]]");

$platformAltered = 1;

#Purge un-used parameters

if ($insideInfobox) {

# If the parameter is not in our list, it's ignored

$skip = 0;

$newLine =~ s/^\|(\S*)\ *=\ *(.*)/\|$1 \= $2/i;

$newLine =~ s/\<ref.+?\/.{0,3}\>//gi; # remove citations references

$newLine =~ s/\{\{vgy\|([0-9]{4})\}\}/$1/gi; # we don't do Template:vgy, removing

$newLine =~ s/\{\{cite.*?\}\}//gi; # remove references

$newLine =~ s/\[\[(([.]|[^\|])+?)\]\]/$1/g; # un-wiki-fy wiki links in the format [[link]]

                 $newLine =~ s/\[\[.+?\|(.+?)\]\]/$1/g; # un-wiki-fy wiki links in the format [[link|name]]

@genres = split (/\,|\<br.*?\>/,$genreLine);

foreach (@genres) {

$line = $_;

@modes = split (/\,|\<br.*?\>/,$modeLine);

foreach (@modes) {

$line = $_;

$line =~ s/(\<.+?\>)|\(|\)/\,/gi;

$line =~ s/^\ *//;

}

if ($savedSizeLine ne "") { push (@finalResult, $savedSizeLine); }  # Saved size

if ($savedInputLine ne "") { push (@finalResult, $savedInputLine); }  # Saved input

push (@finalResult, $newLine);

$skip = 1;

$insideInfobox = 0;

}

if (($foundWikipediaInfobox eq 1) and ($skip eq 0)) {

if ($insideInfobox eq 0) {

$newLine =~ s/GameCube/[[GameCube]]/i;

$newLine =~ s/Nintendo GameCube/[[GameCube]]/i;

$newLine =~ s/WiiWare/[[WiiWare]]/i;

$newLine =~ s/Virtual Console/[[Virtual Console]]/i;

}

$dupe = 1;

}

} elsif (($foundWikipediaInfobox eq 0) and ($foundDolphinInfobox eq 0)) { # We didn't get ANY infoboxes, create a generic one

push (@finalResult, '{{Infobox VG');

push (@finalResult, '}}');

}

#DESCRIPTION PROCESSING

if ((@descriptionSection) and ($foundWikipediaInfobox eq 0)) {  # Only re-use the original description if there was one and we didn't get Wikipedia data

push (@finalResult, @descriptionSection);

}

push (@finalResult, @problemSection);

push (@finalResult, "\n\=\= Version Compatibility \=\=");

push (@finalResult, "\{\{VersionCompatibility\}\}");

push (@finalResult, @versionCompatSection);

push (@finalResult, "\{\{VersionCompatibilityClose\}\}");

push (@finalResult, "\n\=\= Testing \=\=");

push (@finalResult, @testingSection);

push (@finalResult, "\{\{testing\/end\}\}");

push (@finalResult, @videoSection);

push (@finalResult, @categorySection);