/*
 * 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.
 */

#include <sys/types.h>
#include <sys/time.h>
#include <string.h>
#include <thread.h>
#include <unistd.h>
#include <stdlib.h>
#include <crypt.h>
#include <pwd.h>
#include <shadow.h>

#include <deflt.h>

#include "passwdutil.h"

#define	PWADMIN "/etc/default/passwd"

#define	MINWEEKS	-1
#define	MAXWEEKS	-1
#define	WARNWEEKS	-1

extern repops_t files_repops, nis_repops, ldap_repops, nss_repops;

repops_t *rops[REP_LAST+1] = {
	NULL,
	&files_repops,
	&nis_repops,
	NULL,
	&ldap_repops,
	NULL,
	NULL,
	NULL,
	&nss_repops,
};

void
free_pwd(struct passwd *pw)
{
	if (pw->pw_name) free(pw->pw_name);
	if (pw->pw_passwd) free(pw->pw_passwd);
	if (pw->pw_gecos) free(pw->pw_gecos);
	if (pw->pw_dir) free(pw->pw_dir);
	if (pw->pw_shell) free(pw->pw_shell);
	free(pw);
}

void
free_spwd(struct spwd *spw)
{
	if (spw->sp_namp) free(spw->sp_namp);
	if (spw->sp_pwdp) free(spw->sp_pwdp);
	free(spw);
}

int
dup_pw(struct passwd **d, struct passwd *s)
{
	if (s == NULL) {
		*d = NULL;
		return (PWU_NOT_FOUND);
	}
	if ((*d = calloc(1, sizeof (**d))) == NULL)
		return (PWU_NOMEM);

	if (s->pw_name) {
		if (((*d)->pw_name = strdup(s->pw_name)) == NULL)
			goto no_mem;
	}
	if (s->pw_passwd) {
		if (((*d)->pw_passwd = strdup(s->pw_passwd)) == NULL)
			goto no_mem;
	}
	(*d)->pw_uid = s->pw_uid;
	(*d)->pw_gid = s->pw_gid;

	if (s->pw_gecos) {
		if (((*d)->pw_gecos = strdup(s->pw_gecos)) == NULL)
			goto no_mem;
	}
	if (s->pw_dir) {
		if (((*d)->pw_dir = strdup(s->pw_dir)) == NULL)
			goto no_mem;
	}
	if (s->pw_shell) {
		if (((*d)->pw_shell = strdup(s->pw_shell)) == NULL)
			goto no_mem;
	}

	return (PWU_SUCCESS);

no_mem:
	free_pwd(*d);
	*d = NULL;
	return (PWU_NOMEM);
}

int
dup_spw(struct spwd **d, struct spwd *s)
{
	if (s == NULL) {
		*d = NULL;
		return (PWU_NOT_FOUND);
	}
	if ((*d = calloc(1, sizeof (**d))) == NULL)
		return (PWU_NOMEM);

	**d = *s;

	if (s->sp_namp)
		if (((*d)->sp_namp = strdup(s->sp_namp)) == NULL)
			goto no_mem;
	if (s->sp_pwdp)
		if (((*d)->sp_pwdp = strdup(s->sp_pwdp)) == NULL)
			goto no_mem;
	return (PWU_SUCCESS);

no_mem:
	free_spwd(*d);
	return (PWU_NOMEM);
}

/*
 * read a value from the defaults file, and return it if it is
 * a positive integer. If the value is not defined, or negative,
 * return the supplied default value
 */
int
def_getuint(char *name, int defvalue, void *defp)
{
	char *p;
	int val = -1;	/* -1 is a guard to catch undefined values */

	if ((p = defread_r(name, defp)) != NULL)
		val = atoi(p);

	return (val >= 0 ? val : defvalue);
}

void
turn_on_default_aging(struct spwd *spw)
{
	int minweeks;
	int maxweeks;
	int warnweeks;
	void	*defp;

	if ((defp = defopen_r(PWADMIN)) == NULL) {
		minweeks = MINWEEKS;
		maxweeks = MAXWEEKS;
		warnweeks = WARNWEEKS;
	} else {
		minweeks = def_getuint("MINWEEKS=", MINWEEKS, defp);
		maxweeks = def_getuint("MAXWEEKS=", MAXWEEKS, defp);
		warnweeks = def_getuint("WARNWEEKS=", WARNWEEKS, defp);
		defclose_r(defp);
	}

	/*
	 * The values specified in /etc/default/passwd are interpreted
	 * in a specific way. Special cases are
	 *   MINWEEKS==0 (results in sp_min = -1)
	 *   MAXWEEKS==0 (results in sp_max = default)
	 */
	spw->sp_min = 7 * minweeks;
	if (spw->sp_min <= 0)
		spw->sp_min = -1;

	spw->sp_max = 7 * maxweeks;
	if (spw->sp_max == 0)
		spw->sp_max = 7 * MAXWEEKS;
	if (spw->sp_max < 0)
		spw->sp_max = -1;

	spw->sp_warn = 7 * warnweeks;
	if (spw->sp_warn <= 0)
		spw->sp_warn = -1;
}

/*
 * open and read a value from the defaults file,
 * return value found or default value if not found.
 */
int
def_getint(char *name, int defvalue)
{
	int	val;
	void	*defp;

	if ((defp = defopen_r(PWADMIN)) == NULL) {
		val = defvalue;
	} else {
		val = def_getuint(name, defvalue, defp);
		defclose_r(defp);
	}

	return (val);
}