# # $Id: cvsuser.icn,v 1.2 2004/02/12 17:07:55 rparlett Exp $ # package cvs class CvsUser(user, mail) method get_user() return user end method get_mail() return mail end end procedure get_cvs_user(name) local cvs_root, s, f cvs_root := getenv("CVSROOT") | stop("Couldn't get CVS_ROOT") f := open(cvs_root || "/CVSROOT/users") | stop("Couldn't open users file") every s := !f do { s ? { if tab(upto(':')) == name then { move(1) close(f) return CvsUser(name, tab(0)) } } } close(f) end