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

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <errno.h>
#include <sys/types.h>
#include <unistd.h>
#include <papi.h>
#include <ipp-listener.h>

char *
ipp_svc_status_mesg(papi_service_t svc, papi_status_t status)
{
	char *mesg =  papiServiceGetStatusMessage(svc);

	if (mesg == NULL)
		mesg = papiStatusString(status);

	return (mesg);
}

char *
destination_from_printer_uri(char *uri)
{
	char *result = NULL;

	if (uri != NULL)
		result = strrchr(uri, '/');

	if (result == NULL)
		result = uri;
	else
		result++;

	return (result);
}

void
get_printer_id(papi_attribute_t **attributes, char **printer, int *id)
{
	papi_status_t result;
	char *job = NULL;
	char *fodder;
	int junk;

	if (printer == NULL)
		printer = &fodder;
	if (id == NULL)
		id = &junk;

	*printer = NULL;
	*id = -1;

	result = papiAttributeListGetString(attributes, NULL, "job-uri", &job);
	if (result != PAPI_OK) {
		result = papiAttributeListGetString(attributes, NULL,
		    "printer-uri", printer);
		if (result == PAPI_OK)
			papiAttributeListGetInteger(attributes, NULL,
			    "job-id", id);
	} else {
		*printer = job;
		if ((job = strrchr(*printer, '/')) != NULL) {
			*job = '\0';
			*id = atoi(++job);
		}
	}
}

void
get_string_list(papi_attribute_t **attributes, char *name, char ***values)
{
	papi_status_t result;

	void *iterator = NULL;
	char *value = NULL;

	for (result = papiAttributeListGetString(attributes, &iterator,
	    name, &value);
	    result == PAPI_OK;
	    result = papiAttributeListGetString(attributes, &iterator,
	    NULL, &value))
		list_append(values, value);
}

void
add_default_attributes(papi_attribute_t ***attributes)
{

	(void) papiAttributeListAddString(attributes, PAPI_ATTR_APPEND,
	    "ipp-versions-supported", "1.0");
	(void) papiAttributeListAddString(attributes, PAPI_ATTR_APPEND,
	    "ipp-versions-supported", "1.1");
	(void) papiAttributeListAddBoolean(attributes, PAPI_ATTR_EXCL,
	    "multiple-document-jobs-supported", 0);
	/*
	 * Should be able to ask the web server if it supports SSL or TLS, but
	 * for now, we pick only "none"
	 */
	(void) papiAttributeListAddString(attributes, PAPI_ATTR_EXCL,
	    "uri-security-supported", "none");

	/*
	 * For now, we only "none".  As we support more authentication methods,
	 * we will need to add the associated uri for each.  Valid values would
	 * be:
	 *	"none", "requesting-user-name", "basic", "digest", "certificate"
	 * See RFC2911 page 127 for more information.
	 */
	(void) papiAttributeListAddString(attributes, PAPI_ATTR_EXCL,
	    "uri-authentication-supported", "requesting-user-name");
	(void) papiAttributeListAddString(attributes, PAPI_ATTR_EXCL,
	    "uri-security-supported", "none");
	/* printer-uri-supported is added in the service based attributes */

	(void) papiAttributeListAddInteger(attributes, PAPI_ATTR_EXCL,
	    "multiple-operation-time-out", 60);

	/* I18N related */
	(void) papiAttributeListAddString(attributes, PAPI_ATTR_EXCL,
	    "charset-configured", "utf-8");
	(void) papiAttributeListAddString(attributes, PAPI_ATTR_EXCL,
	    "charset-supported", "utf-8");
	(void) papiAttributeListAddString(attributes, PAPI_ATTR_REPLACE,
	    "natural-language-configured", "en-us");
}

static void
massage_printer_attributes_group(papi_attribute_t **group, char *printer_uri)
{
	if (papiAttributeListFind(group, "printer-uri-supported") != NULL)
		papiAttributeListAddString(&group, PAPI_ATTR_REPLACE,
		    "printer-uri-supported", printer_uri);
}

static void
massage_job_attributes_group(papi_attribute_t **group, char *printer_uri)
{
	if (papiAttributeListFind(group, "job-printer-uri") != NULL)
		papiAttributeListAddString(&group, PAPI_ATTR_REPLACE,
		    "job-printer-uri", printer_uri);

	if (papiAttributeListFind(group, "job-printer-uri") != NULL) {
		char buf[BUFSIZ];
		int32_t id = -1;

		papiAttributeListGetInteger(group, NULL, "job-id", &id);
		snprintf(buf, sizeof (buf), "%s/%d", printer_uri, id);
		papiAttributeListAddString(&group, PAPI_ATTR_REPLACE,
		    "job-uri", buf);
	}
}

/*
 * This function will replace the job/printer URIs with the requested
 * uri because the print service may return a URI that isn't IPP based.
 */
void
massage_response(papi_attribute_t **request, papi_attribute_t **response)
{
	papi_status_t status;
	papi_attribute_t **group = NULL;
	void *iter = NULL;
	char *host = "localhost";
	char *path = "/printers/";
	int port = 631;
	char buf[BUFSIZ];

	(void) papiAttributeListGetString(request, NULL, "uri-host", &host);
	(void) papiAttributeListGetString(request, NULL, "uri-path", &path);
	(void) papiAttributeListGetInteger(request, NULL, "uri-port", &port);

	if (port == 631)
		snprintf(buf, sizeof (buf), "ipp://%s%s", host, path);
	else
		snprintf(buf, sizeof (buf), "http://%s:%d%s", host, port, path);

	for (status = papiAttributeListGetCollection(response, &iter,
	    "printer-attributes-group", &group);
	    status == PAPI_OK;
	    status = papiAttributeListGetCollection(NULL, &iter, NULL, &group))
		massage_printer_attributes_group(group, buf);

	iter = NULL;
	for (status = papiAttributeListGetCollection(response, &iter,
	    "job-attributes-group", &group);
	    status == PAPI_OK;
	    status = papiAttributeListGetCollection(NULL, &iter, NULL, &group))
		massage_job_attributes_group(group, buf);
}

/*
 * This walks through the locale tab and returns the installed
 * locales.  There must be a better way.
 */
void
add_supported_locales(papi_attribute_t ***attributes)
{
	FILE *fp;

	papiAttributeListAddString(attributes, PAPI_ATTR_REPLACE,
	    "generated-natural-language-supported", "en-us");

	if ((fp = fopen("/usr/lib/locale/lcttab", "r")) != NULL) {
		char buf[1024];

		while (fgets(buf, sizeof (buf), fp) != NULL) {
			char *name, *file;
			int i, passed = 1;

			name = strtok(buf, " \t\n");
			if (name == NULL)
				continue;

			for (i = 0; ((passed == 1) && (name[i] != '\0')); i++) {
				if (isalpha(name[i]) != 0)
					name[i] = tolower(name[i]);
				else if ((name[i] == '_') || (name[i] == '-'))
					name[i] = '-';
				else
					passed = 0;
			}

			if ((passed == 1) &&
			    ((file = strtok(NULL, " \t\n")) != NULL)) {
					char path[1024];

				snprintf(path, sizeof (path),
				    "/usr/lib/locale/%s", file);

				if (access(path, F_OK) != 0)
					continue;

				papiAttributeListAddString(attributes,
				    PAPI_ATTR_APPEND,
				    "generated-natural-language-supported",
				    name);
			}
		}
		(void) fclose(fp);
	}
}

void
papi_to_ipp_printer_group(papi_attribute_t ***response,
    papi_attribute_t **request, int flags, papi_printer_t p)
{
	papi_attribute_t **ipp_group = NULL;

	copy_attributes(&ipp_group, papiPrinterGetAttributeList(p));

	/* Windows clients appear to have a problem with very large values */
	papiAttributeListDelete(&ipp_group, "lpsched-printer-ppd-contents");

	add_default_attributes(&ipp_group);
	ipp_operations_supported(&ipp_group, request);

	(void) papiAttributeListAddCollection(response, flags,
	    "printer-attributes-group", ipp_group);
	papiAttributeListFree(ipp_group);
}

void
papi_to_ipp_job_group(papi_attribute_t ***response,
    papi_attribute_t **request, int flags, papi_job_t j)
{
	papi_attribute_t **ipp_group = NULL;

	copy_attributes(&ipp_group, papiJobGetAttributeList(j));

	(void) papiAttributeListAddCollection(response, flags,
	    "job-attributes-group", ipp_group);
	papiAttributeListFree(ipp_group);
}