/* Copyright (C) 2002 Timo Sirainen */

#include "lib.h"
#include "mbox-index.h"

#include <time.h>
#include <ctype.h>

static const char *weekdays[] = {
	"Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
};

static const char *months[] = {
	"Jan", "Feb", "Mar", "Apr", "May", "Jun",
	"Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
};

time_t mbox_from_parse_date(const char *msg, unsigned int size)
{
	const char *msg_end;
	struct tm tm;
	int i;

	i_assert(size > 5);

	/* From <sender> <date> <moreinfo> */
	if (strncmp(msg, "From ", 5) != 0)
		return 0;

	msg_end = msg + size;

	/* skip sender */
	msg += 5;
	while (*msg != ' ' && msg < msg_end) msg++;
	while (*msg == ' ' && msg < msg_end) msg++;

	/* next 24 chars are the date in asctime() format,
	   eg. "Thu Nov 29 22:33:52 2001" */
	if (msg+24 > msg_end)
		return 0;

	memset(&tm, 0, sizeof(tm));

	/* skip weekday */
	msg += 4;

	/* month */
	for (i = 0; i < 12; i++) {
		if (strncasecmp(months[i], msg, 3) == 0) {
			tm.tm_mon = i;
			break;
		}
	}

	if (i == 12 || msg[3] != ' ')
		return 0;
	msg += 4;

	/* day */
	if (!i_isdigit(msg[0]) || !i_isdigit(msg[1]) || msg[2] != ' ')
		return 0;
	tm.tm_mday = (msg[0]-'0') * 10 + (msg[1]-'0');
	msg += 3;

	/* hour */
	if (!i_isdigit(msg[0]) || !i_isdigit(msg[1]) || msg[2] != ':')
		return 0;
	tm.tm_hour = (msg[0]-'0') * 10 + (msg[1]-'0');
	msg += 3;

	/* minute */
	if (!i_isdigit(msg[0]) || !i_isdigit(msg[1]) || msg[2] != ':')
		return 0;
	tm.tm_min = (msg[0]-'0') * 10 + (msg[1]-'0');
	msg += 3;

	/* second */
	if (!i_isdigit(msg[0]) || !i_isdigit(msg[1]) || msg[2] != ' ')
		return 0;
	tm.tm_sec = (msg[0]-'0') * 10 + (msg[1]-'0');
	msg += 3;

	/* year */
	if (!i_isdigit(msg[0]) || !i_isdigit(msg[1]) ||
	    !i_isdigit(msg[2]) || !i_isdigit(msg[3]))
		return 0;
	tm.tm_year = (msg[0]-'0') * 1000 + (msg[1]-'0') * 100 +
		(msg[2]-'0') * 10 + (msg[3]-'0') - 1900;

	tm.tm_isdst = -1;
	return mktime(&tm);
}

const char *mbox_from_create(const char *sender, time_t time)
{
	struct tm *tm;
	char *ret, *p;
	unsigned int len, year;

	len = strlen(sender);
	ret = t_malloc(len + 24 + 1);
	memcpy(ret, sender, len);

	/* we could use simply asctime(), but i18n etc. may break it.
	   Example: "Thu Nov 29 22:33:52 2001" */
	tm = localtime(&time);
	p = ret + len;

	/* week day */
	strcpy(p, weekdays[tm->tm_wday]); p += 3;
	*p++ = ' ';

	/* month */
	strcpy(p, months[tm->tm_mon]); p += 3;
	*p++ = ' ';

	/* day */
	*p++ = (tm->tm_mday / 10) + '0';
	*p++ = (tm->tm_mday % 10) + '0';
	*p++ = ' ';

	/* hour */
	*p++ = (tm->tm_hour / 10) + '0';
	*p++ = (tm->tm_hour % 10) + '0';
	*p++ = ':';

	/* minute */
	*p++ = (tm->tm_min / 10) + '0';
	*p++ = (tm->tm_min % 10) + '0';
	*p++ = ':';

	/* second */
	*p++ = (tm->tm_sec / 10) + '0';
	*p++ = (tm->tm_sec % 10) + '0';
	*p++ = ' ';

	/* year */
	year = tm->tm_year + 1900;
	*p++ = (year / 1000) + '0';
	*p++ = ((year / 100) % 10) + '0';
	*p++ = ((year / 10) % 10) + '0';
	*p++ = (year % 10) + '0';

	*p++ = '\0';
	return ret;
}