}
-our ($pctb) = $ENV{'YPPSC_PCTB_PCTB'};
+our ($pctb) = $ENV{'YPPSC_YARRG_PCTB'};
our ($ua)= LWP::UserAgent->new;
}
sub refresh_newcommods() {
- my $rsync= $ENV{'YPPSC_PCTB_RSYNC'};
- $rsync= 'rsync' if !defined $rsync;
-
- my $local= "_master-newcommods.txt";
- my $src= $ENV{'YPPSC_PCTB_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');
}
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;
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 ?";