@verb #101:"bf_set_connection_option" this none this rxdo #55
@program #101:"bf_set_connection_option" this none this
{object, option, value} = args
if (caller_perms().wizard || (valid(object) && caller_perms():controls(object)))
  return pass(@args)
else
  listener = `$list_utils:assoc(toint($string_utils:explode(connection_name(object))[2]), listeners(), 2)[1] ! ANY => $nothing'
  if (caller_perms():controls(listener))
    return pass(@args)
  else
    raise(E_PERM, tostr("You control neither ", object, " nor its listening port."))
  endif
endif
"Last modified by Cecil (#7407) on Tue Apr  9 20:57:48 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 Tue May  3 14:11:54 2005 MDT."
.