@program $user_andrew.xmcp_who
    arg cmdstr, foo;
    var kv, lines, idle, name, location, line, p;
    
    kv = [];
    lines = [];
    for p in ($user_db.connected()) {
        idle = p.idle_seconds();
        name = p.name();
        location = p.location().name();
        line = "idle: " + idle + " name: \"" + name + "\" location: \"" + location + "\"";
        lines = [@lines, line];
    }
    driver.client_notify(sender(), "xmcp-who", kv, lines);
    
    // $#Edited: 27 Nov 96 21:08 $user_andrew
.
@ac "@xwho" for me.xmcp_who