@verb #12:"finger @finger" any none none rdo #789
@program #12:"finger @finger" any none none
"Copied from Generic Programmer (#59):finger by Dax (#789) Aug 18 02:16:45 1996"
if (player != this)
  return $msg:mtell("huh")
elseif (!args)
  return player:tell("Usage:  ", verb, " <e-mail address>")
elseif (index(args[1], "@"))
  email_addr = args[1]
else
  return player:tell("That doesn't seem to be an email address.")
endif
at = index(email_addr, "@")
user = email_addr[1..at - 1]
host = email_addr[at + 1..length(email_addr)]
player:tell(user, "@", host)
if (!match(host, $network.valid_host_regexp) && !match(host, "[0-9]+%.[0-9]+%.[0-9]+%.[0-9]+"))
  return player:tell(E_INVARG)
endif
suspend(0)
if (finger = $network:finger(user, host))
  player:notify(finger)
  player:notify("*****")
else
  player:notify("Network error; @finger terminated.")
endif
"Last modified by Dax (#789) on Mon Dec 10 21:33:01 2001 MST."
.