From dcb68ed997343f8809b25bbfe508478345690b6b Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 17 Feb 2005 02:03:12 +0000
Subject: [PATCH] don't DCC GET whenever asked

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1125 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/IRC/IrcHooks.pl | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index 669e480..59c15f5 100644
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -241,8 +241,10 @@ sub on_dcc {
     if ($type eq 'SEND') {	# GET for us.
 	# incoming DCC SEND. we're receiving a file.
 	my $get = ($event->args)[2];
-	open(DCCGET,">$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);
 
     } elsif ($type eq 'GET') {	# SEND for us?
@@ -294,6 +296,8 @@ sub on_dcc_open {
     my $nick = lc $event->nick();
     my $sock = ($event->to)[0];
 
+    &status("on_dcc_open type=$type nick=$nick sock=$sock");
+
     $msgType = 'chat';
     $type ||= "???";
     ### BUG: who is set to bot's nick?
@@ -313,9 +317,9 @@ sub on_dcc_open {
 	}
 
     } elsif ($type eq 'SEND') {
-	&DEBUG("Starting DCC receive.");
+	&status("Starting DCC receive.");
 	foreach ($event->args) {
-	    &DEBUG("  => '$_'.");
+	    &status("  => '$_'.");
 	}
 
     } else {
-- 
2.39.5