NAME Net::DirectConnect - Perl Direct Connect protocol implementation SYNOPSIS 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 DESCRIPTION Currently NOT supported: segmented, multisource download; async connect; INSTALLATION To install this module type the following: cpan DBD::SQLite IO::Socket::IP IO::Socket::INET6 IO::Socket::SSL perl Makefile.PL && make install clean debian: apt-get install libdbd-sqlite3-perl libio-socket-ip-perl libjson-xs-perl libjson-perl libmime-base32-perl liblib-abs-perl SEE ALSO latest snapshot svn co svn://svn.setun.net/dcppp/trunk/ dcppp http://svn.setun.net/dcppp/timeline/browser/trunk 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 TODO CGET file files.xml.bz2 0 -1 ZL1<<< Rewrite better AUTHOR Oleg Alexeenkov, COPYRIGHT AND LICENSE Copyright (C) 2005-2011 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.