The Tcl DBus project provides a Tcl interface to the dbus message bus system. It contains packages that allow Tcl programs to send and receive dbus signals, as well as invoke and respond to dbus method calls.
The project has moved to http://chiselapp.com/user/schelte/repository/dbus