Vjacheslav V. Borisov пишет:
> I tried adding --address=x.x.x.x to $Conf{RsyncArgs}, but it does not work.
I made quick and dirty patch to File::RsyncP.
--- /usr/local/lib/perl5/site_perl/5.8.8/mach/File/RsyncP.pm.dist
Fri Aug 10 11:05:57 2007
+++ /usr/local/lib/perl5/site_perl/5.8.8/mach/File/RsyncP.pm Fri Aug
10 11:14:30 2007
@@ -229,6 +229,11 @@
alarm($rs->{timeout}) if ( $rs->{timeout} );
socket(FH, PF_INET, SOCK_STREAM, $proto)
|| return "inet socket: $!";
+ my $domain = 2;
+ my $lport = 0;
+ my $lhost=pack('C4', x,x,x,x);
+ my $laddress = pack('S n a4 x8', $domain, $lport, $lhost);
+ bind(FH,$laddress);
connect(FH, $paddr) || return "inet connect: $!";
$rs->{fh} = *FH;
$rs->writeData("[EMAIL PROTECTED]: $rs->{protocol_version}\n", 1);
-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems? Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
_______________________________________________
BackupPC-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/backuppc-users
http://backuppc.sourceforge.net/
