Player Creation Log #17
Aliases: Player Creation Log, PCL
5 verbs · 26 properties · 0 children
Verbs
| Verb | Spec | Flags | Definer | Lines |
|---|---|---|---|---|
display_seq_headers | this none this | rxd | #17 | 6 |
msg_summary_line | this none this | rxd | #17 | 15 |
init_for_core | this none this | rxd | #17 | 23 |
is_usable_by | this none this | rxd | #17 | 2 |
expire_old_messages | none none none | rxd | #17 | 8 |
Properties
| Property | Definer | Flags | Owner | Value |
|---|---|---|---|---|
summary_uses_body | #14 | rc | #36 | 1 |
_mgr | #14 | rc | #36 | #13 |
mowner | #14 | r | #36 | #36 |
_genprop | #14 | r | #36 | "" |
moderator_notify | #45 | rc | #36 | <clear> |
last_msg_date | #45 | r | #36 | 0 |
messages_going | #45 | rc | #36 | {} |
moderated | #45 | rc | #36 | {#17} |
moderator_forward | #45 | rc | #36 | <clear> |
writers | #45 | rc | #36 | <clear> |
readers | #45 | rc | #36 | <clear> |
mail_notify | #45 | r | #36 | {#2} |
mail_forward | #45 | r | #36 | {} |
expire_period | #45 | r | #36 | <clear> |
last_used_time | #45 | r | #36 | <clear> |
messages | #45 | rc | #36 | {} |
rmm_own_msgs | #45 | rc | #36 | <clear> |
guests_can_send_here | #45 | rc | #36 | <clear> |
messages_kept | #45 | r | #36 | <clear> |
registered_email | #45 | rc | #36 | <clear> |
email_validated | #45 | rc | #36 | <clear> |
validation_password | #45 | rc | #36 | <clear> |
key | #1 | c | #36 | 0 |
aliases | #1 | r | #36 | {"Player Creation Log", "PCL"} |
description | #1 | rc | #36 | "Log of player creations." |
object_size | #1 | r | #36 | {3894, -1090650497} |
Ancestry
Ancestors (nearest first): #14 Generic Large-Capacity Mail Recipient → #45 Generic Mail Recipient → #1 Root Class
Children: none
Call graph
Source
display_seq_headers
Referenced by
none
Source
1":display_seq_headers(msg_seq[,cur])"; 2if (!this:ok(caller, caller_perms())) 3return E_PERM; 4endif 5player:tell(" WHEN BY WHO EMAIL-ADDRESS"); 6pass(@args);
msg_summary_line
Referenced by
none
Source
1when = ctime(args[1])[5..10]; 2from = args[2]; 3by = $string_utils:left(from[1..index(from, " (") - 1], -9); 4subject = args[4]; 5who = subject[1..(open = index(subject, " (")) - 1]; 6if ((close = rindex(subject, ")")) > open) 7who = who[1..min(9, $)] + subject[open..close]; 8endif 9who = $string_utils:left(who, 18); 10line = args[("" in args) + 1]; 11email = line[1..index(line + " ", " ") - 1]; 12if (!index(email, "@")) 13email = "??"; 14endif 15return tostr(when, " ", by, " ", who, " ", email);
init_for_core
Referenced by
none
Source
1if (caller_perms().wizard) 2pass(); 3"this:rm_message_seq({1, 1 + this:length_all_msgs()})"; 4"this:expunge_rmm()"; 5for p in (properties(this)) 6$command_utils:suspend_if_needed(0); 7if (p && (p[1] == " ")) 8delete_property(this, p); 9endif 10endfor 11this.messages = this.messages_going = {}; 12this:_fix_last_msg_date(); 13this._genprop = ""; 14this.mail_forward = {}; 15this.mail_notify = {player}; 16player.current_message = {@player.current_message, {this, 0, 0}}; 17for p in ({"moderator_forward", "writers", "readers", "expire_period", "last_used_time"}) 18clear_property(this, p); 19endfor 20this.moderated = {this}; 21else 22return E_PERM; 23endif
is_usable_by
Referenced by
none
Source
1"Copied from Generic Mail Recipient (#6419):is_usable_by by Rog (#4292) Tue Mar 2 10:02:32 1993 PST"; 2return (!this.moderated) || ((this:is_writable_by(who = args[1]) || (who in this.moderated)) || who.wizard);
expire_old_messages
Referenced by
none
Source
1"Stop breaking the expire task completely with out of seconds/ticks."; 2if (this:ok_write(caller, caller_perms())) 3fork (0) 4pass(@args); 5endfork 6else 7return E_PERM; 8endif