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='';
}) 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 $!;