git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@144
c11ca15a-4712-0410-83d8-
924469b57eb5
# pity Net::IRC doesn't store nuh. Here's a hack :)
$self->whois($nick);
# pity Net::IRC doesn't store nuh. Here's a hack :)
$self->whois($nick);
+ if ($type eq 'SEND') { # GET for us.
# incoming DCC SEND. we're receiving a file.
# incoming DCC SEND. we're receiving a file.
- $self->new_get($event, \*FH);
+ my $get = ($event->args)[2];
+ open(DCCGET,">$get");
+
+ $self->new_get($nick,
+ ($event->args)[2],
+ ($event->args)[3],
+ ($event->args)[4],
+ ($event->args)[5],
+ \*DCCGET
+ );
+ } elsif ($type eq 'GET') { # SEND for us?
+ &DEBUG("starting get.");
+ $self->new_send($event->args);
} elsif ($type eq 'CHAT') {
} elsif ($type eq 'CHAT') {
+ &DEBUG("starting chat.");
$self->new_chat($event);
} else {
&status("${b_green}DCC $type$ob unknown ...");
$self->new_chat($event);
} else {
&status("${b_green}DCC $type$ob unknown ...");
} else {
$self->privmsg($sock,"Welcome to blootbot DCC CHAT interface, $userHandle.");
}
} else {
$self->privmsg($sock,"Welcome to blootbot DCC CHAT interface, $userHandle.");
}
+ } elsif ($type eq 'SEND') {
+ &DEBUG("Starting DCC receive.");
+ foreach ($event->args) {
+ &DEBUG(" => '$_'.");
+ }
} else {
&status("${b_green}DCC $type$ob unknown ...");
}
} else {
&status("${b_green}DCC $type$ob unknown ...");
}