chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
count is count of offers
[ypp-sc-tools.web-live.git]
/
pctb
/
yppsc-commod-processor
diff --git
a/pctb/yppsc-commod-processor
b/pctb/yppsc-commod-processor
index 2083be17221c1037db72151526b999b9b310ea88..5782a5aaa65d515ebeb961f6bd67b1cdf80bbbde 100755
(executable)
--- a/
pctb/yppsc-commod-processor
+++ b/
pctb/yppsc-commod-processor
@@
-235,7
+235,7
@@
sub load_commodmap() {
sub refresh_commodmap() {
my $ua= LWP::UserAgent->new;
sub refresh_commodmap() {
my $ua= LWP::UserAgent->new;
- my $resp= $ua->get("$pctb/commodmap.php");
+ my $resp= $ua->get("$pctb/commodmap.php
?version=2
");
die $resp->status_line unless $resp->is_success;
my $cdata='';
die $resp->status_line unless $resp->is_success;
my $cdata='';
@@
-287,9
+287,6
@@
sub refresh_commodmap() {
}) or die;
my $content= $resp->content;
}) or die;
my $content= $resp->content;
- # hacks to strip off drivel that seems to have been added!
- $content =~ s/^.*\n(\<\?xml)/$1/s;
- $content =~ s/\<\/body\>.*//s;
# print STDERR "[[[$content]]]\n";
$xp->parse($content);
close $o or die $!;
# print STDERR "[[[$content]]]\n";
$xp->parse($content);
close $o or die $!;
@@
-323,8
+320,8
@@
sub bs_gen_md ($$) {
my $qty= $cs->{Qty};
$qty =~ s/^\>\s*//;
$o .= writeint($stallix, $cs->{Price}, $qty+0);
my $qty= $cs->{Qty};
$qty =~ s/^\>\s*//;
$o .= writeint($stallix, $cs->{Price}, $qty+0);
+ $count++;
}
}
- $count++;
}
#print STDERR "COMMOD $commod COUNT WAS $count\n";
return
}
#print STDERR "COMMOD $commod COUNT WAS $count\n";
return