/[cvs]/eggdrop1.6/scripts/action.fix.tcl
ViewVC logotype

Contents of /eggdrop1.6/scripts/action.fix.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.8 - (show annotations) (download) (as text)
Fri Jan 28 03:26:20 2005 UTC (14 years, 8 months ago) by wcc
Branch: MAIN
Changes since 1.7: +2 -2 lines
File MIME type: application/x-tcl
* A couple more Copyright updates.

1 # action.fix.tcl
2 #
3 # Copyright (C) 2002 - 2005 Eggheads Development Team
4 #
5 # Tothwolf 25May1999: cleanup
6 # Tothwolf 04Oct1999: changed proc names slightly
7 # poptix 07Dec2001: handle irssi (and some others) "correct" messages for DCC CTCP
8 #
9 # $Id: action.fix.tcl,v 1.7 2004/01/09 05:56:36 wcc Exp $
10
11 # Fix for mIRC dcc chat /me's:
12 bind filt - "\001ACTION *\001" filt:dcc_action
13 bind filt - "CTCP_MESSAGE \001ACTION *\001" filt:dcc_action2
14 proc filt:dcc_action {idx text} {
15 return ".me [string trim [join [lrange [split $text] 1 end]] \001]"
16 }
17
18 proc filt:dcc_action2 {idx text} {
19 return ".me [string trim [join [lrange [split $text] 2 end]] \001]"
20 }
21
22 # Fix for telnet session /me's:
23 bind filt - "/me *" filt:telnet_action
24 proc filt:telnet_action {idx text} {
25 return ".me [join [lrange [split $text] 1 end]]"
26 }

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23