![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to smtpqer.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / upas / smtp|
Return to smtpqer.c CVS log | Up to [Research Unix] / researchv10no / cmd / upas / smtp |
1.1 root 1: /*
2: * smtpqer -- put mail (on stdin) in an smtpq subdirectory, with a shell script
3: * to send it via smtp
4: */
5:
6: #define USAGE "usage: smtpqer [-n] [-H helohost] [-d domain] [-K] [-a toaddr] [-u] from tohost to...\n"
7: #define DIRDOMLEVEL 2
8: #define SPOOLNAMSIZ 12 /* keep spool dir names no longer (12 allows L.name on v9) */
9: #include <stdio.h>
10: #include <signal.h>
11: #include "string.h"
12: #include "mail.h"
13: #include <ctype.h>
14: #include <sys/stat.h>
15:
16: /* globals */
17: char datafile[1024];
18: int debug = 0;
19:
20: void bomb();
21:
22: /* imports (other than in .h's) */
23: extern spoolsubdir[];
24: extern void exit(), cleanlocks();
25: extern FILE* lockopen();
26: extern char *sysname_read();
27:
28: /* interrupt handling */
29: SIGRETURN
30: catchhup(s)
31: int s;
32: {
33: bomb("interrupted: HUP\n");
34: }
35:
36: /* interrupt handling */
37: SIGRETURN
38: catchint(s)
39: int s;
40: {
41: bomb("interrupted: INT\n");
42: }
43:
44: main(argc, argv)
45: int argc;
46: char *argv[];
47: {
48: register int c;
49: int errflg=0;
50: extern int optind;
51: extern char *optarg;
52: char *p;
53: char *prefix;
54: char *domain=0;
55: char *sys=0;
56: int unixformat=0;
57: int gateway=0;
58: int helo=0;
59: int norun=0;
60: char *helohost=0;
61: char *gatehost=0;
62: char *toaddr=0;
63: char *from=0;
64: char *host=0;
65: char *spooldir;
66: string *to=s_new();
67:
68: umask(2);
69:
70: signal(SIGHUP, SIG_IGN);
71: signal(SIGINT, catchint);
72: while ((c=getopt(argc, argv, "H:d:ua:nD")) != EOF)
73: switch(c) {
74: case 'H': helohost=optarg; break;
75: case 'd': domain=optarg; break;
76: case 'u': unixformat++; break;
77: case 'a': toaddr=optarg; break;
78: case 'n': norun++; break;
79: case 'D': debug++; break;
80: case '?':
81: default:
82: errflg++; break;
83: }
84: if (errflg || (argc - optind) < 3)
85: bomb(USAGE);
86: if(*argv[optind]==0 || *argv[optind+1]==0 || *argv[optind+2]==0)
87: bomb(USAGE);
88: if (helohost==NULL)
89: helohost=s_to_c(s_copy(sysname_read()));
90:
91: from=argv[optind++];
92: host=argv[optind++];
93: for (; optind < argc; optind++){
94: s_append(to, argv[optind]);
95: s_append(to, " ");
96: }
97:
98: /*
99: * make spool files:
100: * C.xxxxxxxxxxxx - the control file
101: * D.xxxxxxxxxxxx - the data file
102: */
103: if(gotodir(host)<0)
104: bomb("going to spool directory %s\n", spoolsubdir);
105: makedata(from, domain, s_to_c(to));
106: makectl(unixformat, helohost, domain, from, toaddr, host, s_to_c(to));
107:
108: /*
109: * run the queue for the receiver
110: */
111: if(!norun)
112: smtpsched("Qsmtpsched", spoolsubdir);
113:
114: exit(0);
115: }
116:
117: /*
118: * the data file is pre-converted to rfc822
119: */
120: makedata(from, domain, to)
121: char *from;
122: char *domain;
123: char *to;
124: {
125: int fd;
126: FILE *fp;
127:
128: /*
129: * create data file
130: */
131: strcpy(datafile, "D.xxxxxxxxxxxx");
132: fd = mkdatafile(datafile);
133: if(fd<0)
134: bomb("creating spool file\n");
135: fp = fdopen(fd, "w");
136:
137: /*
138: * copy data
139: */
140: clearerr(fp);
141: clearerr(stdin);
142: copymsg(stdin, fp);
143: fflush(fp);
144:
145: /*
146: * make sure it worked
147: */
148: if(ferror(fp) || ferror(stdin)){
149: unlink(datafile);
150: bomb("writing data file");
151: }
152: fclose(fp);
153: }
154:
155: /*
156: * just copy input to output
157: */
158: copymsg(in, out)
159: FILE *in;
160: FILE *out;
161: {
162: char buf[4096];
163: int n;
164:
165: while(n=fread(buf, 1, sizeof(buf), in))
166: if(fwrite(buf, 1, n, out)!=n)
167: bomb("writing data file");
168: }
169:
170: /*
171: * Make a control file. The two lines contain:
172: * <reply-addr> <dest>
173: * -H <hello host> -d <domain> <reply_addr> <dest> <recipients>
174: */
175: makectl(unixformat, helo, domain, from, daddr, dest, to)
176: char *from, *dest, *to;
177: {
178: string *msg = s_new();
179:
180: s_append(msg, from);
181: s_append(msg, " ");
182: s_append(msg, dest);
183: s_append(msg, "\n");
184: if(unixformat)
185: s_append(msg, "-u ");
186: if(domain){
187: s_append(msg, "-d ");
188: s_append(msg, domain);
189: s_append(msg, " ");
190: }
191: if(daddr){
192: s_append(msg, "-a ");
193: s_append(msg, daddr);
194: s_append(msg, " ");
195: }
196: s_append(msg, "-H ");
197: s_append(msg, helo);
198: s_append(msg, " ");
199: s_append(msg, from);
200: s_append(msg, " ");
201: s_append(msg, dest);
202: s_append(msg, " ");
203: s_append(msg, to);
204: s_append(msg, "\n");
205: if(mkctlfile('C', datafile, s_to_c(msg))<0)
206: bomb("creating control file\n");
207: }
208:
209: void
210: bomb(msg, a1, a2, a3, a4)
211: char *msg;
212: {
213: fprintf(stderr, "smtpqer: ");
214: fprintf(stderr, msg, a1, a2, a3, a4);
215: if (datafile[0]!=0)
216: unlink(datafile);
217: exit(1);
218: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.