{"text = $mail_agent:make_message(from, to, hdrs, msg);", "\"Copied and improved from PMC MOO, Stolen verbs from around the MOO FO, Copied from Xavier's Mindbenders Feature (#4204):peek by Rourke (#5862)Tue Aug 30 19:32:23 1994 EDT\";", "", "who = dobjstr;", "", "person = $string_utils:match_player(who);", "", "if (person == $failed_match)", "", "  player:tell(\"Not a player.\");", "", "  return;", "", "endif", "", "player:tell(\"******** \", person.name, \"(\", person, \") in \", person.location.name, \"********\");", "", "player:tell(tostr(\"Aliases : \" + $string_utils:english_list(person.aliases)));", "", "player:tell_lines(person.description);", "", "player:tell(\"Gender is : \", person.gender);", "", "player:tell(\"Home Location is : \", person.home.name, \" (\", person.home, \")\");", "", "player:tell(person.name, \" is holding: \");", "", "for what in (person.contents)", "", "  player:tell(\"   \", what.name, \" (\", what, \") owned by: \", what.owner.name, \" (\", what.owner, \")\");", "", "endfor", "", "player:tell(\"First connected : \", ctime(person.first_connect_time));", "", "player:tell(\"Owned Objects : \", length(person.owned_objects));", "", "player:tell(\"************************************************\");", "", "if (person in connected_players())", "", "  on = $string_utils:from_seconds(connected_seconds(person));", "", "  idle = $string_utils:from_seconds(idle_seconds(person));", "", "  player:tell(person.name, \" has been connected for \", on, \", idles for \", idle, \".\");", "", "else", "", "  player:tell(\"Last Connect Time :\", ctime(person.last_connect_time));", "", "  player:tell(\"Last Disconnect Time :\", ctime(person.last_disconnect_time));", "", "endif", "", #2, #54}
.