@verb #2323:"bonk" this none this rxd #7214
@program #2323:"bonk" this none this
"void $ddd:bonk()"
"Called by the Login Watcher (#5335) upon a connection or disconnection."
caller == #5335 || raise(E_PERM, "Don't touch me there!")
{who, what} = args
logLine = tostr(time(), " ", who, " ")
if ("bonk_on_confunc" == what)
  logLine = logLine + "CONNECT"
elseif ("bonk_on_disfunc" == what)
  logLine = logLine + "DISCONNECT"
else
  "This should never happen."
  logLine = logLine + "ERROR(" + what + ")"
endif
this.connectionLog = {@this.connectionLog, logLine}
"Last modified by JS (#7214) on Wed Jun 18 21:54:04 2003 MDT."
.