/
CDC-1.1/
parent $note
object $log

var $root child_index 2
var $root fertile 1
var $root manager $log
var $root owners [$log]
var $root writable [$log]
var $root readable ['methods, 'code]
var $root trusted []
var $root owned [$log]
var $has_verbs verbs #[["read * on %this", ['read_cmd, 'remote]]]
var $described prose #[['short, ["the place that Ye administrators should be logging somewhat impacting changes that others would like to know about."]]]
var $gendered gender $gender_neuter
var $located location $nowhere
var $located obvious 1
var $root inited 1
var $root dbref 'log
var $named name ['uniq, "Generic Log"]
var $named name_aliases ["log", "changes", "log"]
var $text text ["9-28-94/22:33:17> foo"]
var $public public ['readable]

method read_cmd
    arg [args];
    var loglen, text;
    
    if (0) {
        // later on i'll adjust this so you can 'read from line 12 on log'
        return;
    } else {
        text = .text();
        loglen = listlen(text);
        sender().tell(["---", (((((.namef()) + ", entries ") + tostr(loglen - 10)) + " to ") + tostr(loglen)) + " (last 10 lines).", "---"]);
        sender().tell(sublist(text, loglen - 10));
        sender().tell("---");
    }
.

method log
    arg line;
    
    .perms(caller(), 'trusts);
    .ins_line((($time.time_stamp()) + "> ") + line);
.