Log Manager Ojbect #43

Parent #1Owner #10Flags read, writeSource MurpgCore-0.4/MurpgCore-0.4.db

1 verbs · 26 properties · 0 children

Verbs

VerbSpecFlagsDefinerLines
add_entrythis none thisrwxd#4314

Properties

PropertyDefinerFlagsOwnerValue
system#43rw#10
list of 3{{1030238386, "[INFO]", "Admin: checkpoint..."}, {1030238386, "[INFO]", "Checkpoint started."}, {1030238386, "[INFO]", "Checkpoint finished (success)."}}
system_watchers#43rw#10{#4, #5}
logged_animates#43rw#10{}
log_levels#43rw#10{"[ERROR]", "[WARNING]", "[INFO]"}
level_colors#43rw#10{"%R", "%Y", "%B"}
logs#43rw#10{"system", "connection", "help", "login"}
connection#43rw#10{}
connection_watchers#43rw#10{#4, #5}
help#43rw#10{}
help_watchers#43rw#10{#4, #5}
login#43rw#10{}
login_watchers#43rw#10{#4, #5}
description#1rw#10<clear>
aliases#1rw#10<clear>
home#1rw#10<clear>
short_desc#1rw#10<clear>
core#1rw#101
handedness#1rw#10<clear>
base_enc#1rw#10<clear>
base_weight#1rw#10<clear>
capacity#1rw#10<clear>
max_fit#1rw#10<clear>
pprep#1rw#10<clear>
gprep#1rw#10<clear>
generic_name#1rw#10<clear>
age#1rw#10<clear>

Ancestry

Ancestors (nearest first): #1 Root Class

Children: none

Source

add_entry

Spec this none thisFlags rwxdOwner #10Definer #43

Referenced by

Source

1"$log:add_entry(str logname, str loglevel, str message)";
2"logname: list on $log. loglevel: str e.g. [ERROR] ";
3{logname, loglevel, message} = args;
4if (logname in $log.logs)
5watchers = $log.(logname + "_watchers");
6else
7return 0;
8endif
9entry = {time(), loglevel, message};
10$log.(logname) = {@$log.(logname), entry};
11for each in (watchers)
12each:tell("%W", ctime(entry[1]), " ", $log.level_colors[is_member(loglevel, $log.log_levels)], loglevel, " %w", message);
13endfor
14return 1;