/
CDC-1.2b/
CDC-1.2b/src/
parent $note
object $log

var $root child_index 4
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 []
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;
    var l;
    
    (> .perms(caller(), 'trusts) <);
    if (type(line) == 'list) {
        for l in (line)
            (| .ins_line((($time.time_stamp()) + "> ") + l) |);
    } else if (type(line) == 'string) {
        (| .ins_line((($time.time_stamp()) + "> ") + line) |);
    }
.