d711d8fdee
tcllib dependency, accidentally introduced reference to unfinished work on the generation of locale-independent dates for HTTP-headers. Finish (and unbreak) this work and allow the server to run in non-English/ASCII locales. Changes submitted to the (dormant) vendor.
119 lines
3.3 KiB
C
119 lines
3.3 KiB
C
/*
|
|
* Produce time-stamp in the format suitable for HTTP's Date headers:
|
|
*
|
|
* Date: Sun, 05 Nov 2006 16:18:01 GMT
|
|
* and the Set-Cookie headers:
|
|
* Set-Cookie: .......; expires=Sun, 17-Jan-2038 19:14:07 GMT
|
|
*
|
|
* Although this can, of course, be done from TCL directly ([clock format]),
|
|
* Tcl's method breaks, when the server is running in non-C locale.
|
|
* Regardless of the locale, the Date-header must be in English and
|
|
* this function takes care of that. Plus it is over 4 times faster...
|
|
* Neither asctime() nor gmtime() would not work, because they
|
|
* don't put a coma after the name of the weekday...
|
|
*
|
|
* Each command takes an optional argument specifying the date (in seconds
|
|
* since epoch). If not specified, httpdate assumes the current date, and
|
|
* the cookiedate -- a week from now.
|
|
*
|
|
* Written by Mikhail T. <mi+httpdate@aldan.algebra.com> in search of glory
|
|
* but without ANY AND ALL WARRANTIES OR APPLICABILITIES FOR ANY PURPOSES.
|
|
* Released into the wild under BSD license.
|
|
*
|
|
* Tested on FreeBSD-6.2 against Tcl-8.4. November 2006...
|
|
*/
|
|
|
|
#include <tcl.h>
|
|
#include <sys/time.h>
|
|
#include <errno.h>
|
|
#include <sys/limits.h>
|
|
|
|
/*
|
|
* Using this method of copying short strings as integers instead of
|
|
* relying on memcpy cuts the execution time from 3.53 microseconds to
|
|
* 3.26 microseconds (or 8%) on my Opteron 275. Plus it is fun...
|
|
* It is only safe, because the positions of both the month's name and
|
|
* the weekday happen to be at 4-byte allignment, so the code is safe
|
|
* from SIGBUS on all (?) known platforms...
|
|
*/
|
|
typedef union {
|
|
char string[4];
|
|
#if !defined(CHAR_BIT) || CHAR_BIT == 8
|
|
int32_t intrep;
|
|
#elif CHAR_BIT == 16
|
|
int64_t intrep;
|
|
#else
|
|
# error "Unexpected or unknown value of CHAR_BIT on this system"
|
|
#endif
|
|
} fourcharstring;
|
|
|
|
static const fourcharstring months[] = {
|
|
{ "Jan " }, { "Feb " }, { "Mar " }, { "Apr " }, { "May " }, { "Jun " },
|
|
{ "Jul " }, { "Aug " }, { "Sep " }, { "Oct " }, { "Nov " }, { "Dec " }
|
|
};
|
|
|
|
static const fourcharstring weekdays[] = {
|
|
{ "Sun," }, { "Mon," }, { "Tue," }, { "Wed," }, { "Thu," },
|
|
{ "Fri," }, { "Sat," }
|
|
};
|
|
|
|
enum {
|
|
HTTPDATE,
|
|
COOKIEDATE
|
|
};
|
|
|
|
static int
|
|
httpdate(ClientData flavour, Tcl_Interp *I, int argc, Tcl_Obj *CONST objv[])
|
|
{
|
|
union {
|
|
fourcharstring fields[7];
|
|
char date[30];
|
|
} date;
|
|
struct tm tm;
|
|
time_t tSec;
|
|
Tcl_WideInt wSec;
|
|
|
|
switch (argc) {
|
|
case 1:
|
|
time(&tSec);
|
|
if ((intptr_t)flavour == COOKIEDATE)
|
|
/* Default for cookies is a week from now */
|
|
tSec += 7*24*60*60;
|
|
break;
|
|
case 2:
|
|
if (Tcl_GetWideIntFromObj(I, objv[1], &wSec) != TCL_OK)
|
|
return TCL_ERROR;
|
|
tSec = wSec;
|
|
break;
|
|
default:
|
|
Tcl_WrongNumArgs(I, 1, objv, "?GMT-seconds?");
|
|
return TCL_ERROR;
|
|
}
|
|
gmtime_r(&tSec, &tm);
|
|
|
|
sprintf(date.date + 4, " %02d XXX %d %02d:%02d:%02d GMT",
|
|
tm.tm_mday, tm.tm_year + 1900, tm.tm_hour,
|
|
tm.tm_min, tm.tm_sec);
|
|
|
|
/*
|
|
* Now deal with our 4-character strings
|
|
*/
|
|
date.fields[0].intrep = weekdays[tm.tm_wday].intrep;
|
|
date.fields[2].intrep = months[tm.tm_mon].intrep;
|
|
|
|
if ((intptr_t)flavour == COOKIEDATE)
|
|
date.date[7] = date.date[11] = '-';
|
|
|
|
Tcl_SetObjResult(I, Tcl_NewStringObj(date.date, 29));
|
|
|
|
return TCL_OK;
|
|
}
|
|
|
|
int
|
|
Httpdate_Init(Tcl_Interp *I)
|
|
{
|
|
Tcl_CreateObjCommand(I, "HttpdDate", httpdate, (void *)HTTPDATE, NULL);
|
|
Tcl_CreateObjCommand(I, "cookiedate", httpdate, (void *)COOKIEDATE, NULL);
|
|
|
|
return TCL_OK;
|
|
}
|