/[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.6 - (hide annotations) (download) (as text)
Tue Dec 24 02:30:04 2002 UTC (16 years, 10 months ago) by wcc
Branch: MAIN
CVS Tags: r1, eggdrop_1_6_15, blah, test
Changes since 1.5: +5 -3 lines
File MIME type: application/x-tcl
Updated copyright info for 2003.

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

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23