View/Edit #2:set_aliases _set_aliases

Switch to edit mode.

Name(s): set_aliases _set_aliases
1:  "set_aliases(alias_list) attempts to change this.aliases to alias_list"
2:  "  => E_PERM   if you don't own this or aren't its parent"
3:  "  => E_TYPE   if alias_list is not a list"
4:  "  => E_INVARG if any element of alias_list is not a string"
5:  if (!caller_perms():controls(this) && caller != this)
6:    raise(E_PERM)
7:  elseif (typeof(aliases = args[1]) != $LIST)
8:    raise(E_TYPE)
9:  endif
10: goodaliases = {}
11: for alias in (aliases)
12:   if (typeof(alias) != $STR)
13:     raise(E_INVARG)
14:   endif
15: endfor
16: strips = $list_utils:map_arg($msg, "MIME_stripped", aliases)
17: goodaliases = {@goodaliases, @aliases, @strips}
18: return this.aliases = $list_utils:remove_duplicates(goodaliases)
19: "Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
20: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
21: "Last modified by Dax (#789) on Mon Aug  7 21:32:55 2006 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.

[home | help | who | search | setup | code]