#include <sys/stat.h>
#include <sys/types.h>
#include <unistd.h>

#include "buffer.h"
#include "byte.h"
#include "direntry.h"
#include "error.h"
#include "exit.h"
#include "fmt.h"
#include "getln.h"
#include "scan.h"
#include "sig.h"
#include "str.h"
#include "stralloc.h"

#include "fmtqfn.h"
#include "now.h"

#ifdef USE_CONFIG
  #include "fehsqm-config.h"
#else
  #include "auto_qmail.h"
#endif

#define OSSIFIED 129600 /* see qmail-send.c */

stralloc line = {0};

void cleanuppid()
{
  DIR *dir;
  direntry *d;
  struct stat st;
  datetime_sec time;

  time = now();
  dir = opendir("pid");
  if (!dir) return;

  while ((d = readdir(dir))) {
    if (str_equal(d->d_name, ".")) continue;
    if (str_equal(d->d_name, "..")) continue;
    if (!stralloc_copys(&line, "pid/")) continue;
    if (!stralloc_cats(&line, d->d_name)) continue;
    if (!stralloc_0(&line)) continue;
    if (stat(line.s, &st) == -1) continue;
    if (time < st.st_atime + OSSIFIED) continue;
    unlink(line.s);
  }
  closedir(dir);
}

char fnbuf[FMTQFN];

void respond(char *s)
{
  if (buffer_putflush(buffer_1small, s, 1) == -1) _exit(100);
}

int main()
{
  int i;
  int match;
  int cleanuploop;
  unsigned long id;

  if (chdir(auto_qmail) == -1) _exit(110);
  if (chdir("queue") == -1) _exit(110);

  sig_pipeignore();

  if (!stralloc_ready(&line, 200)) _exit(111);

  cleanuploop = 0;

  for (;;) {
    if (cleanuploop) {
      --cleanuploop;
    } else {
      cleanuppid();
      cleanuploop = 30;
    }
    if (getln(buffer_0small, &line, &match, '\0') == -1) break;
    if (!match) break;
    if (line.len < 7) {
      respond("x");
      continue;
    }
    if (line.len > 100) {
      respond("x");
      continue;
    }
    if (line.s[line.len - 1]) {
      respond("x");
      continue;
    } /* impossible */

    for (i = line.len - 2; i > 4; --i) {
      if (line.s[i] == '/') break;
      if ((unsigned char)(line.s[i] - '0') > 9) {
        respond("x");
        continue;
      }
    }
    if (line.s[i] == '/' && !scan_ulong(line.s + i + 1, &id)) {
      respond("x");
      continue;
    }
#define U(prefix, flag)              \
  do {                               \
    fmtqfn(fnbuf, prefix, id, flag); \
    if (unlink(fnbuf) == -1)         \
      if (errno != ENOENT) {         \
        respond("!");                \
        continue;                    \
      }                              \
  } while (0)
    if (byte_equal(line.s, 5, "foop/")) {
      U("intd/", 1);
      U("mess/", 1);
      respond("+");
    } else if (byte_equal(line.s, 4, "todo/")) {
      U("intd/", 1);
      U("todo/", 1);
      respond("+");
    } else {
      respond("x");
    }
  }
  _exit(0);
}