* more modular file structure
[m6w6/ext-http] / http_date_api.c
diff --git a/http_date_api.c b/http_date_api.c
new file mode 100644 (file)
index 0000000..fc67a89
--- /dev/null
@@ -0,0 +1,348 @@
+/*
+   +----------------------------------------------------------------------+
+   | PECL :: http                                                         |
+   +----------------------------------------------------------------------+
+   | This source file is subject to version 3.0 of the PHP license, that  |
+   | is bundled with this package in the file LICENSE, and is available   |
+   | through the world-wide-web at http://www.php.net/license/3_0.txt.    |
+   | If you did not receive a copy of the PHP license and are unable to   |
+   | obtain it through the world-wide-web, please send a note to          |
+   | license@php.net so we can mail you a copy immediately.               |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 2004-2005 Michael Wallner <mike@php.net>               |
+   +----------------------------------------------------------------------+
+*/
+
+/* $Id$ */
+
+#ifdef HAVE_CONFIG_H
+#      include "config.h"
+#endif
+
+#include <ctype.h>
+
+#include "php.h"
+#include "php_http.h"
+#include "php_http_std_defs.h"
+
+static int check_day(char *day, size_t len);
+static int check_month(char *month);
+static int check_tzone(char *tzone);
+
+/* {{{ day/month names */
+static const char *days[] = {
+       "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
+};
+static const char *wkdays[] = {
+       "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun"
+};
+static const char *weekdays[] = {
+       "Monday", "Tuesday", "Wednesday",
+       "Thursday", "Friday", "Saturday", "Sunday"
+};
+static const char *months[] = {
+       "Jan", "Feb", "Mar", "Apr", "May", "Jun",
+       "Jul", "Aug", "Sep", "Okt", "Nov", "Dec"
+};
+enum assume_next {
+       DATE_MDAY,
+       DATE_YEAR,
+       DATE_TIME
+};
+static const struct time_zone {
+       const char *name;
+       const int offset;
+} time_zones[] = {
+    {"GMT", 0},     /* Greenwich Mean */
+    {"UTC", 0},     /* Universal (Coordinated) */
+    {"WET", 0},     /* Western European */
+    {"BST", 0},     /* British Summer */
+    {"WAT", 60},    /* West Africa */
+    {"AST", 240},   /* Atlantic Standard */
+    {"ADT", 240},   /* Atlantic Daylight */
+    {"EST", 300},   /* Eastern Standard */
+    {"EDT", 300},   /* Eastern Daylight */
+    {"CST", 360},   /* Central Standard */
+    {"CDT", 360},   /* Central Daylight */
+    {"MST", 420},   /* Mountain Standard */
+    {"MDT", 420},   /* Mountain Daylight */
+    {"PST", 480},   /* Pacific Standard */
+    {"PDT", 480},   /* Pacific Daylight */
+    {"YST", 540},   /* Yukon Standard */
+    {"YDT", 540},   /* Yukon Daylight */
+    {"HST", 600},   /* Hawaii Standard */
+    {"HDT", 600},   /* Hawaii Daylight */
+    {"CAT", 600},   /* Central Alaska */
+    {"AHST", 600},  /* Alaska-Hawaii Standard */
+    {"NT",  660},   /* Nome */
+    {"IDLW", 720},  /* International Date Line West */
+    {"CET", -60},   /* Central European */
+    {"MET", -60},   /* Middle European */
+    {"MEWT", -60},  /* Middle European Winter */
+    {"MEST", -120}, /* Middle European Summer */
+    {"CEST", -120}, /* Central European Summer */
+    {"MESZ", -60},  /* Middle European Summer */
+    {"FWT", -60},   /* French Winter */
+    {"FST", -60},   /* French Summer */
+    {"EET", -120},  /* Eastern Europe, USSR Zone 1 */
+    {"WAST", -420}, /* West Australian Standard */
+    {"WADT", -420}, /* West Australian Daylight */
+    {"CCT", -480},  /* China Coast, USSR Zone 7 */
+    {"JST", -540},  /* Japan Standard, USSR Zone 8 */
+    {"EAST", -600}, /* Eastern Australian Standard */
+    {"EADT", -600}, /* Eastern Australian Daylight */
+    {"GST", -600},  /* Guam Standard, USSR Zone 9 */
+    {"NZT", -720},  /* New Zealand */
+    {"NZST", -720}, /* New Zealand Standard */
+    {"NZDT", -720}, /* New Zealand Daylight */
+    {"IDLE", -720}, /* International Date Line East */
+};
+/* }}} */
+
+/* {{{ Day/Month/TZ checks for http_parse_date()
+       Originally by libcurl, Copyright (C) 1998 - 2004, Daniel Stenberg, <daniel@haxx.se>, et al. */
+static int check_day(char *day, size_t len)
+{
+       int i;
+       const char * const *check = (len > 3) ? &weekdays[0] : &wkdays[0];
+       for (i = 0; i < 7; i++) {
+           if (!strcmp(day, check[0])) {
+               return i;
+               }
+               check++;
+       }
+       return -1;
+}
+
+static int check_month(char *month)
+{
+       int i;
+       const char * const *check = &months[0];
+       for (i = 0; i < 12; i++) {
+               if (!strcmp(month, check[0])) {
+                       return i;
+               }
+               check++;
+       }
+       return -1;
+}
+
+/* return the time zone offset between GMT and the input one, in number
+   of seconds or -1 if the timezone wasn't found/legal */
+
+static int check_tzone(char *tzone)
+{
+       int i;
+       const struct time_zone *check = time_zones;
+       for (i = 0; i < sizeof(time_zones) / sizeof(time_zones[0]); i++) {
+               if (!strcmp(tzone, check->name)) {
+                       return check->offset * 60;
+               }
+               check++;
+       }
+       return -1;
+}
+/* }}} */
+
+/* {{{ char *http_date(time_t) */
+PHP_HTTP_API char *_http_date(time_t t TSRMLS_DC)
+{
+       struct tm *gmtime, tmbuf;
+
+       if (gmtime = php_gmtime_r(&t, &tmbuf)) {
+               char *date = ecalloc(1, 31);
+               snprintf(date, 30,
+                       "%s, %02d %s %04d %02d:%02d:%02d GMT",
+                       days[gmtime->tm_wday], gmtime->tm_mday,
+                       months[gmtime->tm_mon], gmtime->tm_year + 1900,
+                       gmtime->tm_hour, gmtime->tm_min, gmtime->tm_sec
+               );
+               return date;
+       }
+
+       return NULL;
+}
+/* }}} */
+
+/* {{{ time_t http_parse_date(char *)
+       Originally by libcurl, Copyright (C) 1998 - 2004, Daniel Stenberg, <daniel@haxx.se>, et al. */
+PHP_HTTP_API time_t _http_parse_date(const char *date)
+{
+       time_t t = 0;
+       int tz_offset = -1, year = -1, month = -1, monthday = -1, weekday = -1,
+               hours = -1, minutes = -1, seconds = -1;
+       struct tm tm;
+       enum assume_next dignext = DATE_MDAY;
+       const char *indate = date;
+
+       int found = 0, part = 0; /* max 6 parts */
+
+       while (*date && (part < 6)) {
+               int found = 0;
+
+               while (*date && !isalnum(*date)) {
+                       date++;
+               }
+
+               if (isalpha(*date)) {
+                       /* a name coming up */
+                       char buf[32] = "";
+                       size_t len;
+                       sscanf(date, "%31[A-Za-z]", buf);
+                       len = strlen(buf);
+
+                       if (weekday == -1) {
+                               weekday = check_day(buf, len);
+                               if (weekday != -1) {
+                                       found = 1;
+                               }
+                       }
+
+                       if (!found && (month == -1)) {
+                               month = check_month(buf);
+                               if (month != -1) {
+                                       found = 1;
+                               }
+                       }
+
+                       if (!found && (tz_offset == -1)) {
+                               /* this just must be a time zone string */
+                               tz_offset = check_tzone(buf);
+                               if (tz_offset != -1) {
+                                       found = 1;
+                               }
+                       }
+
+                       if (!found) {
+                               return -1; /* bad string */
+                       }
+                       date += len;
+               }
+               else if (isdigit(*date)) {
+                       /* a digit */
+                       int val;
+                       char *end;
+                       if ((seconds == -1) &&
+                               (3 == sscanf(date, "%02d:%02d:%02d", &hours, &minutes, &seconds))) {
+                               /* time stamp! */
+                               date += 8;
+                               found = 1;
+                       }
+                       else {
+                               val = (int) strtol(date, &end, 10);
+
+                               if ((tz_offset == -1) && ((end - date) == 4) && (val < 1300) &&
+                                       (indate < date) && ((date[-1] == '+' || date[-1] == '-'))) {
+                                       /* four digits and a value less than 1300 and it is preceeded with
+                                       a plus or minus. This is a time zone indication. */
+                                       found = 1;
+                                       tz_offset = (val / 100 * 60 + val % 100) * 60;
+
+                                       /* the + and - prefix indicates the local time compared to GMT,
+                                       this we need ther reversed math to get what we want */
+                                       tz_offset = date[-1] == '+' ? -tz_offset : tz_offset;
+                               }
+
+                               if (((end - date) == 8) && (year == -1) && (month == -1) && (monthday == -1)) {
+                                       /* 8 digits, no year, month or day yet. This is YYYYMMDD */
+                                       found = 1;
+                                       year = val / 10000;
+                                       month = (val % 10000) / 100 - 1; /* month is 0 - 11 */
+                                       monthday = val % 100;
+                               }
+
+                               if (!found && (dignext == DATE_MDAY) && (monthday == -1)) {
+                                       if ((val > 0) && (val < 32)) {
+                                               monthday = val;
+                                               found = 1;
+                                       }
+                                       dignext = DATE_YEAR;
+                               }
+
+                               if (!found && (dignext == DATE_YEAR) && (year == -1)) {
+                                       year = val;
+                                       found = 1;
+                                       if (year < 1900) {
+                                               year += year > 70 ? 1900 : 2000;
+                                       }
+                                       if(monthday == -1) {
+                                               dignext = DATE_MDAY;
+                                       }
+                               }
+
+                               if (!found) {
+                                       return -1;
+                               }
+
+                               date = end;
+                       }
+               }
+
+               part++;
+       }
+
+       if (-1 == seconds) {
+               seconds = minutes = hours = 0; /* no time, make it zero */
+       }
+
+       if ((-1 == monthday) || (-1 == month) || (-1 == year)) {
+               /* lacks vital info, fail */
+               return -1;
+       }
+
+       if (sizeof(time_t) < 5) {
+               /* 32 bit time_t can only hold dates to the beginning of 2038 */
+               if (year > 2037) {
+                       return 0x7fffffff;
+               }
+       }
+
+       tm.tm_sec = seconds;
+       tm.tm_min = minutes;
+       tm.tm_hour = hours;
+       tm.tm_mday = monthday;
+       tm.tm_mon = month;
+       tm.tm_year = year - 1900;
+       tm.tm_wday = 0;
+       tm.tm_yday = 0;
+       tm.tm_isdst = 0;
+
+       t = mktime(&tm);
+
+       /* time zone adjust */
+       if (t != -1) {
+               struct tm *gmt, keeptime2;
+               long delta;
+               time_t t2;
+
+               if(!(gmt = php_gmtime_r(&t, &keeptime2))) {
+                       return -1; /* illegal date/time */
+               }
+
+               t2 = mktime(gmt);
+
+               /* Add the time zone diff (between the given timezone and GMT) and the
+               diff between the local time zone and GMT. */
+               delta = (tz_offset != -1 ? tz_offset : 0) + (t - t2);
+
+               if((delta > 0) && (t + delta < t)) {
+                       return -1; /* time_t overflow */
+               }
+
+               t += delta;
+       }
+
+       return t;
+}
+/* }}} */
+
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * End:
+ * vim600: sw=4 ts=4 fdm=marker
+ * vim<600: sw=4 ts=4
+ */
+