chiark - git - mdw - qmail/blob - maildir.c

   1 #include <sys/types.h>
   2 #include <sys/stat.h>
   3 #include "prioq.h"
   4 #include "env.h"
   5 #include "stralloc.h"
   6 #include "direntry.h"
   7 #include "datetime.h"
   8 #include "now.h"
   9 #include "str.h"
  10 #include "maildir.h"
  11
  12 struct strerr maildir_chdir_err;
  13 struct strerr maildir_scan_err;
  14
  15 int maildir_chdir()
  16 {
  17  char *maildir;
  18  maildir = env_get("MAILDIR");
  19  if (!maildir)
  20    STRERR(-1,maildir_chdir_err,"MAILDIR not set")
  21  if (chdir(maildir) == -1)
  22    STRERR_SYS3(-1,maildir_chdir_err,"unable to chdir to ",maildir,": ")
  23  return 0;
  24 }
  25
  26 void maildir_clean(tmpname)
  27 stralloc *tmpname;
  28 {
  29  DIR *dir;
  30  direntry *d;
  31  datetime_sec time;
  32  struct stat st;
  33
  34  time = now();
  35
  36  dir = opendir("tmp");
  37  if (!dir) return;
  38
  39  while (d = readdir(dir))
  40   {
  41    if (d->d_name[0] == '.') continue;
  42    if (!stralloc_copys(tmpname,"tmp/")) break;
  43    if (!stralloc_cats(tmpname,d->d_name)) break;
  44    if (!stralloc_0(tmpname)) break;
  45    if (stat(tmpname->s,&st) == 0)
  46      if (time > st.st_atime + 129600)
  47        unlink(tmpname->s);
  48   }
  49  closedir(dir);
  50 }
  51
  52 static int append(pq,filenames,subdir,time)
  53 prioq *pq;
  54 stralloc *filenames;
  55 char *subdir;
  56 datetime_sec time;
  57 {
  58  DIR *dir;
  59  direntry *d;
  60  struct prioq_elt pe;
  61  unsigned int pos;
  62  struct stat st;
  63
  64  dir = opendir(subdir);
  65  if (!dir)
  66    STRERR_SYS3(-1,maildir_scan_err,"unable to scan $MAILDIR/",subdir,": ")
  67
  68  while (d = readdir(dir))
  69   {
  70    if (d->d_name[0] == '.') continue;
  71    pos = filenames->len;
  72    if (!stralloc_cats(filenames,subdir)) break;
  73    if (!stralloc_cats(filenames,"/")) break;
  74    if (!stralloc_cats(filenames,d->d_name)) break;
  75    if (!stralloc_0(filenames)) break;
  76    if (stat(filenames->s + pos,&st) == 0)
  77      if (st.st_mtime < time) /* don't want to mix up the order */
  78       {
  79        pe.dt = st.st_mtime;
  80        pe.id = pos;
  81        if (!prioq_insert(pq,&pe)) break;
  82       }
  83   }
  84
  85  closedir(dir);
  86  if (d) STRERR_SYS3(-1,maildir_scan_err,"unable to read $MAILDIR/",subdir,": ")
  87  return 0;
  88 }
  89
  90 int maildir_scan(pq,filenames,flagnew,flagcur)
  91 prioq *pq;
  92 stralloc *filenames;
  93 int flagnew;
  94 int flagcur;
  95 {
  96  struct prioq_elt pe;
  97  datetime_sec time;
  98  int r;
  99
 100  if (!stralloc_copys(filenames,"")) return 0;
 101  while (prioq_min(pq,&pe)) prioq_delmin(pq);
 102
 103  time = now();
 104
 105  if (flagnew) if (append(pq,filenames,"new",time) == -1) return -1;
 106  if (flagcur) if (append(pq,filenames,"cur",time) == -1) return -1;
 107  return 0;
 108 }