The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

run dc client with file sharing

SYNOPSIS

 dcshare dchub://hub.net hub.com adc://hub.edu dir /dir/dir ...

 unix adc:
 dcshare adc://dc.hub.com:412 /share
 win nmdc:
 dcshare dchub://dc.hub.com c:/pub c:/distr

 manual build filelist:
 dcshare /share /sharemore

INSTALL

recommended module: Sys::Sendfile

CONFIGURE

 create config.pl and fill with your sharedir, hubs and other options:
  cp config.pl config.pl.dist 

 config with sharedirs:
  $config{dc}{'share'} = [qw(/usr/ports/distfiles c:\distr c:\pub\ )];

 predefined dc hubs:
  $config{dc}{host} = ['myhub.net', 'adc://otherhub.com'];

 if hubs and shares defined in config you can use simple
  dcshare

 full list of options available in ../lib/Net/DirectConnect/filelist.pm:
  $self->{file_min} in filelist.pm must be written as 
  $config{dc}{file_min} = 1_000_000; #skip files smaller 1MB 

TUNING

freebsd: speedup: sysctl net.inet.tcp.sendspace=200000 or: sysctl kern.ipc.maxsockbuf=8388608 net.inet.tcp.sendspace=3217968

TODO

filelist xml escape chars

windows install: get perl from http://strawberryperl.com/ and install and run C:\strawberry\perl\bin\cpan.bat Net::DirectConnect C:\strawberry\perl\site\bin\dcshare.bat or with config: get tar.gz from http://search.cpan.org/dist/Net-DirectConnect/ unpack, cd examples cp config.pl.dist config.pl edit config.pl perl dcshare