summaryrefslogtreecommitdiff
path: root/sys/src/cmd/upas/filterkit/deliver.c
blob: e719fb1a1ea3cd43b6d75b8fe5986e31a716223a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
/*
 * deliver recipient fromfile mbox - append stdin to mbox with locking & logging
 */
#include "dat.h"
#include "common.h"

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

void
main(int argc, char **argv)
{
	char *to;
	Tmfmt tf;
	Tm tm;
	int r;
	Addr *a;

	ARGBEGIN{
	}ARGEND;
	tmfmtinstall();
	if(argc != 3)
		usage();
	if(to = strrchr(argv[0], '!'))
		to++;
	else
		to = argv[0];
	a = readaddrs(argv[1], nil);
	if(a == nil)
		sysfatal("missing from address");
	tf = thedate(&tm);
	werrstr("");
	r = fappendfolder(a->val, tmnorm(&tm), argv[2], 0);
	syslog(0, "mail", "delivered %s From %s %τ (%s) %d %r", to, a->val, tf, argv[0], r);
	exits("");
}