yarrg/update-master-info

   1 #!/usr/bin/perl -w
   2
   3 use strict (qw(vars));
   4
   5 use DBI;
   6
   7 use Commods;
   8
   9 @ARGV==1 or die;
  10 my ($rsyncdir) = @ARGV;
  11
  12 parse_info_serverside();
  13
  14 foreach my $oceanname (sort keys %oceans) {
  15     print STDERR "updating ocean $oceanname...\n";
  16     system('./db-idempotent-populate',$oceanname); die $? if $?;
  17 }
  18
  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 $?