/*
 * 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);
}