From 0f6b5d9893099175cde6bc4ceaa3934f5667cd2a Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 17 Feb 2005 02:29:42 +0000
Subject: [PATCH] don't DCC GET whenever asked
git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1126 c11ca15a-4712-0410-83d8-924469b57eb5
---
blootbot/src/IRC/IrcHooks.pl | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/blootbot/src/IRC/IrcHooks.pl b/blootbot/src/IRC/IrcHooks.pl
index 59c15f5..fed0a18 100644
--- a/blootbot/src/IRC/IrcHooks.pl
+++ b/blootbot/src/IRC/IrcHooks.pl
@@ -231,6 +231,8 @@ sub on_dcc {
my $type = uc( ($event->args)[1] );
my $nick = lc $event->nick();
+ &status("on_dcc type=$type nick=$nick sock=$sock");
+
# pity Net::IRC doesn't store nuh. Here's a hack :)
if (!exists $nuh{lc $nick}) {
$conn->whois($nick);
@@ -241,14 +243,16 @@ sub on_dcc {
if ($type eq 'SEND') { # GET for us.
# incoming DCC SEND. we're receiving a file.
my $get = ($event->args)[2];
+ &status("DCC: not Initializing GET from $nick to '$param{tempDir}/$get'");
# FIXME: do we want to get anything?
return;
- &status("DCC: Initializing GET from $nick to '$param{tempDir}/$get'");
- open(DCCGET,">$param{tempDir}/$get");
- $conn->new_get($event, \*DCCGET);
+ #open(DCCGET,">$param{tempDir}/$get");
+ #$conn->new_get($event, \*DCCGET);
} elsif ($type eq 'GET') { # SEND for us?
- &status("DCC: Initializing SEND for $nick.");
+ &status("DCC: not Initializing SEND for $nick.");
+ # FIXME: do we want to do anything?
+ return;
$conn->new_send($event->args);
} elsif ($type eq 'CHAT') {
--
2.39.5