harvey/sys/src/cmd/upas/filterkit/deliver.c

#include "sys.h"
#include "dat.h"

void
usage(void)
{
	fprint(2, "usage: %s recipient fromaddr-file mbox\n", argv0);
	exits("usage");
}

void
main(int argc, char **argv)
{
	int fd;
	char now[30];
	char buf[1024];
	int n, bytes;
	Addr *a;
	char *deliveredto;
	char last;
	char *str;
	Mlock *l;

	ARGBEGIN{
	}ARGEND;

	if(argc != 3)
		usage();

	deliveredto = strrchr(argv[0], '!');
	if(deliveredto == nil)
		deliveredto = argv[0];
	else
		deliveredto++;
	a = readaddrs(argv[1], nil);
	if(a == nil)
		sysfatal("missing from address");

	l = syslock(argv[2]);
	if(l == 0)
		sysfatal("can't grab lock");

	/* append to mbox */
	fd = open(argv[2], OWRITE);
	if(fd < 0)
		sysfatal("opening mailbox: %r");
	seek(fd, 0, 2);
	strncpy(now, ctime(time(0)), sizeof(now));
	now[28] = 0;
	if(fprint(fd, "From %s %s\n", a->val, now) < 0)
		sysfatal("writing mailbox: %r");
	last = 0;
	for(bytes = 0;; bytes += n){
		n = read(0, buf, sizeof buf);
		if(n < 0)
			sysfatal("writing mailbox: %r");
		if(n == 0)
			break;
		if(write(fd, buf, n) != n)
			sysfatal("writing mailbox: %r");
		last = buf[n-1];
	}

	/* a blank line must follow every message */
	if(last == '\n')
		str = "\n";
	else
		str ="\n\n";
	if(write(fd, str, strlen(str)) < 0)
		sysfatal("writing mailbox: %r");
	close(fd);
	sysunlock(l);

	/* log it */
	syslog(0, "mail", "delivered %s From %s %s (%s) %d", deliveredto,
		a->val, now, argv[0], bytes);
	exits(0);
}