Normalise commodity name case (from uploads)

[ypp-sc-tools.db-test.git] / yarrg / CommodsScrape.pm

diff --git a/yarrg/CommodsScrape.pm b/yarrg/CommodsScrape.pm
index d6951cf6b905e99c792a280013cd94395b1ba521..2cd1148f9a3f1c60a97e22cf3b0d1f60d5a84e47 100644 (file)
--- a/yarrg/CommodsScrape.pm
+++ b/yarrg/CommodsScrape.pm
@@ -55,13 +55,14 @@ sub yppedia_chart_parse ($$ $$$$ $) {
        s/^\s*//; chomp; s/\s+$//; s/\s+/ /g;
        s/\<\/?(?:b|em)\>//g;
        s/\{\{(?:chart\ style|Chart league difficulty)\|[^{}]*\}\}//gi;
+       s/^\{\{(?:testing|current)\}\}//;
        next unless m/\{\{/; # only interested in chart template stuff
 
        if (($x,$y,$arch) =
            m/^\{\{ chart\ label \|(\d+)\|(\d+)\| .*
                    (?: \<(?: big|center )\>)* \'+
                    (?: \[\[ | \{\{ )
-                   [^][\']* \| ([^][\'|]+)\ archipelago
+                   [^][]* \| ([^][|]+)\ archipelago
                    (?: \]\] | \}\} )
                    \'+ (?: \<\/(?: big|center )\>)* \}\}$/xi) {
            printf $debugfh "%2d,%-2d arch %s\n", $x,$y,$arch;