+sub parse_info_clientside () {
+ my $yarrg= $ENV{'YPPSC_YARRG_DICT_UPDATE'};
+ return unless $yarrg;
+ my $master= fetch_with_rsync('info');
+ parse_info1($master,'s');
+ my $local= '_local-info.txt';
+ if (stat $local) {
+ parse_info1($local,'s');
+ } else {
+ die "$local $!" unless $! == &ENOENT;
+ }
+}
+
+sub fetch_with_rsync ($) {
+ my ($stem) = @_;
+
+ my $rsync= $ENV{'YPPSC_YARRG_RSYNC'};
+ $rsync= 'rsync' if !defined $rsync;
+
+ my $local= "_master-$stem.txt";
+ my $src= $ENV{'YPPSC_YARRG_DICT_UPDATE'};
+ if ($src) {
+ my $remote= "$src/master-$stem.txt";
+ $!=0; system 'rsync','-Lt','--',$remote,$local;
+ die "$? $!" if $! or $?;
+ }
+ return $local;
+}
+
+sub parse_info_maproutes ($$$) {