1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
/*
* 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;
}
|
