[cvslog] Module eggdrop1.7: Change committed

cvslog cvs at tsss.org
Sat Dec 8 10:59:01 CST 2001


CVSROOT    : /usr/local/cvsroot
Module     : eggdrop1.7
Commit time: 2001-12-08 16:58:44 UTC
Commited by: Federico Mennite <ite at techmonkeys.org>

Modified files:
     scripts/action.fix.tcl

Log message:

Handle irssi (and some others) 'correct' messages for DCC CTCP. Patch by Matthew Hallacy <poptix at techmonkeys.org>

---------------------- diff included ----------------------
Index: eggdrop1.7/scripts/action.fix.tcl
diff -u eggdrop1.7/scripts/action.fix.tcl:1.4 eggdrop1.7/scripts/action.fix.tcl:1.5
--- eggdrop1.7/scripts/action.fix.tcl:1.4	Sun Oct 21 01:04:43 2001
+++ eggdrop1.7/scripts/action.fix.tcl	Sat Dec  8 10:58:34 2001
@@ -2,14 +2,22 @@
 #
 # 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/10/21 06:04:43 stdarg Exp $
+# $Id: action.fix.tcl,v 1.5 2001/12/08 16:58:34 ite 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} {
   global filt_string
   set filt_string ".me [string trim [join [lrange [split $text] 1 end]] \001]"
+  return 0
+}
+
+proc filt:dcc_action2 {idx text} {
+  global filt_string
+  set filt_string ".me [string trim [join [lrange [split $text] 2 end]] \001]"
   return 0
 }
 
----------------------- End of diff -----------------------



More information about the Changes mailing list