/[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.3 - (hide annotations) (download) (as text)
Tue Dec 21 17:35:07 1999 UTC (19 years, 7 months ago) by fabian
Branch: MAIN
CVS Tags: eggdrop105020, eggdrop10503, eggdrop10403, eggdrop1_6_5, eggdrop105040, eggdrop1_6_6
Changes since 1.2: +4 -0 lines
File MIME type: application/x-tcl
Tothwolf's id-header

1 fabian 1.3 # action.fix.tcl
2     #
3 fabian 1.2 # Tothwolf 25May1999: cleanup
4     # Tothwolf 04Oct1999: changed proc names slightly
5 fabian 1.3 #
6     # $Id$
7 segfault 1.1
8     # fix for mirc dcc chat /me's
9 fabian 1.2 bind filt - "\001ACTION *\001" filt:dcc_action
10     proc filt:dcc_action {idx text} {
11 segfault 1.1 return ".me [string trim [join [lrange [split $text] 1 end]] \001]"
12     }
13    
14     # fix for telnet session /me's
15 fabian 1.2 bind filt - "/me *" filt:telnet_action
16     proc filt:telnet_action {idx text} {
17 segfault 1.1 return ".me [join [lrange [split $text] 1 end]]"
18     }

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23