# $Id: pwent.pl,v 1.1 1997/04/03 07:39:43 friedman Exp $

sub group2gid
{
  local ($g) = @_;
  if ($g =~ /^[0-9][0-9]*$/) { return $g; }
  local ($name, $pw, $gid, $members) = getgrnam ($g);
  if ($gid =~ /^[0-9][0-9]*$/) { return $gid; }
  &err ("$g: no such group");
}

sub user2uid
{
  local ($u) = @_;
  if ($u =~ /^[0-9][0-9]*$/) { return $u; }
  local ($name, $pw, $uid) = getpwnam ($u);
  if ($uid =~ /^[0-9][0-9]*$/) { return $uid; }
  &err ("$u: no such user");
}

sub err
{
  printf ("$0: %s.  Abort.\n", @_);
  exit (1);
}