#include "setup.h"
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#ifdef HAVE_STDLIB_H
#include <stdlib.h>
#endif
#include <curl/curl.h>
static time_t Curl_parsedate(const char *date);
const char * const Curl_wkday[] =
{"Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun"};
static const char * const weekday[] =
{ "Monday", "Tuesday", "Wednesday", "Thursday",
"Friday", "Saturday", "Sunday" };
const char * const Curl_month[]=
{ "Jan", "Feb", "Mar", "Apr", "May", "Jun",
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec" };
struct tzinfo {
const char *name;
int offset;
};
static const struct tzinfo tz[]= {
{"GMT", 0},
{"UTC", 0},
{"WET", 0},
{"BST", 0},
{"WAT", 60},
{"AST", 240},
{"ADT", 240},
{"EST", 300},
{"EDT", 300},
{"CST", 360},
{"CDT", 360},
{"MST", 420},
{"MDT", 420},
{"PST", 480},
{"PDT", 480},
{"YST", 540},
{"YDT", 540},
{"HST", 600},
{"HDT", 600},
{"CAT", 600},
{"AHST", 600},
{"NT", 660},
{"IDLW", 720},
{"CET", -60},
{"MET", -60},
{"MEWT", -60},
{"MEST", -120},
{"CEST", -120},
{"MESZ", -60},
{"FWT", -60},
{"FST", -60},
{"EET", -120},
{"WAST", -420},
{"WADT", -420},
{"CCT", -480},
{"JST", -540},
{"EAST", -600},
{"EADT", -600},
{"GST", -600},
{"NZT", -720},
{"NZST", -720},
{"NZDT", -720},
{"IDLE", -720},
};
static int checkday(char *check, size_t len)
{
int i;
const char * const *what;
bool found= FALSE;
if(len > 3)
what = &weekday[0];
else
what = &Curl_wkday[0];
for(i=0; i<7; i++) {
if(curl_strequal(check, what[0])) {
found=TRUE;
break;
}
what++;
}
return found?i:-1;
}
static int checkmonth(char *check)
{
int i;
const char * const *what;
bool found= FALSE;
what = &Curl_month[0];
for(i=0; i<12; i++) {
if(curl_strequal(check, what[0])) {
found=TRUE;
break;
}
what++;
}
return found?i:-1;
}
static int checktz(char *check)
{
unsigned int i;
const struct tzinfo *what;
bool found= FALSE;
what = tz;
for(i=0; i< sizeof(tz)/sizeof(tz[0]); i++) {
if(curl_strequal(check, what->name)) {
found=TRUE;
break;
}
what++;
}
return found?what->offset*60:-1;
}
static void skip(const char **date)
{
while(**date && !isalnum((int)**date))
(*date)++;
}
enum assume {
DATE_MDAY,
DATE_YEAR,
DATE_TIME
};
static time_t Curl_parsedate(const char *date)
{
time_t t = 0;
int wdaynum=-1;
int monnum=-1;
int mdaynum=-1;
int hournum=-1;
int minnum=-1;
int secnum=-1;
int yearnum=-1;
int tzoff=-1;
struct tm tm;
enum assume dignext = DATE_MDAY;
const char *indate = date;
int part = 0;
while(*date && (part < 6)) {
bool found=FALSE;
skip(&date);
if(isalpha((int)*date)) {
char buf[32]="";
size_t len;
sscanf(date, "%31[A-Za-z]", buf);
len = strlen(buf);
if(wdaynum == -1) {
wdaynum = checkday(buf, len);
if(wdaynum != -1)
found = TRUE;
}
if(!found && (monnum == -1)) {
monnum = checkmonth(buf);
if(monnum != -1)
found = TRUE;
}
if(!found && (tzoff == -1)) {
tzoff = checktz(buf);
if(tzoff != -1)
found = TRUE;
}
if(!found)
return -1;
date += len;
}
else if(isdigit((int)*date)) {
int val;
char *end;
if((secnum == -1) &&
(3 == sscanf(date, "%02d:%02d:%02d", &hournum, &minnum, &secnum))) {
date += 8;
found = TRUE;
}
else {
val = (int)strtol(date, &end, 10);
if((tzoff == -1) &&
((end - date) == 4) &&
(val < 1300) &&
(indate< date) &&
((date[-1] == '+' || date[-1] == '-'))) {
found = TRUE;
tzoff = (val/100 * 60 + val%100)*60;
tzoff = date[-1]=='+'?-tzoff:tzoff;
}
if(((end - date) == 8) &&
(yearnum == -1) &&
(monnum == -1) &&
(mdaynum == -1)) {
found = TRUE;
yearnum = val/10000;
monnum = (val%10000)/100-1;
mdaynum = val%100;
}
if(!found && (dignext == DATE_MDAY) && (mdaynum == -1)) {
if((val > 0) && (val<32)) {
mdaynum = val;
found = TRUE;
}
dignext = DATE_YEAR;
}
if(!found && (dignext == DATE_YEAR) && (yearnum == -1)) {
yearnum = val;
found = TRUE;
if(yearnum < 1900) {
if (yearnum > 70)
yearnum += 1900;
else
yearnum += 2000;
}
if(mdaynum == -1)
dignext = DATE_MDAY;
}
if(!found)
return -1;
date = end;
}
}
part++;
}
if(-1 == secnum)
secnum = minnum = hournum = 0;
if((-1 == mdaynum) ||
(-1 == monnum) ||
(-1 == yearnum))
return -1;
#if SIZEOF_TIME_T < 5
if(yearnum > 2037)
return 0x7fffffff;
#endif
tm.tm_sec = secnum;
tm.tm_min = minnum;
tm.tm_hour = hournum;
tm.tm_mday = mdaynum;
tm.tm_mon = monnum;
tm.tm_year = yearnum - 1900;
tm.tm_wday = 0;
tm.tm_yday = 0;
tm.tm_isdst = 0;
t = mktime(&tm);
{
struct tm *gmt;
long delta;
time_t t2;
#ifdef HAVE_GMTIME_R
struct tm keeptime2;
gmt = (struct tm *)gmtime_r(&t, &keeptime2);
#else
gmt = gmtime(&t);
#endif
if(!gmt)
return -1;
t2 = mktime(gmt);
delta = (tzoff!=-1?tzoff:0) + (t - t2);
if((delta>0) && (t + delta < t))
return -1;
t += delta;
}
return t;
}
time_t curl_getdate(const char *p, const time_t *now)
{
(void)now;
return Curl_parsedate(p);
}