from.c

   1 /*
   2  * Copyright notice from original mutt:
   3  * Copyright (C) 1996-2000 Michael R. Elkins <me@mutt.org>
   4  *
   5  * This file is part of mutt-ng, see http://www.muttng.org/.
   6  * It's licensed under the GNU General Public License,
   7  * please see the file GPL in the top level source directory.
   8  */
   9
  10 #if HAVE_CONFIG_H
  11 # include "config.h"
  12 #endif
  13
  14 #include <lib-lib/mem.h>
  15 #include <lib-lib/str.h>
  16 #include <lib-lib/macros.h>
  17
  18 #include "mutt.h"
  19
  20 #include "lib/debug.h"
  21
  22 #include <ctype.h>
  23 #include <string.h>
  24
  25 static const char *next_word (const char *s)
  26 {
  27   while (*s && !ISSPACE (*s))
  28     s++;
  29   SKIPWS (s);
  30   return s;
  31 }
  32
  33 int mutt_check_month (const char *s)
  34 {
  35   int i;
  36
  37   for (i = 0; i < 12; i++)
  38     if (str_ncasecmp (s, Months[i], 3) == 0)
  39       return (i);
  40   return (-1);                  /* error */
  41 }
  42
  43 static int is_day_name (const char *s)
  44 {
  45   int i;
  46
  47   if ((m_strlen(s) < 3) || !*(s + 3) || !ISSPACE (*(s + 3)))
  48     return 0;
  49   for (i = 0; i < 7; i++)
  50     if (str_ncasecmp (s, Weekdays[i], 3) == 0)
  51       return 1;
  52   return 0;
  53 }
  54
  55 /*
  56  * A valid message separator looks like:
  57  *
  58  * From [ <return-path> ] <weekday> <month> <day> <time> [ <timezone> ] <year>
  59  */
  60
  61 int is_from (const char *s, char *path, size_t pathlen, time_t * tp)
  62 {
  63   struct tm tm;
  64   int yr;
  65
  66   if (path)
  67     *path = 0;
  68
  69   if (str_ncmp ("From ", s, 5) != 0)
  70     return 0;
  71
  72   s = next_word (s);            /* skip over the From part. */
  73   if (!*s)
  74     return 0;
  75
  76   debug_print (3, ("parsing: %s\n", s));
  77
  78   if (!is_day_name (s)) {
  79     const char *p;
  80     size_t len;
  81     short q = 0;
  82
  83     for (p = s; *p && (q || !ISSPACE (*p)); p++) {
  84       if (*p == '\\') {
  85         if (*++p == '\0')
  86           return 0;
  87       }
  88       else if (*p == '"') {
  89         q = !q;
  90       }
  91     }
  92
  93     if (q || !*p)
  94       return 0;
  95
  96     if (path) {
  97       len = (size_t) (p - s);
  98       if (len + 1 > pathlen)
  99         len = pathlen - 1;
 100       memcpy (path, s, len);
 101       path[len] = 0;
 102       debug_print (3, ("got return path: %s\n", path));
 103     }
 104
 105     s = p + 1;
 106     SKIPWS (s);
 107     if (!*s)
 108       return 0;
 109
 110     if (!is_day_name (s)) {
 111       debug_print (1, ("expected weekday, got: %s\n", s));
 112       return 0;
 113     }
 114   }
 115
 116   s = next_word (s);
 117   if (!*s)
 118     return 0;
 119
 120   /* do a quick check to make sure that this isn't really the day of the week.
 121    * this could happen when receiving mail from a local user whose login name
 122    * is the same as a three-letter abbreviation of the day of the week.
 123    */
 124   if (is_day_name (s)) {
 125     s = next_word (s);
 126     if (!*s)
 127       return 0;
 128   }
 129
 130   /* now we should be on the month. */
 131   if ((tm.tm_mon = mutt_check_month (s)) < 0)
 132     return 0;
 133
 134   /* day */
 135   s = next_word (s);
 136   if (!*s)
 137     return 0;
 138   if (sscanf (s, "%d", &tm.tm_mday) != 1)
 139     return 0;
 140
 141   /* time */
 142   s = next_word (s);
 143   if (!*s)
 144     return 0;
 145
 146   /* Accept either HH:MM or HH:MM:SS */
 147   if (sscanf (s, "%d:%d:%d", &tm.tm_hour, &tm.tm_min, &tm.tm_sec) == 3);
 148   else if (sscanf (s, "%d:%d", &tm.tm_hour, &tm.tm_min) == 2)
 149     tm.tm_sec = 0;
 150   else
 151     return 0;
 152
 153   s = next_word (s);
 154   if (!*s)
 155     return 0;
 156
 157   /* timezone? */
 158   if (isalpha ((unsigned char) *s) || *s == '+' || *s == '-') {
 159     s = next_word (s);
 160     if (!*s)
 161       return 0;
 162
 163     /*
 164      * some places have two timezone fields after the time, e.g.
 165      *      From xxxx@yyyyyyy.fr Wed Aug  2 00:39:12 MET DST 1995
 166      */
 167     if (isalpha ((unsigned char) *s)) {
 168       s = next_word (s);
 169       if (!*s)
 170         return 0;
 171     }
 172   }
 173
 174   /* year */
 175   if (sscanf (s, "%d", &yr) != 1)
 176     return 0;
 177   tm.tm_year = yr > 1900 ? yr - 1900 : (yr < 70 ? yr + 100 : yr);
 178
 179   debug_print (3, ("month=%d, day=%d, hr=%d, min=%d, sec=%d, yr=%d.\n",
 180            tm.tm_mon, tm.tm_mday, tm.tm_hour, tm.tm_min, tm.tm_sec,
 181            tm.tm_year));
 182
 183   tm.tm_isdst = -1;
 184
 185   if (tp)
 186     *tp = mutt_mktime (&tm, 0);
 187   return 1;
 188 }