/*
* Copyright (C) 1996-2000,2013 Michael R. Elkins <me@mutt.org>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*/
#if HAVE_CONFIG_H
# include "config.h"
#endif
#include "mutt.h"
#include <ctype.h>
#include <string.h>
#include <time.h>
static const char *next_word (const char *s)
{
while (*s && !ISSPACE (*s))
s++;
SKIPWS (s);
return s;
}
int mutt_check_month (const char *s)
{
int i;
for (i = 0; i < 12; i++)
if (mutt_strncasecmp (s, Months[i], 3) == 0)
return (i);
return (-1); /* error */
}
static int is_day_name (const char *s)
{
int i;
if ((strlen (s) < 3) || !*(s + 3) || !ISSPACE (*(s+3)))
return 0;
for (i=0; i<7; i++)
if (mutt_strncasecmp (s, Weekdays[i], 3) == 0)
return 1;
return 0;
}
/*
* A valid message separator looks like:
*
* From [ <return-path> ] <weekday> <month> <day> <time> [ <timezone> ] <year>
*/
int is_from (const char *s, char *path, size_t pathlen, time_t *tp)
{
struct tm tm;
int yr;
if (path)
*path = 0;
if (mutt_strncmp ("From ", s, 5) != 0)
return 0;
s = next_word (s); /* skip over the From part. */
if (!*s)
return 0;
dprint (3, (debugfile, "\nis_from(): parsing: %s", s));
if (!is_day_name (s))
{
const char *p;
size_t len;
short q = 0;
for (p = s; *p && (q || !ISSPACE (*p)); p++)
{
if (*p == '\\')
{
if (*++p == '\0')
return 0;
}
else if (*p == '"')
{
q = !q;
}
}
if (q || !*p) return 0;
/* pipermail archives have the return_path obscured such as "me at mutt.org" */
if (ascii_strncasecmp(p, " at ", 4) == 0)
{
p = strchr(p + 4, ' ');
if (!p)
{
dprint (1, (debugfile, "is_from(): error parsing what appears to be a pipermail-style obscured return_path: %s\n", s));
return 0;
}
}
if (path)
{
len = (size_t) (p - s);
if (len + 1 > pathlen)
len = pathlen - 1;
memcpy (path, s, len);
path[len] = 0;
dprint (3, (debugfile, "is_from(): got return path: %s\n", path));
}
s = p + 1;
SKIPWS (s);
if (!*s)
return 0;
if (!is_day_name (s))
{
dprint(1, (debugfile, "is_from(): expected weekday, got: %s\n", s));
return 0;
}
}
s = next_word (s);
if (!*s) return 0;
/* do a quick check to make sure that this isn't really the day of the week.
* this could happen when receiving mail from a local user whose login name
* is the same as a three-letter abbreviation of the day of the week.
*/
if (is_day_name (s))
{
s = next_word (s);
if (!*s) return 0;
}
/* now we should be on the month. */
if ((tm.tm_mon = mutt_check_month (s)) < 0) return 0;
/* day */
s = next_word (s);
if (!*s) return 0;
if (sscanf (s, "%d", &tm.tm_mday) != 1) return 0;
/* time */
s = next_word (s);
if (!*s) return 0;
/* Accept either HH:MM or HH:MM:SS */
if (sscanf (s, "%d:%d:%d", &tm.tm_hour, &tm.tm_min, &tm.tm_sec) == 3);
else if (sscanf (s, "%d:%d", &tm.tm_hour, &tm.tm_min) == 2)
tm.tm_sec = 0;
else
return 0;
s = next_word (s);
if (!*s) return 0;
/* timezone? */
if (isalpha ((unsigned char) *s) || *s == '+' || *s == '-')
{
s = next_word (s);
if (!*s) return 0;
/*
* some places have two timezone fields after the time, e.g.
* From xxxx@yyyyyyy.fr Wed Aug 2 00:39:12 MET DST 1995
*/
if (isalpha ((unsigned char) *s))
{
s = next_word (s);
if (!*s) return 0;
}
}
/* year */
if (sscanf (s, "%d", &yr) != 1 || yr < 0) return 0;
tm.tm_year = yr > 1900 ? yr - 1900 : (yr < 70 ? yr + 100 : yr);
dprint (3,(debugfile, "is_from(): month=%d, day=%d, hr=%d, min=%d, sec=%d, yr=%d.\n",
tm.tm_mon, tm.tm_mday, tm.tm_hour, tm.tm_min, tm.tm_sec, tm.tm_year));
tm.tm_isdst = -1;
if (tp) *tp = mutt_mktime (&tm, 0);
return 1;
}
/* An internal implementation of the ctime() system call, which is
* marked obsolescent by POSIX.
*
* The snprintf format string is used in the POSIX guide ctime
* example, and also by glibc.
*/
const char *mutt_ctime (const time_t *t)
{
static char result[42];
const struct tm *local_tp;
int rc;
if (!t)
goto bail;
local_tp = localtime (t);
if (!local_tp)
goto bail;
/* It's quite unlikely these values are illegal. But for safety,
* make sure they don't address outside of arrays or generate a year
* addition overflow.
*/
if ((local_tp->tm_wday < 0) ||
(local_tp->tm_wday > 6) ||
(local_tp->tm_mon < 0) ||
(local_tp->tm_mon > 11) ||
(local_tp->tm_year > (INT_MAX - 1900)))
goto bail;
rc = snprintf (result, sizeof(result),
"%.3s %.3s%3d %.2d:%.2d:%.2d %d\n",
Weekdays[local_tp->tm_wday],
Months[local_tp->tm_mon],
local_tp->tm_mday,
local_tp->tm_hour,
local_tp->tm_min,
local_tp->tm_sec,
1900 + local_tp->tm_year);
if (rc < 0 || rc >= sizeof(result))
goto bail;
return result;
bail:
result[0] = '\0';
return result;
}