#
# $Id: cvsutil.icn,v 1.2 2004/02/12 17:07:55 rparlett Exp $
#

package cvs

import mail

procedure get_from()
   local cvs_user, entry, mb, pwent

   cvs_user := getenv("CVS_USER") | stop("Couldn't get CVS_USER")

   entry := get_cvs_user(cvs_user) | stop("Couldn't get user entry for " || cvs_user)

   mb := Mailbox(entry.get_mail()) | stop("Invalid RFC822 address: " || entry.get_mail())

   if (mb.get_phrase() == "") & (pwent := getpw(entry.get_user())) then
      mb.set_phrase(image(pwent.gecos))

   return mb
end