@verb #110:"log_bad_pw" this none this rxdo #55
@program #110:"log_bad_pw" this none this
!caller:isa(this.connection_class) && raise(E_PERM)
{who, site} = args
this.bad_pw_log[1] = {@this.bad_pw_log[1], who}
this.bad_pw_log[2] = {@this.bad_pw_log[2], site}
this.bad_pw_log[3] = {@this.bad_pw_log[3], time()}
for x in [1..3]
  while (length(this.bad_pw_log[x]) > 20)
    this.bad_pw_log[x] = this.bad_pw_log[x][2..$]
  endwhile
endfor
this:review_bad_pw_log()
"Last modified by Raptor (#6319) on Sun Jul  2 02:45:00 2000 MDT."
"This verb previously owned by Raptor (#6319), and chowned to $slacker upon dewizarding (Sat Aug 17 14:48:43 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:48:43 2002 MDT."
.