TCL Auto Whom

### autowhom.tcl v1.0.0, 7 April 2002
### by Graeme Donaldson
### Automatically does a .whom when a user logs on to partyline.

set awver "1.0.0"
set awnver "100000"

putlog "Loading autowhom.tcl $awver by Souperman..."

bind chon - * awdowhom

proc awdowhom {hand idx} {
        *dcc:whom $hand $idx *
}
putlog "Successfully loaded autowhom.tcl $awver by Souperman!"