[Turn off line numbering]1: arg @args; 2: var match, port, rx, str, o, ports, msg; 3: 4: (> .perms(caller(), 'system) <); 5: rx = tostr(.objname()); 6: rx = "-(p)" + substr(rx, 1, ("_" in rx) - 1) + "=(.*)"; 7: if (find str in (args) where ((match = regexp(str, rx)))) { 8: [o, ports] = match; 9: ports = .parse_port(ports); 10: if (strcmp(o, "p") == 0) 11: ports = listen + [ports]; 12: } else { 13: ports = listen; 14: } 15: (> .start_listening(@ports) <);
// Created 22-Aug-1995 as a part of ColdCore, see: @help Credit