ifvalidto.c

Go to the documentation of this file.

#include "buffer.h"
#include "getln.h"
#include "mess822.h"
#include "case.h"
#include "env.h"
#include "exit.h"
#include "getoptb.h"
#include "scan.h"
#include "fmt.h"
#include "logmsg.h"
 
#define WHO "ifvalidto"
 
static void nomem()
{
  logmsg(WHO,111,FATAL,"out of memory");
}
 
stralloc addrlist = {0};
 
mess822_header h = MESS822_HEADER;
mess822_action a[] = {
  { "to", 0, 0, 0, &addrlist, 0, 0 }
, { "cc", 0, 0, 0, &addrlist, 0, 0 }
, { 0, 0, 0, 0, 0, 0, 0 }
} ;
 
char strnum[FMT_ULONG];
stralloc line = {0};
int match;
 
char *recipient = 0;
char **recips = {0};
 
static void check(char *addr)
{
  if (recips) {
    for (int i = 0; recips[i]; ++i)
      if (case_equals(addr,recips[i])) _exit(0);
  } else if (recipient)
      if (case_equals(addr,recipient)) _exit(0);
}
 
int main(int argc,char **argv)
{
  int i;
  int j;
  int opt;
  unsigned int r = 99;
 
  while ((opt = getoptb(argc,argv,"br:")) != opteof)
    switch (opt) {
      case 'b': r = 100; break;
      case 'r': if (optarg) scan_uint(optarg,&r); break;
    }
  argv += optind;
  argc -= optind;
   
  recipient = env_get("RECIPIENT");
  if (argc) recips = argv;
 
  if (!mess822_begin(&h,a)) nomem();
 
  for (;;) {
    if (getln(buffer_0,&line,&match,'\n') == -1)
      logmsg(WHO,111,FATAL,"unable to read input: ");
 
    if (!mess822_ok(&line)) break;
    if (!mess822_line(&h,&line)) nomem();
    if (!match) break;
  }
 
  if (!mess822_end(&h)) nomem();
 
  for (j = i = 0; j < addrlist.len; ++j)
    if (!addrlist.s[j]) {
      if (addrlist.s[i] == '+')
        check(addrlist.s + i + 1);
      i = j + 1;
    }
 
  strnum[fmt_uint(strnum,r)] = 0;
  logmsg(WHO,0,INFO,B("delivery processed with rc=",strnum));
  _exit(r);
}