31a
@verb #76:"new_connection_obj" this none this rxdo #55
@program #76:"new_connection_obj" this none this
if (caller != this && !caller_perms().wizard)
  raise(E_PERM)
endif
o = $recycler:create(this.connection_class, this)
if (typeof(o) != $OBJ)
  raise(E_QUOTA)
endif
count = 0
while (!(o in this.owned_objects))
  count = count + 1
  if (count == 60)
    raise(E_QUOTA)
  endif
  suspend(1)
endwhile
move(o, this)
o:set_name(tostr("Web user ", o))
o:_set_solidified(1)
this.available = {@this.available, o}
return o
"Last modified by manta (#7165) on Tue Jul 23 11:02:41 2002 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:05 2002 MDT)."
"Last modified by Dax (#789) on Wed May  4 06:44:31 2005 MDT."
.

0