#!/usr/bin/perl -w

# rsf.pl
# pod at tail

$|++;               # stdout hot
use strict;         # avoid d'oh! bugs
require 5;          # for following modules
use File::Rsync;    # wrapper for rsync directory sync tool


my $logDir = '/home/joe/rtest';
my $outLog = "$logDir/out.log";
my $errLog = "$logDir/err.log";

## RECEIVE
my $srchost = 'indy:';
# my @src     = qw(perls debs);
my $src     = 'perls';
my $dest    = '/home/joe/rtest/';
## SEND
# my $srchost = '';
# my @src     = qw(/home/joe/rtest /usr/local/perls);
# my $dest    = 'indy::Test';


my $obj = File::Rsync->new({
  srchost => $srchost,
  src     => \@src,
  dest    => $dest,
});
#  src     => $src,


$obj->defopts({
  archive   => 1,
  verbose   => 1,
  recursive => 1,
  owner     => 1,
  perms     => 1,
  group     => 1,
  times     => 1,
  debug     => 0,
  compress  => 0,
  'dry-run' => 0,
});


$obj->exec or warn "Rsync notice - check logs\n";


open OUT,  "> $outLog"  or die $!;
open ERR,  "> $errLog"  or die $!;

my @out = $obj->out;
print OUT for(@out);

my @err   = $obj->err;
my $stat  = $obj->status;
my $rstat = $obj->realstatus;
print ERR for(@err);
print OUT  "status     = $stat\n";
print OUT  "realstatus = $rstat\n";

close OUT  or die $!;
close ERR  or die $!;


=head1 UPDATE

 2002-03-11   16:45 CST
  Variableized object options
  Test on Cygwin
    rsh=>'/usr/bin/ssh' errs, ignored 
  Debug sending to rsync server
    user@rhost::module only with rsh=>'/usr/local/bin/ssh'
    "@list=$obj->list" is only for no "dest"

 2002-03-09   22:15 CST
  Initial working code

=head1 TODO

  Figure out File::Rsync syntax to receive from multiple rsync modules
    @ERROR: Unknown module 'mod1 mod2'

    There is also a method for passing multiple source paths to a
    remote system by passing the remote hostname to the srchost key
    and passing an array ref to the source key... single trailing
    colon on the name...
  Loopify somehow for send+receive
  Re-test on Cygwin
  Pod::Usage
  Getopt::Long
  ? Logfile::Rotate ?
  ? Parallel::ForkManager ?

=cut