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 669e480e1203a3f6c91473b99df718c4da412d60..59c15f55fc5c35ad2d447656771b1af36e0b0b6d 100644 (file)
--- 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 {