Password-Change-Log #89

Parent #29Owner #2Flags Source RPG Core/rpgcore-patched.db

Aliases: Password-Change-Log, Passwords

3 verbs · 24 properties · 0 children

Verbs

VerbSpecFlagsDefinerLines
receive_messagethis none thisrxd#899
to_msg_seqthis none thisrxd#8912
init_for_corethis none thisrxd#895

Properties

PropertyDefinerFlagsOwnerValue
keyword#29rc#2"PASSWORD CHANGED"
moderator_notify#45rc#2<clear>
last_msg_date#45r#360
messages_going#45rc#2{}
moderated#45rc#21
moderator_forward#45rc#2<clear>
writers#45rc#2<clear>
readers#45rc#2<clear>
mail_notify#45r#36{#2}
mail_forward#45r#36{}
expire_period#45r#36<clear>
last_used_time#45r#36<clear>
messages#45rc#2{}
rmm_own_msgs#45rc#2<clear>
guests_can_send_here#45rc#2<clear>
messages_kept#45r#36{}
registered_email#45rc#2<clear>
email_validated#45rc#2<clear>
validation_password#45rc#2<clear>
key#1c#20
aliases#1r#36{"Password-Change-Log", "Passwords"}
description#1rc#2"The log of wizardly/Registrar password changes."
object_size#1r#36{2290, -1090650497}
html#1rc#2<clear>

Ancestry

Ancestors (nearest first): #29 New-Prog-Log#45 Generic Mail Recipient#1 Root Class

Children: none

Call graph

calls n89_0 #89:receive_message n45_2 #45:is_writable_by n89_0->n45_2 n29_1 #29:receive_message n89_0->n29_1 n89_1 #89:to_msg_seq n45_13 #45:ok n89_1->n45_13 n29_4 #29:to_msg_seq n89_1->n29_4 n89_2 #89:init_for_core n29_0 #29:init_for_core n89_2->n29_0

Source

receive_message

Spec this none thisFlags rxdOwner #2Definer #89

Referenced by

none

Source

1":receive_message";
2" -- this is a lame hack to take advantage of the *New-Prog-Log parentage";
3"    apologies are due to Rog for abuse of code";
4if (!this:is_writable_by(caller_perms()))
5return E_PERM;
6else
7args[1][4] = strsub(args[1][4], "@newpassword", "@programmer");
8return pass(@args);
9endif

to_msg_seq

Spec this none thisFlags rxdOwner #2Definer #89

Referenced by

none

Source

1":to_msg_seq()";
2" -- this is a lame hack to take advantage of the *New-Prog-Log parentage";
3"    apologies are due to Rog for abuse of code";
4if (!this:ok(caller, caller_perms()))
5return E_PERM;
6else
7base = pass(@args);
8if (typeof(base) == STR)
9base = strsub(base, "@programmer", "@newpassword");
10endif
11return base;
12endif

init_for_core

Spec this none thisFlags rxdOwner #2Definer #89

Referenced by

none

Source

1if (caller_perms().wizard)
2pass();
3this.mail_notify = {#2};
4this.mail_forward = {};
5endif