#include "debug.h"
#include "globals.h"
#include <stdlib.h>
static const char * const http_days[7] =
{
"Sun",
"Mon",
"Tue",
"Wed",
"Thu",
"Fri",
"Sat"
};
static const char * const http_months[12] =
{
"Jan",
"Feb",
"Mar",
"Apr",
"May",
"Jun",
"Jul",
"Aug",
"Sep",
"Oct",
"Nov",
"Dec"
};
static const char *http_copy_decode(char *dst, const char *src,
int dstsize, const char *term,
int decode);
static char *http_copy_encode(char *dst, const char *src,
char *dstend, const char *reserved,
const char *term, int encode);
http_uri_status_t
httpAssembleURI(
http_uri_coding_t encoding,
char *uri,
int urilen,
const char *scheme,
const char *username,
const char *host,
int port,
const char *resource)
{
char *ptr,
*end;
if (!uri || urilen < 1 || !scheme || port < 0)
{
if (uri)
*uri = '\0';
return (HTTP_URI_BAD_ARGUMENTS);
}
end = uri + urilen - 1;
ptr = http_copy_encode(uri, scheme, end, NULL, NULL, 0);
if (!ptr)
goto assemble_overflow;
if (!strcmp(scheme, "mailto"))
{
if (ptr < end)
*ptr++ = ':';
else
goto assemble_overflow;
}
else
{
if ((ptr + 2) < end)
{
*ptr++ = ':';
*ptr++ = '/';
*ptr++ = '/';
}
else
goto assemble_overflow;
}
if (host)
{
if (username && *username)
{
ptr = http_copy_encode(ptr, username, end, "/?@", NULL,
encoding & HTTP_URI_CODING_USERNAME);
if (!ptr)
goto assemble_overflow;
if (ptr < end)
*ptr++ = '@';
else
goto assemble_overflow;
}
if (host[0] != '[' && strchr(host, ':'))
{
if (strchr(host, '%'))
{
if ((ptr + 4) < end)
{
*ptr++ = '[';
*ptr++ = 'v';
*ptr++ = '1';
*ptr++ = '.';
}
else
goto assemble_overflow;
}
else
{
if (ptr < end)
*ptr++ = '[';
else
goto assemble_overflow;
}
while (ptr < end && *host)
{
if (*host == '%')
{
*ptr++ = '+';
host ++;
}
else
*ptr++ = *host++;
}
if (*host)
goto assemble_overflow;
if (ptr < end)
*ptr++ = ']';
else
goto assemble_overflow;
}
else
{
ptr = http_copy_encode(ptr, host, end, NULL, NULL,
encoding & HTTP_URI_CODING_HOSTNAME);
if (!ptr)
goto assemble_overflow;
}
if (port > 0)
{
snprintf(ptr, end - ptr + 1, ":%d", port);
ptr += strlen(ptr);
if (ptr >= end)
goto assemble_overflow;
}
}
if (resource)
{
char *query;
query = strchr(resource, '?');
ptr = http_copy_encode(ptr, resource, end, NULL, "?",
encoding & HTTP_URI_CODING_RESOURCE);
if (!ptr)
goto assemble_overflow;
if (query)
{
ptr = http_copy_encode(ptr, query, end, NULL, NULL,
encoding & HTTP_URI_CODING_QUERY);
if (!ptr)
goto assemble_overflow;
}
}
else if (ptr < end)
*ptr++ = '/';
else
goto assemble_overflow;
*ptr = '\0';
return (HTTP_URI_OK);
assemble_overflow:
*uri = '\0';
return (HTTP_URI_OVERFLOW);
}
http_uri_status_t
httpAssembleURIf(
http_uri_coding_t encoding,
char *uri,
int urilen,
const char *scheme,
const char *username,
const char *host,
int port,
const char *resourcef,
...)
{
va_list ap;
char resource[1024];
int bytes;
if (!uri || urilen < 1 || !scheme || port < 0 || !resourcef)
{
if (uri)
*uri = '\0';
return (HTTP_URI_BAD_ARGUMENTS);
}
va_start(ap, resourcef);
bytes = vsnprintf(resource, sizeof(resource), resourcef, ap);
va_end(ap);
if (bytes >= sizeof(resource))
{
*uri = '\0';
return (HTTP_URI_OVERFLOW);
}
else
return (httpAssembleURI(encoding, uri, urilen, scheme, username, host,
port, resource));
}
char *
httpDecode64(char *out,
const char *in)
{
int outlen;
outlen = 512;
return (httpDecode64_2(out, &outlen, in));
}
char *
httpDecode64_2(char *out,
int *outlen,
const char *in)
{
int pos,
base64;
char *outptr,
*outend;
if (!out || !outlen || *outlen < 1 || !in)
return (NULL);
if (!*in)
{
*out = '\0';
*outlen = 0;
return (out);
}
for (outptr = out, outend = out + *outlen - 1, pos = 0; *in != '\0'; in ++)
{
if (*in >= 'A' && *in <= 'Z')
base64 = *in - 'A';
else if (*in >= 'a' && *in <= 'z')
base64 = *in - 'a' + 26;
else if (*in >= '0' && *in <= '9')
base64 = *in - '0' + 52;
else if (*in == '+')
base64 = 62;
else if (*in == '/')
base64 = 63;
else if (*in == '=')
break;
else
continue;
switch (pos)
{
case 0 :
if (outptr < outend)
*outptr = base64 << 2;
pos ++;
break;
case 1 :
if (outptr < outend)
*outptr++ |= (base64 >> 4) & 3;
if (outptr < outend)
*outptr = (base64 << 4) & 255;
pos ++;
break;
case 2 :
if (outptr < outend)
*outptr++ |= (base64 >> 2) & 15;
if (outptr < outend)
*outptr = (base64 << 6) & 255;
pos ++;
break;
case 3 :
if (outptr < outend)
*outptr++ |= base64;
pos = 0;
break;
}
}
*outptr = '\0';
*outlen = (int)(outptr - out);
return (out);
}
char *
httpEncode64(char *out,
const char *in)
{
return (httpEncode64_2(out, 512, in, (int)strlen(in)));
}
char *
httpEncode64_2(char *out,
int outlen,
const char *in,
int inlen)
{
char *outptr,
*outend;
static const char base64[] =
{
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
"abcdefghijklmnopqrstuvwxyz"
"0123456789"
"+/"
};
if (!out || outlen < 1 || !in)
return (NULL);
for (outptr = out, outend = out + outlen - 1; inlen > 0; in ++, inlen --)
{
if (outptr < outend)
*outptr ++ = base64[(in[0] & 255) >> 2];
if (outptr < outend)
{
if (inlen > 1)
*outptr ++ = base64[(((in[0] & 255) << 4) | ((in[1] & 255) >> 4)) & 63];
else
*outptr ++ = base64[((in[0] & 255) << 4) & 63];
}
in ++;
inlen --;
if (inlen <= 0)
{
if (outptr < outend)
*outptr ++ = '=';
if (outptr < outend)
*outptr ++ = '=';
break;
}
if (outptr < outend)
{
if (inlen > 1)
*outptr ++ = base64[(((in[0] & 255) << 2) | ((in[1] & 255) >> 6)) & 63];
else
*outptr ++ = base64[((in[0] & 255) << 2) & 63];
}
in ++;
inlen --;
if (inlen <= 0)
{
if (outptr < outend)
*outptr ++ = '=';
break;
}
if (outptr < outend)
*outptr ++ = base64[in[0] & 63];
}
*outptr = '\0';
return (out);
}
const char *
httpGetDateString(time_t t)
{
_cups_globals_t *cg = _cupsGlobals();
return (httpGetDateString2(t, cg->http_date, sizeof(cg->http_date)));
}
const char *
httpGetDateString2(time_t t,
char *s,
int slen)
{
struct tm *tdate;
tdate = gmtime(&t);
snprintf(s, slen, "%s, %02d %s %d %02d:%02d:%02d GMT",
http_days[tdate->tm_wday], tdate->tm_mday,
http_months[tdate->tm_mon], tdate->tm_year + 1900,
tdate->tm_hour, tdate->tm_min, tdate->tm_sec);
return (s);
}
time_t
httpGetDateTime(const char *s)
{
int i;
char mon[16];
int day, year;
int hour, min, sec;
int days;
static const int normal_days[] =
{ 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365 };
static const int leap_days[] =
{ 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366 };
DEBUG_printf(("httpGetDateTime(s=\"%s\")\n", s));
if (sscanf(s, "%*s%d%15s%d%d:%d:%d", &day, mon, &year, &hour, &min, &sec) < 6)
return (0);
DEBUG_printf((" day=%d, mon=\"%s\", year=%d, hour=%d, min=%d, sec=%d\n",
day, mon, year, hour, min, sec));
for (i = 0; i < 12; i ++)
if (!strcasecmp(mon, http_months[i]))
break;
if (i >= 12)
return (0);
DEBUG_printf((" i=%d\n", i));
if ((year & 3) == 0 && ((year % 100) != 0 || (year % 400) == 0))
days = leap_days[i] + day - 1;
else
days = normal_days[i] + day - 1;
DEBUG_printf((" days=%d\n", days));
days += (year - 1970) * 365 +
((year - 1) / 4 - 492) -
((year - 1) / 100 - 19) +
((year - 1) / 400 - 4);
DEBUG_printf((" days=%d\n", days));
return (days * 86400 + hour * 3600 + min * 60 + sec);
}
void
httpSeparate(const char *uri,
char *scheme,
char *username,
char *host,
int *port,
char *resource)
{
httpSeparateURI(HTTP_URI_CODING_ALL, uri, scheme, 32, username,
HTTP_MAX_URI, host, HTTP_MAX_URI, port, resource,
HTTP_MAX_URI);
}
void
httpSeparate2(const char *uri,
char *scheme,
int schemelen,
char *username,
int usernamelen,
char *host,
int hostlen,
int *port,
char *resource,
int resourcelen)
{
httpSeparateURI(HTTP_URI_CODING_ALL, uri, scheme, schemelen, username,
usernamelen, host, hostlen, port, resource, resourcelen);
}
http_uri_status_t
httpSeparateURI(
http_uri_coding_t decoding,
const char *uri,
char *scheme,
int schemelen,
char *username,
int usernamelen,
char *host,
int hostlen,
int *port,
char *resource,
int resourcelen)
{
char *ptr,
*end;
const char *sep;
http_uri_status_t status;
if (scheme && schemelen > 0)
*scheme = '\0';
if (username && usernamelen > 0)
*username = '\0';
if (host && hostlen > 0)
*host = '\0';
if (port)
*port = 0;
if (resource && resourcelen > 0)
*resource = '\0';
if (!uri || !port || !scheme || schemelen <= 0 || !username ||
usernamelen <= 0 || !host || hostlen <= 0 || !resource ||
resourcelen <= 0)
return (HTTP_URI_BAD_ARGUMENTS);
if (!*uri)
return (HTTP_URI_BAD_URI);
status = HTTP_URI_OK;
if (!strncmp(uri, "//", 2))
{
strlcpy(scheme, "ipp", schemelen);
status = HTTP_URI_MISSING_SCHEME;
}
else if (*uri == '/')
{
strlcpy(scheme, "file", schemelen);
status = HTTP_URI_MISSING_SCHEME;
}
else
{
for (ptr = scheme, end = scheme + schemelen - 1;
*uri && *uri != ':' && ptr < end;)
if (isalnum(*uri & 255) || *uri == '-' || *uri == '+' || *uri == '.')
*ptr++ = *uri++;
else
break;
*ptr = '\0';
if (*uri != ':')
{
*scheme = '\0';
return (HTTP_URI_BAD_SCHEME);
}
uri ++;
}
if (!strcmp(scheme, "http"))
*port = 80;
else if (!strcmp(scheme, "https"))
*port = 443;
else if (!strcmp(scheme, "ipp"))
*port = 631;
else if (!strcasecmp(scheme, "lpd"))
*port = 515;
else if (!strcmp(scheme, "socket"))
*port = 9100;
else if (strcmp(scheme, "file") && strcmp(scheme, "mailto"))
status = HTTP_URI_UNKNOWN_SCHEME;
if (!strncmp(uri, "//", 2))
{
uri += 2;
if ((sep = strpbrk(uri, "@/")) != NULL && *sep == '@')
{
uri = http_copy_decode(username, uri, usernamelen, "@",
decoding & HTTP_URI_CODING_USERNAME);
if (!uri)
{
*username = '\0';
return (HTTP_URI_BAD_USERNAME);
}
uri ++;
}
if (*uri == '[')
{
uri ++;
if (!strncmp(uri, "v1.", 3))
uri += 3;
uri = http_copy_decode(host, uri, hostlen, "]",
decoding & HTTP_URI_CODING_HOSTNAME);
if (!uri)
{
*host = '\0';
return (HTTP_URI_BAD_HOSTNAME);
}
if (*uri != ']')
{
*host = '\0';
return (HTTP_URI_BAD_HOSTNAME);
}
uri ++;
for (ptr = host; *ptr; ptr ++)
if (*ptr == '+')
{
*ptr = '%';
break;
}
else if (*ptr != ':' && *ptr != '.' && !isxdigit(*ptr & 255))
{
*host = '\0';
return (HTTP_URI_BAD_HOSTNAME);
}
}
else
{
for (ptr = (char *)uri; *ptr; ptr ++)
if (strchr(":?/", *ptr))
break;
else if (!strchr("abcdefghijklmnopqrstuvwxyz"
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
"0123456789"
"-._~"
"%"
"!$&'()*+,;=\\", *ptr))
{
*host = '\0';
return (HTTP_URI_BAD_HOSTNAME);
}
uri = http_copy_decode(host, uri, hostlen, ":?/",
decoding & HTTP_URI_CODING_HOSTNAME);
if (!uri)
{
*host = '\0';
return (HTTP_URI_BAD_HOSTNAME);
}
}
if (!strcmp(scheme, "file") && strcmp(host, "localhost") && host[0])
{
*host = '\0';
return (HTTP_URI_BAD_HOSTNAME);
}
if (*uri == ':')
{
*port = strtol(uri + 1, (char **)&uri, 10);
if (*uri != '/' && *uri)
{
*port = 0;
return (HTTP_URI_BAD_PORT);
}
}
}
if (*uri == '?' || !*uri)
{
status = HTTP_URI_MISSING_RESOURCE;
*resource = '/';
if (*uri == '?')
uri = http_copy_decode(resource + 1, uri, resourcelen - 1, NULL,
decoding & HTTP_URI_CODING_QUERY);
else
resource[1] = '\0';
}
else
{
uri = http_copy_decode(resource, uri, resourcelen, "?",
decoding & HTTP_URI_CODING_RESOURCE);
if (uri && *uri == '?')
{
char *resptr = resource + strlen(resource);
uri = http_copy_decode(resptr, uri, resourcelen - (int)(resptr - resource),
NULL, decoding & HTTP_URI_CODING_QUERY);
}
}
if (!uri)
{
*resource = '\0';
return (HTTP_URI_BAD_RESOURCE);
}
return (status);
}
const char *
httpStatus(http_status_t status)
{
switch (status)
{
case HTTP_CONTINUE :
return ("Continue");
case HTTP_SWITCHING_PROTOCOLS :
return ("Switching Protocols");
case HTTP_OK :
return ("OK");
case HTTP_CREATED :
return ("Created");
case HTTP_ACCEPTED :
return ("Accepted");
case HTTP_NO_CONTENT :
return ("No Content");
case HTTP_MOVED_PERMANENTLY :
return ("Moved Permanently");
case HTTP_SEE_OTHER :
return ("See Other");
case HTTP_NOT_MODIFIED :
return ("Not Modified");
case HTTP_BAD_REQUEST :
return ("Bad Request");
case HTTP_UNAUTHORIZED :
return ("Unauthorized");
case HTTP_FORBIDDEN :
return ("Forbidden");
case HTTP_NOT_FOUND :
return ("Not Found");
case HTTP_REQUEST_TOO_LARGE :
return ("Request Entity Too Large");
case HTTP_URI_TOO_LONG :
return ("URI Too Long");
case HTTP_UPGRADE_REQUIRED :
return ("Upgrade Required");
case HTTP_NOT_IMPLEMENTED :
return ("Not Implemented");
case HTTP_NOT_SUPPORTED :
return ("Not Supported");
case HTTP_EXPECTATION_FAILED :
return ("Expectation Failed");
default :
return ("Unknown");
}
}
#ifndef HAVE_HSTRERROR
const char *
_cups_hstrerror(int error)
{
static const char * const errors[] =
{
"OK",
"Host not found.",
"Try again.",
"Unrecoverable lookup error.",
"No data associated with name."
};
if (error < 0 || error > 4)
return ("Unknown hostname lookup error.");
else
return (errors[error]);
}
#endif
static const char *
http_copy_decode(char *dst,
const char *src,
int dstsize,
const char *term,
int decode)
{
char *ptr,
*end;
int quoted;
for (ptr = dst, end = dst + dstsize - 1;
*src && (!term || !strchr(term, *src));
src ++)
if (ptr < end)
{
if (*src == '%' && decode)
{
if (isxdigit(src[1] & 255) && isxdigit(src[2] & 255))
{
src ++;
if (isalpha(*src))
quoted = (tolower(*src) - 'a' + 10) << 4;
else
quoted = (*src - '0') << 4;
src ++;
if (isalpha(*src))
quoted |= tolower(*src) - 'a' + 10;
else
quoted |= *src - '0';
*ptr++ = quoted;
}
else
{
*ptr = '\0';
return (NULL);
}
}
else
*ptr++ = *src;
}
*ptr = '\0';
return (src);
}
static char *
http_copy_encode(char *dst,
const char *src,
char *dstend,
const char *reserved,
const char *term,
int encode)
{
static const char *hex = "0123456789ABCDEF";
while (*src && dst < dstend)
{
if (term && *src == *term)
return (dst);
if (encode && (*src == '%' || *src <= ' ' || *src & 128 ||
(reserved && strchr(reserved, *src))))
{
if ((dst + 2) >= dstend)
break;
*dst++ = '%';
*dst++ = hex[(*src >> 4) & 15];
*dst++ = hex[*src & 15];
src ++;
}
else
*dst++ = *src++;
}
if (*src)
return (NULL);
else
return (dst);
}