Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#include "common.h"
2 
#include "dat.h"
3 
 
4 
Biobuf in;
5 
 
6 
String *from;
7 
String *sender;
8 
 
9 
 
10 
void
11 
usage(void)
12 
{
13 
	fprint(2, "usage: %s address-list-file listname\n", argv0);
14 
	exits("usage");
15 
}
16 
 
17 
void
18 
main(int argc, char **argv)
19 
{
20 
	String *msg;
21 
	char *alfile;
22 
	char *listname;
23 
 
24 
	ARGBEGIN{
25 
	}ARGEND;
26 
 
27 
	rfork(RFENVG|RFREND);
28 
 
29 
	if(argc < 2)
30 
		usage();
31 
	alfile = argv[0];
32 
	listname = argv[1];
33 
 
34 
	if(Binit(&in, 0, OREAD) < 0)
35 
		sysfatal("opening input: %r");
36 
 
37 
	msg = s_new();
38 
 
39 
	/* discard the 'From ' line */
40 
	if(s_read_line(&in, msg) == nil)
41 
		sysfatal("reading input: %r");
42 
 
43 
	/* read up to the first 128k of the message.  more is ridiculous */
44 
	if(s_read(&in, s_restart(msg), 128*1024) <= 0)
45 
		sysfatal("reading input: %r");
46 
 
47 
	/* parse the header */
48 
	yyinit(s_to_c(msg), s_len(msg));
49 
	yyparse();
50 
 
51 
	/* get the sender */
52 
	getaddrs();
53 
	if(from == nil)
54 
		from = sender;
55 
	if(from == nil)
56 
		sysfatal("message must contain From: or Sender:");
57 
 
58 
	if(strstr(s_to_c(msg), "remove")||strstr(s_to_c(msg), "unsubscribe"))
59 
		writeaddr(alfile, s_to_c(from), 1, listname);
60 
	else if(strstr(s_to_c(msg), "subscribe"))
61 
		writeaddr(alfile, s_to_c(from), 0, listname);
62 
 
63 
	exits(0);
64 
}