X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=blobdiff_plain;f=yarrg%2FCommods.pm;h=67277c20b78387e799079c83bef50511df4b2293;hp=9b190c4b3a88d5236cc1e9ff9f41058a12118be2;hb=1c640671a7ee8d30ee80c393822fa02ef3da0031;hpb=877b0ba6b2d72d7957e2a8015520b87371cba6c9

diff --git a/yarrg/Commods.pm b/yarrg/Commods.pm
index 9b190c4..67277c2 100644
--- a/yarrg/Commods.pm
+++ b/yarrg/Commods.pm
@@ -32,7 +32,7 @@ BEGIN {
     our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
     $VERSION     = 1.00;
     @ISA         = qw(Exporter);
-    @EXPORT      = qw(&parse_info1 &rsync_master
+    @EXPORT      = qw(&parse_info_clientside
 		      &parse_info_serverside &parse_info_serverside_ocean
 		      %oceans %commods %clients %routes %route_mysteries
 		      &parse_pctb_commodmap %pctb_commodmap @pctb_commodmap
@@ -40,7 +40,7 @@ BEGIN {
 		      &pipethrough_prep &pipethrough_run
 		      &pipethrough_run_along &pipethrough_run_finish
 		      &pipethrough_run_gzip
-		      &cgipostform);
+		      &cgipostform &yarrgpostform);
     %EXPORT_TAGS = ( );
 
     @EXPORT_OK   = qw();
@@ -252,6 +252,13 @@ sub pipethrough_run_gzip ($) {
     pipethrough_run($_[0],undef,'gzip','gzip');
 }
 
+sub yarrgpostform ($$) {
+    my ($ua, $form) = @_;
+    my $dest= $ENV{'YPPSC_YARRG_YARRG'};
+    get_our_version($form, 'client');
+    return cgipostform($ua, "$dest/commod-update-receiver", $form);
+}    
+
 sub cgipostform ($$$) {
     my ($ua, $url, $form) = @_;
     my $req= HTTP::Request::Common::POST($url,