From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 17 Feb 2005 02:03:12 +0000 (+0000)
Subject: don't DCC GET whenever asked
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dcb68ed997343f8809b25bbfe508478345690b6b;p=infobot.git

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
---

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 {