Commit | Line | Data |
---|---|---|
62205224 KM |
1 | static char sccsid[] = "@(#)v6mail.c 4.1 (Berkeley) %G%"; |
2 | ||
3 | /* | |
4 | * Version 6 Cory mail-- | |
5 | * a clean and simple mail program | |
6 | * machine and version independent | |
7 | * Eric Schmidt | |
8 | * must run as setuid root to chown the destination mailbox | |
9 | * if NOTROOT defined, doesn't need to run as root | |
10 | * | |
11 | * DON'T CHANGE THIS CODE | |
12 | * bitch to "csvax:schmidt" instead | |
13 | */ | |
14 | ||
15 | /* | |
16 | * mail command usage | |
17 | * mail [-yn] | |
18 | * prints your mail | |
19 | * mail people | |
20 | * sends standard input to people | |
21 | * | |
22 | * mail -r fromaddr people | |
23 | * sends mail from the network | |
24 | * | |
25 | * mail -d people | |
26 | * don't call delivermail, send mail directly | |
27 | * mail msgs | |
28 | * send to "msgs" | |
29 | * mail filename | |
30 | * mail to filename instead of user (must be at least one /) | |
31 | * mail -D | |
32 | * delete the invokers mailbox (more efficient than | |
33 | * mail -n >/dev/null) | |
34 | */ | |
35 | ||
36 | /* | |
37 | * bugs: | |
38 | * Ingres 11/70 multiple names/uid? | |
39 | * additions: | |
40 | * Save? type 'x' - doesn't unlink the mail file | |
41 | */ | |
42 | /* | |
43 | * BIFF is an immediate notification flag using the MPX stuff | |
44 | */ | |
45 | # include "local.h" | |
46 | # include <stdio.h> | |
47 | # include "mach.h" | |
48 | ||
49 | # ifdef RAND | |
50 | ||
51 | /* for all machines at RAND */ | |
52 | # define MAILMODE 0644 | |
53 | ||
54 | # endif RAND | |
55 | ||
56 | # ifdef NOSC | |
57 | ||
58 | /* for all machines at NOSC */ | |
59 | # define MAILMODE 0644 | |
60 | ||
61 | # endif NOSC | |
62 | ||
63 | # ifdef BERKELEY | |
64 | /* for Berkeley */ | |
65 | /* for each machine */ | |
66 | /* lump the CC machines into one */ | |
67 | # ifdef CCV7 | |
68 | # define MAILMODE 0600 | |
69 | # define MSGSCMD "/usr/ucb/bin/msgs" | |
70 | # endif | |
71 | ||
72 | # ifdef CCV6 | |
73 | # define MSGSCMD "/usr/bin/eecs/msgs" | |
74 | # define MAILMODE 0600 | |
75 | # endif | |
76 | ||
77 | # ifdef ING70 | |
78 | # define MAILMODE 0666 | |
79 | # define MSGSCMD "/usr/bin/msgs" | |
80 | # define NOTROOT | |
81 | # endif | |
82 | ||
83 | # ifdef INGVAX | |
84 | # define MAILMODE 0644 | |
85 | # define MSGSCMD "/usr/ucb/msgs" | |
86 | # endif | |
87 | ||
88 | /* | |
89 | # ifdef VIRUS | |
90 | # define MAILMODE 0644 | |
91 | # define MSGSCMD "/usr/bin/msgs" | |
92 | # endif | |
93 | */ | |
94 | ||
95 | # ifdef UCBVAX | |
96 | # define MAILMODE 0644 | |
97 | # define MSGSCMD "/usr/ucb/msgs" | |
98 | # define BIFF | |
99 | # endif | |
100 | ||
101 | # ifdef IMAGE | |
102 | # define MAILMODE 0644 | |
103 | # define MSGSCMD "/usr/bin/msgs" | |
104 | # endif | |
105 | ||
106 | # ifdef KIM | |
107 | # define MAILMODE 0644 | |
108 | # define MSGSCMD "/usr/ucb/msgs" | |
109 | # endif | |
110 | ||
111 | # ifdef ESVAX | |
112 | # define MAILMODE 0644 | |
113 | # define MSGSCMD "/usr/ucb/msgs" | |
114 | # endif | |
115 | ||
116 | # ifdef Q | |
117 | # define MAILMODE 0600 | |
118 | # define MSGSCMD "/usr/bin/eecs/msgs" | |
119 | # endif | |
120 | ||
121 | # ifdef ARPAVAX | |
122 | # define MAILMODE 0644 | |
123 | # define MSGSCMD "/usr/ucb/msgs" | |
124 | # define BIFF | |
125 | # endif | |
126 | ||
127 | # ifdef SRC | |
128 | # define MAILMODE 0600 | |
129 | # define MSGSCMD "/usr/bin/msgs" | |
130 | # endif | |
131 | ||
132 | # ifdef MATHSTAT | |
133 | # define MAILMODE 0600 | |
134 | # define MSGSCMD "/usr/bin/msgs" | |
135 | # endif | |
136 | ||
137 | # ifdef CSVAX | |
138 | # define MAILMODE 0644 | |
139 | # define MSGSCMD "/usr/ucb/msgs" | |
140 | # define BIFF | |
141 | # endif | |
142 | ||
143 | # ifdef ONYX | |
144 | # define MAILMODE 0644 | |
145 | # define MSGSCMD "/usr/ucb/bin/msgs" | |
146 | # endif | |
147 | ||
148 | # ifdef CORY | |
149 | # define MAILMODE 0600 | |
150 | # define MSGSCMD "/usr/bin/eecs/msgs" | |
151 | # endif | |
152 | ||
153 | # ifdef EECS40 | |
154 | # define MAILMODE 0644 | |
155 | # define MSGSCMD "/usr/bin/msgs" | |
156 | # endif | |
157 | /* end of berkeley defsn */ | |
158 | ||
159 | # endif | |
160 | /* end of per-machine ifdefs */ | |
161 | ||
162 | # ifdef USRMAIL | |
163 | # define MAILDIR "/usr/mail" | |
164 | # else | |
165 | # define MAILDIR "/usr/spool/mail" | |
166 | # endif | |
167 | ||
168 | char lettmp[] = "/tmp/MaXXXXX"; /* keep letter before sending it */ | |
169 | char preptmp[] = "/tmp/mbXXXXX"; /* if prepending msg, use this file */ | |
170 | int chew; /* if true, strip extra from lines */ | |
171 | int dflag; /* if true, don't call delivermail */ | |
172 | char shopcnt[30] = "0"; /* hop count parameter for rmt mail */ | |
173 | int errs; /* no of errs in sending */ | |
174 | char deleteonly; /* if true, just delete mailbox */ | |
175 | char remname[50]; /* if non-empty, from line extra */ | |
176 | ||
177 | char _sobuf[BUFSIZ]; | |
178 | main(argc, argv) | |
179 | char **argv; | |
180 | { | |
181 | register int myuid; | |
182 | int delexit(); | |
183 | char namebuf[128], *sn = NULL, logindir[60]; | |
184 | struct passwd *pwd; | |
185 | ||
186 | setbuf(stdout,_sobuf); | |
187 | mktemp(lettmp); | |
188 | mktemp(preptmp); | |
189 | unlink(lettmp); | |
190 | unlink(preptmp); | |
191 | myuid = getuid(); | |
192 | logindir[0] = 0; | |
193 | sn = getlogin(); | |
194 | if(sn == NULL || *sn == 0 || *sn == ' '){ | |
195 | pwd = getpwuid(myuid); /* will read passwd file */ | |
196 | if(pwd != NULL){ | |
197 | sn = pwd->pw_name; | |
198 | strcpy(logindir,pwd->pw_dir); | |
199 | } | |
200 | if(sn == NULL){ | |
201 | fprintf(stderr,"Who are you?\n"); | |
202 | delexit(EX_OSFILE); | |
203 | } | |
204 | } | |
205 | strcpy(namebuf,sn); | |
206 | if (argc < 2) | |
207 | goto hitit; | |
208 | for (argc--, argv++; argc > 0 && argv[0][0] == '-'; argc--, argv++) | |
209 | switch(argv[0][1]) { | |
210 | case 'y': | |
211 | case 'n': | |
212 | argc++, argv--; | |
213 | hitit: | |
214 | printmail(argc, argv, namebuf,logindir); | |
215 | delexit(EX_OK); | |
216 | ||
217 | case 'r': /* one-arg -r-- -r addr */ | |
218 | if (argc < 2) | |
219 | continue; | |
220 | /* ignore -r if not network or root */ | |
221 | if (strcmp("network", namebuf) == 0 || myuid == 0 || | |
222 | strcmp("uucp", namebuf) == 0 || index(argv[1], '!') != NULL) { | |
223 | strcpy(namebuf,argv[1]); | |
224 | chew++; /* eat From lines */ | |
225 | } | |
226 | else strcpy(remname, argv[1]); | |
227 | argc--, argv++; | |
228 | continue; | |
229 | case 'h': /* hop count - used by network */ | |
230 | if(argc < 2) continue; | |
231 | strcpy(shopcnt,argv[1]); | |
232 | argc--, argv++; | |
233 | continue; | |
234 | case 'd': /* really deliver this message */ | |
235 | dflag++; | |
236 | continue; | |
237 | case 'D': /* only delete the invokers mailbox */ | |
238 | deleteonly++; | |
239 | goto hitit; /* delete mail box, thats all */ | |
240 | } | |
241 | /* if we are already ignoring signals, catch sigint */ | |
242 | if(signal(SIGINT,SIG_IGN) != SIG_IGN) | |
243 | signal(SIGINT, delexit); | |
244 | argc++, argv--; | |
245 | bulkmail(argc, argv, namebuf); | |
246 | delexit(EX_OK); | |
247 | } | |
248 | ||
249 | printmail(argc, argv, name, logindir) | |
250 | char **argv; | |
251 | char *name, *logindir; | |
252 | { | |
253 | register int c; | |
254 | FILE *fdin; | |
255 | char sfnmail[60], mbox[120]; | |
256 | struct stat statbuf; | |
257 | ||
258 | # ifdef OLDMAIL | |
259 | if(logindir[0] == 0){ | |
260 | pwd = getpwuid(getuid()); | |
261 | if(pwd == NULL){ | |
262 | fprintf(stderr,"Can't get directory\n"); | |
263 | exit(EX_OSFILE); | |
264 | } | |
265 | strcpy(logindir, pwd->pw_dir); | |
266 | } | |
267 | sprintf(sfnmail,"%s/.mail",logindir); | |
268 | # else | |
269 | sprintf(sfnmail,"%s/%s",MAILDIR,name); | |
270 | # endif | |
271 | if(deleteonly){ | |
272 | remove(sfnmail); | |
273 | return; | |
274 | } | |
275 | if (stat(sfnmail, &statbuf)>=0 && statbuf.st_nlink==1 && | |
276 | getsize(&statbuf) > 0L && (fdin = fopen(sfnmail, "r")) != NULL){ | |
277 | getput(fdin, stdout); | |
278 | fclose(fdin); | |
279 | fflush(stdout); | |
280 | c = 'y'; | |
281 | if (argc<2) { | |
282 | if(isatty(0)){ | |
283 | printf("Save(y-n) ?"); | |
284 | fflush(stdout); | |
285 | c = getchar(); | |
286 | } | |
287 | } else | |
288 | c = argv[1][1]; | |
289 | if (!any(c, "xyn")) | |
290 | delexit(EX_OK); | |
291 | if (c == 'y') { | |
292 | sprintf(mbox,"%s/mbox",logindir); | |
293 | if (accesss(mbox)) { | |
294 | printf("Saved mail in 'mbox'\n"); | |
295 | if(insert(sfnmail, mbox, getuid(),getgid())) | |
296 | remove(sfnmail); | |
297 | } | |
298 | else printf("In wrong directory\n"); | |
299 | } | |
300 | else if(c != 'x') remove(sfnmail); | |
301 | } else | |
302 | printf("No mail.\n"); | |
303 | } | |
304 | ||
305 | bulkmail(argc, argv, from) | |
306 | char **argv, *from; | |
307 | { | |
308 | extern int errno; | |
309 | char linebuf[BUFSIZ]; | |
310 | char *getdate(); | |
311 | FILE *fdout; | |
312 | ||
313 | # ifdef DELIVERM | |
314 | /* | |
315 | ** Ship off to delivermail if appropriate (and possible) | |
316 | */ | |
317 | ||
318 | if (!dflag) | |
319 | { | |
320 | argv[0] = "-delivermail"; | |
321 | argv[argc] = 0; | |
322 | execv("/etc/delivermail", argv); | |
323 | /* oops... better just deliver it. */ | |
324 | fprintf(stderr, "Not using delivermail\n"); | |
325 | errno = 0; | |
326 | argv[argc] = (char *)-1; | |
327 | } | |
328 | # endif | |
329 | ||
330 | fdout = fopen(lettmp, "w"); | |
331 | if (fdout == NULL) { | |
332 | perror(lettmp); | |
333 | delexit(EX_OSFILE); | |
334 | } | |
335 | /* | |
336 | * If delivering mail from the network via mail -r, | |
337 | * Strip the leading line and throw it away, as long | |
338 | * as it begins with "From ..." (and preserve the date if poss.) | |
339 | */ | |
340 | if (chew) { | |
341 | fgets(linebuf,BUFSIZ,stdin); | |
342 | if(strncmp(linebuf,"From ",5) != 0){ | |
343 | fline(fdout,NULL,from); | |
344 | fprintf(fdout,"%s", linebuf); | |
345 | } | |
346 | else fline(fdout,getdate(linebuf),from); | |
347 | } | |
348 | else fline(fdout,NULL,from); | |
349 | if(remname[0]) fprintf(fdout,"(from %s)\n",remname); | |
350 | ||
351 | /* on the image machine, promt with subj */ | |
352 | if(getput(stdin,fdout) == 0) | |
353 | delexit(EX_OSERR); | |
354 | putc('\n',fdout); | |
355 | fclose(fdout); | |
356 | while (--argc > 0) | |
357 | sendto(*++argv,from); | |
358 | delexit(errs); | |
359 | } | |
360 | /* print from line, with date date, if date = NULL, compute it */ | |
361 | fline(fdout,date,from) | |
362 | FILE *fdout; | |
363 | char *date; | |
364 | char *from; | |
365 | { | |
366 | int tbuf[2]; | |
367 | ||
368 | if(date == NULL){ | |
369 | time(tbuf); | |
370 | date = ctime(tbuf); | |
371 | } | |
372 | fprintf(fdout,"From %s %s", from, date); | |
373 | } | |
374 | /* look over linebuf and return ptr to date, NULL if error */ | |
375 | char *getdate(linebuf) | |
376 | char *linebuf; | |
377 | { | |
378 | register char *s; | |
379 | s = linebuf; | |
380 | while(*s){ | |
381 | if(strncmp(s," Sun ",5) == 0 | |
382 | || strncmp(s," Mon ",5) == 0 | |
383 | || strncmp(s," Tue ",5) == 0 | |
384 | || strncmp(s," Wed ",5) == 0 | |
385 | || strncmp(s," Thu ",5) == 0 | |
386 | || strncmp(s," Fri ",5) == 0 | |
387 | || strncmp(s," Sat ",5) == 0) | |
388 | return(++s); | |
389 | s++; | |
390 | } | |
391 | return(NULL); | |
392 | } | |
393 | ||
394 | sendto(person, fromaddr) | |
395 | char *person; | |
396 | char *fromaddr; | |
397 | { | |
398 | static int saved = 0; | |
399 | register int hisuid, hisgid; | |
400 | char sfnmail[60], logindir[60]; | |
401 | struct passwd *pwd; | |
402 | ||
403 | stripmach(&person); | |
404 | if(person[0] == ':')person++; | |
405 | /* delivermail provides these services */ | |
406 | if(any(':',person) | |
407 | # ifdef MSGSCMD | |
408 | || strcmp(person,"msgs") == 0 | |
409 | # endif | |
410 | ){ | |
411 | int pid; | |
412 | int pidchild; | |
413 | ||
414 | while((pid = fork()) == -1)sleep(2); | |
415 | if (pid < 0) { | |
416 | perror("fork"); | |
417 | goto assback; | |
418 | } | |
419 | if (pid == 0) { | |
420 | fclose(stdin); | |
421 | freopen(lettmp,"r",stdin); | |
422 | setuid(getuid()); /* insure no security hole*/ | |
423 | if (strcmp(person,"msgs") != 0) { | |
424 | /* | |
425 | sendberkmail will add the machine, e.g. | |
426 | CSVAX:schmidt, if the -f flag is not set | |
427 | */ | |
428 | execl("/usr/net/bin/sendberkmail", | |
429 | "sendberkmail", "-t",person,"-h",shopcnt, | |
430 | chew ? "-f" : 0,fromaddr,0); | |
431 | perror("/usr/net/bin/sendberkmail"); | |
432 | } | |
433 | # ifdef MSGSCMD | |
434 | else { | |
435 | execl(MSGSCMD, "msgs", "-s", 0); | |
436 | perror(MSGSCMD); | |
437 | } | |
438 | # endif | |
439 | exit(EX_UNAVAILABLE); | |
440 | } | |
441 | for (;;) { | |
442 | register int rcode = wait(&pidchild); | |
443 | if (rcode == -1) | |
444 | goto assback; | |
445 | if (rcode == pid) | |
446 | break; | |
447 | } | |
448 | if ((pidchild & 0377) != 0 || (pidchild >> 8) != 0) | |
449 | goto assback; | |
450 | return; | |
451 | } | |
452 | ||
453 | if(!any('/',person)){ | |
454 | /* if name has no / in it, we assume it is a user's name */ | |
455 | # ifdef HPASSWD | |
456 | hisuid = uidfromsn(person); | |
457 | # else | |
458 | pwd = getpwnam(person); | |
459 | if(pwd != NULL){ | |
460 | hisuid = guid(pwd->pw_uid,pwd->pw_gid); | |
461 | hisgid = pwd->pw_gid; | |
462 | strcpy(logindir,pwd->pw_dir); | |
463 | } | |
464 | else hisuid = -1; | |
465 | # endif | |
466 | if(hisuid == -1){ | |
467 | assback: | |
468 | fflush(stdout); | |
469 | fprintf(stderr,"Can't send to %s.\n", person); | |
470 | errs++; | |
471 | if (isatty(0) && saved==0) { | |
472 | saved++; | |
473 | if (accesss("dead.letter")) { | |
474 | printf("Letter saved in 'dead.letter'\n"); | |
475 | insert(lettmp, "dead.letter", | |
476 | getuid(),getgid()); | |
477 | } else | |
478 | printf("In wrong directory\n"); | |
479 | } | |
480 | return; | |
481 | } | |
482 | # ifdef OLDMAIL | |
483 | sprintf(sfnmail,"%s/.mail",logindir); | |
484 | # else | |
485 | sprintf(sfnmail,"%s/%s",MAILDIR,person); | |
486 | # endif | |
487 | lock(sfnmail); | |
488 | insert(lettmp, sfnmail, hisuid, hisgid); | |
489 | unlock(); | |
490 | } | |
491 | else { /* it has / in it, "person" is a file */ | |
492 | if(accesss(person)){ | |
493 | lock(person); | |
494 | insert(lettmp, person, -1, -1); | |
495 | unlock(); | |
496 | } | |
497 | else | |
498 | fprintf(stderr,"Can't access %s\n",person); | |
499 | } | |
500 | } | |
501 | ||
502 | /* return 1 if success, 0 otherwise */ | |
503 | insert(from, to, uid, gid) | |
504 | char *from, *to; | |
505 | { | |
506 | # ifdef V6 | |
507 | return(prepend(from,to,uid, gid)); | |
508 | # else | |
509 | return(append(from,to,uid, gid)); | |
510 | # endif | |
511 | } | |
512 | /* return 1 if success, 0 otherwise */ | |
513 | append(from,to,uid, gid) | |
514 | char *from, *to; | |
515 | { | |
516 | register FILE *fdin, *fdout; | |
517 | int ret; | |
518 | struct stat statbuf; | |
519 | #ifdef BIFF | |
520 | /* biff ... */ | |
521 | char *rindex(); | |
522 | char *cp; | |
523 | char buf[100]; | |
524 | int f; | |
525 | /* end biff */ | |
526 | #endif BIFF | |
527 | if (stat(to, &statbuf) >= 0 && (statbuf.st_mode&S_IFDIR) != 0) { | |
528 | fprintf(stderr, "Exotic destination %s\n", to); | |
529 | errs++; | |
530 | return(0); | |
531 | } | |
532 | if ((fdout = fopen(to, "a")) == NULL) { | |
533 | perror(to); | |
534 | errs++; | |
535 | return(0); | |
536 | } | |
537 | # ifndef NOTROOT | |
538 | if(uid != -1)mchown(to, uid, gid); | |
539 | # endif | |
540 | if(uid != -1)chmod(to, MAILMODE); | |
541 | if ((fdin = fopen(from, "r")) == NULL) { | |
542 | perror(from); | |
543 | return(0); | |
544 | } | |
545 | #ifdef BIFF | |
546 | { | |
547 | f = open("/dev/mail", 1); | |
548 | cp = rindex(to, '/'); | |
549 | if (cp) { | |
550 | sprintf(buf, "%s@%d\n", cp+1, ftell(fdout)); | |
551 | } | |
552 | } | |
553 | #endif BIFF | |
554 | ret = getput(fdin,fdout); | |
555 | fclose(fdin); | |
556 | fclose(fdout); | |
557 | #ifdef BIFF | |
558 | if (cp && f >= 0) { | |
559 | write(f, buf, strlen(buf)+1); | |
560 | close(f); | |
561 | } | |
562 | #endif BIFF | |
563 | return(ret); | |
564 | } | |
565 | ||
566 | /* return 1 if success, 0 otherwise */ | |
567 | prepend(from, to, uid, gid) | |
568 | char *from, *to; | |
569 | { | |
570 | register int (*sig)(); | |
571 | struct stat statbuf; | |
572 | FILE *fdout, *fdin; | |
573 | int ret; | |
574 | ||
575 | if (stat(to, &statbuf) >= 0 && (statbuf.st_mode&S_IFDIR) != 0) { | |
576 | fprintf(stderr, "Exotic destination %s\n", to); | |
577 | goto badexit; | |
578 | } | |
579 | unlink(preptmp); | |
580 | if ((fdout = fopen(preptmp, "w")) == NULL) { | |
581 | perror("mail"); | |
582 | goto badexit; | |
583 | } | |
584 | chmod(preptmp, MAILMODE); | |
585 | if ((fdin = fopen(from, "r")) == NULL) { | |
586 | perror("mail"); | |
587 | goto badexit; | |
588 | } | |
589 | if(getput(fdin,fdout) == 0){ | |
590 | perror("file i/o"); | |
591 | goto badexit; | |
592 | } | |
593 | fclose(fdin); | |
594 | fdin = fopen(to, "r"); | |
595 | /* ignore error since may not exist */ | |
596 | if(fdin != NULL && getput(fdin,fdout) == 0){ | |
597 | perror("file i/o"); | |
598 | goto badexit; | |
599 | } | |
600 | if(fdin != NULL)fclose(fdin); | |
601 | fclose(fdout); | |
602 | sig = signal(SIGINT, SIG_IGN); | |
603 | remove(to); | |
604 | if ((fdout = fopen(to, "w")) == NULL) { | |
605 | perror(to); | |
606 | unlink(preptmp); | |
607 | signal(SIGINT, sig); | |
608 | goto badexit; | |
609 | } | |
610 | # ifdef NOTROOT | |
611 | if(uid != -1)chmod(to,0666); | |
612 | # else | |
613 | if(uid != -1)mchown(to, uid, gid); | |
614 | # endif | |
615 | if(stat(to, &statbuf) < 0 || statbuf.st_nlink != 1) { | |
616 | fclose(fdout); | |
617 | signal(SIGINT, sig); | |
618 | goto badexit; | |
619 | } | |
620 | if ((fdin = fopen(preptmp, "r")) == NULL) { | |
621 | perror("mail"); | |
622 | signal(SIGINT, sig); | |
623 | goto badexit; | |
624 | } | |
625 | ret = getput(fdin,fdout); | |
626 | fclose(fdout); | |
627 | fclose(fdin); | |
628 | signal(SIGINT, sig); | |
629 | return(ret); | |
630 | badexit: | |
631 | unlink(preptmp); | |
632 | errs++; | |
633 | return(0); | |
634 | } | |
635 | ||
636 | delexit(ex) | |
637 | { | |
638 | unlink(lettmp); | |
639 | unlink(preptmp); | |
640 | exit(ex); | |
641 | } | |
642 | ||
643 | /* return 1 if ok, 0 otherwise */ | |
644 | getput(fdin, fdout) | |
645 | register FILE *fdin, *fdout; | |
646 | { | |
647 | extern int errno; | |
648 | register int c; | |
649 | ||
650 | while((c = getc(fdin)) != EOF) { | |
651 | errno = 0; | |
652 | putc(c,fdout); | |
653 | if(errno) { | |
654 | perror("mail"); | |
655 | return(0); | |
656 | } | |
657 | } | |
658 | return(1); | |
659 | } | |
660 | ||
661 | accesss(s1) | |
662 | register char *s1; | |
663 | { | |
664 | struct stat statbuf; | |
665 | if(stat(s1,&statbuf)<0 || access(s1,2) == 0) | |
666 | return(1); | |
667 | return(0); | |
668 | } | |
669 | ||
670 | any(c, str) | |
671 | register char *str, c; | |
672 | { | |
673 | register char *f; | |
674 | ||
675 | f = str; | |
676 | while (*f) | |
677 | if (c == *f++) | |
678 | return(1); | |
679 | return(0); | |
680 | } | |
681 | char locktmp[30]; /* Usable lock temporary */ | |
682 | char curlock[50]; /* Last used name of lock */ | |
683 | int locked; /* To note that we locked it */ | |
684 | ||
685 | /* | |
686 | * Lock the specified mail file by setting the file mailfile.lock. | |
687 | * We must, of course, be careful to unlink the lock file by a call | |
688 | * to unlock before we stop. The algorithm used here is to see if | |
689 | * the lock exists, and if it does, to check its modify time. If it | |
690 | * is older than 30 seconds, we assume error and set our own file. | |
691 | * Otherwise, we wait for 5 seconds and try again. | |
692 | */ | |
693 | ||
694 | lock(file) | |
695 | char *file; | |
696 | { | |
697 | register int f; | |
698 | struct stat statbuf; | |
699 | long curtime; | |
700 | /* | |
701 | if using OLDMAIL, and NOTROOT, cann't lock since can't necessarily | |
702 | write on user's login directory | |
703 | */ | |
704 | # ifdef OLDMAIL | |
705 | return; | |
706 | # endif | |
707 | ||
708 | if (file == NULL) { | |
709 | printf("Locked = %d\n", locked); | |
710 | return(0); | |
711 | } | |
712 | if (locked) | |
713 | return(0); | |
714 | sprintf(curlock,"%s%s",file,".mail"); | |
715 | sprintf(locktmp,"%s/tmXXXXXX",MAILDIR); | |
716 | mktemp(locktmp); | |
717 | unlink(locktmp); | |
718 | for (;;) { | |
719 | f = lock1(locktmp, curlock); | |
720 | if (f == 0) { | |
721 | locked = 1; | |
722 | return(0); | |
723 | } | |
724 | if (stat(curlock, &statbuf) < 0) | |
725 | return(0); | |
726 | time(&curtime); | |
727 | if (curtime < statbuf.st_mtime + 30) { | |
728 | sleep(5); | |
729 | continue; | |
730 | } | |
731 | unlink(curlock); | |
732 | } | |
733 | } | |
734 | ||
735 | /* | |
736 | * Remove the mail lock, and note that we no longer | |
737 | * have it locked. | |
738 | */ | |
739 | ||
740 | unlock() | |
741 | { | |
742 | ||
743 | if (locked) | |
744 | unlink(curlock); | |
745 | locked = 0; | |
746 | } | |
747 | ||
748 | /* | |
749 | * Attempt to set the lock by creating the temporary file, | |
750 | * then doing a link/unlink. If it fails, return -1 else 0 | |
751 | */ | |
752 | ||
753 | lock1(tempfile, name) | |
754 | char tempfile[], name[]; | |
755 | { | |
756 | int fno; | |
757 | ||
758 | fno = creat(tempfile, 0400); | |
759 | if (fno < 0) | |
760 | return(-1); | |
761 | close(fno); | |
762 | if (link(tempfile, name) < 0) { | |
763 | unlink(tempfile); | |
764 | return(-1); | |
765 | } | |
766 | unlink(tempfile); | |
767 | return(0); | |
768 | } | |
769 | ||
770 | /* | |
771 | stripfx(prefix string, pointer to string) | |
772 | ||
773 | takes a ptr to string and compares it to prefix string. | |
774 | may be called multiple times | |
775 | returns ":username" | |
776 | */ | |
777 | stripfx(pfx, name) | |
778 | register char *pfx; | |
779 | register char **name; | |
780 | { | |
781 | register char *cp = *name; | |
782 | ||
783 | while (*pfx && (*cp == *pfx || *cp == toupper(*pfx))) | |
784 | cp++, pfx++; | |
785 | if (*cp != ':' || *pfx != 0) | |
786 | return; | |
787 | *name = cp; | |
788 | } | |
789 | stripmach(pperson) | |
790 | register char **pperson; | |
791 | { | |
792 | # ifdef RAND | |
793 | /* for machines at RAND */ | |
794 | # ifdef GRAPHICS | |
795 | stripfx("g",pperson); | |
796 | stripfx("graphics",pperson); | |
797 | # endif | |
798 | # ifdef TP | |
799 | stripfx("t",pperson); | |
800 | stripfx("tp",pperson); | |
801 | # endif | |
802 | # ifdef VAX | |
803 | stripfx("v",pperson); | |
804 | stripfx("vax",pperson); | |
805 | # endif | |
806 | /* end of defns for Rand */ | |
807 | # endif | |
808 | ||
809 | # ifdef NOSC | |
810 | /* for machines at NOSC */ | |
811 | # ifdef ATTS | |
812 | stripfx("a",pperson); | |
813 | stripfx("atts",pperson); | |
814 | # endif | |
815 | # ifdef CCMM | |
816 | stripfx("c",pperson); | |
817 | stripfx("ccmm",pperson); | |
818 | # endif | |
819 | # ifdef MSSF | |
820 | stripfx("m",pperson); | |
821 | stripfx("mssf",pperson); | |
822 | # endif | |
823 | /* end of defns for NOSC */ | |
824 | # endif | |
825 | ||
826 | # ifdef BERKELEY | |
827 | ||
828 | /* for Berkeley */ | |
829 | # ifdef A | |
830 | stripfx("a",pperson); | |
831 | # endif | |
832 | # ifdef B | |
833 | stripfx("b",pperson); | |
834 | # endif | |
835 | # ifdef C | |
836 | stripfx("c",pperson); | |
837 | # endif | |
838 | # ifdef D | |
839 | stripfx("d",pperson); | |
840 | # endif | |
841 | # ifdef E | |
842 | stripfx("e",pperson); | |
843 | # endif | |
844 | # ifdef ING70 | |
845 | stripfx("i",pperson); | |
846 | stripfx("ing70",pperson); | |
847 | stripfx("ingres",pperson); | |
848 | # endif | |
849 | # ifdef INGVAX | |
850 | stripfx("j",pperson); | |
851 | stripfx("ingvax",pperson); | |
852 | # endif | |
853 | # ifdef VIRUS | |
854 | stripfx("k",pperson); | |
855 | stripfx("virus",pperson); | |
856 | # endif | |
857 | # ifdef IMAGE | |
858 | stripfx("m",pperson); | |
859 | stripfx("image",pperson); | |
860 | # endif | |
861 | # ifdef KIM | |
862 | stripfx("n",pperson); | |
863 | stripfx("kim",pperson); | |
864 | # endif | |
865 | # ifdef ESVAX | |
866 | stripfx("o",pperson); | |
867 | stripfx("esvax",pperson); | |
868 | # endif | |
869 | # ifdef Q | |
870 | stripfx("q",pperson); | |
871 | # endif | |
872 | # ifdef ARPAVAX | |
873 | stripfx("r",pperson); | |
874 | stripfx("arpavax",pperson); | |
875 | # endif | |
876 | # ifdef SRC | |
877 | stripfx("s",pperson); | |
878 | stripfx("src",pperson); | |
879 | # endif | |
880 | # ifdef MATHSTAT | |
881 | stripfx("t",pperson); | |
882 | stripfx("mathstat",pperson); | |
883 | # endif | |
884 | # ifdef CSVAX | |
885 | stripfx("v",pperson); | |
886 | stripfx("vax",pperson); | |
887 | stripfx("csvax",pperson); | |
888 | # endif | |
889 | # ifdef CORY | |
890 | stripfx("y",pperson); | |
891 | stripfx("cory",pperson); | |
892 | # endif | |
893 | # ifdef EECS40 | |
894 | stripfx("z",pperson); | |
895 | stripfx("eecs40",pperson); | |
896 | # endif | |
897 | /* end of berkeley defns */ | |
898 | # endif | |
899 | } | |
900 | /* | |
901 | this removes the mail file sfn by either truncating it, as required | |
902 | on OLDMAIL systems, or unlinking it. If the unlink fails, we truncate it. | |
903 | */ | |
904 | remove(sfn) | |
905 | char *sfn; | |
906 | { | |
907 | int i; | |
908 | # ifdef OLDMAIL | |
909 | i = creat(sfn,0666); | |
910 | if(i >= 0)close(i); | |
911 | # else | |
912 | if(unlink(sfn) < 0){ | |
913 | i = creat(sfn,MAILMODE); | |
914 | if(i >= 0)close(i); | |
915 | } | |
916 | # endif | |
917 | } |