Method code for $sys.del_from_system()

[Turn off line numbering]

---

  1: arg obj;
  2: 
  3: if (!.is_admin(sender()))
  4:     throw(~perm, "Sender is not an admin.");
  5: if (!(obj in admins || obj in agents))
  6:     throw(~perm, "Object is not an agent or admin.");
  7: system = setremove(system, obj);
  8: 
  9: // $#Edited: 18 Jul 99 13:33 $brandon

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]