/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (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 2009 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

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

/*
 * Copyright (c) 2013 RackTop Systems.
 */


#include        <sys/types.h>
#include        <stdio.h>
#include        <stdlib.h>
#include        <sys/param.h>
#include        <unistd.h>
#include        <users.h>
#include        <userdefs.h>
#include        "messages.h"

extern void exit();
extern char *strtok();

static gid_t *grplist;
static int ngroups_max = 0;

/* Validate a list of groups */
int     **
valid_lgroup(char *list, gid_t gid)
{
        int n_invalid = 0, i = 0, j;
        char *ptr;
        struct group *g_ptr;
        int warning;
        int dup_prim = 0; /* we don't duplicate our primary as a supplemental */

        if( !list || !*list )
                return( (int **) NULL );

        if (ngroups_max == 0) {
                ngroups_max = sysconf(_SC_NGROUPS_MAX);
                grplist = malloc((ngroups_max + 1) * sizeof (gid_t));
        }

        while ((ptr = strtok((i || n_invalid || dup_prim)? NULL: list, ","))) {

                switch (valid_group(ptr, &g_ptr, &warning)) {
                case INVALID:
                        errmsg( M_INVALID, ptr, "group id" );
                        n_invalid++;
                        break;
                case TOOBIG:
                        errmsg( M_TOOBIG, "gid", ptr );
                        n_invalid++;
                        break;
                case UNIQUE:
                        errmsg( M_GRP_NOTUSED, ptr );
                        n_invalid++;
                        break;
                case NOTUNIQUE:
                        /* ignore duplicated primary */
                        if (g_ptr->gr_gid == gid) {
                                if (!dup_prim)
                                        dup_prim++;
                                continue;
                        }

                        if( !i )
                                grplist[ i++ ] = g_ptr->gr_gid;
                        else {
                                /* Keep out duplicates */
                                for( j = 0; j < i; j++ )
                                        if( g_ptr->gr_gid == grplist[j] )
                                                break;

                                if( j == i )
                                        /* Not a duplicate */
                                        grplist[i++] = g_ptr->gr_gid;
                        }
                        break;

                }
                if (warning)
                        warningmsg(warning, ptr);

                if( i >= ngroups_max ) {
                        errmsg( M_MAXGROUPS, ngroups_max );
                        break;
                }
        }

        /* Terminate the list */
        grplist[ i ] = -1;

        if( n_invalid )
                exit( EX_BADARG );

        return( (int **)grplist );
}