#define CORE_PRIVATE

#include "ap_config.h"

#include "util_date.h"

#ifdef HAVE_CTYPE_H

#include <ctype.h>

#endif

#ifdef HAVE_STRING_H

#include <string.h>

#endif

API_EXPORT(int) ap_checkmask(const char *data, const char *mask)

{

int i;

char d;

for (i = 0; i < 256; i++) {

d = data[i];

switch (mask[i]) {

case '\0':

return (d == '\0');

case '*':

return 1;

case '@':

if (!apr_isupper(d))

return 0;

break;

case '$':

if (!apr_islower(d))

return 0;

break;

case '#':

if (!apr_isdigit(d))

return 0;

break;

case '&':

if (!apr_isxdigit(d))

return 0;

break;

case '~':

if ((d != ' ') && !apr_isdigit(d))

return 0;

break;

default:

if (mask[i] != d)

return 0;

break;

}

}

return 0; /* We only get here if mask is corrupted (exceeds 256) */

}

API_EXPORT(apr_time_t) ap_parseHTTPdate(const char *date)

{

apr_exploded_time_t ds;

apr_time_t result;

int mint, mon;

const char *monstr, *timstr;

static const int months[12] =

{

('J' << 16) | ('a' << 8) | 'n', ('F' << 16) | ('e' << 8) | 'b',

('M' << 16) | ('a' << 8) | 'r', ('A' << 16) | ('p' << 8) | 'r',

('M' << 16) | ('a' << 8) | 'y', ('J' << 16) | ('u' << 8) | 'n',

('J' << 16) | ('u' << 8) | 'l', ('A' << 16) | ('u' << 8) | 'g',

('S' << 16) | ('e' << 8) | 'p', ('O' << 16) | ('c' << 8) | 't',

('N' << 16) | ('o' << 8) | 'v', ('D' << 16) | ('e' << 8) | 'c'};

if (!date)

return BAD_DATE;

while (*date && apr_isspace(*date)) /* Find first non-whitespace char */

++date;

if (*date == '\0')

return BAD_DATE;

if ((date = strchr(date, ' ')) == NULL) /* Find space after weekday */

return BAD_DATE;

++date; /* Now pointing to first char after space, which should be */

/* start of the actual date information for all 3 formats. */

if (ap_checkmask(date, "## @$$ #### ##:##:## *")) { /* RFC 1123 format */

ds.tm_year = ((date[7] - '0') * 10 + (date[8] - '0') - 19) * 100;

if (ds.tm_year < 0)

return BAD_DATE;

ds.tm_year += ((date[9] - '0') * 10) + (date[10] - '0');

ds.tm_mday = ((date[0] - '0') * 10) + (date[1] - '0');

monstr = date + 3;

timstr = date + 12;

}

else if (ap_checkmask(date, "##-@$$-## ##:##:## *")) { /* RFC 850 format */

ds.tm_year = ((date[7] - '0') * 10) + (date[8] - '0');

if (ds.tm_year < 70)

ds.tm_year += 100;

ds.tm_mday = ((date[0] - '0') * 10) + (date[1] - '0');

monstr = date + 3;

timstr = date + 10;

}

else if (ap_checkmask(date, "@$$ ~# ##:##:## ####*")) { /* asctime format */

ds.tm_year = ((date[16] - '0') * 10 + (date[17] - '0') - 19) * 100;

if (ds.tm_year < 0)

return BAD_DATE;

ds.tm_year += ((date[18] - '0') * 10) + (date[19] - '0');

if (date[4] == ' ')

ds.tm_mday = 0;

else

ds.tm_mday = (date[4] - '0') * 10;

ds.tm_mday += (date[5] - '0');

monstr = date;

timstr = date + 7;

}

else

return BAD_DATE;

if (ds.tm_mday <= 0 || ds.tm_mday > 31)

return BAD_DATE;

ds.tm_hour = ((timstr[0] - '0') * 10) + (timstr[1] - '0');

ds.tm_min = ((timstr[3] - '0') * 10) + (timstr[4] - '0');

ds.tm_sec = ((timstr[6] - '0') * 10) + (timstr[7] - '0');

if ((ds.tm_hour > 23) || (ds.tm_min > 59) || (ds.tm_sec > 61))

return BAD_DATE;

mint = (monstr[0] << 16) | (monstr[1] << 8) | monstr[2];

for (mon = 0; mon < 12; mon++)

if (mint == months[mon])

break;

if (mon == 12)

return BAD_DATE;

if ((ds.tm_mday == 31) && (mon == 3 || mon == 5 || mon == 8 || mon == 10))

return BAD_DATE;

/* February gets special check for leapyear */

if ((mon == 1) &&

((ds.tm_mday > 29)

|| ((ds.tm_mday == 29)

&& ((ds.tm_year & 3)

|| (((ds.tm_year % 100) == 0)

&& (((ds.tm_year % 400) != 100)))))))

return BAD_DATE;

ds.tm_mon = mon;

/* ap_mplode_time uses tm_usec and tm_gmtoff fields, but they haven't

ds.tm_usec = 0;

ds.tm_gmtoff = 0;

if (apr_implode_time(&result, &ds) != APR_SUCCESS)

return BAD_DATE;

return result;

}