Quota-Log #28

Parent #37Owner #361Flags readSource hellcore/hellcore.db

Aliases: Quota-Log, Quota_Log, QL, Quota

2 verbs · 31 properties · 0 children

Verbs

VerbSpecFlagsDefinerLines
init_for_corethis none thisrxd#2818
find_recipsthis none thisrxd#2810

Properties

PropertyDefinerFlagsOwnerValue
moderator_notify#37rc#361{}
last_msg_date#37r#291337731615
messages_going#37#29{}
moderated#37rc#3611
moderator_forward#37rc#361"%n (%#) can't send to moderated list %t (%[#t]) directly."
writers#37rc#361{#57}
readers#37rc#361{}
mail_notify#37r#29{#2, #396060}
mail_forward#37r#29{}
expire_period#37r#292592000
last_used_time#37r#291337731615
messages#37#29{{1, {1337731615, "Wizard (#361)", "*Quota-Log (#28)", "@quota Wizard (#361) 1410065407 (from -151)", "", "Reason for quota increase: (none)."}}}
rmm_own_msgs#37rc#361<clear>
guests_can_send_here#37rc#361<clear>
messages_kept#37r#29{}
registered_email#37#29<clear>
email_validated#37#29<clear>
validation_password#37#29<clear>
barcolor#37rc#361<clear>
hidden_subjects#37rc#361<clear>
hidden_content#37rc#361<clear>
aliases#1r#29{"Quota-Log", "Quota_Log", "QL", "Quota"}
description#1rc#361"Record of whose quota has been messed with and why."
object_size#1r#29{19856, 1298433815}
hidden_verbs#1rc#361<clear>
phelp_msg#1rc#361<clear>
weight#1rc#361<clear>
owner_verbs#1rc#361<clear>
plural_name#1rc#361<clear>
client_image#1rc#361<clear>
listening#1rc#361<clear>

Ancestry

Ancestors (nearest first): #37 Generic Mail Recipient#1 root

Children: none

Call graph

calls n28_0 #28:init_for_core n37_27 #37:init_for_core n28_0->n37_27 n37_17 #37:rm_message_seq n28_0->n37_17 n37_15 #37:parse_message_seq n28_0->n37_15 n37_18 #37:undo_rmm n28_0->n37_18

Source

init_for_core

Spec this none thisFlags rxdOwner #361Definer #28

Referenced by

none

Source

1if (caller_perms().wizard)
2pass();
3delete_verb(this, "is_readable_by");
4delete_verb(this, "is_usable_by");
5delete_verb(this, "mail_notify");
6"...remove references to ARB...";
7this:rm_message_seq({1, 1 + this:length_all_msgs()});
8this:expunge_rmm();
9this.mail_forward = {};
10this.mail_notify = {player};
11player.current_message = {@player.current_message, {this, 0, 0}};
12for p in ({"moderator_forward", "moderator_notify", "writers", "readers", "expire_period", "last_used_time"})
13this.(p) = $mail_recipient.(p);
14endfor
15this.moderated = 1;
16else
17return E_PERM;
18endif

find_recips

Spec this none thisFlags rxdOwner #361Definer #28

Referenced by

none

Source

1"Given a To: line from a mail message, extract the people.  I couldn't find this in the mail system...  It's undoubtedly there, but not clear cut.";
2line = args[1];
3recips = {};
4while (line && (start = index(line, "(#")))
5line = line[start..$];
6finish = index(line, ")");
7recips = {@recips, toobj(line[2..finish - 1])};
8line = line[finish..$];
9endwhile
10return recips;