/blog/ekd123

Tcl Chatroom 一般是用 TkChat 交流的，不过有的时候嫌麻烦就直接上 freenode 的 #tcl 了。但是，那个 ijchain 真的非常烦人，怎么办呢？如果你用 XChat，就可以试试下面的方法。

Pat Thoyts 写了一个 Xchat 插件，可以破此阵，转录于此（主要是怕我自己给忘了）。

# tclchat.tcl - Copyright (C) 2005 Pat Thoyts 
#
# Handle the nick-prefix provided by the Jabber bridge on #tcl
# Might need work to deal with nasier nicks.
#
on PRIVMSG ijbridge {
    splitsrc
    if {$_nick eq "ijtest" || $_nick eq "ijchain" || $_nick eq "azbridge"} {
        if {[regexp {^\+?\001ACTION (.+)\001$} $_rest -> body]} {
            print [getcontext] "*\t$body"
            complete EAT_XCHAT
        } else {
            if {[regexp {^\+?<(.*)> (.*)$} $_rest -> nick body]} {
                print [getcontext] "$nick\t$body"
                complete EAT_XCHAT
            }
        }
    }
    complete
}

将此脚本保存于 ~/.xchat2 即可。

效果：

注意该脚本不处理 /me 命令。