/usr/share/doc/libanyevent-irc-perl/examples/dcc is in libanyevent-irc-perl 0.97-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | #!/usr/bin/env perl
# Just a small sample script on how DCC is used.
#
use common::sense;
use AnyEvent;
use AnyEvent::IRC::Client;
my $c = AnyEvent->condvar;
my $con = new AnyEvent::IRC::Client;
$con->connect ("localhost", 6667, { nick => 'testdcc' });
$con->reg_cb (
registered => sub {
my ($con) = @_;
$con->dcc_initiate ("root", "chat", 20);
},
dcc_request => sub {
my ($con, $id, $src, $type, $arg, $addr) = @_;
warn "DCC REQ $id/$type\n";
$con->dcc_accept ($id);
},
dcc_connected => sub {
my ($con, $id, $type, $hdl) = @_;
warn "DCC CONN $id/$type\n";
if ($type eq 'chat') {
$con->send_dcc_chat ($id, "Hi!");
}
},
dcc_accepted => sub {
my ($con, $id, $type) = @_;
warn "DCC ACC $id/$type\n";
if ($type eq 'chat') {
$con->send_dcc_chat ($id, "Hi!");
}
},
dcc_close => sub {
my ($con, $id, $type, $reason) = @_;
warn "DCC $type [$id] CLOSE: $reason\n";
},
dcc_chat_msg => sub {
my ($con, $id, $msg) = @_;
warn "DCC $id> $msg\n";
$con->send_dcc_chat ($id, "<$msg>?");
},
);
$c->wait;
|