- $tf->flush or die $!;
- $tf->seek(0,0) or die $!;
- my $child= open GZ, "-|"; defined $child or die $!;
- if (!$child) {
- open STDIN, "<&", $tf;
- exec 'gzip'; die $!;
- }
- my $r;
- { undef $/; $!=0; $r= <GZ>; }
- defined $r or die $!;
- close GZ or die "$! $?"; die $? if $?;
- return $r;
+ return pipethrough_run($tf,undef,'gzip','gzip');
+}
+
+sub main__uploadyaarg () {
+ my %o;
+ $o{'ocean'}= $ENV{'YPPSC_OCEAN'} or die;
+ $o{'island'}= $ENV{'YPPSC_ISLAND'} or die;
+ $o{'timestamp'}= 10;
+ get_our_version(\%o, 'client');
+
+ my $tf= pipethrough_prep();
+ write_tsv($tf);
+ my $oz= pipethrough_run_gzip($tf);
+ $o{'data'}= [ undef, 'deduped.tsv.gz',
+ Content_Type => 'application/octet-stream',
+ Content => $oz ];
+
+ my $dest= $ENV{'YPPSC_YAARG_SUBMIT'};
+
+ my $respcontent= cgipostform($ua, "$dest/commod-update-receiver", \%o);
+ $respcontent =~ m/^OK\b/ or die "$respcontent ?";