10 my ($rsyncdir) = @ARGV;
12 parse_info_serverside();
14 foreach my $oceanname (sort keys %oceans) {
15 print STDERR "updating ocean $oceanname...\n";
16 system('./db-idempotent-populate',$oceanname); die $? if $?;
19 print STDERR "installing new master-info...\n";
20 my $df= "$rsyncdir/master-info.txt";
21 system('cp','--','master-info.txt',"$df.tmp"); die $? if $?;
22 system('mv','--',"$df.tmp",$df); die $? if $?