diff options
author | Stefan Ritter <xeno@thehappy.de> | 2011-08-16 10:51:41 +0200 |
---|---|---|
committer | Stefan Ritter <xeno@thehappy.de> | 2011-08-16 10:51:41 +0200 |
commit | ba46c304bdffdce0b6019a47f6759ce6abbeef90 (patch) | |
tree | 40a5b204637cb65c5bb91bd4f26a248ea498e019 /action.fix.tcl |
Initial commit
Diffstat (limited to 'action.fix.tcl')
-rw-r--r-- | action.fix.tcl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/action.fix.tcl b/action.fix.tcl new file mode 100644 index 0000000..1030fd7 --- /dev/null +++ b/action.fix.tcl @@ -0,0 +1,26 @@ +# action.fix.tcl +# +# Copyright (C) 2002 - 2010 Eggheads Development Team +# +# 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.12 2010/01/03 13:27:31 pseudo 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]]" +} |