#!/usr/bin/perl
$REP=$ENV{PRCS_REPOSITORY};
$HOME=$ENV{HOME};
$REP="$HOME/PRCS" unless $REP;          


sub sync {
  my ($from, $to, $force_overwrite)=@_;
  if ($force_overwrite) {
    print "rsync -avzb $from $to\n";
    system("rsync -avzb $from $to"); }
  else {
    print "rsync -avuzb $from $to\n";
    system("rsync -avuzb $from $to"); }
}
