X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=yarrg%2Fcommod-results-processor;h=7cd4e0457b6f438398ffa55f46dcdb035d834ed7;hp=827cac45ebfc05ac9a5a628d15437d758a93de07;hb=877b0ba6b2d72d7957e2a8015520b87371cba6c9;hpb=9394bf058a6806354aa119f5c3ef99a1d6ac85f5

diff --git a/yarrg/commod-results-processor b/yarrg/commod-results-processor
index 827cac4..7cd4e04 100755
--- a/yarrg/commod-results-processor
+++ b/yarrg/commod-results-processor
@@ -310,17 +310,8 @@ sub read_newcommods ($) {
 }
 
 sub refresh_newcommods() {
-    my $rsync= $ENV{'YPPSC_YARRG_RSYNC'};
-    $rsync= 'rsync' if !defined $rsync;
-
-    my $local= "_master-newcommods.txt";
-    my $src= $ENV{'YPPSC_YARRG_DICT_UPDATE'};
-    if ($src) {
-	my $remote= "$src/master-newcommods.txt";
-	$!=0; system 'rsync','-Lt','--',$remote,$local;
-	die "$? $!" if $! or $?;
-    }
-    read_newcommods($local);
+    my $master= fetch_with_rsync('newcommods');
+    read_newcommods($master);
     read_newcommods('_local-newcommods.txt');
 }
 
@@ -440,6 +431,9 @@ sub gzip ($) {
 
 sub main__uploadyaarg () {
     my %o;
+
+    parse_info_clientside();
+
     $o{'ocean'}= $ENV{'YPPSC_OCEAN'} or die;
     $o{'island'}= $ENV{'YPPSC_ISLAND'} or die;
     $o{'timestamp'}= 10;
@@ -452,7 +446,7 @@ sub main__uploadyaarg () {
 		    Content_Type => 'application/octet-stream',
 		    Content => $oz ];
 
-    my $dest= $ENV{'YPPSC_YAARG_SUBMIT'};
+    my $dest= $ENV{'YPPSC_YARRG_YARRG'};
 
     my $respcontent= cgipostform($ua, "$dest/commod-update-receiver", \%o);
     $respcontent =~ m/^OK\b/ or die "$respcontent ?";