Method code for $root.del_var()

[Turn on line numbering]

---

arg name;
var n, obj, errs;

caller() == definer() || (> .perms(sender()) <);
(> $sys.touch() <);

// try and clear the variable on all of the descendants, before 
// deleting the variable...since we are root, dont use the standard  
// hooks as perms may not be right
n = tosym("_dclear_var_" + tostr(time()));
catch any {
    add_method(["clear_var('" + name + ");"], n);
    for obj in (.descendants()) {
        (| obj.(n)() |);
        pause();
    }
}
(| del_method(n) |);

// now delete the variable
(> del_var(name) <);
if ('core in .flags())
    $changelog.log("DEL-VAR: " + this() + "," + name + " by " + sender());

---

// Created as a part of ColdCore, see: @help Credit