#include <sys/types.h>

#include <sys/stat.h>

#include "prioq.h"

#include "env.h"

#include "stralloc.h"

#include "direntry.h"

#include "datetime.h"

#include "now.h"

#include "str.h"

#include "maildir.h"

struct strerr maildir_chdir_err;

struct strerr maildir_scan_err;

int maildir_chdir()

{

 char *maildir;

 maildir = env_get("MAILDIR");

 if (!maildir)

   STRERR(-1,maildir_chdir_err,"MAILDIR not set")

 if (chdir(maildir) == -1)

   STRERR_SYS3(-1,maildir_chdir_err,"unable to chdir to ",maildir,": ")

 return 0;

}

void maildir_clean(tmpname)

stralloc *tmpname;

{

 DIR *dir;

 direntry *d;

 datetime_sec time;

 struct stat st;

 time = now();

 dir = opendir("tmp");

 if (!dir) return;

 while (d = readdir(dir))

  {

   if (d->d_name[0] == '.') continue;

   if (!stralloc_copys(tmpname,"tmp/")) break;

   if (!stralloc_cats(tmpname,d->d_name)) break;

   if (!stralloc_0(tmpname)) break;

   if (stat(tmpname->s,&st) == 0)

     if (time > st.st_atime + 129600)

       unlink(tmpname->s);

  }

 closedir(dir);

}

static int append(pq,filenames,subdir,time)

prioq *pq;

stralloc *filenames;

char *subdir;

datetime_sec time;

{

 DIR *dir;

 direntry *d;

 struct prioq_elt pe;

 unsigned int pos;

 struct stat st;

 dir = opendir(subdir);

 if (!dir)

   STRERR_SYS3(-1,maildir_scan_err,"unable to scan $MAILDIR/",subdir,": ")

 while (d = readdir(dir))

  {

   if (d->d_name[0] == '.') continue;

   pos = filenames->len;

   if (!stralloc_cats(filenames,subdir)) break;

   if (!stralloc_cats(filenames,"/")) break;

   if (!stralloc_cats(filenames,d->d_name)) break;

   if (!stralloc_0(filenames)) break;

   if (stat(filenames->s + pos,&st) == 0)

     if (st.st_mtime < time) /* don't want to mix up the order */

      {

       pe.dt = st.st_mtime;

       pe.id = pos;

       if (!prioq_insert(pq,&pe)) break;

      }

  }

 closedir(dir);

 if (d) STRERR_SYS3(-1,maildir_scan_err,"unable to read $MAILDIR/",subdir,": ")

 return 0;

}

int maildir_scan(pq,filenames,flagnew,flagcur)

prioq *pq;

stralloc *filenames;

int flagnew;

int flagcur;

{

 struct prioq_elt pe;

 datetime_sec time;

 int r;

 if (!stralloc_copys(filenames,"")) return 0;

 while (prioq_min(pq,&pe)) prioq_delmin(pq);

 time = now();

 if (flagnew) if (append(pq,filenames,"new",time) == -1) return -1;

 if (flagcur) if (append(pq,filenames,"cur",time) == -1) return -1;

 return 0;

}