chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use tmpfile trick for pixmaps too [-iwj]
[ypp-sc-tools.main.git]
/
pctb
/
commod-results-processor
diff --git
a/pctb/commod-results-processor
b/pctb/commod-results-processor
index cea64e5190318e437c5ad55ff6368cfe0f8a68ed..e391e4749780c1a04e50abfc4f146a4317a3b771 100755
(executable)
--- a/
pctb/commod-results-processor
+++ b/
pctb/commod-results-processor
@@
-244,7
+244,7
@@
sub refresh_commodmap() {
my $incommodmap=0;
my $intag='';
my %got;
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
undef %commodmap;
my $xp= new XML::Parser
@@
-292,7
+292,7
@@
sub refresh_commodmap() {
# print STDERR "[[[$content]]]\n";
$xp->parse($content);
close $o or die $!;
# 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;
}
our %newcommods;
@@
-449,7
+449,7
@@
sub main__upload () {
]
};
]
};
- 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');
my $resp= $ua->post("$url", Content => $content,
Content_Type => 'form-data');