#!/usr/bin/perl -w

use strict (qw(vars));

use DBI;

use Commods;

@ARGV==1 or die;
my ($rsyncdir) = @ARGV;

parse_info_serverside();

foreach my $oceanname (sort keys %oceans) {
    print STDERR "updating ocean $oceanname...\n";
    system('./db-idempotent-populate',$oceanname); die $? if $?;
}

print STDERR "installing new master-info...\n";
my $df= "$rsyncdir/master-info.txt";
system('cp','--','master-info.txt',"$df.tmp"); die $? if $?;
system('mv','--',"$df.tmp",$df); die $? if $?