parent $utilities object $login_watcher var $root child_index 0 var $root owners [$login_watcher] var $root owned [$login_watcher] var $root fertile 0 var $root inited 1 var $root manager $login_watcher var $root writable [$login_watcher] var $root readable ['parameters, 'methods, 'code] var $root dbref 'login_watcher method notify arg who, msg; var watch, user, lcont, prefix; .perms(sender(), 'this); prefix = "[login watcher] -> "; lcont = (who.location()).contents(); who = who.namef('titled); for user in ($user_db.connected()) { if (!(user in lcont)) { watch = (| user.watch_logins() |); if (watch && ((watch == 1) || ((type(watch) == 'list) && (who in watch)))) user.tell((((prefix + who) + " has ") + msg) + "."); } } . method did_connect .perms($user, caller()); .notify(sender(), "connected"); . method did_disconnect .perms($user, caller()); .notify(sender(), "disconnected"); .