#!/usr/bin/env perl

# $Id: wbmc_dc_rsync,v 1.1 2006/12/22 05:33:58 shodai Exp $
# $Revision: 1.1 $
# $Date: 2006/12/22 05:33:58 $

##000929 v4.1 delete print*3 haramoto

# require 'wbmc_dist_conf.pl';
# require 'wbmc_dc_rsync.pl';
require '/opt/nec/wbmc/bin/wbmc_dist_conf.pl';
require '/opt/nec/wbmc/bin/wbmc_dc_rsync.pl';

use Getopt::Long;

if(not &wbmc_dc_is_master) {
    die "not master server.\n";
}

GetOptions("dir=s", "config=s");
if(not defined($opt_dir)) {
    die "--dir reqired.";
}
if($opt_dir !~ /\/$/) {
    $opt_dir .= '/';
}

if(defined($opt_config)) {
    $config_file = $opt_config;
}
@servers = &parse_server_list($wbmc_dc_neighbor_list);
%wbmc_rsync_configs = &wbmc_dc_parse_rsync_configs($config_file);

@result_list = ();

for $host (@servers) {
    @result = &wbmc_dc_exec_rsync($host->[0], $opt_dir);
##000929
#    print '[', $result[0][0], ', ';
#    print $result[0][1], ', ';
#    print '"', $result[0][2], '"]',"\n";
    push(@result_list, @result);
}
