/[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.2 - (hide annotations) (download) (as text)
Tue Oct 26 21:38:36 1999 UTC (19 years, 8 months ago) by fabian
Branch: MAIN
Changes since 1.1: +6 -5 lines
File MIME type: application/x-tcl
resync 940380771-940924890

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

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23