/*
 * 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 2003 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#include <sys/types.h>
#include <stdio.h>
#include <ctype.h>
#include <sys/stat.h>
#include <project.h>
#include <unistd.h>
#include <userdefs.h>
#include <errno.h>
#include <nss_dbdefs.h>
#include "users.h"
#include "messages.h"

int
edit_project(char *login, char *new_login, projid_t projids[], int overwrite)
{
	char **memptr;
	char t_name[] = "/etc/projtmp.XXXXXX";
	FILE *e_fptr, *t_fptr;
	struct project *p_ptr;
	struct project p_work;
	char workbuf[NSS_LINELEN_PROJECT];
	int i, modified = 0;
	struct stat sbuf;
	int p_length;
	char p_string[NSS_LINELEN_PROJECT];
	long p_curr = 0;
	int exist;
	int fd;

	if ((e_fptr = fopen(PROJF_PATH, "r")) == NULL) {
		return (EX_UPDATE);
	}

	if (fstat(fileno(e_fptr), &sbuf) != 0)
		return (EX_UPDATE);

	if ((fd = mkstemp(t_name)) < 0) {
		return (EX_UPDATE);
	}

	if ((t_fptr = fdopen(fd, "w+")) == NULL) {
		(void) close(fd);
		(void) unlink(t_name);
		return (EX_UPDATE);
	}

	/*
	 * Get ownership and permissions correct
	 */

	if (fchmod(fd, sbuf.st_mode) != 0 ||
	    fchown(fd, sbuf.st_uid, sbuf.st_gid) != 0) {
		(void) fclose(t_fptr);
		(void) unlink(t_name);
		return (EX_UPDATE);
	}

	p_curr = ftell(e_fptr);

	/* Make TMP file look like we want project file to look */

	while (fgets(p_string, NSS_LINELEN_PROJECT - 1, e_fptr)) {
		/* While there is another group string */

		p_length = strlen(p_string);
		(void) fseek(e_fptr, p_curr, SEEK_SET);
		p_ptr = fgetprojent(e_fptr, &p_work, &workbuf,
		    sizeof (workbuf));
		p_curr = ftell(e_fptr);

		if (p_ptr == NULL) {
			/*
			 * tried to parse a proj string over
			 * NSS_LINELEN_PROJECT chars
			 */
			errmsg(M_PROJ_ENTRY_OVF, NSS_LINELEN_PROJECT);
			modified = 0; /* bad project file: cannot rebuild */
			break;
		}

		/* first delete the login from the project, if it's there */
		if (overwrite || !projids) {
			if (p_ptr->pj_users != NULL) {
				for (memptr = p_ptr->pj_users; *memptr;
				    memptr++) {
					if (strcmp(*memptr, login) == 0) {
						/* Delete this one */
						char **from = memptr + 1;
						p_length -= (strlen(*memptr)+1);
						do {
							*(from - 1) = *from;
						} while (*from++);

						modified++;
						break;
					}
				}
			}
		}

		/* now check to see if project is one to add to */
		if (projids) {
			for (i = 0; projids[i] != -1; i++) {
				if (p_ptr->pj_projid == projids[i]) {
					/* Scan for dups */
					exist = 0;
					for (memptr = p_ptr->pj_users; *memptr;
					    memptr++) {
						if (strncmp(*memptr, new_login ?
						    new_login : login,
						    strlen(*memptr)) == 0)
							exist++;
					}
					p_length += strlen(new_login ?
					    new_login : login) + 1;

					if (p_length >=
					    NSS_LINELEN_PROJECT - 1) {
						errmsg(M_PROJ_ENTRY_OVF,
						    NSS_LINELEN_PROJECT);
						break;
					} else {
						if (!exist) {
						*memptr++ = new_login ?
						    new_login : login;
						*memptr = NULL;
						modified++;
						}
					}
				}
			}
		}
		putprojent(p_ptr, t_fptr);
	}

	(void) fclose(e_fptr);
	(void) fclose(t_fptr);

	/* Now, update project file, if it was modified */
	if (modified && rename(t_name, PROJF_PATH) < 0) {
		(void) unlink(t_name);
		return (EX_UPDATE);
	}

	(void) unlink(t_name);
	return (EX_SUCCESS);
}