Method code for $sys.log_traceback()

[Turn off line numbering]

---

  1: arg traceback, @command;
  2: var user, log, mail, l, s;
  3: 
  4: if (!$syslog_group.includes(caller()) && !.is_writable_by(sender()))
  5:     throw(~perm, "Permission denied.");
  6: [(command ?= "")] = command;
  7: user = user() || sender();
  8: log = "Last Command: " + command;
  9: log = [log, "User: " + user() || sender()];
 10: if (type(traceback[1]) != 'string)
 11:     traceback = $parse_lib.traceback(traceback);
 12: s = (user() || sender()) + ": received traceback";
 13: log += traceback;
 14: if ('__making_core in .variables())
 15:     .log(log);
 16: else
 17:     $no_one.mail_as(0, 0, s, log, $mail_list_tracebacks);

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit