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

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

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


Revision 1.5 - (hide annotations) (download) (as text)
Fri Dec 7 18:20:30 2001 UTC (17 years, 7 months ago) by poptix
Branch: MAIN
CVS Tags: eggdrop_1_6_13, eggdrop1_6_9, v2_0, eggdrop1_6_7, eggdrop1_6_11
Changes since 1.4: +8 -2 lines
File MIME type: application/x-tcl
Hah, slipping this in, makes action.fix handle irssi (and a few others) "broken" behavior.

1 fabian 1.3 # action.fix.tcl
2     #
3 fabian 1.2 # Tothwolf 25May1999: cleanup
4     # Tothwolf 04Oct1999: changed proc names slightly
5 poptix 1.5 # poptix 07Dec2001: handle irssi (and some others) "correct" messages for DCC CTCP
6 fabian 1.3 #
7 poptix 1.5 # $Id: action.fix.tcl,v 1.4 2001/11/05 04:08:28 guppy Exp $
8 segfault 1.1
9 guppy 1.4 # fix for mIRC dcc chat /me's
10 fabian 1.2 bind filt - "\001ACTION *\001" filt:dcc_action
11 poptix 1.5 bind filt - "CTCP_MESSAGE \001ACTION *\001" filt:dcc_action2
12 fabian 1.2 proc filt:dcc_action {idx text} {
13 segfault 1.1 return ".me [string trim [join [lrange [split $text] 1 end]] \001]"
14     }
15    
16 poptix 1.5 proc filt:dcc_action2 {idx text} {
17     return ".me [string trim [join [lrange [split $text] 2 end]] \001]"
18     }
19    
20 segfault 1.1 # fix for telnet session /me's
21 fabian 1.2 bind filt - "/me *" filt:telnet_action
22     proc filt:telnet_action {idx text} {
23 segfault 1.1 return ".me [join [lrange [split $text] 1 end]]"
24 poptix 1.5 }

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23