#include <u.h>
#include <libc.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;
	char buf[1024];
	int n, bytes;
	Addr *a;
	char *deliveredto;
	char last;
	char *str;

	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");

	/* append to mbox */
	fd = open(argv[2], OWRITE);
	if(fd < 0)
		sysfatal("opening mailbox: %r");
	seek(fd, 0, 2);
	now = ctime(time(0));
	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);

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

	exits(0);
}