chiark / gitweb /
Export for people's convenience
[ypp-sc-tools.main.git] / 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 $?