--- /dev/null
+#include <time.h>
+#include <pthread.h>
+#include <errno.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+int getdate_err;
+
+struct tm *getdate(const char *s)
+{
+ static struct tm tmbuf;
+ struct tm *ret = 0;
+ char *datemsk = getenv("DATEMSK");
+ FILE *f = 0;
+ char fmt[100], *p;
+ int cs;
+
+ pthread_setcancelstate(PTHREAD_CANCEL_DEFERRED, &cs);
+
+ if (!datemsk) {
+ getdate_err = 1;
+ goto out;
+ }
+
+ f = fopen(datemsk, "r");
+ if (!f) {
+ if (errno == ENOMEM) getdate_err = 6;
+ else getdate_err = 2;
+ goto out;
+ }
+
+ while (fgets(fmt, sizeof fmt, f)) {
+ p = strptime(s, fmt, &tmbuf);
+dprintf(2, "%s %s\n", s, fmt);
+dprintf(2, "%p %d\n", p, p?*p:0);
+ if (p && !*p) {
+ ret = &tmbuf;
+ goto out;
+ }
+ }
+
+ getdate_err = 7;
+out:
+ if (f) fclose(f);
+ pthread_setcancelstate(cs, 0);
+ return ret;
+}