View/Edit #733:tell_tool

Name(s): tell_tool

1:  caller == this || raise(E_PERM)
2:  slide = $www:parse_GET("slide")
3:  slide = slide ? toint(slide) || this.slide | this.slide
4:  present = $www:parse_GET("present")
5:  alt = callers()[1][2] == "tell_frame"
6:  if (!alt)
7:    player:tell("<HTML><HEAD>")
8:    if (present)
9:      "Make this page reload every x seconds so that the list of who's connected remains upto date"
10:     player:tell("<META http-equiv=\"refresh\" content=\"", this.who_reload, "\">")
11:     this:tell_www_head()
12:   endif
13:   player:tell("</HEAD><BODY ", this.www_body_args, ">")
14: endif
15: if (present)
16:   player:tell(this:msg_watchers(), "<BR>")
17: endif
18: if (alt)
19:   bar = $html_utils:numberbar(tostr("<A HREF=\"/", toint(this), "/slide?slide=#", present ? "&present=on" | "", "\">"), 1, slide, length(this.slide_URLs))
20: else
21:   bar = $html_utils:numberbar(tostr("<A HREF=\"/", toint(this), "/frame?slide=#", present ? "&present=on" | "", "\" TARGET=\"_parent\">"), 1, slide, length(this.slide_URLs))
22: endif
23: if (bar)
24:   player:tell("<CENTER>", @bar, "</CENTER>")
25: else
26:   player:tell("There are no slides!  None!  Zero!")
27: endif
28: if (!alt)
29:   player:tell("</BODY></HTML>")
30: endif
31: "Last modified by Dax (#789) on Tue May  3 14:09:32 2005 MDT."

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

You are not logged in.