/*
 * Copyright 2007 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 *
 * Licensed under the Academic Free License version 2.1
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <errno.h>
#include <strings.h>
#include <ctype.h>
#include <stdlib.h>
#include <stdio.h>
#include <unistd.h>
#include <ctype.h>

#include <libhal.h>
#include <logger.h>

#include "printer.h"

static char *
strip_ws(char *s)
{
        if (s != NULL) {
                char *p;

                /* skip the leading whitespace */
                for (; ((*s != '\0') && (isspace(*s) != 0)); s++);

                /* drop the trailing whitespace */
                for (p = s + strlen(s) - 1; ((p > s) && (isspace(*p) != 0));
                     p--);
                *(++p) = '\0';
        }

        return (s);
}

int
ieee1284_devid_to_printer_info(char *devid_string, char **manufacturer,
                char **model, char **description, char **class,
                char **serial_no, char ***command_set)
{
        char *iter = NULL;
        char *s;

        if (devid_string == NULL)
                return (-1);

        /* parse the 1284 device id string */
        for (s = (char *)strtok_r(devid_string, ";\n", &iter); s != NULL;
                        s = (char *)strtok_r(NULL, ";\n", &iter)) {
                char *t, *u, *iter2 = NULL;

                if ((t = (char *)strtok_r(s, ":\n", &iter2)) == NULL)
                        continue;

                if ((u = (char *)strtok_r(NULL, ":\n", &iter2)) == NULL)
                        continue;

                if (((strcasecmp(t, "MFG") == 0) ||
                     (strcasecmp(t, "MANUFACTURER") == 0)) &&
                    (manufacturer != NULL))
                                *manufacturer = strdup(strip_ws(u));
                else if (((strcasecmp(t, "MDL") == 0) ||
                          (strcasecmp(t, "MODEL") == 0)) &&
                         (model != NULL))
                                *model = strdup(strip_ws(u));
                else if (((strcasecmp(t, "DES") == 0) ||
                          (strcasecmp(t, "DESCRIPTION") == 0)) &&
                         (description != NULL))
                                *description = strdup(strip_ws(u));
                else if (((strcasecmp(t, "CLS") == 0) ||
                          (strcasecmp(t, "CLASS") == 0)) &&
                         (class != NULL))
                                *class = strdup(strip_ws(u));
                else if (((strcasecmp(t, "SER") == 0) ||
                          (strcasecmp(t, "SERNO") == 0)) &&
                         (serial_no != NULL))
                                *serial_no = strdup(strip_ws(u));
                else if (((strcasecmp(t, "CMD") == 0) ||
                          (strcasecmp(t, "COMMAND SET") == 0)) &&
                         (command_set != NULL)) {
                        /* this should be more dynamic, I got lazy */
                        char *v, *iter3 = NULL;
                        char *cmds[32];
                        int i = 0;

                        memset(&cmds, 0, sizeof (cmds));
#define NELEM(a)        (sizeof (a) / sizeof (*(a)))
                        for (v = strtok_r(u, ",\n", &iter3);
                             ((v != NULL) && (i < NELEM(cmds)));
                             v = strtok_r(NULL, ",\n", &iter3)) {
                                cmds[i++] = strdup(strip_ws(v));
                        }
#undef NELEM
                        *command_set = calloc(++i, sizeof (char *));
                        for (i = 0; (cmds)[i] != NULL; i++)
                                (*command_set)[i] = cmds[i];
                }
        }

        return (0);
}


int
add_printer_info(LibHalChangeSet *cs, char *udi, char *manufacturer,
                char *model, char *description, char *serial_number,
                char **command_set, char *device)
{
#define NP(x)   (x?x:"")
        HAL_DEBUG(("udi: %s, snmp data: vendor=%s, product=%s, "
                    "description=%s, serial=%s, device=%s\n",
                    NP(udi), NP(manufacturer), NP(model), NP(description),
                    NP(serial_number), NP(device)));
#undef NP

        if (model != NULL)
                libhal_changeset_set_property_string(cs,
                                        "info.product", model);
        if (manufacturer != NULL)
                libhal_changeset_set_property_string(cs,
                                        "printer.vendor", manufacturer);
        if (model != NULL)
                libhal_changeset_set_property_string(cs,
                                        "printer.product", model);
        if (serial_number != NULL)
                libhal_changeset_set_property_string(cs,
                                        "printer.serial", serial_number);
        if (description != NULL)
                libhal_changeset_set_property_string(cs,
                                        "printer.description", description);
        if (command_set != NULL)
                libhal_changeset_set_property_strlist(cs, "printer.commandset",
                                        (const char **)command_set);
        if (device != NULL)
                libhal_changeset_set_property_string(cs,
                                        "printer.device", device);

        return (0);
}