19a747e4fSDavid du Colombier #include "common.h"
29a747e4fSDavid du Colombier #include "dat.h"
39a747e4fSDavid du Colombier
49a747e4fSDavid du Colombier int cflag;
59a747e4fSDavid du Colombier int aflag;
69a747e4fSDavid du Colombier int rflag;
79a747e4fSDavid du Colombier
89a747e4fSDavid du Colombier int createpipeto(char *alfile, char *user, char *listname, int owner);
99a747e4fSDavid du Colombier
109a747e4fSDavid du Colombier void
usage(void)119a747e4fSDavid du Colombier usage(void)
129a747e4fSDavid du Colombier {
139a747e4fSDavid du Colombier fprint(2, "usage:\t%s -c listname\n", argv0);
149a747e4fSDavid du Colombier fprint(2, "\t%s -[ar] listname addr\n", argv0);
159a747e4fSDavid du Colombier exits("usage");
169a747e4fSDavid du Colombier }
179a747e4fSDavid du Colombier
189a747e4fSDavid du Colombier void
main(int argc,char ** argv)199a747e4fSDavid du Colombier main(int argc, char **argv)
209a747e4fSDavid du Colombier {
219a747e4fSDavid du Colombier char *listname, *addr;
229a747e4fSDavid du Colombier String *owner, *alfile;
239a747e4fSDavid du Colombier
249a747e4fSDavid du Colombier rfork(RFENVG|RFREND);
259a747e4fSDavid du Colombier
269a747e4fSDavid du Colombier ARGBEGIN{
279a747e4fSDavid du Colombier case 'c':
289a747e4fSDavid du Colombier cflag = 1;
299a747e4fSDavid du Colombier break;
309a747e4fSDavid du Colombier case 'r':
319a747e4fSDavid du Colombier rflag = 1;
329a747e4fSDavid du Colombier break;
339a747e4fSDavid du Colombier case 'a':
349a747e4fSDavid du Colombier aflag = 1;
359a747e4fSDavid du Colombier break;
369a747e4fSDavid du Colombier }ARGEND;
379a747e4fSDavid du Colombier
38*6b6b9ac8SDavid du Colombier if(aflag + rflag + cflag > 1){
39*6b6b9ac8SDavid du Colombier fprint(2, "%s: -a, -r, and -c are mutually exclusive\n", argv0);
40*6b6b9ac8SDavid du Colombier exits("usage");
41*6b6b9ac8SDavid du Colombier }
42*6b6b9ac8SDavid du Colombier
439a747e4fSDavid du Colombier if(argc < 1)
449a747e4fSDavid du Colombier usage();
459a747e4fSDavid du Colombier
469a747e4fSDavid du Colombier listname = argv[0];
479a747e4fSDavid du Colombier alfile = s_new();
489a747e4fSDavid du Colombier mboxpath("address-list", listname, alfile, 0);
499a747e4fSDavid du Colombier
509a747e4fSDavid du Colombier if(cflag){
519a747e4fSDavid du Colombier owner = s_copy(listname);
529a747e4fSDavid du Colombier s_append(owner, "-owner");
539a747e4fSDavid du Colombier if(creatembox(listname, nil) < 0)
549a747e4fSDavid du Colombier sysfatal("creating %s's mbox: %r", listname);
559a747e4fSDavid du Colombier if(creatembox(s_to_c(owner), nil) < 0)
569a747e4fSDavid du Colombier sysfatal("creating %s's mbox: %r", s_to_c(owner));
579a747e4fSDavid du Colombier if(createpipeto(s_to_c(alfile), listname, listname, 0) < 0)
589a747e4fSDavid du Colombier sysfatal("creating %s's pipeto: %r", s_to_c(owner));
599a747e4fSDavid du Colombier if(createpipeto(s_to_c(alfile), s_to_c(owner), listname, 1) < 0)
609a747e4fSDavid du Colombier sysfatal("creating %s's pipeto: %r", s_to_c(owner));
619a747e4fSDavid du Colombier writeaddr(s_to_c(alfile), "# mlmgr c flag", 0, listname);
629a747e4fSDavid du Colombier } else if(rflag){
639a747e4fSDavid du Colombier if(argc != 2)
649a747e4fSDavid du Colombier usage();
659a747e4fSDavid du Colombier addr = argv[1];
669a747e4fSDavid du Colombier writeaddr(s_to_c(alfile), "# mlmgr r flag", 0, listname);
679a747e4fSDavid du Colombier writeaddr(s_to_c(alfile), addr, 1, listname);
689a747e4fSDavid du Colombier } else if(aflag){
699a747e4fSDavid du Colombier if(argc != 2)
709a747e4fSDavid du Colombier usage();
719a747e4fSDavid du Colombier addr = argv[1];
729a747e4fSDavid du Colombier writeaddr(s_to_c(alfile), "# mlmgr a flag", 0, listname);
739a747e4fSDavid du Colombier writeaddr(s_to_c(alfile), addr, 0, listname);
749a747e4fSDavid du Colombier } else
759a747e4fSDavid du Colombier usage();
769a747e4fSDavid du Colombier exits(0);
779a747e4fSDavid du Colombier }
789a747e4fSDavid du Colombier
799a747e4fSDavid du Colombier int
createpipeto(char * alfile,char * user,char * listname,int owner)809a747e4fSDavid du Colombier createpipeto(char *alfile, char *user, char *listname, int owner)
819a747e4fSDavid du Colombier {
829a747e4fSDavid du Colombier String *f;
839a747e4fSDavid du Colombier int fd;
849a747e4fSDavid du Colombier Dir *d;
859a747e4fSDavid du Colombier
869a747e4fSDavid du Colombier f = s_new();
879a747e4fSDavid du Colombier mboxpath("pipeto", user, f, 0);
889a747e4fSDavid du Colombier fprint(2, "creating new pipeto: %s\n", s_to_c(f));
899a747e4fSDavid du Colombier fd = create(s_to_c(f), OWRITE, 0775);
909a747e4fSDavid du Colombier if(fd < 0)
919a747e4fSDavid du Colombier return -1;
929a747e4fSDavid du Colombier d = dirfstat(fd);
939a747e4fSDavid du Colombier if(d == nil){
949a747e4fSDavid du Colombier fprint(fd, "Couldn't stat %s: %r\n", s_to_c(f));
959a747e4fSDavid du Colombier return -1;
969a747e4fSDavid du Colombier }
979a747e4fSDavid du Colombier d->mode |= 0775;
989a747e4fSDavid du Colombier if(dirfwstat(fd, d) < 0)
999a747e4fSDavid du Colombier fprint(fd, "Couldn't wstat %s: %r\n", s_to_c(f));
1009a747e4fSDavid du Colombier free(d);
1019a747e4fSDavid du Colombier
1029a747e4fSDavid du Colombier fprint(fd, "#!/bin/rc\n");
1039a747e4fSDavid du Colombier if(owner)
1049a747e4fSDavid du Colombier fprint(fd, "/bin/upas/mlowner %s %s\n", alfile, listname);
1059a747e4fSDavid du Colombier else
1069a747e4fSDavid du Colombier fprint(fd, "/bin/upas/ml %s %s\n", alfile, user);
1079a747e4fSDavid du Colombier close(fd);
1089a747e4fSDavid du Colombier
1099a747e4fSDavid du Colombier return 0;
1109a747e4fSDavid du Colombier }
111