Method code for $sys.parse_deny_host()

[Turn on line numbering]

---

arg value, @args;
var parts;

// DNS Hostnames are not used due to the extreme slowdown it would
// cause to _ALL_ services
if (match_regexp(value, "[^0-9.]"))
    throw(~type, "Invalid Internet Host IP address or subnet: " + value);
parts = explode(value, ".");
if (listlen(parts) < 2)
    throw(~type, "Do you really want to deny an entire class A network?");
if (listlen(parts) > 4)
    throw(~type, "Invalid IP Address: " + parts.join("."));
return parts.join(".");

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit