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

/*
 * This file contains routines necessary to convert a string buffer into
 * a printer object.
 */

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/types.h>
#include <string.h>
#include <stdarg.h>
#include <syslog.h>

#include <ns.h>
#include <list.h>

#define	ESCAPE_CHARS	"\\\n=:"	/* \, \n, =, : */

/*
 * Just like strncat(3C), but escapes the supplied characters.
 * This allows the escape character '\' and seperators to be part of the
 * keys or values.
 */
char *
strncat_escaped(char *d, char *s, int len, char *escape)
{
	char *t = d;

	while ((*t != '\0') && (len > 0))
		len--, t++;

	if (escape == NULL)
		escape = "\\";

	while ((*s != '\0') && (len > 0)) {
		if (strchr(escape, *s) != NULL)
			len--, *t++ = '\\';
		len--, *t++ = *s++;
	}
	*t = '\0';

	return (d);
}



char *
_cvt_printer_to_entry(ns_printer_t *printer, char *buf, int buflen)
{
	int i, len;
	int bufferok = 1;

	(void) memset(buf, 0, buflen);

	if ((printer == NULL) || (printer->attributes == NULL))
		return (NULL);

	if (snprintf(buf, buflen, "%s", printer->name) >= buflen) {
		(void) memset(buf, 0, buflen);
		syslog(LOG_ERR, "_cvt_printer_to_entry: buffer overflow");
		return (NULL);
	}

	if ((printer->aliases != NULL) && (printer->aliases[0] != NULL)) {
		char **alias = printer->aliases;

		while (*alias != NULL) {
			(void) strlcat(buf, "|", buflen);
			(void) strncat_escaped(buf, *alias++, buflen,
			    ESCAPE_CHARS);
		}
	}

	if (strlcat(buf, ":", buflen) >= buflen) {
		(void) memset(buf, 0, buflen);
		syslog(LOG_ERR, "_cvt_printer_to_entry: buffer overflow");
		return (NULL);
	}

	len = strlen(buf);

	for (i = 0; printer->attributes[i] != NULL && bufferok; i++) {
		ns_kvp_t *kvp = printer->attributes[i];

		if (kvp->value == NULL)
			continue;
		(void) strlcat(buf, "\\\n\t:", buflen);
		(void) strncat_escaped(buf, kvp->key, buflen, ESCAPE_CHARS);
		(void) strlcat(buf, "=", buflen);
		(void) strncat_escaped(buf, kvp->value, buflen, ESCAPE_CHARS);
		if (strlcat(buf, ":", buflen) >= buflen) {
			bufferok = 0;
		}
	}

	if (!bufferok) {
		(void) memset(buf, 0, buflen);
		syslog(LOG_ERR, "_cvt_printer_to_entry: buffer overflow");
		return (NULL);
	}

	if (strlen(buf) == len) {	/* there were no attributes */
		(void) memset(buf, 0, buflen);
		buf = NULL;
	}

	return (buf);
}


ns_printer_t *
_cvt_nss_entry_to_printer(char *entry, char *ns)
{
	char *name = NULL, *key = NULL, **aliases = NULL, *cp, buf[BUFSIZ];
	int in_namelist = 1, buf_pos = 0;
	ns_printer_t *printer = NULL;

	if (entry == NULL)
		return (NULL);

	(void) memset(buf, 0, sizeof (buf));
	for (cp = entry; *cp != '\0'; cp++) {
		switch (*cp) {
		case ':':	/* end of kvp */
			if (in_namelist != 0) {
				if (name == NULL)
					name = strdup(buf);
				else
					aliases = (char **)list_append(
					    (void **)aliases,
					    (void *)strdup(buf));
				printer = (ns_printer_t *)ns_printer_create(
				    name, aliases, ns, NULL);
				in_namelist = 0;
			} else if (key != NULL) {
				(void) ns_set_value_from_string(key, buf,
				    printer);
			}
			(void) memset(buf, 0, sizeof (buf));
			buf_pos = 0;
			key = NULL;
			break;
		case '=':	/* kvp seperator */
			if (key == NULL) {
				key = strdup(buf);
				(void) memset(buf, 0, sizeof (buf));
				buf_pos = 0;
			} else {
				buf[buf_pos++] = *cp;
			}
			break;
		case '|':	/* namelist seperator */
			if (in_namelist != 0) {
				if (name == NULL)
					name = strdup(buf);
				else
					aliases = (char **)list_append(
					    (void **)aliases,
					    (void *)strdup(buf));
				(void) memset(buf, 0, sizeof (buf));
				buf_pos = 0;
			} else {
				/* add it to the buffer */
				buf[buf_pos++] = *cp;
			}
			break;
		case '\\':	/* escape char */
			buf[buf_pos++] = *(++cp);
			break;
		default:
			buf[buf_pos++] = *cp;
		}

	}

	if (key != NULL)
		(void) ns_set_value_from_string(key, buf, printer);

	return (printer);
}