don't DCC GET whenever asked

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1126 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index 59c15f55fc5c35ad2d447656771b1af36e0b0b6d..fed0a18b3c9073f7f88ea73385cf624ddfefb7d7 100644 (file)
--- a/src/IRC/IrcHooks.pl
+++ b/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') {