Switch to edit mode.
Name(s): @finger finger1: "Copied from Generic Programmer (#59):finger by Dax (#789) Aug 18 02:16:45 1996" 2: if (player != this) 3: return $msg:mtell("huh") 4: elseif (!args) 5: return player:tell("Usage: ", verb, " <e-mail address>") 6: elseif (index(args[1], "@")) 7: email_addr = args[1] 8: else 9: return player:tell("That doesn't seem to be an email address.") 10: endif 11: at = index(email_addr, "@") 12: user = email_addr[1..at - 1] 13: host = email_addr[at + 1..length(email_addr)] 14: player:tell(user, "@", host) 15: if (!match(host, $network.valid_host_regexp) && !match(host, "[0-9]+%.[0-9]+%.[0-9]+%.[0-9]+")) 16: return player:tell(E_INVARG) 17: endif 18: suspend(0) 19: if (finger = $network:finger(user, host)) 20: player:notify(finger) 21: player:notify("*****") 22: else 23: player:notify("Network error; @finger terminated.") 24: endif 25: "Last modified by Dax (#789) on Mon Dec 10 21:33:01 2001 MST."