Net::DirectConnect - Perl Direct Connect protocol implementation
use Net::DirectConnect; my $dc = Net::DirectConnect->new( 'host' => 'dc.mynet.com:4111', #if not 411 'Nick' => 'Bender', 'description' => 'kill all humans', #'M' => 'P', #passive mode, autodetect by default #'local_mask' => [qw(80.240)], #mode=active if hub in this nets and your ip in gray ); $dc->wait_connect(); $dc->chatline( 'hi all' ); while ( $dc->active() ) { $dc->work(); } $dc->destroy();
look at examples for handlers
Currently NOT supported: self filelist making segmented, multisource download; async connect;
To install this module type the following: perl Makefile.PL && make install clean
#pro http://pro.setun.net/dcppp/ http://sourceforge.net/projects/dcppp
http://svn.setun.net/dcppp/timeline/browser/trunk latest snapshot svn co svn://svn.setun.net/dcppp/trunk/ dcppp usage example: used in [and created for] http://sourceforge.net/projects/pro-search http://pro.setun.net/search/ ( http://svn.setun.net/search/trac.cgi/browser/trunk/crawler.pl ) protocol info: http://en.wikipedia.org/wiki/Direct_Connect_network http://www.teamfair.info/DC-Protocol.htm http://adc.sourceforge.net/ADC.html also useful for creating links from web: http://magnet-uri.sourceforge.net/ http://en.wikipedia.org/wiki/Magnet:_URI_scheme
CGET file files.xml.bz2 0 -1 ZL1<<< Rewrite better
Oleg Alexeenkov, <pro@cpan.org>
Copyright (C) 2005-2009 Oleg Alexeenkov
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.0 or, at your option, any later version of Perl 5 you may have available.
To install Net::DirectConnect, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::DirectConnect
CPAN shell
perl -MCPAN -e shell install Net::DirectConnect
For more information on module installation, please visit the detailed CPAN module installation guide.