subreceipt.c

Go to the documentation of this file.

#include "subscribe.h"
#include "str.h"
#include "logmsg.h"
#include "fmt.h"
#include "errtxt.h"
#include "stralloc.h"
 
#define WHO "subreceipt"

 
char strnum[FMT_ULONG];
 
static stralloc line = {0};

 
int subreceipt(char *dir,unsigned long msgnum,stralloc *cookie,char *listaddr,int done,char *info,char *fatal)
{
  char *ret = (char *) 0;
  char *table = (char *) 0;
  char *sublist = (char *) 0;
 
  if ((ret = opensql(dir,&table,&sublist))) {    /* open sql */
    if (*ret) logmsg(WHO,111,FATAL,ret);         /* no SQL, log to mail log */
    strnum[fmt_ulong(strnum,msgnum)] = '\0';
 
    if (cookie->len) {                           /* there was a tag */
      if (!stralloc_copy(&line,cookie)) logmsg(WHO,1x(111,ERR_NOMEM);
      if (!stralloc_0(&line)) logmsg(WHO,111,FATAL,"ERR_NOMEM");
      if (done == 2)
        logmsg(WHO,0,INFO,B(listaddr,": receipt: ",strnum,": ",line.s));
      else
        logmsg(WHO,0,INFO,B(listaddr,": bounce: ",strnum,": ",line.s));
    } else {
      if (done == 2)
        logmsg(WHO,0,INFO,B(listaddr,": receipt: ",strnum));
      else
        logmsg(WHO,0,INFO,B(listaddr,": bounce: ",strnum));
    }
 
  return 0;
} else {
    if ((ret = checktag(dir,msgnum,cookie))) {   /* check tag */
      if (*ret) logmsg(WHO,111,fatal,ret);
      return -1;                                 /* no/bad cookie */
    }
    if ((ret = getlistno(dir,msgnum,listaddr))) {/* get list no */
      if (*ret) logmsg(WHO,111,fatal,ret);
      return -2;                                 /* list not active */
    }
    if ((ret = logmsg(dir,msgnum,done)))         /* log it */
      if (*ret) logmsg(WHO,111,fatal,ret);
  }
 
  return 0;
}