1 files changed, 119 insertions, 0 deletions

diff --git a/www/tclhttpd/files/httpdate.c b/www/tclhttpd/files/httpdate.c
new file mode 100644
index 000000000000..2a34809ff9f4
--- /dev/null
+++ b/www/tclhttpd/files/httpdate.c
@@ -0,0 +1,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;
+}