chiark / gitweb /
wip commod-update-receiver and new uploader
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Fri, 24 Jul 2009 16:29:12 +0000 (17:29 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Fri, 24 Jul 2009 16:29:12 +0000 (17:29 +0100)
pctb/commod-results-processor
pctb/commod-update-receiver

index 504f295..4beb6d0 100755 (executable)
@@ -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;
index 90c9c4b..b7bf4cb 100755 (executable)
@@ -155,7 +155,7 @@ while (<GZ>) {
 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);