my $incommodmap=0;
my $intag='';
my %got;
- my $o= new IO::File "#commodmap#.tsv.new",'w' or die $!;
+ my $o= new IO::File "#commodmap#.tsv.tmp",'w' or die $!;
undef %commodmap;
my $xp= new XML::Parser
# print STDERR "[[[$content]]]\n";
$xp->parse($content);
close $o or die $!;
- rename "#commodmap#.tsv.new","#commodmap#.tsv" or die $!;
+ rename "#commodmap#.tsv.tmp","#commodmap#.tsv" or die $!;
}
our %newcommods;
]
};
- print STDERR "Uploading data to server...\n";
+ print STDERR "Uploading data to $pctb...\n";
my $resp= $ua->post("$url", Content => $content,
Content_Type => 'form-data');