@verb #3512:"sub*scribed @sub*scribed @subscribers subscribers" any none none rxdo #6319
@program #3512:"sub*scribed @sub*scribed @subscribers subscribers" any none none
"sub*scribed *<groupname>"
""
"Checks to see who is subscribed to a certain newsgroup.  Permissions not included (see $newsgroup:subscribers())."
this:update_usage("subscribers", player)
if (!dobjstr)
  return player:tell("Usage: ", verb, " [newsgroup]")
endif
what = $mail_editor:parse_recipients({}, dobjstr)[1]
if (valid(what) && $mail_agent:is_recipient(what))
  dudes = what:subscribers()
  if (!dudes)
    return player:tell("There are no subscribers to *", what:title(), ".")
  else
    player:tell("There are ", tostr(length(dudes)), " players subscribed to *", what:title(), ":")
    player:tell($string_utils:name_and_number_list(dudes))
  endif
else
  player:tell("You must use a valid mail recipient.")
endif
"Last modified by Raptor (#6319) on Thu Aug  8 23:51:05 2002 MDT."
.