#include <stdio.h>
#include <stdlib.h>
#include "string.h"
#include "language.h"
#include "ipp.h"
#include "debug.h"
#include <ctype.h>
static int ipp_port = 0;
static int ipp_read(http_t *http, unsigned char *buffer, int length);
ipp_attribute_t *
ippAddBoolean(ipp_t *ipp,
ipp_tag_t group,
const char *name,
char value)
{
ipp_attribute_t *attr;
DEBUG_printf(("ippAddBoolean(%p, %02x, \'%s\', %d)\n", ipp, group, name, value));
if (ipp == NULL || name == NULL)
return (NULL);
if ((attr = _ipp_add_attr(ipp, 1)) == NULL)
return (NULL);
attr->name = strdup(name);
attr->group_tag = group;
attr->value_tag = IPP_TAG_BOOLEAN;
attr->values[0].boolean = value;
return (attr);
}
ipp_attribute_t *
ippAddBooleans(ipp_t *ipp,
ipp_tag_t group,
const char *name,
int num_values,
const char *values)
{
int i;
ipp_attribute_t *attr;
ipp_value_t *value;
DEBUG_printf(("ippAddBooleans(%p, %02x, \'%s\', %d, %p)\n", ipp,
group, name, num_values, values));
if (ipp == NULL || name == NULL)
return (NULL);
if ((attr = _ipp_add_attr(ipp, num_values)) == NULL)
return (NULL);
attr->name = strdup(name);
attr->group_tag = group;
attr->value_tag = IPP_TAG_BOOLEAN;
if (values != NULL)
for (i = 0, value = attr->values;
i < num_values;
i ++, value ++)
value->boolean = values[i];
return (attr);
}
ipp_attribute_t *
ippAddDate(ipp_t *ipp,
ipp_tag_t group,
const char *name,
const ipp_uchar_t *value)
{
ipp_attribute_t *attr;
DEBUG_printf(("ippAddDate(%p, %02x, \'%s\', %p)\n", ipp, group, name,
value));
if (ipp == NULL || name == NULL || value == NULL)
return (NULL);
if ((attr = _ipp_add_attr(ipp, 1)) == NULL)
return (NULL);
attr->name = strdup(name);
attr->group_tag = group;
attr->value_tag = IPP_TAG_DATE;
memcpy(attr->values[0].date, value, 11);
return (attr);
}
ipp_attribute_t *
ippAddInteger(ipp_t *ipp,
ipp_tag_t group,
ipp_tag_t type,
const char *name,
int value)
{
ipp_attribute_t *attr;
DEBUG_printf(("ippAddInteger(%p, %d, \'%s\', %d)\n", ipp, group, name,
value));
if (ipp == NULL || name == NULL)
return (NULL);
if ((attr = _ipp_add_attr(ipp, 1)) == NULL)
return (NULL);
attr->name = strdup(name);
attr->group_tag = group;
attr->value_tag = type;
attr->values[0].integer = value;
return (attr);
}
ipp_attribute_t *
ippAddIntegers(ipp_t *ipp,
ipp_tag_t group,
ipp_tag_t type,
const char *name,
int num_values,
const int *values)
{
int i;
ipp_attribute_t *attr;
ipp_value_t *value;
if (ipp == NULL || name == NULL)
return (NULL);
if ((attr = _ipp_add_attr(ipp, num_values)) == NULL)
return (NULL);
attr->name = strdup(name);
attr->group_tag = group;
attr->value_tag = type;
if (values != NULL)
for (i = 0, value = attr->values;
i < num_values;
i ++, value ++)
value->integer = values[i];
return (attr);
}
ipp_attribute_t *
ippAddString(ipp_t *ipp,
ipp_tag_t group,
ipp_tag_t type,
const char *name,
const char *charset,
const char *value)
{
ipp_attribute_t *attr;
if (ipp == NULL || name == NULL)
return (NULL);
if ((attr = _ipp_add_attr(ipp, 1)) == NULL)
return (NULL);
if (type == IPP_TAG_LANGUAGE && strcasecmp(value, "C") == 0)
value = "en";
attr->name = strdup(name);
attr->group_tag = group;
attr->value_tag = type;
attr->values[0].string.charset = ((int)type & IPP_TAG_COPY) ? (char *)charset :
charset ? strdup(charset) : NULL;
attr->values[0].string.text = ((int)type & IPP_TAG_COPY) ? (char *)value :
value ? strdup(value) : NULL;
if ((type == IPP_TAG_LANGUAGE || type == IPP_TAG_CHARSET) &&
attr->values[0].string.text)
{
char *p;
for (p = attr->values[0].string.text; *p; p ++)
if (*p == '_')
*p = '-';
else
*p = tolower(*p);
}
return (attr);
}
ipp_attribute_t *
ippAddStrings(ipp_t *ipp,
ipp_tag_t group,
ipp_tag_t type,
const char *name,
int num_values,
const char *charset,
const char **values)
{
int i;
ipp_attribute_t *attr;
ipp_value_t *value;
if (ipp == NULL || name == NULL)
return (NULL);
if ((attr = _ipp_add_attr(ipp, num_values)) == NULL)
return (NULL);
attr->name = strdup(name);
attr->group_tag = group;
attr->value_tag = type;
for (i = 0, value = attr->values;
i < num_values;
i ++, value ++)
{
if (i == 0)
value->string.charset = ((int)type & IPP_TAG_COPY) ? (char *)charset :
charset ? strdup(charset) : NULL;
else
value->string.charset = attr->values[0].string.charset;
if (values != NULL)
{
if (type == IPP_TAG_LANGUAGE && strcasecmp(values[i], "C") == 0)
value->string.text = ((int)type & IPP_TAG_COPY) ? "en" :
strdup("en");
else
value->string.text = ((int)type & IPP_TAG_COPY) ? (char *)values[i] :
strdup(values[i]);
}
}
return (attr);
}
ipp_attribute_t *
ippAddRange(ipp_t *ipp,
ipp_tag_t group,
const char *name,
int lower,
int upper)
{
ipp_attribute_t *attr;
if (ipp == NULL || name == NULL)
return (NULL);
if ((attr = _ipp_add_attr(ipp, 1)) == NULL)
return (NULL);
attr->name = strdup(name);
attr->group_tag = group;
attr->value_tag = IPP_TAG_RANGE;
attr->values[0].range.lower = lower;
attr->values[0].range.upper = upper;
return (attr);
}
ipp_attribute_t *
ippAddRanges(ipp_t *ipp,
ipp_tag_t group,
const char *name,
int num_values,
const int *lower,
const int *upper)
{
int i;
ipp_attribute_t *attr;
ipp_value_t *value;
if (ipp == NULL || name == NULL)
return (NULL);
if ((attr = _ipp_add_attr(ipp, num_values)) == NULL)
return (NULL);
attr->name = strdup(name);
attr->group_tag = group;
attr->value_tag = IPP_TAG_RANGE;
if (lower != NULL && upper != NULL)
for (i = 0, value = attr->values;
i < num_values;
i ++, value ++)
{
value->range.lower = lower[i];
value->range.upper = upper[i];
}
return (attr);
}
ipp_attribute_t *
ippAddResolution(ipp_t *ipp,
ipp_tag_t group,
const char *name,
ipp_res_t units,
int xres,
int yres)
{
ipp_attribute_t *attr;
if (ipp == NULL || name == NULL)
return (NULL);
if ((attr = _ipp_add_attr(ipp, 1)) == NULL)
return (NULL);
attr->name = strdup(name);
attr->group_tag = group;
attr->value_tag = IPP_TAG_RESOLUTION;
attr->values[0].resolution.xres = xres;
attr->values[0].resolution.yres = yres;
attr->values[0].resolution.units = units;
return (attr);
}
ipp_attribute_t *
ippAddResolutions(ipp_t *ipp,
ipp_tag_t group,
const char *name,
int num_values,
ipp_res_t units,
const int *xres,
const int *yres)
{
int i;
ipp_attribute_t *attr;
ipp_value_t *value;
if (ipp == NULL || name == NULL)
return (NULL);
if ((attr = _ipp_add_attr(ipp, num_values)) == NULL)
return (NULL);
attr->name = strdup(name);
attr->group_tag = group;
attr->value_tag = IPP_TAG_RESOLUTION;
if (xres != NULL && yres != NULL)
for (i = 0, value = attr->values;
i < num_values;
i ++, value ++)
{
value->resolution.xres = xres[i];
value->resolution.yres = yres[i];
value->resolution.units = units;
}
return (attr);
}
ipp_attribute_t *
ippAddSeparator(ipp_t *ipp)
{
ipp_attribute_t *attr;
DEBUG_printf(("ippAddSeparator(%p)\n", ipp));
if (ipp == NULL)
return (NULL);
if ((attr = _ipp_add_attr(ipp, 0)) == NULL)
return (NULL);
attr->group_tag = IPP_TAG_ZERO;
attr->value_tag = IPP_TAG_ZERO;
return (attr);
}
time_t
ippDateToTime(const ipp_uchar_t *date)
{
struct tm unixdate;
time_t t;
memset(&unixdate, 0, sizeof(unixdate));
unixdate.tm_year = ((date[0] << 8) | date[1]) - 1900;
unixdate.tm_mon = date[2] - 1;
unixdate.tm_mday = date[3];
unixdate.tm_hour = date[4];
unixdate.tm_min = date[5];
unixdate.tm_sec = date[6];
t = mktime(&unixdate);
if (date[8] == '-')
t += date[9] * 3600 + date[10] * 60;
else
t -= date[9] * 3600 + date[10] * 60;
return (t);
}
void
ippDelete(ipp_t *ipp)
{
ipp_attribute_t *attr,
*next;
DEBUG_printf(("ippDelete(): %p\n", ipp));
if (ipp == NULL)
return;
for (attr = ipp->attrs; attr != NULL; attr = next)
{
next = attr->next;
_ipp_free_attr(attr);
}
free(ipp);
}
const char *
ippErrorString(ipp_status_t error)
{
static char unknown[255];
static const char *status_oks[] =
{
"successful-ok",
"successful-ok-ignored-or-substituted-attributes",
"successful-ok-conflicting-attributes",
"successful-ok-ignored-subscriptions",
"successful-ok-ignored-notifications",
"successful-ok-too-many-events",
"successful-ok-but-cancel-subscription"
},
*status_400s[] =
{
"client-error-bad-request",
"client-error-forbidden",
"client-error-not-authenticated",
"client-error-not-authorized",
"client-error-not-possible",
"client-error-timeout",
"client-error-not-found",
"client-error-gone",
"client-error-request-entity-too-large",
"client-error-request-value-too-long",
"client-error-document-format-not-supported",
"client-error-attributes-or-values-not-supported",
"client-error-uri-scheme-not-supported",
"client-error-charset-not-supported",
"client-error-conflicting-attributes",
"client-error-compression-not-supported",
"client-error-compression-error",
"client-error-document-format-error",
"client-error-document-access-error",
"client-error-attributes-not-settable",
"client-error-ignored-all-subscriptions",
"client-error-too-many-subscriptions",
"client-error-ignored-all-notifications",
"client-error-print-support-file-not-found"
},
*status_500s[] =
{
"server-error-internal-error",
"server-error-operation-not-supported",
"server-error-service-unavailable",
"server-error-version-not-supported",
"server-error-device-error",
"server-error-temporary-error",
"server-error-not-accepting-jobs",
"server-error-busy",
"server-error-job-canceled",
"server-error-multiple-document-jobs-not-supported",
"server-error-printer-is-deactivated"
};
if (error >= IPP_OK && error <= IPP_OK_BUT_CANCEL_SUBSCRIPTION)
return (status_oks[error]);
else if (error == IPP_REDIRECTION_OTHER_SITE)
return ("redirection-other-site");
else if (error >= IPP_BAD_REQUEST && error <= IPP_PRINT_SUPPORT_FILE_NOT_FOUND)
return (status_400s[error - IPP_BAD_REQUEST]);
else if (error >= IPP_INTERNAL_ERROR && error <= IPP_PRINTER_IS_DEACTIVATED)
return (status_500s[error - IPP_INTERNAL_ERROR]);
sprintf(unknown, "unknown-%04x", error);
return (unknown);
}
ipp_attribute_t *
ippFindAttribute(ipp_t *ipp,
const char *name,
ipp_tag_t type)
{
DEBUG_printf(("ippFindAttribute(%p, \'%s\')\n", ipp, name));
if (ipp == NULL || name == NULL)
return (NULL);
ipp->current = NULL;
return (ippFindNextAttribute(ipp, name, type));
}
ipp_attribute_t *
ippFindNextAttribute(ipp_t *ipp,
const char *name,
ipp_tag_t type)
{
ipp_attribute_t *attr;
ipp_tag_t value_tag;
DEBUG_printf(("ippFindNextAttribute(%p, \'%s\')\n", ipp, name));
if (ipp == NULL || name == NULL)
return (NULL);
if (ipp->current)
attr = ipp->current->next;
else
attr = ipp->attrs;
for (; attr != NULL; attr = attr->next)
{
DEBUG_printf(("ippFindAttribute: attr = %p, name = \'%s\'\n", attr,
attr->name));
value_tag = (ipp_tag_t)(attr->value_tag & IPP_TAG_MASK);
if (attr->name != NULL && strcasecmp(attr->name, name) == 0 &&
(value_tag == type || type == IPP_TAG_ZERO ||
(value_tag == IPP_TAG_TEXTLANG && type == IPP_TAG_TEXT) ||
(value_tag == IPP_TAG_NAMELANG && type == IPP_TAG_NAME)))
{
ipp->current = attr;
return (attr);
}
}
ipp->current = NULL;
return (NULL);
}
size_t
ippLength(ipp_t *ipp)
{
int i;
int bytes;
ipp_attribute_t *attr;
ipp_tag_t group;
ipp_value_t *value;
if (ipp == NULL)
return (0);
bytes = 8;
group = IPP_TAG_ZERO;
for (attr = ipp->attrs; attr != NULL; attr = attr->next)
{
if (attr->group_tag != group)
{
group = attr->group_tag;
if (group == IPP_TAG_ZERO)
continue;
bytes ++;
}
DEBUG_printf(("attr->name = %s, attr->num_values = %d, bytes = %d\n",
attr->name, attr->num_values, bytes));
bytes += strlen(attr->name);
bytes += attr->num_values;
bytes += 2 * attr->num_values;
bytes += 2 * attr->num_values;
switch (attr->value_tag & ~IPP_TAG_COPY)
{
case IPP_TAG_INTEGER :
case IPP_TAG_ENUM :
bytes += 4 * attr->num_values;
break;
case IPP_TAG_BOOLEAN :
bytes += attr->num_values;
break;
case IPP_TAG_TEXT :
case IPP_TAG_NAME :
case IPP_TAG_KEYWORD :
case IPP_TAG_STRING :
case IPP_TAG_URI :
case IPP_TAG_URISCHEME :
case IPP_TAG_CHARSET :
case IPP_TAG_LANGUAGE :
case IPP_TAG_MIMETYPE :
for (i = 0, value = attr->values;
i < attr->num_values;
i ++, value ++)
bytes += strlen(value->string.text);
break;
case IPP_TAG_DATE :
bytes += 11 * attr->num_values;
break;
case IPP_TAG_RESOLUTION :
bytes += 9 * attr->num_values;
break;
case IPP_TAG_RANGE :
bytes += 8 * attr->num_values;
break;
case IPP_TAG_TEXTLANG :
case IPP_TAG_NAMELANG :
bytes += 4 * attr->num_values;
for (i = 0, value = attr->values;
i < attr->num_values;
i ++, value ++)
bytes += strlen(value->string.charset) +
strlen(value->string.text);
break;
default :
for (i = 0, value = attr->values;
i < attr->num_values;
i ++, value ++)
bytes += attr->values[0].unknown.length;
break;
}
}
DEBUG_printf(("bytes = %d\n", bytes + 1));
return (bytes + 1);
}
ipp_t *
ippNew(void)
{
ipp_t *temp;
if ((temp = (ipp_t *)calloc(1, sizeof(ipp_t))) != NULL)
{
temp->request.any.version[0] = 1;
temp->request.any.version[1] = 1;
}
DEBUG_printf(("ippNew(): %p\n", temp));
return (temp);
}
ipp_state_t
ippRead(http_t *http,
ipp_t *ipp)
{
int n;
unsigned char buffer[32768],
*bufptr;
ipp_attribute_t *attr;
ipp_tag_t tag;
ipp_value_t *value;
DEBUG_printf(("ippRead(%p, %p)\n", http, ipp));
if (http == NULL || ipp == NULL)
return (IPP_ERROR);
switch (ipp->state)
{
case IPP_IDLE :
ipp->state ++;
case IPP_HEADER :
if ((n = ipp_read(http, buffer, 8)) < 8)
{
DEBUG_printf(("ippRead: Unable to read header (%d bytes read)!\n", n));
return (n == 0 ? IPP_IDLE : IPP_ERROR);
}
if (buffer[0] != 1)
{
DEBUG_printf(("ippRead: version number (%d.%d) is bad.\n", buffer[0],
buffer[1]));
return (IPP_ERROR);
}
ipp->request.any.version[0] = buffer[0];
ipp->request.any.version[1] = buffer[1];
ipp->request.any.op_status = (buffer[2] << 8) | buffer[3];
ipp->request.any.request_id = (((((buffer[4] << 8) | buffer[5]) << 8) |
buffer[6]) << 8) | buffer[7];
ipp->state = IPP_ATTRIBUTE;
ipp->current = NULL;
ipp->curtag = IPP_TAG_ZERO;
DEBUG_printf(("ippRead: version=%d.%d\n", buffer[0], buffer[1]));
DEBUG_printf(("ippRead: op_status=%04x\n", ipp->request.any.op_status));
DEBUG_printf(("ippRead: request_id=%d\n", ipp->request.any.request_id));
if (!http->blocking && http->used == 0)
break;
case IPP_ATTRIBUTE :
while (ipp_read(http, buffer, 1) > 0)
{
tag = (ipp_tag_t)buffer[0];
if (tag == IPP_TAG_END)
{
DEBUG_puts("ippRead: IPP_TAG_END!");
ipp->state = IPP_DATA;
break;
}
else if (tag < IPP_TAG_UNSUPPORTED_VALUE)
{
if (ipp->curtag == tag)
ippAddSeparator(ipp);
ipp->curtag = tag;
ipp->current = NULL;
DEBUG_printf(("ippRead: group tag = %x\n", tag));
continue;
}
DEBUG_printf(("ippRead: value tag = %x\n", tag));
if (ipp_read(http, buffer, 2) < 2)
{
DEBUG_puts("ippRead: unable to read name length!");
return (IPP_ERROR);
}
n = (buffer[0] << 8) | buffer[1];
if (n > (sizeof(buffer) - 1))
{
DEBUG_printf(("ippRead: bad name length %d!\n", n));
return (IPP_ERROR);
}
DEBUG_printf(("ippRead: name length = %d\n", n));
if (n == 0)
{
if (ipp->current == NULL)
return (IPP_ERROR);
attr = ipp->current;
if (attr->value_tag == IPP_TAG_STRING ||
(attr->value_tag >= IPP_TAG_TEXTLANG &&
attr->value_tag <= IPP_TAG_MIMETYPE))
{
if (tag != IPP_TAG_STRING &&
(tag < IPP_TAG_TEXTLANG || tag > IPP_TAG_MIMETYPE))
return (IPP_ERROR);
}
else if (attr->value_tag != tag)
return (IPP_ERROR);
if ((attr->num_values % IPP_MAX_VALUES) == 0)
{
ipp_attribute_t *temp,
*ptr;
if ((temp = realloc(attr, sizeof(ipp_attribute_t) +
(attr->num_values + IPP_MAX_VALUES - 1) *
sizeof(ipp_value_t))) == NULL)
return (IPP_ERROR);
for (ptr = ipp->attrs; ptr && ptr->next != attr; ptr = ptr->next);
if (ptr)
ptr->next = temp;
else
ipp->attrs = temp;
attr = ipp->current = ipp->last = temp;
}
}
else
{
if (ipp_read(http, buffer, n) < n)
{
DEBUG_puts("ippRead: unable to read name!");
return (IPP_ERROR);
}
buffer[n] = '\0';
DEBUG_printf(("ippRead: name = \'%s\'\n", buffer));
attr = ipp->current = _ipp_add_attr(ipp, IPP_MAX_VALUES);
attr->group_tag = ipp->curtag;
attr->value_tag = tag;
attr->name = strdup((char *)buffer);
attr->num_values = 0;
}
value = attr->values + attr->num_values;
if (ipp_read(http, buffer, 2) < 2)
{
DEBUG_puts("ippRead: unable to read value length!");
return (IPP_ERROR);
}
n = (buffer[0] << 8) | buffer[1];
DEBUG_printf(("ippRead: value length = %d\n", n));
switch (tag)
{
case IPP_TAG_INTEGER :
case IPP_TAG_ENUM :
if (ipp_read(http, buffer, 4) < 4)
return (IPP_ERROR);
n = (((((buffer[0] << 8) | buffer[1]) << 8) | buffer[2]) << 8) |
buffer[3];
value->integer = n;
break;
case IPP_TAG_BOOLEAN :
if (ipp_read(http, buffer, 1) < 1)
return (IPP_ERROR);
value->boolean = buffer[0];
break;
case IPP_TAG_TEXT :
case IPP_TAG_NAME :
case IPP_TAG_KEYWORD :
case IPP_TAG_STRING :
case IPP_TAG_URI :
case IPP_TAG_URISCHEME :
case IPP_TAG_CHARSET :
case IPP_TAG_LANGUAGE :
case IPP_TAG_MIMETYPE :
value->string.text = calloc(n + 1, 1);
if (ipp_read(http, value->string.text, n) < n)
return (IPP_ERROR);
DEBUG_printf(("ippRead: value = \'%s\'\n",
value->string.text));
break;
case IPP_TAG_DATE :
if (ipp_read(http, value->date, 11) < 11)
return (IPP_ERROR);
break;
case IPP_TAG_RESOLUTION :
if (ipp_read(http, buffer, 9) < 9)
return (IPP_ERROR);
value->resolution.xres =
(((((buffer[0] << 8) | buffer[1]) << 8) | buffer[2]) << 8) |
buffer[3];
value->resolution.yres =
(((((buffer[4] << 8) | buffer[5]) << 8) | buffer[6]) << 8) |
buffer[7];
value->resolution.units =
(ipp_res_t)buffer[8];
break;
case IPP_TAG_RANGE :
if (ipp_read(http, buffer, 8) < 8)
return (IPP_ERROR);
value->range.lower =
(((((buffer[0] << 8) | buffer[1]) << 8) | buffer[2]) << 8) |
buffer[3];
value->range.upper =
(((((buffer[4] << 8) | buffer[5]) << 8) | buffer[6]) << 8) |
buffer[7];
break;
case IPP_TAG_TEXTLANG :
case IPP_TAG_NAMELANG :
if (n > sizeof(buffer) || n < 4)
{
DEBUG_printf(("ippRead: bad value length %d!\n", n));
return (IPP_ERROR);
}
if (ipp_read(http, buffer, n) < n)
return (IPP_ERROR);
bufptr = buffer;
n = (bufptr[0] << 8) | bufptr[1];
value->string.charset = calloc(n + 1, 1);
memcpy(value->string.charset,
bufptr + 2, n);
bufptr += 2 + n;
n = (bufptr[0] << 8) | bufptr[1];
value->string.text = calloc(n + 1, 1);
memcpy(value->string.text,
bufptr + 2, n);
break;
default :
value->unknown.length = n;
if (n > 0)
{
value->unknown.data = malloc(n);
if (ipp_read(http, value->unknown.data, n) < n)
return (IPP_ERROR);
}
else
value->unknown.data = NULL;
break;
}
attr->num_values ++;
if (!http->blocking && http->used == 0)
break;
}
break;
case IPP_DATA :
break;
default :
break;
}
return (ipp->state);
}
const ipp_uchar_t *
ippTimeToDate(time_t t)
{
struct tm *unixdate;
static ipp_uchar_t date[11];
unixdate = gmtime(&t);
unixdate->tm_year += 1900;
date[0] = unixdate->tm_year >> 8;
date[1] = unixdate->tm_year;
date[2] = unixdate->tm_mon + 1;
date[3] = unixdate->tm_mday;
date[4] = unixdate->tm_hour;
date[5] = unixdate->tm_min;
date[6] = unixdate->tm_sec;
date[7] = 0;
date[8] = '+';
date[9] = 0;
date[10] = 0;
return (date);
}
ipp_state_t
ippWrite(http_t *http,
ipp_t *ipp)
{
int i;
int n;
unsigned char buffer[8192],
*bufptr;
ipp_attribute_t *attr;
ipp_value_t *value;
if (http == NULL || ipp == NULL)
return (IPP_ERROR);
switch (ipp->state)
{
case IPP_IDLE :
ipp->state ++;
case IPP_HEADER :
bufptr = buffer;
*bufptr++ = ipp->request.any.version[0];
*bufptr++ = ipp->request.any.version[1];
*bufptr++ = ipp->request.any.op_status >> 8;
*bufptr++ = ipp->request.any.op_status;
*bufptr++ = ipp->request.any.request_id >> 24;
*bufptr++ = ipp->request.any.request_id >> 16;
*bufptr++ = ipp->request.any.request_id >> 8;
*bufptr++ = ipp->request.any.request_id;
if (httpWrite(http, (char *)buffer, bufptr - buffer) < 0)
{
DEBUG_puts("ippWrite: Could not write IPP header...");
return (IPP_ERROR);
}
ipp->state = IPP_ATTRIBUTE;
ipp->current = ipp->attrs;
ipp->curtag = IPP_TAG_ZERO;
DEBUG_printf(("ippWrite: version=%d.%d\n", buffer[0], buffer[1]));
DEBUG_printf(("ippWrite: op_status=%04x\n", ipp->request.any.op_status));
DEBUG_printf(("ippWrite: request_id=%d\n", ipp->request.any.request_id));
if (!http->blocking)
break;
case IPP_ATTRIBUTE :
while (ipp->current != NULL)
{
bufptr = buffer;
attr = ipp->current;
ipp->current = ipp->current->next;
if (ipp->curtag != attr->group_tag)
{
ipp->curtag = attr->group_tag;
if (attr->group_tag == IPP_TAG_ZERO)
continue;
DEBUG_printf(("ippWrite: wrote group tag = %x\n", attr->group_tag));
*bufptr++ = attr->group_tag;
}
if ((n = strlen(attr->name)) > (sizeof(buffer) - 3))
return (IPP_ERROR);
DEBUG_printf(("ippWrite: writing value tag = %x\n", attr->value_tag));
DEBUG_printf(("ippWrite: writing name = %d, \'%s\'\n", n, attr->name));
*bufptr++ = attr->value_tag;
*bufptr++ = n >> 8;
*bufptr++ = n;
memcpy(bufptr, attr->name, n);
bufptr += n;
switch (attr->value_tag & ~IPP_TAG_COPY)
{
case IPP_TAG_INTEGER :
case IPP_TAG_ENUM :
for (i = 0, value = attr->values;
i < attr->num_values;
i ++, value ++)
{
if ((sizeof(buffer) - (bufptr - buffer)) < 9)
{
if (httpWrite(http, (char *)buffer, bufptr - buffer) < 0)
{
DEBUG_puts("ippWrite: Could not write IPP attribute...");
return (IPP_ERROR);
}
bufptr = buffer;
}
if (i)
{
*bufptr++ = attr->value_tag;
*bufptr++ = 0;
*bufptr++ = 0;
}
*bufptr++ = 0;
*bufptr++ = 4;
*bufptr++ = value->integer >> 24;
*bufptr++ = value->integer >> 16;
*bufptr++ = value->integer >> 8;
*bufptr++ = value->integer;
}
break;
case IPP_TAG_BOOLEAN :
for (i = 0, value = attr->values;
i < attr->num_values;
i ++, value ++)
{
if ((sizeof(buffer) - (bufptr - buffer)) < 6)
{
if (httpWrite(http, (char *)buffer, bufptr - buffer) < 0)
{
DEBUG_puts("ippWrite: Could not write IPP attribute...");
return (IPP_ERROR);
}
bufptr = buffer;
}
if (i)
{
*bufptr++ = attr->value_tag;
*bufptr++ = 0;
*bufptr++ = 0;
}
*bufptr++ = 0;
*bufptr++ = 1;
*bufptr++ = value->boolean;
}
break;
case IPP_TAG_TEXT :
case IPP_TAG_NAME :
case IPP_TAG_KEYWORD :
case IPP_TAG_STRING :
case IPP_TAG_URI :
case IPP_TAG_URISCHEME :
case IPP_TAG_CHARSET :
case IPP_TAG_LANGUAGE :
case IPP_TAG_MIMETYPE :
for (i = 0, value = attr->values;
i < attr->num_values;
i ++, value ++)
{
if (i)
{
DEBUG_printf(("ippWrite: writing value tag = %x\n",
attr->value_tag));
DEBUG_printf(("ippWrite: writing name = 0, \'\'\n"));
if ((sizeof(buffer) - (bufptr - buffer)) < 3)
{
if (httpWrite(http, (char *)buffer, bufptr - buffer) < 0)
{
DEBUG_puts("ippWrite: Could not write IPP attribute...");
return (IPP_ERROR);
}
bufptr = buffer;
}
*bufptr++ = attr->value_tag;
*bufptr++ = 0;
*bufptr++ = 0;
}
n = strlen(value->string.text);
if (n > sizeof(buffer))
return (IPP_ERROR);
DEBUG_printf(("ippWrite: writing string = %d, \'%s\'\n", n,
value->string.text));
if ((sizeof(buffer) - (bufptr - buffer)) < (n + 2))
{
if (httpWrite(http, (char *)buffer, bufptr - buffer) < 0)
{
DEBUG_puts("ippWrite: Could not write IPP attribute...");
return (IPP_ERROR);
}
bufptr = buffer;
}
*bufptr++ = n >> 8;
*bufptr++ = n;
memcpy(bufptr, value->string.text, n);
bufptr += n;
}
break;
case IPP_TAG_DATE :
for (i = 0, value = attr->values;
i < attr->num_values;
i ++, value ++)
{
if ((sizeof(buffer) - (bufptr - buffer)) < 16)
{
if (httpWrite(http, (char *)buffer, bufptr - buffer) < 0)
{
DEBUG_puts("ippWrite: Could not write IPP attribute...");
return (IPP_ERROR);
}
bufptr = buffer;
}
if (i)
{
*bufptr++ = attr->value_tag;
*bufptr++ = 0;
*bufptr++ = 0;
}
*bufptr++ = 0;
*bufptr++ = 11;
memcpy(bufptr, value->date, 11);
bufptr += 11;
}
break;
case IPP_TAG_RESOLUTION :
for (i = 0, value = attr->values;
i < attr->num_values;
i ++, value ++)
{
if ((sizeof(buffer) - (bufptr - buffer)) < 14)
{
if (httpWrite(http, (char *)buffer, bufptr - buffer) < 0)
{
DEBUG_puts("ippWrite: Could not write IPP attribute...");
return (IPP_ERROR);
}
bufptr = buffer;
}
if (i)
{
*bufptr++ = attr->value_tag;
*bufptr++ = 0;
*bufptr++ = 0;
}
*bufptr++ = 0;
*bufptr++ = 9;
*bufptr++ = value->resolution.xres >> 24;
*bufptr++ = value->resolution.xres >> 16;
*bufptr++ = value->resolution.xres >> 8;
*bufptr++ = value->resolution.xres;
*bufptr++ = value->resolution.yres >> 24;
*bufptr++ = value->resolution.yres >> 16;
*bufptr++ = value->resolution.yres >> 8;
*bufptr++ = value->resolution.yres;
*bufptr++ = value->resolution.units;
}
break;
case IPP_TAG_RANGE :
for (i = 0, value = attr->values;
i < attr->num_values;
i ++, value ++)
{
if ((sizeof(buffer) - (bufptr - buffer)) < 13)
{
if (httpWrite(http, (char *)buffer, bufptr - buffer) < 0)
{
DEBUG_puts("ippWrite: Could not write IPP attribute...");
return (IPP_ERROR);
}
bufptr = buffer;
}
if (i)
{
*bufptr++ = attr->value_tag;
*bufptr++ = 0;
*bufptr++ = 0;
}
*bufptr++ = 0;
*bufptr++ = 8;
*bufptr++ = value->range.lower >> 24;
*bufptr++ = value->range.lower >> 16;
*bufptr++ = value->range.lower >> 8;
*bufptr++ = value->range.lower;
*bufptr++ = value->range.upper >> 24;
*bufptr++ = value->range.upper >> 16;
*bufptr++ = value->range.upper >> 8;
*bufptr++ = value->range.upper;
}
break;
case IPP_TAG_TEXTLANG :
case IPP_TAG_NAMELANG :
for (i = 0, value = attr->values;
i < attr->num_values;
i ++, value ++)
{
if (i)
{
if ((sizeof(buffer) - (bufptr - buffer)) < 3)
{
if (httpWrite(http, (char *)buffer, bufptr - buffer) < 0)
{
DEBUG_puts("ippWrite: Could not write IPP attribute...");
return (IPP_ERROR);
}
bufptr = buffer;
}
*bufptr++ = attr->value_tag;
*bufptr++ = 0;
*bufptr++ = 0;
}
n = strlen(value->string.charset) +
strlen(value->string.text) +
4;
if (n > sizeof(buffer))
return (IPP_ERROR);
if ((sizeof(buffer) - (bufptr - buffer)) < (n + 2))
{
if (httpWrite(http, (char *)buffer, bufptr - buffer) < 0)
{
DEBUG_puts("ippWrite: Could not write IPP attribute...");
return (IPP_ERROR);
}
bufptr = buffer;
}
*bufptr++ = n >> 8;
*bufptr++ = n;
n = strlen(value->string.charset);
*bufptr++ = n >> 8;
*bufptr++ = n;
memcpy(bufptr, value->string.charset, n);
bufptr += n;
n = strlen(value->string.text);
*bufptr++ = n >> 8;
*bufptr++ = n;
memcpy(bufptr, value->string.text, n);
bufptr += n;
}
break;
default :
for (i = 0, value = attr->values;
i < attr->num_values;
i ++, value ++)
{
if (i)
{
if ((sizeof(buffer) - (bufptr - buffer)) < 3)
{
if (httpWrite(http, (char *)buffer, bufptr - buffer) < 0)
{
DEBUG_puts("ippWrite: Could not write IPP attribute...");
return (IPP_ERROR);
}
bufptr = buffer;
}
*bufptr++ = attr->value_tag;
*bufptr++ = 0;
*bufptr++ = 0;
}
n = value->unknown.length;
if (n > sizeof(buffer))
return (IPP_ERROR);
if ((sizeof(buffer) - (bufptr - buffer)) < (n + 2))
{
if (httpWrite(http, (char *)buffer, bufptr - buffer) < 0)
{
DEBUG_puts("ippWrite: Could not write IPP attribute...");
return (IPP_ERROR);
}
bufptr = buffer;
}
*bufptr++ = n >> 8;
*bufptr++ = n;
if (n > 0)
{
memcpy(bufptr, value->unknown.data, n);
bufptr += n;
}
}
break;
}
if (httpWrite(http, (char *)buffer, bufptr - buffer) < 0)
{
DEBUG_puts("ippWrite: Could not write IPP attribute...");
return (IPP_ERROR);
}
DEBUG_printf(("ippWrite: wrote %d bytes\n", bufptr - buffer));
if (!http->blocking)
break;
}
if (ipp->current == NULL)
{
buffer[0] = IPP_TAG_END;
if (httpWrite(http, (char *)buffer, 1) < 0)
{
DEBUG_puts("ippWrite: Could not write IPP end-tag...");
return (IPP_ERROR);
}
ipp->state = IPP_DATA;
}
break;
case IPP_DATA :
break;
default :
break;
}
return (ipp->state);
}
int
ippPort(void)
{
const char *server_port;
struct servent *port;
if (ipp_port)
return (ipp_port);
else if ((server_port = getenv("IPP_PORT")) != NULL)
return (ipp_port = atoi(server_port));
else if ((port = getservbyname("ipp", NULL)) == NULL)
return (ipp_port = IPP_PORT);
else
return (ipp_port = ntohs(port->s_port));
}
void
ippSetPort(int p)
{
ipp_port = p;
}
ipp_attribute_t *
_ipp_add_attr(ipp_t *ipp,
int num_values)
{
ipp_attribute_t *attr;
DEBUG_printf(("_ipp_add_attr(%p, %d)\n", ipp, num_values));
if (ipp == NULL || num_values < 0)
return (NULL);
attr = calloc(sizeof(ipp_attribute_t) +
(num_values - 1) * sizeof(ipp_value_t), 1);
attr->num_values = num_values;
if (attr == NULL)
return (NULL);
if (ipp->last == NULL)
ipp->attrs = attr;
else
ipp->last->next = attr;
ipp->last = attr;
DEBUG_printf(("_ipp_add_attr(): %p\n", attr));
return (attr);
}
void
_ipp_free_attr(ipp_attribute_t *attr)
{
int i;
ipp_value_t *value;
DEBUG_printf(("_ipp_free_attr(): %p\n", attr));
switch (attr->value_tag)
{
case IPP_TAG_TEXT :
case IPP_TAG_NAME :
case IPP_TAG_KEYWORD :
case IPP_TAG_STRING :
case IPP_TAG_URI :
case IPP_TAG_URISCHEME :
case IPP_TAG_CHARSET :
case IPP_TAG_LANGUAGE :
case IPP_TAG_MIMETYPE :
for (i = 0, value = attr->values;
i < attr->num_values;
i ++, value ++)
free(value->string.text);
break;
case IPP_TAG_TEXTLANG :
case IPP_TAG_NAMELANG :
for (i = 0, value = attr->values;
i < attr->num_values;
i ++, value ++)
{
if (value->string.charset && i == 0)
free(value->string.charset);
free(value->string.text);
}
break;
default :
break;
}
if (attr->name != NULL)
free(attr->name);
free(attr);
}
static int
ipp_read(http_t *http,
unsigned char *buffer,
int length)
{
int tbytes,
bytes;
char len[32];
for (tbytes = 0, bytes = 0; tbytes < length; tbytes += bytes, buffer += bytes)
{
if (http->used > 0)
{
if (http->used > (length - tbytes))
bytes = length - tbytes;
else
bytes = http->used;
if (bytes == 1)
buffer[0] = http->buffer[0];
else
memcpy(buffer, http->buffer, bytes);
http->used -= bytes;
http->data_remaining -= bytes;
if (http->used > 0)
memcpy(http->buffer, http->buffer + bytes, http->used);
if (http->data_remaining == 0)
{
if (http->data_encoding == HTTP_ENCODE_CHUNKED)
httpGets(len, sizeof(len), http);
if (http->data_encoding != HTTP_ENCODE_CHUNKED)
{
if (http->state == HTTP_POST_RECV)
http->state ++;
else
http->state = HTTP_WAITING;
}
}
}
else if ((bytes = httpRead(http, (char *)buffer, length - tbytes)) <= 0)
break;
}
if (tbytes == 0 && bytes < 0)
return (-1);
else
return (tbytes);
}