# clientfixes "lastpage" [space separated list]
# data filename=deduped.tsv.gz output of ypp-commodities --tsv
+
use strict (qw(vars));
use POSIX;
use MIME::Entity;
my $now= time; defined $now or die $!;
fail("clock skew") if $o{'timestamp'} >= $now;
-die if $o{'ocean'} =~ m/\=/;
-die if $o{'island'} =~ m/\=/;
-
my $indatafh= upload('data');
defined $indatafh or fail("data is not a file");
my $datafile= must_param('data',"^(deduped\\.tsv\\.gz)\$");
get_our_version(\%o, 'server');
foreach my $cs (qw(client server)) {
- $o{"${cs}spec"}= join ' ', map { $o{$cs.$_} } qw(name version fixes);
+ $o{"${cs}spec"}= join "\t", map { $o{$cs.$_} } qw(name version fixes);
}
my $metadata= '';