View/Edit #733:msg_watchers

Name(s): msg_watchers

1:  caller == this || raise(E_PERM)
2:  locations = {}
3:  for victim in (this.victims)
4:    if (typeof(victim) == $LIST)
5:      locations = {@locations, victim[1]}
6:    elseif (`victim:isa($webber) ! ANY')
7:      `locations = {@locations, $string_utils:connection_hostname(connection_name(victim))} ! E_INVARG'
8:    endif
9:  endfor
10: if (!length(locations))
11:   return "Nobody is connected to this slideshow."
12: elseif (1 == length(locations))
13:   return "There is a browser connected from " + locations[1]
14: else
15:   return "There are browsers connected from " + $string_utils:english_list(locations)
16: endif
17: "Last modified by Dax (#789) on Tue May  3 13:45:03 2005 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Dax (#789)

You are not logged in.