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
usage example:
protocol info:
also useful
for
creating links from web:
TODO
CGET file files.xml.bz2 0 -1 ZL1<<<
Rewrite better
AUTHOR
Oleg Alexeenkov, <pro@cpan.org>
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.
7 POD Errors
The following errors were encountered while parsing the POD:
- Around line 79:
Unknown directive: =old
- Around line 88:
Unknown directive: =todo
- Around line 973:
Unknown directive: =hm
- Around line 1014:
Unknown directive: =no
- Around line 1422:
Unknown directive: =no
- Around line 1927:
Unknown directive: =no
- Around line 1960:
Unknown directive: =no