}
-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'};
+ my $rsync= $ENV{'YPPSC_YARRG_RSYNC'};
$rsync= 'rsync' if !defined $rsync;
my $local= "_master-newcommods.txt";
- my $src= $ENV{'YPPSC_PCTB_DICT_UPDATE'};
+ my $src= $ENV{'YPPSC_YARRG_DICT_UPDATE'};
if ($src) {
my $remote= "$src/master-newcommods.txt";
$!=0; system 'rsync','-Lt','--',$remote,$local;