#include "ap_config.h"

#include "util_date.h"

#include <ctype.h>

#include <string.h>

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 (!ap_isupper(d))

return 0;

break;

case '$':

if (!ap_islower(d))

return 0;

break;

case '#':

if (!ap_isdigit(d))

return 0;

break;

case '&':

if (!ap_isxdigit(d))

return 0;

break;

case '~':

if ((d != ' ') && !ap_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(time_t) ap_tm2sec(const struct tm * t)

{

int year;

time_t days;

static const int dayoffset[12] =

{306, 337, 0, 31, 61, 92, 122, 153, 184, 214, 245, 275};

year = t->tm_year;

if (year < 70 || ((sizeof(time_t) <= 4) && (year >= 138)))

return BAD_DATE;

/* shift new year to 1st March in order to make leap year calc easy */

if (t->tm_mon < 2)

year--;

/* Find number of days since 1st March 1900 (in the Gregorian calendar). */

days = year * 365 + year / 4 - year / 100 + (year / 100 + 3) / 4;

days += dayoffset[t->tm_mon] + t->tm_mday - 1;

days -= 25508; /* 1 jan 1970 is 25508 days since 1 mar 1900 */

days = ((days * 24 + t->tm_hour) * 60 + t->tm_min) * 60 + t->tm_sec;

if (days < 0)

return BAD_DATE; /* must have overflowed */

else

return days; /* must be a valid time */

}

API_EXPORT(time_t) ap_parseHTTPdate(const char *date)

{

struct tm ds;

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 && ap_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;

return ap_tm2sec(&ds);

}