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 "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 }
} ;
 
stralloc line = {0};
int match;
 
char *recipient = 0;
char **recips = {0};
 
static void check(char *addr)
{
  if (recipient) {
    if (case_equals(addr,recipient)) _exit(0);
  } else 
    for (int i = 0; recips[i]; ++i) {
      recipient = recips[i];
      if (case_equals(addr,recipient)) _exit(0);
    }
}
 
int main(int argc,char **argv)
{
  int i;
  int j;
 
  if (argc) recips = argv + 1;
  else recipient = env_get("RECIPIENT");
 
  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;
    }
 
  logmsg(WHO,100,WARN,B("mail to local: <",recipient,"> discarded for delivery"));
  _exit(100);
}