Method code for $smtp.add_mail_alias()

[Turn on line numbering]

---

arg alias, recip;
var name;

if (type(alias) != 'string)
    throw(~type, "First argument must be a string name for the alias");
if (type(recip) != 'objnum || !recip.is($mail_list))
    throw(~type, "Second argument is not a valid $mail_list");
name = alias;
name = strsed(alias, "[^a-z0-9\.-]+", "", "g");
if (name != alias)
    throw(~type, "Alias may only be alphanumeric characters, or a period or dash");
mail_aliases = dict_add(mail_aliases, alias, recip);

---

// Created 13-Oct-1996 as a part of ColdCore, see: @help Credit