[cvslog] Module eggdrop1.6: Change committed

cvslog cvs at tsss.org
Fri Dec 7 12:21:02 CST 2001


CVSROOT    : /usr/local/cvsroot
Module     : eggdrop1.6
Commit time: 2001-12-07 18:20:40 UTC
Commited by: Matthew Hallacy <poptix at techmonkeys.org>

Modified files:
     scripts/action.fix.tcl

Log message:

Hah, slipping this in, makes action.fix handle irssi (and a few others) "broken" behavior.

---------------------- diff included ----------------------
Index: eggdrop1.6/scripts/action.fix.tcl
diff -u eggdrop1.6/scripts/action.fix.tcl:1.4 eggdrop1.6/scripts/action.fix.tcl:1.5
--- eggdrop1.6/scripts/action.fix.tcl:1.4	Sun Nov  4 22:08:28 2001
+++ eggdrop1.6/scripts/action.fix.tcl	Fri Dec  7 12:20:30 2001
@@ -2,17 +2,23 @@
 #
 # Tothwolf  25May1999: cleanup
 # Tothwolf  04Oct1999: changed proc names slightly
+# poptix    07Dec2001: handle irssi (and some others) "correct" messages for DCC CTCP
 #
-# $Id: action.fix.tcl,v 1.4 2001/11/05 04:08:28 guppy Exp $
+# $Id: action.fix.tcl,v 1.5 2001/12/07 18:20:30 poptix Exp $
 
 # fix for mIRC dcc chat /me's
 bind filt - "\001ACTION *\001" filt:dcc_action
+bind filt - "CTCP_MESSAGE \001ACTION *\001" filt:dcc_action2
 proc filt:dcc_action {idx text} {
   return ".me [string trim [join [lrange [split $text] 1 end]] \001]"
 }
 
+proc filt:dcc_action2 {idx text} {
+  return ".me [string trim [join [lrange [split $text] 2 end]] \001]"
+}
+
 # fix for telnet session /me's
 bind filt - "/me *" filt:telnet_action
 proc filt:telnet_action {idx text} {
   return ".me [join [lrange [split $text] 1 end]]"
-}
\ No newline at end of file
+}
----------------------- End of diff -----------------------



More information about the Changes mailing list