From dc85c07a4cf546e987221571a20269ea659efa91 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Fri, 24 Jul 2009 17:29:12 +0100 Subject: [PATCH] wip commod-update-receiver and new uploader --- pctb/commod-results-processor | 12 +++++++++++- pctb/commod-update-receiver | 2 +- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/pctb/commod-results-processor b/pctb/commod-results-processor index 504f295..4beb6d0 100755 --- a/pctb/commod-results-processor +++ b/pctb/commod-results-processor @@ -424,7 +424,17 @@ sub save_upload_html ($$) { 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; diff --git a/pctb/commod-update-receiver b/pctb/commod-update-receiver index 90c9c4b..b7bf4cb 100755 --- a/pctb/commod-update-receiver +++ b/pctb/commod-update-receiver @@ -155,7 +155,7 @@ while () { 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); -- 2.30.2