View/Edit #456:login

Switch to edit mode.

1:  caller_perms().wizard && caller == this || raise(E_PERM)
2:  {cvsroot} = args
3:  if (!cvsroot)
4:    return player:tell("No CVSROOT specified!  Please use the `-d' option")
5:  endif
6:  {server, root, user} = $cvs:_parse_cvsroot(cvsroot)
7:  player:tell("(Logging into ", user, "@", server, ")")
8:  player:tell("CVS password: ")
9:  p = read(caller_perms())
10: try
11:   c = $cvs:open_connection(cvsroot, p)
12: except (E_PERM)
13:   player:tell("cvs login: authorization failed: server ", server, " rejected access")
14:   return
15: endtry
16: $cvs:close_connection(c)
17: cvsroot = strsub(cvsroot, tostr(":pserver:", user, "@"), ":pserver:")
18: if (i = $list_utils:iassoc(cvsroot, player.cvspass))
19:   caller_perms().cvspass[i] = {cvsroot, user, p}
20: else
21:   caller_perms().cvspass = {@caller_perms().cvspass, {cvsroot, user, p}}
22: endif
23: player:tell("Login Successful.")
24: "Last modified by Lao-Tzu (#8084) on Tue Dec 11 04:45:00 2001 MST."
25: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
26: "Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."

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