/*
 * 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 2017 Gary Mills
 * 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   */


#include        "uucp.h"

#define MAXLENGTH 256
#define C_MAX     512

static void insert();
void rproc(), uproc();

static char  Nnament[MAXLENGTH][NAMESIZE];
static char *Nptr[MAXLENGTH];
static short Nnames = 0;

int
main(argc, argv)
int argc;
char **argv;
{
        int c, i, uopt = 0;
        char prev[2 * NAMESIZE];

        if (eaccess(GRADES, 04) == -1) {
                (void) fprintf(stderr, "No administrator defined service grades available on this machine, use single letter/number only\n");
                exit(0);
        }

        while ((c = getopt(argc, argv, "x:u")) != EOF)
                switch(c) {
                case 'u':
                        uopt++;
                        break;
                case 'x':
                        Debug = atoi(optarg);
                        if (Debug < 0)
                                Debug = 1;
                        break;
                default:
                        (void) fprintf(stderr, "usage: uuglist [-u] [-xLEVEL]\n");
                        exit(-1);
                }

        if (uopt) {
                Uid = getuid();

                if (Uid == 0)
                        (void) setuid(UUCPUID);

                (void) guinfo(Uid, User);

                uproc();
        } else
                rproc();

        for (i = 0; i < Nnames; i++) {

                if (EQUALS(Nptr[i], prev))
                        continue;

                puts(Nptr[i]);
                (void) strcpy(prev, Nptr[i]);
        }
        return (0);
}
static void
insert(name)
char *name;
{
        int i,j;
        char *p;

        DEBUG(7, "insert(%s) ", name);

        for (i = Nnames; i > 0; i--)
                if (strcmp(name, Nptr[i-1]) > 0)
                        break;

        if (i == MAXLENGTH)
                return;

        if (Nnames == MAXLENGTH)
                p = strcpy(Nptr[--Nnames], name);
        else
                p = strcpy(Nnament[Nnames], name);

        for (j = Nnames; j > i; j--)
                Nptr[j] = Nptr[j-1];

        DEBUG(7, "insert %s ", p);
        DEBUG(7, "at %d\n", i);
        Nptr[i] = p;
        Nnames++;
        return;
}

void
rproc()
{
        FILE *cfd;
        char line[BUFSIZ];
        char *carray[C_MAX];

        cfd = fopen(GRADES, "r");

        while (rdfulline(cfd, line, BUFSIZ) != 0) {

                (void) getargs(line, carray, C_MAX);
                insert(carray[0]);
        }

        (void) fclose(cfd);
        return;
}

void
uproc()
{
        FILE *cfd;
        char line[BUFSIZ];
        char *carray[C_MAX];
        int na;

        cfd = fopen(GRADES, "r");

        while (rdfulline(cfd, line, BUFSIZ) != 0) {

                na = getargs(line, carray, C_MAX);

                if (upermit(carray, na) != FAIL)
                        insert(carray[0]);
        }

        (void) fclose(cfd);
        return;
}

int Dfileused = FALSE;
void wfcommit() {}
void cleanup() {}
int gnamef() { return (0); }
int gdirf() { return (0); }
int cklock() { return (0); }

/*VARARGS*/
/*ARGSUSED*/
void
assert (s1, s2, i1, s3, i2)
char *s1, *s2, *s3;
int i1, i2;
{ }             /* for ASSERT in gnamef.c */

/*VARARGS*/
/*ARGSUSED*/
void
errent(char *s1, char *s2, int i1, char *file, int line)
{
}