Method code for $sys.log_traceback()

[Turn on line numbering]

---

arg traceback, @command;
var user, log, mail, l, s;

if (!$syslog_group.includes(caller()) && !.is_writable_by(sender()))
    throw(~perm, "Permission denied.");
[(command ?= "")] = command;
user = user() || sender();
log = "Last Command: " + command;
log = [log, "User: " + user() || sender()];
if (type(traceback[1]) != 'string)
    traceback = $parse_lib.traceback(traceback);
s = (user() || sender()) + ": received traceback";
log += traceback;
if ('__making_core in .variables())
    .log(log);
else
    $no_one.mail_as(0, 0, s, log, $mail_list_tracebacks);

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]