chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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/^\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 )\>)* \'+
(?: \[\[ | \{\{ )
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;
(?: \]\] | \}\} )
\'+ (?: \<\/(?: big|center )\>)* \}\}$/xi) {
printf $debugfh "%2d,%-2d arch %s\n", $x,$y,$arch;