New-Prog-Log (#31)

if (caller_perms().wizard)
    pass();
    this:rm_message_seq({1, 1 + this:length_all_msgs()});
    this:expunge_rmm();
    this.mail_forward = {player, this};
    this.mail_notify = {player};
    for p in ({"moderator_forward", "writers", "readers", "expire_period", "last_used_time"})
        this.(p) = $mail_recipient.(p);
    endfor
    this.moderated = 1;
else
    return E_PERM;
endif
.

if (!this:is_writable_by(caller_perms()))
    return E_PERM;
else
    if (msgs = this.messages)
        new = msgs[length(msgs)][1] + 1;
    else
        new = 1;
    endif
    if (rmsgs = this.messages_going)
        lbrm = rmsgs[length(rmsgs)][2];
        new = max(new, lbrm[length(lbrm)][1] + 1);
    endif
    m = args[1];
    if (index(m[4], "@programmer ") == 1)
        m = {m[1], toobj(args[2]), o = toobj(m[4][index(m[4], "(") + 1..index(m[4], 
")") - 1]), o.name};
    endif
    this.messages = {@msgs, {new, m}};
    this.last_msg_date = m[1];
    this.last_used_time = time();
    return new;
endif
.

":display_seq_headers(msg_seq[,cur])";
":display_seq_full(msg_seq[,cur]) => {cur}";
if (!this:ok(caller, caller_perms()))
    return E_PERM;
endif
cur = {@args, 0}[2];
read_date = {@args, $maxint, $maxint}[3];
last = ldate = 0;
player:tell("       WHEN           WHO                           BY");
for x in (msgs = this:messages_in_seq(args[1]))
    msgnum = $string_utils:right(last = x[1], 4, (cur == x[1]) ? ">" | " ");
    ldate = x[2][1];
    if (typeof(x[2][2]) != OBJ)
        hdr = this:msg_summary_line(@x[2]);
    else
        hdr = tostr(ctime(ldate)[5..16], "   ", $string_utils:left(tostr(x[2][4], 
" (", x[2][3], ")"), 30), valid(w = x[2][2]) ? w.name | "??", " (", x[2][2], ")");
    endif
    player:tell(msgnum, (ldate > read_date) ? ":+ " | ":  ", hdr);
    $command_utils:suspend_if_needed(0);
endfor
if (verb == "display_seq_full")
    return {last, ldate};
else
    player:tell("----+");
endif
.

":from_msg_seq(object or list[,mask])";
" => msg_seq of messages from any of these senders";
if (!this:ok(caller, caller_perms()))
    return E_PERM;
endif
if (typeof(plist = args[1]) != LIST)
    plist = {plist};
endif
i = 1;
fseq = {};
mask = {@args, {1}}[2];
for msg in (this.messages)
    if ((!mask) || (i < mask[1]))
    elseif ((length(mask) < 2) || (i < mask[2]))
        if (msg[2][2] in plist)
            fseq = $seq_utils:add(fseq, i, i);
        endif
    else
        mask = mask[3..length(mask)];
    endif
    i = i + 1;
    $command_utils:suspend_if_needed(0);
endfor
return fseq || ("%f % no messages from " + $string_utils:english_list($list_utils:map_arg(2, 
$string_utils, "pronoun_sub", "%n (%#)", plist), "no one", " or "));
.

":to_msg_seq(object or list[,mask]) => msg_seq of messages to those people";
if (!this:ok(caller, caller_perms()))
    return E_PERM;
endif
if (typeof(plist = args[1]) != LIST)
    plist = {plist};
endif
i = 1;
fseq = {};
mask = {@args, {1}}[2];
for msg in (this.messages)
    if ((!mask) || (i < mask[1]))
    elseif ((length(mask) < 2) || (i < mask[2]))
        if (msg[2][3] in plist)
            fseq = $seq_utils:add(fseq, i, i);
        endif
    else
        mask = mask[3..length(mask)];
    endif
    i = i + 1;
    $command_utils:suspend_if_needed(0);
endfor
return fseq || ("%f % no messages about @programmer'ing " + $string_utils:english_list(plist, 
"no one", " or "));
.

":%to_msg_seq/subject_msg_seq(string or list of strings[,mask])";
" => msg_seq of messages containing one of strings in the to line";
if (!this:ok(caller, caller_perms()))
    return E_PERM;
endif
if (typeof(nlist = args[1]) != LIST)
    nlist = {nlist};
endif
i = 1;
fseq = {};
mask = {@args, {1}}[2];
for msg in (this.messages)
    if ((!mask) || (i < mask[1]))
    elseif ((length(mask) < 2) || (i < mask[2]))
        if (msg[2][4] in nlist)
            fseq = $seq_utils:add(fseq, i, i);
        endif
    else
        mask = mask[3..length(mask)];
    endif
    i = i + 1;
    $command_utils:suspend_if_needed(0);
endfor
return fseq || ("%f % no messages about @programmer'ing " + $string_utils:english_list(nlist, 
"no one", " or "));
.

return this.name + " doesn't understand %%from:";
.