Fri 20/12/2002 8:59 PM [encore] Re: Accessing @who via web by Alexandre Borgia My suggestion would be to either "open Mootcan" or log via telnet and type "who" on login-prompt :) If you actually want to implement this function I'd be glad to share a custom "Who" object we have on our MOO. It is based on the $who_browser, but does not deal with any "logged-in" technicalities or wiz-perms. It is kindof rustic but does the trick :) How to create it: @create $encore_web_object named Who @verb Who:_html this none this rdx Program the verb as follows: (Modified slightly then Tested and Debugged by KRJ September 3, 2006) "Usage: Called as a WEB object by browser access to the object number."; "Code based on $who_browser:main_html. Original credits are listed there."; "Code provided by Alexandre Borgia via EnCore mailing list"; "Fri 20/12/2002 8:59 PM"; user = args[1]; who_listing = players = notice = {}; title = "Who is online?"; if (connected_players()) who_list = {}; base_url = tostr("http://", $network.site, ":", $network.webport, "/"); "Compile list of connected users, and sort by idle time"; for person in (connected_players()) $command_utils:suspend_if_needed(0); if (!($object_utils:has_property(person, "invis") && person.invis)) "Do not show invisible users in the who list."; players = setadd(players, {person, connected_seconds(person), idle_seconds(person), person.location}); endif endfor if (players) sorted_list = $list_utils:sort_alist(players, 3); "Put values from sorted list into four collumns"; users = {"Name
There ", verb, length(sorted_list), noun, " in ", $network.MOO_name, " on ", $time_utils:time_sub("$D $N $T, $Y, at $O:$M $P,$Z", time())), "
"}; endif else notice = {tostr("