2000 {0, 979450350, {"WWW-SlideShow", #396, {#5, #3, #2, #1}, {}, #789, 1, 0, 1, 0, 0 , 0, {}}, {{#1, {{#8084, "r", "obj_disk_size", 0}}}, {#2, {{#789, "rc", "www_des c", {"

%T (#%T~#)

", "*PASS*"}}, {#789, "r", "www_counter", 1515}, {#7165 , "r", "subsidised", 1}, {#55, "r", "best_before", 0}, {#789, "rc", "description ", "The SlideShow is a web-based application that allows one person to display a series of prepared pages in the browser of one or more observers."}, {#55, "r", "aliases", {"WWW-SlideShow"}}}}, {#3, {{#789, "rc", "anchor", #-1}, {#789, "c", "key", 0}}}, {#5, {}}, {#733, {{#789, "rc", "msg_www_welcome_present", {"
", " the slideshow to anyone who is watching.", "
"} }, {#789, "rc", "msg_www_welcome_surf", {"
", " the slideshow on your own.", "
"}}, {#789, "rc", "msg_w ww_welcome_watch", {"
", "Chose the display mode to watch with:
", "Server push. (Best)
", "Client pull. (Web proxies & older browsers)
", " the slideshow as somebody else presents it.", "< /FORM>"}}, {#789, "rc", "pull_reload", 10}, {#789, "rc", "who_reload", 20}, {#78 9, "rc", "msg_empty", "Empty SlideshowEmpty SlideshowAt the moment, there are no pages in this slideshow."}, {#789, "rc", "msg_unknown", "Unknown Slide

Unknown Slide

Slides are currently numbered from 1 to %1.< /BODY>"}, {#789, "rc", "image_template", "*URL*\"[*URL*]\""}, {#789, "rc", "msg_setup", {"

Config.

", "Modify the access limitations with TicketMaster.", "", "Allow users to watch you present the slideshow.
", "Allow users to surf the slideshow on their own.

", "When surfing and presenting, should the navigation bar be at the top or the bottom?

", "", "

", "
", "

Slides.

", "
", "*TEXTAREA*", "

", "

", " Back to %T..."}}, {#789, "rc", "toollocation", "bottom"}, {#789, "rc", "show_surf", 1}, {#789, "rc", "show_watch", 1}, {#789, "c", "slide_ pages", {"http://www.ingenia.com/~nfraser/moo/slides/slide1.g if\"[http://www.ingenia.com/~nfraser/moo/slides/slide1.gif]\"", "http://www.ingenia.com/~nfraser/moo/slides/slide2 .gif\"[http://www.ingenia.com/~nfraser/moo/slides/slide2.gif]\"", "http://www.ingenia.com/~nfraser/moo/slides/slid e3.gif\"[http://www.ingenia.com/~nfraser/moo/slides/slide3.gif]\"", "http://www.ingenia.com/~nfraser/moo/slides/sl ide4.gif\"[http://www.ingenia.com/~nfraser/moo/slides/slide4.gif]\" ", "http://www.ingenia.com/~nfraser/moo/slides/ slide5.gif\"[http://www.ingenia.com/~nfraser/moo/slides/slide5.gif]\", "http://www.ingenia.com/~nfraser/moo/slide s/slide6.gif\"[http://www.ingenia.com/~nfraser/moo/slides/slide6.gif", "http://www.ingenia.com/~nfraser/moo/sli des/slide7.gif\"[http://www.ingenia.com/~nfraser/moo/slides/slide7.g", "http://www.ingenia.com/~nfraser/moo/s lides/slide8.gif\"[http://www.ingenia.com/~nfraser/moo/slides/slide8"}}, {#789, "c", "slide_URLs", {"http://www.ingenia.com/~n fraser/moo/slides/slide1.gif", "http://www.ingenia.com/~nfraser/moo/slides/slide 2.gif", "http://www.ingenia.com/~nfraser/moo/slides/slide3.gif", "http://www.ing enia.com/~nfraser/moo/slides/slide4.gif", "http://www.ingenia.com/~nfraser/moo/s lides/slide5.gif", "http://www.ingenia.com/~nfraser/moo/slides/slide6.gif", "htt p://www.ingenia.com/~nfraser/moo/slides/slide7.gif", "http://www.ingenia.com/~nf raser/moo/slides/slide8.gif"}}, {#789, "rc", "ticketmaster_users", {}}, {#789, " rc", "ticketmaster_mode", 0}, {#789, "rc", "victims", {}}, {#789, "rc", "slide", 5}}}}, {{#789, "rxdo", "tell_www_setup", "this", "none", "this", "caller == thi s || raise(E_PERM);", "pass(@args);", "if (player.user:controls(this))", " msg = this:msg_setup();", " if (textarea = \"*TEXTAREA*\" in msg)", " names = {t ostr(\"\"};", " \"Get rid of that pesky blank line at the top.\";", " names[1..2] = {names[1] + names[2]} ;", " msg[textarea..textarea] = names;", " endif", " player:sub_tell(msg, t his.show_watch ? \" CHECKED\" | \"\", this.show_surf ? \" CHECKED\" | \"\", this .toollocation == \"top\" ? \" CHECKED\" | \"\", this.toollocation == \"bottom\" ? \" CHECKED\" | \"\");", "else", " player:tell(\"

Config.

    \");" , " player:tell(\"
  • Users are \", this.show_watch ? \"\" | \"not \", \"allowe d to watch a presentation of the slideshow.
  • Users are \", this.show_surf ? \" \" | \"not \", \"allowed to surf through the slides on their own.
  • When surfin g and presenting the toolbar is at the \", this.toollocation, \".\");", " playe r:tell(\"

Slides.

\");", " if (!this.slide_URLs)", " player: tell(\"There are no URLs from which to load slides.\");", " elseif (this.show_s urf)", " player:tell(\"Slides are loaded from the following URLs:
    \");", " for x in (this.slide_URLs)", " player:tell(\"
  1. \", x, \"\");", " endfor", " player:tell(\"
\");", " else", " player:tell(\"Since surfing the slideshow isn't allowed, you may not see the list of slides.\");", " endif", "endif", "\"Last modified by manta (#7165) on Fri Sep 11 04:09:18 1998 EDT.\";"}, {#789, "rxdo", "do_www_setup", "this", "none ", "this", "caller == this || raise(E_PERM);", "pass(@args);", "if ($www:parse_G ET(\"slideshowsetup\"))", " this.toollocation = $www:parse_GET(\"location\");", " this.show_watch = !!$www:parse_GET(\"watch\");", " this.show_surf = !!$www: parse_GET(\"surf\");", " player:tell(\"Options changed.\");", "elseif (f ilenames = $www:parse_POST(\"urls\"))", " urls = pages = {};", " for filename in ({@filenames})", " if (!(filename = $su:trim(filename)))", " continue ;", " endif", " suspend(0);", " if (match(filename, \".%.%(gif%|j d92 pg%|jp eg%)$\"))", " player:tell(\"Confirming existance of \\\"\", filename, \"\\\ "...\");", " file = `$network:confirm_URL(filename) ! ANY';", " if (fi le)", " player:tell(\"OK.
\");", " urls = {@urls, filename};", " pages = {@pages, strsub(this.image_template, \"*URL*\", filename)};", " elseif (file == 0)", " player:tell(\"
WARNING! Can't find \\\"\" , filename, \"\\\". Skipping this slide.
\");", " else", " playe r:tell(\"
ERROR! Something evil (\", file, \") happened while trying to confi rm the existance of \", filename, \". Skip ping this slide. Complain!
\");", " endif", " \"elseif (!match(file name, \\\".%.%(htm%|html%)$\\\"))\";", " \" player:tell(\\\"WARNING! \\\\\ \\"\\\", filename, \\\"\\\\\\\" doesn't look like an HTML, a GIF, or a JPEG. Sk ipping this slide.
\\\")\";", " else", " player:tell(\"Loading \\\"\" , filename, \"\\\"...\");", " file = `$network:get_URL(filename) ! ANY';", " if (file)", " if (index(file[1], \"HTTP\") == 1 && \"\" in file)", " file = file[(\"\" in file) + 1..$];", " endif", " play er:tell(\"OK.
\");", " urls = {@urls, filename};", " pages = {@ pages, file};", " elseif (file == 0)", " player:tell(\"
WARNING! Can't find \\\"\", filename, \"\\\". Skipping this slide.
\");", " else ", " player:tell(\"
ERROR! Something evil (\", file, \") happened whil e trying to read \", filename, \". Skippin g this slide. Complain!
\");", " endif", " endif", " endfor", " thi s.slide_URLs = urls;", " this.slide_pages = pages;", "endif", "\"Last modified by Dax (#789) on Wed Jul 22 21:11:49 1998 EDT.\";"}, {#789, "rxdo", "tell_www_bo dy", "this", "none", "this", "caller == this || raise(E_PERM);", "\"Display the welcome screen.\";", "player:tell(this:www_desc());", "if (this.show_watch)", " if ($www:has_push())", " \"Use server push\";", " modes = {\" CHECKED\", \"\"};", " else", " \"Use client pull\";", " modes = {\"\", \" CHECKED\"} ;", " endif", " $msg:mtell(\"www_welcome_watch\", @modes);", "endif", "if (thi s.show_surf)", " $msg:mtell(\"www_welcome_surf\");", "endif", "if (player.user: controls(this))", " $msg:mtell(\"www_welcome_present\");", "endif", "\"Last mod ified by Dax (#789) on Tue Jun 23 17:01:05 1998 EDT.\";"}, {#789, "rxdo", "tell_ slide", "this", "none", "this", "caller == this || raise(E_PERM);", "slide = ton um($www:parse_GET(\"slide\"));", "if (slide && $www:parse_GET(\"present\"))", " \"Inflict this slide on all the victims.\";", " this.slide = slide;", " for v ictim in (this.victims)", " if (typeof(victim) == OBJ)", " this:push_sli de(victim);", " endif", " endfor", "else", " slide = slide || this.slide;", "endif", "player:tell(this:slide(slide));", "\"Last modified by Dax (#789) on W ed Jul 22 20:42:22 1998 EDT.\";"}, {#60, "rxdo", "add_meta", "this", "none", "th is", "\"Inputs a web page, and outputs one that will reload itself in x seconds. \";", "{text, x} = args;", "text = {@text};", "head = 0;", "for line in [1..leng th(text)]", " if (index(text[line], \"