close R or die $!;
}
-sub main__upload () {
+sub main__upload_yaarg () {
+ my $ocean= $ENV{'YPPSC_OCEAN'}; die unless $ocean;
+ my $island= $ENV{'YPPSC_ISLAND'}; die unless $island;
+ my $content= {
+ 'data' => [ undef, 'deduped.tsv.gz',
+ Content_Type => 'application/octet-stream',
+ Content => ''
+]};
+}
+
+sub main__upload_pctb () {
my $ocean= $ENV{'YPPSC_OCEAN'}; die unless $ocean;
my $island= $ENV{'YPPSC_ISLAND'}; die unless $island;
die unless $pctb;
GZ->error and die $!;
$?=0; close GZ; $? and fail("gunzip for check failed code $?");
-my $mdatafile= MIME::Entity->build(Type => 'application/octet-streak',
+my $mdatafile= MIME::Entity->build(Type => 'application/octet-stream',
Disposition => 'attachment',
Encoding => 'base64',
File => $datafile);