TCL Auto Whom

[chain]

### autowhom.tcl v1.0.0, 
### 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!"