Switch to edit mode.
Name(s): tell_www_page1: "Checks to see if the webber is allowed access to the slideshow."
2: if (!player:isa($webber) || !(caller in {$www, this, this.owner}))
3: raise(E_PERM)
4: elseif (!$ticketmaster:authorized())
5: return $www.error:forbidden()
6: endif
7: "Strip out disconnected web users from the list of hanging victims"
8: victims = {}
9: for victim in (this.victims)
10: if (typeof(victim) == $LIST)
11: if (victim[2] >= time())
12: victims = {@victims, victim}
13: endif
14: else
15: if (valid(victim) && victim:connected())
16: victims = {@victims, victim}
17: endif
18: endif
19: endfor
20: this.victims = victims
21: watch = $www:parse_GET("watch")
22: if (prepstr == "/frame")
23: this:tell_frame()
24: elseif (prepstr == "/tool")
25: this:tell_tool()
26: elseif (prepstr == "/slide")
27: this:tell_slide()
28: elseif (watch == "pull")
29: this:tell_pull()
30: elseif (watch == "push")
31: this:tell_push()
32: else
33: "Intro screen or edit page."
34: pass(@args)
35: endif
36: "Last modified by Dax (#789) on Tue May 3 13:45:03 2005 MDT."