Introduction

The primary IRC channel for discussing Tcl development is #tcl on freenode. This channel contains two bridges to alternative locations that we make available for people without IRC access. Most importantly we operate a bridge to a Jabber chatroom at tcl@tach.tclers.tk which is where a number of Tcl developers hang out. For historical reasons we maintain an old webchat bridge as well. Unfortunately these bridges are forced to insert a prefix and the real nick is the second element. The following script can be used with X-Chat to remove the prefix nick.

# 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
}

To install this just copy the above into a file in your ~/.xchat2/ subdirectory and it will be used automatically.