Parent Directory
|
Revision Log
|
Revision Graph
Tothwolf's id-header
1 | # action.fix.tcl |
2 | # |
3 | # Tothwolf 25May1999: cleanup |
4 | # Tothwolf 04Oct1999: changed proc names slightly |
5 | # |
6 | # $Id$ |
7 | |
8 | # fix for mirc dcc chat /me's |
9 | bind filt - "\001ACTION *\001" filt:dcc_action |
10 | proc filt:dcc_action {idx text} { |
11 | return ".me [string trim [join [lrange [split $text] 1 end]] \001]" |
12 | } |
13 | |
14 | # fix for telnet session /me's |
15 | bind filt - "/me *" filt:telnet_action |
16 | proc filt:telnet_action {idx text} { |
17 | return ".me [join [lrange [split $text] 1 end]]" |
18 | } |
webmaster@eggheads.org | ViewVC Help |
Powered by ViewVC 1.1.23 |