View/Edit #12:@finger finger

Switch to edit mode.

Name(s): @finger finger
1:  "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."

Verb arguments: any none none
Verb perms: Readable NOT-Debug
Verb owned by: Dax (#789)

You are not logged in.

[home | help | who | search | setup | code]