108 lines
2.3 KiB
C
108 lines
2.3 KiB
C
#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;
|
|
}
|