X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=yarrg%2FCommodsScrape.pm;h=2cd1148f9a3f1c60a97e22cf3b0d1f60d5a84e47;hp=4b027f185f76b9ed1dcb9ca44a92c68c90c8fb9c;hb=89de43f79c1a644669c3c00ba27157081ef29fcd;hpb=75cdb423d4bb253631932bfdf2852adeff8624c9 diff --git a/yarrg/CommodsScrape.pm b/yarrg/CommodsScrape.pm index 4b027f1..2cd1148 100644 --- a/yarrg/CommodsScrape.pm +++ b/yarrg/CommodsScrape.pm @@ -55,14 +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\}\}//; + 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;