View/Edit #456:open_connection

Name(s): open_connection

1:  set_task_perms(caller_perms())
2:  {cvsroot, user} = args
3:  {user, p} = this:get_passwd(cvsroot, user)
4:  cvsroot = strsub(cvsroot, ":pserver:", tostr(":pserver:", user, "@"))
5:  pass = p || ""
6:  user = user || "anonymous"
7:  try
8:    c = $cvs:open_connection(cvsroot, pass)
9:  except (E_PERM)
10:   if (!p)
11:     return player:tell("cvs: used empty p; try \"@cvs login\" with a real password")
12:   else
13:     return player:tell("cvs: Authentication failed connecting to ", cvsroot)
14:   endif
15: endtry
16: return c
17: "Last modified by manta (#7165) on Wed Feb  6 08:02:36 2002 MST."
18: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
19: "Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.