@verb #555:"_constructor" this none this rxdo #789
@program #555:"_constructor" this none this
"Begin generic security check (_constructor)"
if (verb == "_constructor" && caller_perms() != #-1)
raise(E_PERM)
return E_PERM
endif
"End generic security check (_constructor)"
caller_perms() == #-1 || raise(E_PERM)
{new} = args
"Set all the props so that we don't inherit anything."
new._reboot_thing = #-1
new._reboot_buffer = new._reboot_db = ticketmaster_users = {}
new._reboot_task = new._check_task = ticketmaster_mode = 0
new.db_files = $www:fileURL($code_utils:verb_location(), "sample_db.txt")
"Set the three files to reasonable values"
pagehead = {"", "", " Candid Candice: *TITLE*", "", "", "", "![\"[A](\"")
", "Ask Candid Candice a question:
", tostr("", "
", "", "*TITLE*
"}
pagetail = {"
", "", "This page is hosted on", $www:link($www, $name) + ".", "", "", ""}
new:filewrite("head.cfg", pagehead)
new:filewrite("tail.cfg", pagetail)
multipage = {@pagehead, "Please select the topic you are interested in:", "", @pagetail}
for y in [1..length(multipage)]
multipage[y] = strsub(multipage[y], "*title*", "Multiple Hits")
multipage[y] = strsub(multipage[y], "*filename*", "")
endfor
new:filewrite("multipage.cfg", multipage)
new:reboot()
"Last modified by Dax (#789) on Tue May 3 14:09:32 2005 MDT."
.