Cache-Control: no-cache Moo Canada: Edit Alexandria (#6789)

View/Edit #6789:tell_www_body

Name(s): tell_www_body

1:  pass(@args)
2:  stuff = $www:parse_cgi(args[1])
3:  data = {"name", "users", "objects", "wizs", "dbsize", "server", "core"}
4:  names = {"Name", "Users", "Objects", "Wizards", "DB Size", "Server", "Core"}
5:  props = {"names", "users", "num_objects", "wizards", "db_sizes", "server_versions", "cores"}
6:  sort = 0
7:  if (i = $list_utils:iassoc("sort", stuff, 1))
8:    sort = stuff[i][2]
9:    stuff = listdelete(stuff, i)
10: endif
11: if (stuff)
12:   if (stuff[1][1] == "info")
13:     return this:www_info(stuff[1][2])
14:   endif
15:   use = {}
16:   for x in (data)
17:     use = {@use, $list_utils:iassoc(x, stuff, 1)}
18:   endfor
19: else
20:   use = {1, 1, 1, 1, 1, 0, 0}
21: endif
22: this:do_www_tables(use, props, names, sort, data)
23: this:do_www_form(use, props, names, data)
24: "Last modified by Raptor (#6319) on Wed Mar 18 12:44:03 1998 EST."

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

You are not logged in.