X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=pctb%2Fcommod-results-processor;fp=pctb%2Fcommod-results-processor;h=4beb6d066a59af51b46591b70d7158941f26a9e4;hp=504f295930f572f71b0c46020b505e6e2a9de9a1;hb=dc85c07a4cf546e987221571a20269ea659efa91;hpb=b99e2f9531a0d06479d6e05fbd54816a07559469

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;