#!/usr/bin/perl -w

#Copyright (C) 1999-2001 by  Sbastien Chaumat <schaumat@ens-lyon.fr>
#                        and Loc Prylli <lprylli@lhpca.univ-lyon1.fr>

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.

#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.

#    A copy of the GNU General Public License is available as
#    `/usr/share/common-licences/GPL' in the Debian GNU/Linux distribution
#    or on the World Wide Web at http://www.gnu.org/copyleft/gpl.html.  You
#    can also obtain it by writing to the Free Software Foundation, Inc.,
#    59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

sub dosystem {
  print STDERR "exec: @_\n";
  system(@_) and die "command failed!!!";
}

sub error {
  die "ERROR:@_\n";
}

$confile = "/etc/replicator/repli-sync.conf";
if ( -r "$confile") {
  eval (`cat $confile`)
    or error "reading $confile:$@";
} else {
  error "you have no $confile";
}

$model or error "no model computer specified";

exec("repli-update","--destdir","/","--master","$model","--config","$confile",@ARGV);
