jcs.org
mutt stable branch with some hacks
1/*
2 * Copyright (C) 1996-2000,2013 Michael R. Elkins <me@mutt.org>
3 *
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 2 of the License, or
7 * (at your option) any later version.
8 *
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
13 *
14 * You should have received a copy of the GNU General Public License
15 * along with this program; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
17 */
18
19#if HAVE_CONFIG_H
20# include "config.h"
21#endif
22
23#include "mutt.h"
24
25#include <ctype.h>
26#include <string.h>
27
28static const char *next_word (const char *s)
29{
30 while (*s && !ISSPACE (*s))
31 s++;
32 SKIPWS (s);
33 return s;
34}
35
36int mutt_check_month (const char *s)
37{
38 int i;
39
40 for (i = 0; i < 12; i++)
41 if (mutt_strncasecmp (s, Months[i], 3) == 0)
42 return (i);
43 return (-1); /* error */
44}
45
46static int is_day_name (const char *s)
47{
48 int i;
49
50 if ((strlen (s) < 3) || !*(s + 3) || !ISSPACE (*(s+3)))
51 return 0;
52 for (i=0; i<7; i++)
53 if (mutt_strncasecmp (s, Weekdays[i], 3) == 0)
54 return 1;
55 return 0;
56}
57
58/*
59 * A valid message separator looks like:
60 *
61 * From [ <return-path> ] <weekday> <month> <day> <time> [ <timezone> ] <year>
62 */
63
64int is_from (const char *s, char *path, size_t pathlen, time_t *tp)
65{
66 struct tm tm;
67 int yr;
68
69 if (path)
70 *path = 0;
71
72 if (mutt_strncmp ("From ", s, 5) != 0)
73 return 0;
74
75 s = next_word (s); /* skip over the From part. */
76 if (!*s)
77 return 0;
78
79 dprint (3, (debugfile, "\nis_from(): parsing: %s", s));
80
81 if (!is_day_name (s))
82 {
83 const char *p;
84 size_t len;
85 short q = 0;
86
87 for (p = s; *p && (q || !ISSPACE (*p)); p++)
88 {
89 if (*p == '\\')
90 {
91 if (*++p == '\0')
92 return 0;
93 }
94 else if (*p == '"')
95 {
96 q = !q;
97 }
98 }
99
100 if (q || !*p) return 0;
101
102 /* pipermail archives have the return_path obscured such as "me at mutt.org" */
103 if (ascii_strncasecmp(p, " at ", 4) == 0)
104 {
105 p = strchr(p + 4, ' ');
106 if (!p)
107 {
108 dprint (1, (debugfile, "is_from(): error parsing what appears to be a pipermail-style obscured return_path: %s\n", s));
109 return 0;
110 }
111 }
112
113 if (path)
114 {
115 len = (size_t) (p - s);
116 if (len + 1 > pathlen)
117 len = pathlen - 1;
118 memcpy (path, s, len);
119 path[len] = 0;
120 dprint (3, (debugfile, "is_from(): got return path: %s\n", path));
121 }
122
123 s = p + 1;
124 SKIPWS (s);
125 if (!*s)
126 return 0;
127
128 if (!is_day_name (s))
129 {
130 dprint(1, (debugfile, "is_from(): expected weekday, got: %s\n", s));
131 return 0;
132 }
133 }
134
135 s = next_word (s);
136 if (!*s) return 0;
137
138 /* do a quick check to make sure that this isn't really the day of the week.
139 * this could happen when receiving mail from a local user whose login name
140 * is the same as a three-letter abbreviation of the day of the week.
141 */
142 if (is_day_name (s))
143 {
144 s = next_word (s);
145 if (!*s) return 0;
146 }
147
148 /* now we should be on the month. */
149 if ((tm.tm_mon = mutt_check_month (s)) < 0) return 0;
150
151 /* day */
152 s = next_word (s);
153 if (!*s) return 0;
154 if (sscanf (s, "%d", &tm.tm_mday) != 1) return 0;
155
156 /* time */
157 s = next_word (s);
158 if (!*s) return 0;
159
160 /* Accept either HH:MM or HH:MM:SS */
161 if (sscanf (s, "%d:%d:%d", &tm.tm_hour, &tm.tm_min, &tm.tm_sec) == 3);
162 else if (sscanf (s, "%d:%d", &tm.tm_hour, &tm.tm_min) == 2)
163 tm.tm_sec = 0;
164 else
165 return 0;
166
167 s = next_word (s);
168 if (!*s) return 0;
169
170 /* timezone? */
171 if (isalpha ((unsigned char) *s) || *s == '+' || *s == '-')
172 {
173 s = next_word (s);
174 if (!*s) return 0;
175
176 /*
177 * some places have two timezone fields after the time, e.g.
178 * From xxxx@yyyyyyy.fr Wed Aug 2 00:39:12 MET DST 1995
179 */
180 if (isalpha ((unsigned char) *s))
181 {
182 s = next_word (s);
183 if (!*s) return 0;
184 }
185 }
186
187 /* year */
188 if (sscanf (s, "%d", &yr) != 1 || yr < 0) return 0;
189 tm.tm_year = yr > 1900 ? yr - 1900 : (yr < 70 ? yr + 100 : yr);
190
191 dprint (3,(debugfile, "is_from(): month=%d, day=%d, hr=%d, min=%d, sec=%d, yr=%d.\n",
192 tm.tm_mon, tm.tm_mday, tm.tm_hour, tm.tm_min, tm.tm_sec, tm.tm_year));
193
194 tm.tm_isdst = -1;
195
196 if (tp) *tp = mutt_mktime (&tm, 0);
197 return 1;
198}