/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
/*	  All Rights Reserved  	*/

/*
 * University Copyright- Copyright (c) 1982, 1986, 1988
 * The Regents of the University of California
 * All Rights Reserved
 *
 * University Acknowledgment- Portions of this document are derived from
 * software developed by the University of California, Berkeley, and its
 * contributors.
 */

/*
 * groups - show group memberships
 */
/* LINTLIBRARY PROTOLIB1 */

#include <grp.h>
#include <pwd.h>
#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>

extern struct group *getgrgid();
extern struct passwd *getpwnam();
extern int _getgroupsbymember(const char *, gid_t[], int, int);

static void showgroups();

static int ngroups_max;

int
main(int argc, char *argv[])
{
	int xval = 0;
	struct passwd *pw;

	ngroups_max = sysconf(_SC_NGROUPS_MAX);

	if (ngroups_max < 0) {
		(void) fprintf(stderr,
			"groups: could not get configuration info\n");
		exit(1);
	}

	if (ngroups_max == 0)
		exit(0);

	if (argc == 1) {

		if ((pw = getpwuid(getuid())) == NULL) {
			(void) fprintf(stderr, "groups: No passwd entry\n");
			xval = 1;
		} else
			showgroups(pw);

	} else while (*++argv) {

		if ((pw = getpwnam(*argv)) == NULL) {
			(void) fprintf(stderr,
				"groups: %s : No such user\n", *argv);
			xval = 1;
		} else {
			if (argc > 2)
				(void) printf("%s : ", *argv);
			showgroups(pw);
		}
	}

	return (xval);

}

static void
showgroups(struct passwd *pw)
{
	struct group *gr;
	static gid_t *groups = NULL;
	int ngroups;
	int i;

	if (groups == NULL) {
		if ((groups = (gid_t *)calloc((uint_t)ngroups_max,
						sizeof (gid_t))) == 0) {
			(void) fprintf(stderr,
				"allocation of %d bytes failed\n",
				ngroups_max * sizeof (gid_t));
			exit(1);
		}
	}
	groups[0] = pw->pw_gid;

	ngroups = _getgroupsbymember(pw->pw_name, groups, ngroups_max, 1);

	if (gr = getgrgid(groups[0]))
		(void) printf("%s", gr->gr_name);
	else
		(void) printf("%d", (int)pw->pw_gid);

	for (i = 1; i < ngroups; i++) {
		if ((gr = getgrgid(groups[i])))
			(void) printf(" %s", gr->gr_name);
		else
			(void) printf(" %d", (int)groups[i]);
	}

	(void) printf("\n");
}