From ba46c304bdffdce0b6019a47f6759ce6abbeef90 Mon Sep 17 00:00:00 2001
From: Stefan Ritter <xeno@thehappy.de>
Date: Tue, 16 Aug 2011 10:51:41 +0200
Subject: Initial commit

---
 action.fix.tcl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 action.fix.tcl

(limited to 'action.fix.tcl')

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]]"
+}
-- 
cgit v1.2.3