#
#========================================================================
#
-# Version 2.0.0beta0, released 23 Feb 2003.
+# Version 2.0.0beta3, released 1 Jun 2003.
#
# See http://backuppc.sourceforge.net.
#
$RsyncLibOK = 0;
$RsyncLibErr = "File::RsyncP module doesn't exist";
} else {
- if ( $File::RsyncP::VERSION < 0.30 ) {
+ if ( $File::RsyncP::VERSION < 0.41 ) {
$RsyncLibOK = 0;
- $RsyncLibErr = "File::RsyncP module version too old: need 0.30";
+ $RsyncLibErr = "File::RsyncP module version too old: need 0.41";
} else {
$RsyncLibOK = 1;
}
$t->{rs} = File::RsyncP->new({
logLevel => $conf->{RsyncLogLevel},
rsyncCmd => sub {
+ $bpc->verbose(0);
$bpc->cmdExecOrEval($rsyncClientCmd, $args);
},
rsyncCmdType => "full",
rsyncArgs => $rsyncArgs,
timeout => $conf->{ClientTimeout},
logHandler => sub {
- my($str) = @_;
- $str .= "\n";
- $t->{XferLOG}->write(\$str);
+ my($str) = @_;
+ $str .= "\n";
+ $t->{XferLOG}->write(\$str);
},
+ pidHandler => sub {
+ $t->{pidHandler}(@_);
+ },
fio => BackupPC::Xfer::RsyncFileIO->new({
xfer => $t,
bpc => $t->{bpc},
{
my($t) = @_;
- return -1;
+ return ();
}
sub logMsg