From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 3 Nov 2002 16:24:02 +0000 (+0000)
Subject: - ok... this patch should fix DCC CHAT on the bot. someone should send
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=bb305b7e9ec604f1295a97dd7f73638da324fc5b;p=infobot.git

- ok... this patch should fix DCC CHAT on the bot. someone should send
  it to the debian maintainer or something.


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

diff --git a/blootbot/patches/Net::IRC::Connection.pm.patch b/blootbot/patches/Net::IRC::Connection.pm.patch
new file mode 100644
index 0000000..d91888a
--- /dev/null
+++ b/blootbot/patches/Net::IRC::Connection.pm.patch
@@ -0,0 +1,26 @@
+--- Connection.pm	Tue Feb 13 21:09:31 2001
++++ /usr/lib/perl5/Net/IRC/Connection.pm	Wed Dec 27 20:32:30 2000
+@@ -1288,17 +1376,20 @@
+ 	if ($prefix) {
+ 	    my $handler = $prefix . lc $ctype;   # unit. value prob with $ctype
+ 
+-	    warn "ctype => $ctype\n";
+-
+ 	    # -- #perl was here! --
+ 	    # fimmtiu: Words cannot describe my joy. Sil, you kick ass.
+ 	    # fimmtiu: I was passing the wrong arg to Event::new()
+  
+-	    $self->handler(Net::IRC::Event->new($handler, $from, $stuff,
++###	    $one =~ s/^$ctype //i;  # strip the CTCP type off the args
++	    $self->handler(Net::IRC::Event->new( $handler, $from, $stuff,
++###						 $handler, $one ));
+ 						$handler, (split /\s/, $one)));
+ 	}
+ 
+-	# This next line is very likely broken somehow. Sigh.
+ 	$self->handler(Net::IRC::Event->new($type, $from, $stuff, $type, $two))
+-	    if ($two);
++	    if $two;
+     }
+     return 1;
+ }