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