开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Email客户端 > 查看源码
mail.local.c
资源名称：sendmail.8.10.0.Beta10.tar.Z　[点击查看]
上传用户：xu_441
上传日期：2007-01-04
资源大小：1640k
文件大小：35k
源码类别：

Email客户端

开发平台：

Unix_Linux

mail.local.c：源码内容
  1. /*
  2.  * Copyright (c) 1998, 1999 Sendmail, Inc. and its suppliers.
  3.  * All rights reserved.
  4.  * Copyright (c) 1990, 1993, 1994
  5.  * The Regents of the University of California.  All rights reserved.
  6.  *
  7.  * By using this file, you agree to the terms and conditions set
  8.  * forth in the LICENSE file which can be found at the top level of
  9.  * the sendmail distribution.
  10.  *
  11.  */
  13. #ifndef lint
  14. static char copyright[] =
  15. "@(#) Copyright (c) 1998, 1999 Sendmail, Inc. and its suppliers.n
  16. All rights reserved.n
  17.      Copyright (c) 1990, 1993, 1994n
  18. The Regents of the University of California.  All rights reserved.n";
  19. #endif /* ! lint */
  21. #ifndef lint
  22. static char id[] = "@(#)$Id: mail.local.c,v 8.138 1999/12/02 19:52:26 gshapiro Exp $";
  23. #endif /* ! lint */
  25. /*
  26. **  This is not intended to work on System V derived systems
  27. **  such as Solaris or HP-UX, since they use a totally different
  28. **  approach to mailboxes (essentially, they have a setgid program
  29. **  rather than setuid, and they rely on the ability to "give away"
  30. **  files to do their work).  IT IS NOT A BUG that this doesn't
  31. **  work on such architectures.
  32. */
  34. #include <sys/types.h>
  35. #include <sys/param.h>
  36. #include <sys/stat.h>
  37. #include <sys/socket.h>
  38. #include <sys/file.h>
  40. #include <netinet/in.h>
  41. #include <arpa/nameser.h>
  43. #include <fcntl.h>
  44. #include <netdb.h>
  45. #include <pwd.h>
  46. #include <stdio.h>
  47. #include <stdlib.h>
  48. #include <string.h>
  49. #include <syslog.h>
  50. #include <time.h>
  51. #include <unistd.h>
  52. #ifdef EX_OK
  53. # undef EX_OK /* unistd.h may have another use for this */
  54. #endif /* EX_OK */
  55. #include <sysexits.h>
  56. #include <ctype.h>
  58. #ifndef __P
  59. # include "sendmail/cdefs.h"
  60. #endif /* ! __P */
  61. #include "sendmail/useful.h"
  63. extern size_t strlcpy __P((char *, const char *, size_t));
  64. extern size_t strlcat __P((char *, const char *, size_t));
  66. #if defined(BSD4_4) || defined(__osf__) || defined(__GNU_LIBRARY__) || defined(IRIX64) || defined(IRIX5) || defined(IRIX6)
  67. # ifndef HASSTRERROR
  68. #  define HASSTRERROR 1
  69. # endif /* ! HASSTRERROR */
  70. #endif /* defined(BSD4_4) || defined(__osf__) || defined(__GNU_LIBRARY__) ||
  71.   defined(IRIX64) || defined(IRIX5) || defined(IRIX6) */
  73. #include "sendmail/errstring.h"
  76. #ifndef LOCKTO_RM
  77. # define LOCKTO_RM 300 /* timeout for stale lockfile removal */
  78. #endif /* LOCKTO_RM */
  79. #ifndef LOCKTO_GLOB
  80. # define LOCKTO_GLOB 400 /* global timeout for lockfile creation */
  81. #endif /* LOCKTO_GLOB */
  83. #ifdef __STDC__
  84. # include <stdarg.h>
  85. # define REALLOC(ptr, size) realloc(ptr, size)
  86. #else /* __STDC__ */
  87. # include <varargs.h>
  88. /* define a realloc() which works for NULL pointers */
  89. # define REALLOC(ptr, size) (((ptr) == NULL) ? malloc(size) : realloc(ptr, size))
  90. #endif /* __STDC__ */
  92. #if (defined(sun) && defined(__svr4__)) || defined(__SVR4)
  93. # define USE_LOCKF 1
  94. # define USE_SETEUID 1
  95. #  define _PATH_MAILDIR "/var/mail"
  96. #endif /* (defined(sun) && defined(__svr4__)) || defined(__SVR4) */
  98. #if defined(_AIX)
  99. # define USE_LOCKF 1
  100. # define USE_SETEUID 1
  101. # define USE_VSYSLOG 0
  102. #endif /* defined(_AIX) */
  104. #if defined(__hpux)
  105. # define USE_LOCKF 1
  106. # define USE_SETRESUID 1
  107. # define USE_VSYSLOG 0
  108. #endif /* defined(__hpux) */
  110. #if defined(_CRAY)
  111. # if !defined(MAXPATHLEN)
  112. #  define MAXPATHLEN PATHSIZE
  113. # endif /* !defined(MAXPATHLEN) */
  114. # define USE_VSYSLOG   0
  115. #  define _PATH_MAILDIR "/usr/spool/mail"
  116. #endif /* defined(_CRAY) */
  118. #if defined(ultrix)
  119. # define USE_VSYSLOG 0
  120. #endif /* defined(ultrix) */
  122. #if defined(__osf__)
  123. # define USE_VSYSLOG 0
  124. #endif /* defined(__osf__) */
  126. #if defined(NeXT) && !defined(__APPLE__)
  127. # include <libc.h>
  128. #  define _PATH_MAILDIR "/usr/spool/mail"
  129. # define S_IRUSR S_IREAD
  130. # define S_IWUSR S_IWRITE
  131. #endif /* defined(NeXT) && !defined(__APPLE__) */
  133. #if defined(IRIX64) || defined(IRIX5) || defined(IRIX6)
  134. #  include <paths.h>
  135. #endif /* defined(IRIX64) || defined(IRIX5) || defined(IRIX6) */
  137. /*
  138.  * If you don't have flock, you could try using lockf instead.
  139.  */
  141. #ifdef USE_LOCKF
  142. # define flock(a, b) lockf(a, b, 0)
  143. # ifdef LOCK_EX
  144. #  undef LOCK_EX
  145. # endif /* LOCK_EX */
  146. # define LOCK_EX F_LOCK
  147. #endif /* USE_LOCKF */
  149. #ifndef USE_VSYSLOG
  150. # define USE_VSYSLOG 1
  151. #endif /* ! USE_VSYSLOG */
  153. #ifndef LOCK_EX
  154. # include <sys/file.h>
  155. #endif /* ! LOCK_EX */
  157. #if defined(BSD4_4) || defined(__GLIBC__)
  158. #  include <paths.h>
  159. # define _PATH_LOCTMP "/tmp/local.XXXXXX"
  160. #endif /* defined(BSD4_4) || defined(__GLIBC__) */
  162. #ifdef BSD4_4
  163. # define HAS_ST_GEN 1
  164. #else /* BSD4_4 */
  165. # ifndef _BSD_VA_LIST_
  166. #  define _BSD_VA_LIST_ va_list
  167. # endif /* ! _BSD_VA_LIST_ */
  168. #endif /* BSD4_4 */
  170. #if defined(BSD4_4) || defined(linux)
  171. # define HASSNPRINTF 1
  172. #else /* defined(BSD4_4) || defined(linux) */
  173. # ifndef ultrix
  174. extern FILE *fdopen __P((int, const char *));
  175. # endif /* ! ultrix */
  176. #endif /* defined(BSD4_4) || defined(linux) */
  178. #if SOLARIS >= 20300 || (SOLARIS < 10000 && SOLARIS >= 203)
  179. # define CONTENTLENGTH 1 /* Needs the Content-Length header */
  180. #endif /* SOLARIS >= 20300 || (SOLARIS < 10000 && SOLARIS >= 203) */
  182. #if SOLARIS >= 20600 || (SOLARIS < 10000 && SOLARIS >= 206)
  183. # define HASSNPRINTF 1 /* has snprintf starting in 2.6 */
  184. #endif /* SOLARIS >= 20600 || (SOLARIS < 10000 && SOLARIS >= 206) */
  186. #ifdef HPUX11
  187. # define HASSNPRINTF 1 /* has snprintf starting in 2.6 */
  188. #endif /* HPUX11 */
  190. #if _AIX4 >= 40300
  191. # define HASSNPRINTF 1 /* has snprintf starting in 4.3 */
  192. #endif /* _AIX4 >= 40300 */
  194. #if !HASSNPRINTF
  195. extern int snprintf __P((char *, size_t, const char *, ...));
  196. # ifndef _CRAY
  197. extern int vsnprintf __P((char *, size_t, const char *, ...));
  198. # endif /* ! _CRAY */
  199. #endif /* !HASSNPRINTF */
  201. /*
  202. **  If you don't have setreuid, and you have saved uids, and you have
  203. **  a seteuid() call that doesn't try to emulate using setuid(), then
  204. **  you can try defining USE_SETEUID.
  205. */
  206. #ifdef USE_SETEUID
  207. # define setreuid(r, e) seteuid(e)
  208. #endif /* USE_SETEUID */
  210. /*
  211. **  And of course on hpux you have setresuid()
  212. */
  213. #ifdef USE_SETRESUID
  214. # define setreuid(r, e) setresuid(-1, e, -1)
  215. #endif /* USE_SETRESUID */
  217. #ifndef _PATH_LOCTMP
  218. # define _PATH_LOCTMP "/tmp/local.XXXXXX"
  219. #endif /* ! _PATH_LOCTMP */
  220. # ifndef _PATH_MAILDIR
  221. #  define _PATH_MAILDIR "/var/spool/mail"
  222. # endif /* ! _PATH_MAILDIR */
  224. #ifndef S_ISREG
  225. # define S_ISREG(mode) (((mode) & _S_IFMT) == S_IFREG)
  226. #endif /* ! S_ISREG */
  228. #ifndef INADDRSZ
  229. # define INADDRSZ 4 /* size of an IPv4 address in bytes */
  230. #endif /* ! INADDRSZ */
  232. #ifndef MAILER_DAEMON
  233. # define MAILER_DAEMON "MAILER-DAEMON"
  234. #endif /* ! MAILER_DAEMON */
  236. #ifdef MAILLOCK
  237. # include <maillock.h>
  238. #endif /* MAILLOCK */
  240. #ifdef CONTENTLENGTH
  241. char ContentHdr[40] = "Content-Length: ";
  242. off_t HeaderLength;
  243. off_t BodyLength;
  244. #endif /* CONTENTLENGTH */
  246. bool EightBitMime = TRUE; /* advertise 8BITMIME in LMTP */
  247. int ExitVal = EX_OK; /* sysexits.h error value. */
  248. bool LMTPMode = FALSE;
  249. bool bouncequota = FALSE; /* permanent error when over quota */
  251. void deliver __P((int, char *, bool));
  252. int e_to_sys __P((int));
  253. void notifybiff __P((char *));
  254. int store __P((char *, int));
  255. void usage __P((void));
  256. void vwarn __P((const char *, _BSD_VA_LIST_));
  257. int lockmbox __P((char *));
  258. void unlockmbox __P((void));
  259. void mailerr __P((const char *, const char *, ...));
  261. int
  262. main(argc, argv)
  263. int argc;
  264. char *argv[];
  265. {
  266. struct passwd *pw;
  267. int ch, fd;
  268. uid_t uid;
  269. char *from;
  270. extern char *optarg;
  271. extern int optind;
  272. extern void dolmtp __P((bool));
  274. /* make sure we have some open file descriptors */
  275. for (fd = 10; fd < 30; fd++)
  276. (void) close(fd);
  278. /* use a reasonable umask */
  279. (void) umask(0077);
  281. #ifdef LOG_MAIL
  282. openlog("mail.local", 0, LOG_MAIL);
  283. #else /* LOG_MAIL */
  284. openlog("mail.local", 0);
  285. #endif /* LOG_MAIL */
  287. from = NULL;
  288. while ((ch = getopt(argc, argv, "7bdf:r:l")) != EOF)
  289. {
  290. switch(ch)
  291. {
  292.   case '7': /* Do not advertise 8BITMIME */
  293. EightBitMime = FALSE;
  294. break;
  296.   case 'b': /* bounce mail when over quota. */
  297. bouncequota = TRUE;
  298. break;
  300.   case 'd': /* Backward compatible. */
  301. break;
  303.   case 'f':
  304.   case 'r': /* Backward compatible. */
  305. if (from != NULL)
  306. {
  307. mailerr(NULL, "multiple -f options");
  308. usage();
  309. }
  310. from = optarg;
  311. break;
  313.   case 'l':
  314. LMTPMode = TRUE;
  315. break;
  317.   case '?':
  318.   default:
  319. usage();
  320. }
  321. }
  322. argc -= optind;
  323. argv += optind;
  325. /* initialize biff structures */
  326. notifybiff(NULL);
  328. if (LMTPMode)
  329. dolmtp(bouncequota);
  331. if (*argv == '')
  332. usage();
  334. /*
  335. **  If from not specified, use the name from getlogin() if the
  336. **  uid matches, otherwise, use the name from the password file
  337. **  corresponding to the uid.
  338. */
  339. uid = getuid();
  341. if (from == NULL && ((from = getlogin()) == NULL ||
  342.      (pw = getpwnam(from)) == NULL ||
  343.      pw->pw_uid != uid))
  344. from = (pw = getpwuid(uid)) != NULL ? pw->pw_name : "???";
  346. /*
  347. **  There is no way to distinguish the error status of one delivery
  348. **  from the rest of the deliveries.  So, if we failed hard on one
  349. **  or more deliveries, but had no failures on any of the others, we
  350. **  return a hard failure.  If we failed temporarily on one or more
  351. **  deliveries, we return a temporary failure regardless of the other
  352. **  failures.  This results in the delivery being reattempted later
  353. **  at the expense of repeated failures and multiple deliveries.
  354. */
  355. for (fd = store(from, 0); *argv; ++argv)
  356. deliver(fd, *argv, bouncequota);
  357. exit(ExitVal);
  358. /* NOTREACHED */
  359. return ExitVal;
  360. }
  362. char *
  363. parseaddr(s, rcpt)
  364. char *s;
  365. bool rcpt;
  366. {
  367. char *p;
  368. int l;
  370. if (*s++ != '<')
  371. return NULL;
  373. p = s;
  375. /* at-domain-list */
  376. while (*p == '@')
  377. {
  378. p++;
  379. while (*p != ',' && *p != ':' && *p != '')
  380. p++;
  381. if (*p == '')
  382. return NULL;
  384. /* Skip over , or : */
  385. p++;
  386. }
  388. s = p;
  390. /* local-part */
  391. if (*p == '"')
  392. {
  393. p++;
  394. while (*p && *p != '"')
  395. {
  396. if (*p == '\')
  397. {
  398. if (*++p == '')
  399. return NULL;
  400. }
  401. p++;
  402. }
  403. if (*p++ == '')
  404. return NULL;
  405. }
  406. else
  407. {
  408. while (*p != '' && *p != '@' && *p != '>')
  409. {
  410. if (*p == '\')
  411. {
  412. if (*++p == '')
  413. return NULL;
  414. }
  415. /* +detail ? */
  416. if (*p == '+' && rcpt)
  417. *p = '';
  418. p++;
  419. }
  420. }
  422. /* @domain */
  423. if (*p == '@')
  424. {
  425. if (rcpt)
  426. *p++ = '';
  427. while (*p != '' && *p != '>')
  428. p++;
  429. }
  431. if (*p != '>')
  432. return NULL;
  433. else
  434. *p = '';
  435. p++;
  437. if (*p != '' && *p != ' ')
  438. return NULL;
  440. if (*s == '')
  441. s = MAILER_DAEMON;
  443. l = strlen(s) + 1;
  444. p = malloc(l);
  445. if (p == NULL)
  446. {
  447. printf("421 4.3.0 memory exhaustedrn");
  448. exit(EX_TEMPFAIL);
  449. }
  451. (void) strlcpy(p, s, l);
  452. return p;
  453. }
  455. char *
  456. process_recipient(addr)
  457. char *addr;
  458. {
  459. if (getpwnam(addr) == NULL)
  460. return "550 5.1.1 user unknown";
  461. return NULL;
  462. }
  464. #define RCPT_GROW 30
  466. void
  467. dolmtp(bouncequota)
  468. bool bouncequota;
  469. {
  470. char *return_path = NULL;
  471. char **rcpt_addr = NULL;
  472. int rcpt_num = 0;
  473. int rcpt_alloc = 0;
  474. bool gotlhlo = FALSE;
  475. char *err;
  476. int msgfd;
  477. char *p;
  478. int i;
  479. char myhostname[1024];
  480. char buf[4096];
  482. (void) gethostname(myhostname, sizeof myhostname - 1);
  484. printf("220 %s LMTP readyrn", myhostname);
  485. for (;;)
  486. {
  487. (void) fflush(stdout);
  488. if (fgets(buf, sizeof(buf) - 1, stdin) == NULL)
  489. exit(EX_OK);
  490. p = buf + strlen(buf) - 1;
  491. if (p >= buf && *p == 'n')
  492. *p-- = '';
  493. if (p >= buf && *p == 'r')
  494. *p-- = '';
  496. switch (buf[0])
  497. {
  498.   case 'd':
  499.   case 'D':
  500. if (strcasecmp(buf, "data") == 0)
  501. {
  502. if (rcpt_num == 0)
  503. {
  504. printf("503 5.5.1 No recipientsrn");
  505. continue;
  506. }
  507. msgfd = store(return_path, rcpt_num);
  508. if (msgfd == -1)
  509. continue;
  511. for (i = 0; i < rcpt_num; i++)
  512. {
  513. p = strchr(rcpt_addr[i], '+');
  514. if (p != NULL)
  515. *p++ = '';
  516. deliver(msgfd, rcpt_addr[i], bouncequota);
  517. }
  518. (void) close(msgfd);
  519. goto rset;
  520. }
  521. goto syntaxerr;
  522. /* NOTREACHED */
  523. break;
  525.   case 'l':
  526.   case 'L':
  527. if (strncasecmp(buf, "lhlo ", 5) == 0)
  528. {
  529. /* check for duplicate per RFC 1651 4.2 */
  530. if (gotlhlo)
  531. {
  532. printf("503 %s Duplicate LHLOrn",
  533.        myhostname);
  534. continue;
  535. }
  536. gotlhlo = TRUE;
  537. printf("250-%srn", myhostname);
  538. if (EightBitMime)
  539. printf("250-8BITMIMErn");
  540. printf("250-ENHANCEDSTATUSCODESrn");
  541. printf("250 PIPELININGrn");
  542. continue;
  543. }
  544. goto syntaxerr;
  545. /* NOTREACHED */
  546. break;
  548.   case 'm':
  549.   case 'M':
  550. if (strncasecmp(buf, "mail ", 5) == 0)
  551. {
  552. if (return_path != NULL)
  553. {
  554. printf("503 5.5.1 Nested MAIL commandrn");
  555. continue;
  556. }
  557. if (strncasecmp(buf+5, "from:", 5) != 0 ||
  558.     ((return_path = parseaddr(buf + 10,
  559.       FALSE)) == NULL))
  560. {
  561. printf("501 5.5.4 Syntax error in parametersrn");
  562. continue;
  563. }
  564. printf("250 2.5.0 okrn");
  565. continue;
  566. }
  567. goto syntaxerr;
  568. /* NOTREACHED */
  569. break;
  571.   case 'n':
  572.   case 'N':
  573. if (strcasecmp(buf, "noop") == 0)
  574. {
  575. printf("250 2.0.0 okrn");
  576. continue;
  577. }
  578. goto syntaxerr;
  579. /* NOTREACHED */
  580. break;
  582.   case 'q':
  583.   case 'Q':
  584. if (strcasecmp(buf, "quit") == 0)
  585. {
  586. printf("221 2.0.0 byern");
  587. exit(EX_OK);
  588. }
  589. goto syntaxerr;
  590. /* NOTREACHED */
  591. break;
  593.   case 'r':
  594.   case 'R':
  595. if (strncasecmp(buf, "rcpt ", 5) == 0)
  596. {
  597. if (return_path == NULL)
  598. {
  599. printf("503 5.5.1 Need MAIL commandrn");
  600. continue;
  601. }
  602. if (rcpt_num >= rcpt_alloc)
  603. {
  604. rcpt_alloc += RCPT_GROW;
  605. rcpt_addr = (char **)
  606. REALLOC((char *)rcpt_addr,
  607. rcpt_alloc *
  608. sizeof(char **));
  609. if (rcpt_addr == NULL)
  610. {
  611. printf("421 4.3.0 memory exhaustedrn");
  612. exit(EX_TEMPFAIL);
  613. }
  614. }
  615. if (strncasecmp(buf + 5, "to:", 3) != 0 ||
  616.     ((rcpt_addr[rcpt_num] = parseaddr(buf + 8,
  617.       TRUE)) == NULL))
  618. {
  619. printf("501 5.5.4 Syntax error in parametersrn");
  620. continue;
  621. }
  622. if ((err = process_recipient(rcpt_addr[rcpt_num])) != NULL)
  623. {
  624. printf("%srn", err);
  625. continue;
  626. }
  627. rcpt_num++;
  628. printf("250 2.1.5 okrn");
  629. continue;
  630. }
  631. else if (strcasecmp(buf, "rset") == 0)
  632. {
  633. printf("250 2.0.0 okrn");
  635. rset:
  636. while (rcpt_num)
  637. free(rcpt_addr[--rcpt_num]);
  638. if (return_path != NULL)
  639. free(return_path);
  640. return_path = NULL;
  641. continue;
  642. }
  643. goto syntaxerr;
  644. /* NOTREACHED */
  645. break;
  647.   case 'v':
  648.   case 'V':
  649. if (strncasecmp(buf, "vrfy ", 5) == 0)
  650. {
  651. printf("252 2.3.3 try RCPT to attempt deliveryrn");
  652. continue;
  653. }
  654. goto syntaxerr;
  655. /* NOTREACHED */
  656. break;
  658.   default:
  659.   syntaxerr:
  660. printf("500 5.5.2 Syntax errorrn");
  661. continue;
  662. /* NOTREACHED */
  663. break;
  664. }
  665. }
  666. }
  668. int
  669. store(from, lmtprcpts)
  670. char *from;
  671. int lmtprcpts;
  672. {
  673. FILE *fp = NULL;
  674. time_t tval;
  675. bool eline;
  676. bool fullline = TRUE;
  677. char line[2048];
  678. int fd;
  679. char tmpbuf[sizeof _PATH_LOCTMP + 1];
  681. (void) umask(0077);
  682. (void) strlcpy(tmpbuf, _PATH_LOCTMP, sizeof tmpbuf);
  683. if ((fd = mkstemp(tmpbuf)) == -1 || (fp = fdopen(fd, "w+")) == NULL)
  684. {
  685. if (lmtprcpts)
  686. {
  687. printf("451 4.3.0 unable to open temporary filern");
  688. return -1;
  689. }
  690. else
  691. {
  692. mailerr("451 4.3.0", "unable to open temporary file");
  693. exit(ExitVal);
  694. }
  695. }
  696. (void) unlink(tmpbuf);
  698. if (LMTPMode)
  699. {
  700. printf("354 go aheadrn");
  701. (void) fflush(stdout);
  702. }
  704. (void) time(&tval);
  705. (void) fprintf(fp, "From %s %s", from, ctime(&tval));
  707. #ifdef CONTENTLENGTH
  708. HeaderLength = 0;
  709. BodyLength = -1;
  710. #endif /* CONTENTLENGTH */
  712. line[0] = '';
  713. for (eline = TRUE; fgets(line, sizeof(line), stdin); )
  714. {
  715. size_t line_len = 0;
  716. int peek;
  717. while (line[line_len] != 'n' && line_len < sizeof(line) - 2)
  718. line_len++;
  719. line_len++;
  721. /* Check for dot-stuffing */
  722. if (fullline && lmtprcpts && line[0] == '.')
  723. {
  724. if (line[1] == 'n' ||
  725.     (line[1] == 'r' && line[2] == 'n'))
  726. goto lmtpdot;
  727. memcpy(line, line + 1, line_len);
  728. line_len--;
  729. }
  731. /* Check to see if we have the full line from the fgets() */
  732. fullline = FALSE;
  733. if (line_len > 0)
  734. {
  735. if (line[line_len - 1] == 'n')
  736. {
  737. if (line_len >= 2 &&
  738.     line[line_len - 2] == 'r')
  739.     {
  740. (void) strlcpy(line + line_len - 2,
  741.        "n", sizeof line -
  742.      line_len + 2);
  743. line_len--;
  744.     }
  745. fullline = TRUE;
  746. }
  747. else if (line[line_len - 1] == 'r')
  748. {
  749. /* Did we just miss the CRLF? */
  750. peek = fgetc(stdin);
  751. if (peek == 'n')
  752. {
  753. line[line_len - 1] = 'n';
  754. fullline = TRUE;
  755. }
  756. else
  757. (void) ungetc(peek, stdin);
  758. }
  759. }
  760. else
  761. fullline = TRUE;
  763. #ifdef CONTENTLENGTH
  764. if (line[0] == 'n' && HeaderLength == 0)
  765. {
  766. eline = FALSE;
  767. HeaderLength = ftell(fp);
  768. if (HeaderLength <= 0)
  769. {
  770. /*
  771. **  shouldn't happen, unless ftell() is
  772. **  badly broken
  773. */
  775. HeaderLength = -1;
  776. }
  777. }
  778. #else /* CONTENTLENGTH */
  779. if (line[0] == 'n')
  780. eline = TRUE;
  781. #endif /* CONTENTLENGTH */
  782. else
  783. {
  784. if (eline && line[0] == 'F' &&
  785.     !memcmp(line, "From ", 5))
  786. (void)putc('>', fp);
  787. eline = FALSE;
  788. #ifdef CONTENTLENGTH
  789. /* discard existing "Content-Length:" headers */
  790. if (HeaderLength == 0 &&
  791.     (line[0] == 'C' || line[0] == 'c') &&
  792.     strncasecmp(line, ContentHdr, 15) == 0)
  793. continue;
  794. #endif /* CONTENTLENGTH */
  796. }
  797. (void) fwrite(line, sizeof(char), line_len, fp);
  798. if (ferror(fp))
  799. {
  800. if (lmtprcpts)
  801. {
  802. while (lmtprcpts--)
  803. printf("451 4.3.0 temporary file write errorrn");
  804. (void) fclose(fp);
  805. return -1;
  806. }
  807. else
  808. {
  809. mailerr("451 4.3.0",
  810. "temporary file write error");
  811. (void) fclose(fp);
  812. exit(ExitVal);
  813. }
  814. }
  815. }
  817. if (lmtprcpts)
  818. {
  819. /* Got a premature EOF -- toss message and exit */
  820. exit(EX_OK);
  821. }
  823. /* If message not newline terminated, need an extra. */
  824. if (strchr(line, 'n') == NULL)
  825. (void) putc('n', fp);
  827.   lmtpdot:
  829. #ifdef CONTENTLENGTH
  830. BodyLength = ftell(fp);
  831. if (HeaderLength == 0 && BodyLength > 0) /* empty body */
  832. {
  833. HeaderLength = BodyLength;
  834. BodyLength = 0;
  835. }
  836. else
  837. BodyLength = BodyLength - HeaderLength - 1 ;
  839. if (HeaderLength > 0 && BodyLength >= 0)
  840. {
  841. extern char *quad_to_string();
  843. if (sizeof BodyLength > sizeof(long))
  844. snprintf(line, sizeof line, "%sn",
  845.  quad_to_string(BodyLength));
  846. else
  847. snprintf(line, sizeof line, "%ldn", (long) BodyLength);
  848. strlcpy(&ContentHdr[16], line, sizeof(ContentHdr) - 16);
  849. }
  850. else
  851. BodyLength = -1; /* Something is wrong here */
  852. #endif /* CONTENTLENGTH */
  854. /* Output a newline; note, empty messages are allowed. */
  855. (void) putc('n', fp);
  857. if (fflush(fp) == EOF || ferror(fp) != 0)
  858. {
  859. if (lmtprcpts)
  860. {
  861. while (lmtprcpts--)
  862. printf("451 4.3.0 temporary file write errorrn");
  863. (void) fclose(fp);
  864. return -1;
  865. }
  866. else
  867. {
  868. mailerr("451 4.3.0", "temporary file write error");
  869. (void) fclose(fp);
  870. exit(ExitVal);
  871. }
  872. }
  873. return fd;
  874. }
  876. void
  877. deliver(fd, name, bouncequota)
  878. int fd;
  879. char *name;
  880. bool bouncequota;
  881. {
  882. struct stat fsb, sb;
  883. struct passwd *pw;
  884. char path[MAXPATHLEN];
  885. int mbfd, nr = 0, nw, off;
  886. char *p;
  887. off_t curoff;
  888. #ifdef CONTENTLENGTH
  889. off_t headerbytes;
  890. int readamount;
  891. #endif /* CONTENTLENGTH */
  892. char biffmsg[100], buf[8*1024];
  893. extern char *quad_to_string();
  896. /*
  897. **  Disallow delivery to unknown names -- special mailboxes can be
  898. **  handled in the sendmail aliases file.
  899. */
  900. if ((pw = getpwnam(name)) == NULL)
  901. {
  902. if (ExitVal != EX_TEMPFAIL)
  903. ExitVal = EX_UNAVAILABLE;
  904. if (LMTPMode)
  905. {
  906. if (ExitVal == EX_TEMPFAIL)
  907. printf("451 4.3.0 cannot lookup name: %srn", name);
  908. else
  909. printf("550 5.1.1 unknown name: %srn", name);
  910. }
  911. else
  912. {
  913. char *errcode = NULL;
  915. if (ExitVal == EX_TEMPFAIL)
  916. errcode = "451 4.3.0";
  917. else
  918. errcode = "550 5.1.1";
  919. mailerr(errcode, "unknown name: %s", name);
  920. }
  921. return;
  922. }
  923. endpwent();
  925. /*
  926. **  Keep name reasonably short to avoid buffer overruns.
  927. ** This isn't necessary on BSD because of the proper
  928. ** definition of snprintf(), but it can cause problems
  929. ** on other systems.
  930. **  Also, clear out any bogus characters.
  931. */
  933. if (strlen(name) > 40)
  934. name[40] = '';
  935. for (p = name; *p != ''; p++)
  936. {
  937. if (!isascii(*p))
  938. *p &= 0x7f;
  939. else if (!isprint(*p))
  940. *p = '.';
  941. }
  943. (void) snprintf(path, sizeof(path), "%s/%s", _PATH_MAILDIR, name);
  945. /*
  946. **  If the mailbox is linked or a symlink, fail.  There's an obvious
  947. **  race here, that the file was replaced with a symbolic link after
  948. **  the lstat returned, but before the open.  We attempt to detect
  949. **  this by comparing the original stat information and information
  950. **  returned by an fstat of the file descriptor returned by the open.
  951. **
  952. **  NB: this is a symptom of a larger problem, that the mail spooling
  953. **  directory is writeable by the wrong users.  If that directory is
  954. **  writeable, system security is compromised for other reasons, and
  955. **  it cannot be fixed here.
  956. **
  957. **  If we created the mailbox, set the owner/group.  If that fails,
  958. **  just return.  Another process may have already opened it, so we
  959. **  can't unlink it.  Historically, binmail set the owner/group at
  960. **  each mail delivery.  We no longer do this, assuming that if the
  961. **  ownership or permissions were changed there was a reason.
  962. **
  963. **  XXX
  964. **  open(2) should support flock'ing the file.
  965. */
  967. tryagain:
  968. #ifdef MAILLOCK
  969. p = name;
  970. #else /* MAILLOCK */
  971. p = path;
  972. #endif /* MAILLOCK */
  973. if ((off = lockmbox(p)) != 0)
  974. {
  975. if (off == EX_TEMPFAIL || e_to_sys(off) == EX_TEMPFAIL)
  976. {
  977. ExitVal = EX_TEMPFAIL;
  978. mailerr("451 4.3.0",
  979. "lockmailbox %s failed; error code %d %s",
  980. p, off, errno > 0 ? errstring(errno) : "");
  981. }
  982. else
  983. {
  984. mailerr("551 5.3.0",
  985. "lockmailbox %s failed; error code %d %s",
  986. p, off, errno > 0 ? errstring(errno) : "");
  987. }
  988. return;
  989. }
  991. if (lstat(path, &sb) < 0)
  992. {
  993. int save_errno;
  994. int mode = S_IRUSR|S_IWUSR;
  995. gid_t gid = pw->pw_gid;
  997. #ifdef MAILGID
  998. (void) umask(0007);
  999. gid = MAILGID;
  1000. mode |= S_IRGRP|S_IWGRP;
  1001. #endif /* MAILGID */
  1003. mbfd = open(path, O_APPEND|O_CREAT|O_EXCL|O_WRONLY, mode);
  1005. save_errno = errno;
  1007. if (lstat(path, &sb) < 0)
  1008. {
  1009. ExitVal = EX_CANTCREAT;
  1010. mailerr("550 5.2.0",
  1011. "%s: lstat: file changed after open", path);
  1012. goto err1;
  1013. }
  1014. else
  1015. sb.st_uid = pw->pw_uid;
  1016. if (mbfd == -1)
  1017. {
  1018. if (save_errno == EEXIST)
  1019. goto tryagain;
  1020. }
  1021. else if (fchown(mbfd, pw->pw_uid, gid) < 0)
  1022. {
  1023. mailerr("451 4.3.0", "chown %u.%u: %s",
  1024. pw->pw_uid, gid, name);
  1025. goto err1;
  1026. }
  1027. }
  1028. else if (sb.st_nlink != 1 || !S_ISREG(sb.st_mode))
  1029. {
  1030. mailerr("550 5.2.0", "%s: irregular file", path);
  1031. goto err0;
  1032. }
  1033. else if (sb.st_uid != pw->pw_uid)
  1034. {
  1035. ExitVal = EX_CANTCREAT;
  1036. mailerr("550 5.2.0", "%s: wrong ownership (%d)",
  1037. path, sb.st_uid);
  1038. goto err0;
  1039. }
  1040. else
  1041. mbfd = open(path, O_APPEND|O_WRONLY, 0);
  1043. if (mbfd == -1)
  1044. {
  1045. mailerr("450 4.2.0", "%s: %s", path, errstring(errno));
  1046. goto err0;
  1047. }
  1048. else if (fstat(mbfd, &fsb) < 0 ||
  1049.  fsb.st_nlink != 1 ||
  1050.  sb.st_nlink != 1 ||
  1051.  !S_ISREG(fsb.st_mode) ||
  1052.  sb.st_dev != fsb.st_dev ||
  1053.  sb.st_ino != fsb.st_ino ||
  1054. #if HAS_ST_GEN && 0 /* AFS returns random values for st_gen */
  1055.  sb.st_gen != fsb.st_gen ||
  1056. #endif /* HAS_ST_GEN && 0 */
  1057.  sb.st_uid != fsb.st_uid)
  1058. {
  1059. ExitVal = EX_TEMPFAIL;
  1060. mailerr("550 5.2.0", "%s: fstat: file changed after open",
  1061. path);
  1062. goto err1;
  1063. }
  1066. /* Wait until we can get a lock on the file. */
  1067. if (flock(mbfd, LOCK_EX) < 0)
  1068. {
  1069. mailerr("450 4.2.0", "%s: %s", path, errstring(errno));
  1070. goto err1;
  1071. }
  1073. /* Get the starting offset of the new message for biff. */
  1074. curoff = lseek(mbfd, (off_t)0, SEEK_END);
  1075. if (sizeof curoff > sizeof(long))
  1076. (void)snprintf(biffmsg, sizeof(biffmsg), "%s@%sn",
  1077.        name, quad_to_string(curoff));
  1078. else
  1079. (void)snprintf(biffmsg, sizeof(biffmsg), "%s@%ldn",
  1080.        name, (long) curoff);
  1082. /* Copy the message into the file. */
  1083. if (lseek(fd, (off_t)0, SEEK_SET) == (off_t)-1)
  1084. {
  1085. mailerr("450 4.2.0", "temporary file: %s",
  1086. errstring(errno));
  1087. goto err1;
  1088. }
  1089. if (setreuid(0, pw->pw_uid) < 0)
  1090. {
  1091. mailerr("450 4.2.0", "setreuid(0, %d): %s (r=%d, e=%d)",
  1092.      pw->pw_uid, errstring(errno), getuid(), geteuid());
  1093. goto err1;
  1094. }
  1095. #ifdef DEBUG
  1096. fprintf(stderr, "new euid = %dn", geteuid());
  1097. #endif /* DEBUG */
  1098. #ifdef CONTENTLENGTH
  1099. headerbytes = (BodyLength >= 0) ? HeaderLength : -1 ;
  1100. for (;;)
  1101. {
  1102. if (headerbytes == 0)
  1103. {
  1104. snprintf(buf, sizeof buf, "%s", ContentHdr);
  1105. nr = strlen(buf);
  1106. headerbytes = -1;
  1107. readamount = 0;
  1108. }
  1109. else if (headerbytes > sizeof(buf) || headerbytes < 0)
  1110. readamount = sizeof(buf);
  1111. else
  1112. readamount = headerbytes;
  1113. if (readamount != 0)
  1114. nr = read(fd, buf, readamount);
  1115. if (nr <= 0)
  1116. break;
  1117. if (headerbytes > 0)
  1118. headerbytes -= nr ;
  1120. #else /* CONTENTLENGTH */
  1121. while ((nr = read(fd, buf, sizeof(buf))) > 0)
  1122. {
  1123. #endif /* CONTENTLENGTH */
  1124. for (off = 0; off < nr; off += nw)
  1125. {
  1126. if ((nw = write(mbfd, buf + off, nr - off)) < 0)
  1127. {
  1128. #ifdef EDQUOT
  1129. if (errno == EDQUOT && bouncequota)
  1130. mailerr("552 5.2.2", "%s: %s",
  1131. path, errstring(errno));
  1132. else
  1133. #endif /* EDQUOT */
  1134. mailerr("450 4.2.0", "%s: %s",
  1135. path, errstring(errno));
  1136. goto err3;
  1137. }
  1138. }
  1139. }
  1140. if (nr < 0)
  1141. {
  1142. mailerr("450 4.2.0", "temporary file: %s",
  1143. errstring(errno));
  1144. goto err3;
  1145. }
  1147. /* Flush to disk, don't wait for update. */
  1148. if (fsync(mbfd) < 0)
  1149. {
  1150. mailerr("450 4.2.0", "%s: %s", path, errstring(errno));
  1151. err3:
  1152. if (setreuid(0, 0) < 0)
  1153. {
  1154. #if 0
  1155. /* already printed an error above for this recipient */
  1156. (void) e_to_sys(errno);
  1157. mailerr("450 4.2.0", "setreuid(0, 0): %s",
  1158. errstring(errno));
  1159. #endif /* 0 */
  1160. }
  1161. #ifdef DEBUG
  1162. fprintf(stderr, "reset euid = %dn", geteuid());
  1163. #endif /* DEBUG */
  1164. (void) ftruncate(mbfd, curoff);
  1165. err1: (void) close(mbfd);
  1166. err0: unlockmbox();
  1167. return;
  1168. }
  1170. /* Close and check -- NFS doesn't write until the close. */
  1171. if (close(mbfd))
  1172. {
  1173. #ifdef EDQUOT
  1174. if (errno == EDQUOT && bouncequota)
  1175. mailerr("552 5.2.2", "%s: %s", path, errstring(errno));
  1176. else
  1177. #endif /* EDQUOT */
  1178. mailerr("450 4.2.0", "%s: %s", path, errstring(errno));
  1179. (void) truncate(path, curoff);
  1180. }
  1181. else
  1182. notifybiff(biffmsg);
  1184. if (setreuid(0, 0) < 0)
  1185. {
  1186. mailerr("450 4.2.0", "setreuid(0, 0): %s",
  1187. errstring(errno));
  1188. goto err0;
  1189. }
  1190. #ifdef DEBUG
  1191. fprintf(stderr, "reset euid = %dn", geteuid());
  1192. #endif /* DEBUG */
  1193. unlockmbox();
  1194. if (LMTPMode)
  1195. printf("250 2.1.5 %s OKrn", name);
  1196. }
  1198. /*
  1199. **  user.lock files are necessary for compatibility with other
  1200. **  systems, e.g., when the mail spool file is NFS exported.
  1201. **  Alas, mailbox locking is more than just a local matter.
  1202. **  EPA 11/94.
  1203. */
  1205. bool Locked = FALSE;
  1207. #ifdef MAILLOCK
  1208. int
  1209. lockmbox(name)
  1210. char *name;
  1211. {
  1212. int r;
  1214. if (Locked)
  1215. return 0;
  1216. if ((r = maillock(name, 15)) == L_SUCCESS)
  1217. {
  1218. Locked = TRUE;
  1219. return 0;
  1220. }
  1221. switch (r)
  1222. {
  1223.   case L_TMPLOCK: /* Can't create tmp file */
  1224.   case L_TMPWRITE: /* Can't write pid into lockfile */
  1225.   case L_MAXTRYS: /* Failed after retrycnt attempts */
  1226. errno = 0;
  1227. r = EX_TEMPFAIL;
  1228. break;
  1229.   case L_ERROR: /* Check errno for reason */
  1230. r = errno;
  1231. break;
  1232.   default: /* other permanent errors */
  1233. errno = 0;
  1234. r = EX_UNAVAILABLE;
  1235. break;
  1236. }
  1237. return r;
  1238. }
  1240. void
  1241. unlockmbox()
  1242. {
  1243. if (Locked)
  1244. mailunlock();
  1245. Locked = FALSE;
  1246. }
  1247. #else /* MAILLOCK */
  1249. char LockName[MAXPATHLEN];
  1251. int
  1252. lockmbox(path)
  1253. char *path;
  1254. {
  1255. int statfailed = 0;
  1256. time_t start;
  1258. if (Locked)
  1259. return 0;
  1260. if (strlen(path) + 6 > sizeof LockName)
  1261. return EX_SOFTWARE;
  1262. (void) snprintf(LockName, sizeof LockName, "%s.lock", path);
  1263. (void) time(&start);
  1264. for (; ; sleep(5))
  1265. {
  1266. int fd;
  1267. struct stat st;
  1268. time_t now;
  1270. /* global timeout */
  1271. (void) time(&now);
  1272. if (now > start + LOCKTO_GLOB)
  1273. {
  1274. errno = 0;
  1275. return EX_TEMPFAIL;
  1276. }
  1277. fd = open(LockName, O_WRONLY|O_EXCL|O_CREAT, 0);
  1278. if (fd >= 0)
  1279. {
  1280. /* defeat lock checking programs which test pid */
  1281. (void) write(fd, "0", 2);
  1282. Locked = TRUE;
  1283. (void) close(fd);
  1284. return 0;
  1285. }
  1286. if (stat(LockName, &st) < 0)
  1287. {
  1288. if (statfailed++ > 5)
  1289. {
  1290. errno = 0;
  1291. return EX_TEMPFAIL;
  1292. }
  1293. continue;
  1294. }
  1295. statfailed = 0;
  1296. (void) time(&now);
  1297. if (now < st.st_ctime + LOCKTO_RM)
  1298. continue;
  1300. /* try to remove stale lockfile */
  1301. if (unlink(LockName) < 0)
  1302. return errno;
  1303. }
  1304. }
  1306. void
  1307. unlockmbox()
  1308. {
  1309. if (!Locked)
  1310. return;
  1311. (void) unlink(LockName);
  1312. Locked = FALSE;
  1313. }
  1314. #endif /* MAILLOCK */
  1316. void
  1317. notifybiff(msg)
  1318. char *msg;
  1319. {
  1320. static bool initialized = FALSE;
  1321. static int f = -1;
  1322. struct hostent *hp;
  1323. struct servent *sp;
  1324. int len;
  1325. static struct sockaddr_in addr;
  1327. if (!initialized)
  1328. {
  1329. initialized = TRUE;
  1331. /* Be silent if biff service not available. */
  1332. if ((sp = getservbyname("biff", "udp")) == NULL ||
  1333.     (hp = gethostbyname("localhost")) == NULL ||
  1334.     hp->h_length != INADDRSZ)
  1335. return;
  1337. addr.sin_family = hp->h_addrtype;
  1338. memcpy(&addr.sin_addr, hp->h_addr, INADDRSZ);
  1339. addr.sin_port = sp->s_port;
  1340. }
  1342. /* No message, just return */
  1343. if (msg == NULL)
  1344. return;
  1346. /* Couldn't initialize addr struct */
  1347. if (addr.sin_family == AF_UNSPEC)
  1348. return;
  1350. if (f < 0 && (f = socket(AF_INET, SOCK_DGRAM, 0)) == -1)
  1351. return;
  1352. len = strlen(msg) + 1;
  1353. (void) sendto(f, msg, len, 0, (struct sockaddr *) &addr, sizeof(addr));
  1354. }
  1356. void
  1357. usage()
  1358. {
  1359. ExitVal = EX_USAGE;
  1360. mailerr(NULL, "usage: mail.local [-l] [-f from] user ...");
  1361. exit(ExitVal);
  1362. }
  1364. void
  1365. #ifdef __STDC__
  1366. mailerr(const char *hdr, const char *fmt, ...)
  1367. #else /* __STDC__ */
  1368. mailerr(hdr, fmt, va_alist)
  1369. const char *hdr;
  1370. const char *fmt;
  1371. va_dcl
  1372. #endif /* __STDC__ */
  1373. {
  1374. va_list ap;
  1376. #ifdef __STDC__
  1377. va_start(ap, fmt);
  1378. #else /* __STDC__ */
  1379. va_start(ap);
  1380. #endif /* __STDC__ */
  1381. if (LMTPMode)
  1382. {
  1383. if (hdr != NULL)
  1384. printf("%s ", hdr);
  1385. (void) vprintf(fmt, ap);
  1386. (void) printf("rn");
  1387. }
  1388. else
  1389. {
  1390. (void) e_to_sys(errno);
  1391. vwarn(fmt, ap);
  1392. }
  1393. }
  1395. void
  1396. vwarn(fmt, ap)
  1397. const char *fmt;
  1398. _BSD_VA_LIST_ ap;
  1399. {
  1400. /*
  1401. **  Log the message to stderr.
  1402. **
  1403. **  Don't use LOG_PERROR as an openlog() flag to do this,
  1404. **  it's not portable enough.
  1405. */
  1407. if (ExitVal != EX_USAGE)
  1408. (void) fprintf(stderr, "mail.local: ");
  1409. (void) vfprintf(stderr, fmt, ap);
  1410. (void) fprintf(stderr, "n");
  1412. #if USE_VSYSLOG
  1413. /* Log the message to syslog. */
  1414. vsyslog(LOG_ERR, fmt, ap);
  1415. #else /* USE_VSYSLOG */
  1416. {
  1417. char fmtbuf[10240];
  1419. (void) vsnprintf(fmtbuf, sizeof fmtbuf, fmt, ap);
  1420. syslog(LOG_ERR, "%s", fmtbuf);
  1421. }
  1422. #endif /* USE_VSYSLOG */
  1423. }
  1425. /*
  1426.  * e_to_sys --
  1427.  * Guess which errno's are temporary.  Gag me.
  1428.  */
  1429. int
  1430. e_to_sys(num)
  1431. int num;
  1432. {
  1433. /* Temporary failures override hard errors. */
  1434. if (ExitVal == EX_TEMPFAIL)
  1435. return ExitVal;
  1437. switch (num) /* Hopefully temporary errors. */
  1438. {
  1439. #ifdef EDQUOT
  1440.   case EDQUOT: /* Disc quota exceeded */
  1441. if (bouncequota)
  1442. {
  1443. ExitVal = EX_UNAVAILABLE;
  1444. break;
  1445. }
  1446. /* FALLTHROUGH */
  1447. #endif /* EDQUOT */
  1448. #ifdef EAGAIN
  1449.   case EAGAIN: /* Resource temporarily unavailable */
  1450. #endif /* EAGAIN */
  1451. #ifdef EBUSY
  1452.   case EBUSY: /* Device busy */
  1453. #endif /* EBUSY */
  1454. #ifdef EPROCLIM
  1455.   case EPROCLIM: /* Too many processes */
  1456. #endif /* EPROCLIM */
  1457. #ifdef EUSERS
  1458.   case EUSERS: /* Too many users */
  1459. #endif /* EUSERS */
  1460. #ifdef ECONNABORTED
  1461.   case ECONNABORTED: /* Software caused connection abort */
  1462. #endif /* ECONNABORTED */
  1463. #ifdef ECONNREFUSED
  1464.   case ECONNREFUSED: /* Connection refused */
  1465. #endif /* ECONNREFUSED */
  1466. #ifdef ECONNRESET
  1467.   case ECONNRESET: /* Connection reset by peer */
  1468. #endif /* ECONNRESET */
  1469. #ifdef EDEADLK
  1470.   case EDEADLK: /* Resource deadlock avoided */
  1471. #endif /* EDEADLK */
  1472. #ifdef EFBIG
  1473.   case EFBIG: /* File too large */
  1474. #endif /* EFBIG */
  1475. #ifdef EHOSTDOWN
  1476.   case EHOSTDOWN: /* Host is down */
  1477. #endif /* EHOSTDOWN */
  1478. #ifdef EHOSTUNREACH
  1479.   case EHOSTUNREACH: /* No route to host */
  1480. #endif /* EHOSTUNREACH */
  1481. #ifdef EMFILE
  1482.   case EMFILE: /* Too many open files */
  1483. #endif /* EMFILE */
  1484. #ifdef ENETDOWN
  1485.   case ENETDOWN: /* Network is down */
  1486. #endif /* ENETDOWN */
  1487. #ifdef ENETRESET
  1488.   case ENETRESET: /* Network dropped connection on reset */
  1489. #endif /* ENETRESET */
  1490. #ifdef ENETUNREACH
  1491.   case ENETUNREACH: /* Network is unreachable */
  1492. #endif /* ENETUNREACH */
  1493. #ifdef ENFILE
  1494.   case ENFILE: /* Too many open files in system */
  1495. #endif /* ENFILE */
  1496. #ifdef ENOBUFS
  1497.   case ENOBUFS: /* No buffer space available */
  1498. #endif /* ENOBUFS */
  1499. #ifdef ENOMEM
  1500.   case ENOMEM: /* Cannot allocate memory */
  1501. #endif /* ENOMEM */
  1502. #ifdef ENOSPC
  1503.   case ENOSPC: /* No space left on device */
  1504. #endif /* ENOSPC */
  1505. #ifdef EROFS
  1506.   case EROFS: /* Read-only file system */
  1507. #endif /* EROFS */
  1508. #ifdef ESTALE
  1509.   case ESTALE: /* Stale NFS file handle */
  1510. #endif /* ESTALE */
  1511. #ifdef ETIMEDOUT
  1512.   case ETIMEDOUT: /* Connection timed out */
  1513. #endif /* ETIMEDOUT */
  1514. #if defined(EWOULDBLOCK) && EWOULDBLOCK != EAGAIN && EWOULDBLOCK != EDEADLK
  1515.   case EWOULDBLOCK: /* Operation would block. */
  1516. #endif /* defined(EWOULDBLOCK) && EWOULDBLOCK != EAGAIN && EWOULDBLOCK != EDEADLK */
  1517. ExitVal = EX_TEMPFAIL;
  1518. break;
  1520.   default:
  1521. ExitVal = EX_UNAVAILABLE;
  1522. break;
  1523. }
  1524. return ExitVal;
  1525. }
  1527. #if defined(ultrix) || defined(_CRAY)
  1528. /*
  1529.  * Copyright (c) 1987, 1993
  1530.  * The Regents of the University of California.  All rights reserved.
  1531.  *
  1532.  * Redistribution and use in source and binary forms, with or without
  1533.  * modification, are permitted provided that the following conditions
  1534.  * are met:
  1535.  * 1. Redistributions of source code must retain the above copyright
  1536.  *    notice, this list of conditions and the following disclaimer.
  1537.  * 2. Redistributions in binary form must reproduce the above copyright
  1538.  *    notice, this list of conditions and the following disclaimer in the
  1539.  *    documentation and/or other materials provided with the distribution.
  1540.  * 3. All advertising materials mentioning features or use of this software
  1541.  *    must display the following acknowledgement:
  1542.  * This product includes software developed by the University of
  1543.  * California, Berkeley and its contributors.
  1544.  * 4. Neither the name of the University nor the names of its contributors
  1545.  *    may be used to endorse or promote products derived from this software
  1546.  *    without specific prior written permission.
  1547.  *
  1548.  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  1549.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  1550.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  1551.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  1552.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  1553.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  1554.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  1555.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  1556.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  1557.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  1558.  * SUCH DAMAGE.
  1559.  */
  1561. # if defined(LIBC_SCCS) && !defined(lint)
  1562. static char sccsid[] = "@(#)mktemp.c 8.1 (Berkeley) 6/4/93";
  1563. # endif /* defined(LIBC_SCCS) && !defined(lint) */
  1565. # include <sys/types.h>
  1566. # include <sys/stat.h>
  1567. # include <fcntl.h>
  1568. # include <errno.h>
  1569. # include <stdio.h>
  1570. # include <ctype.h>
  1572. static int _gettemp();
  1574. mkstemp(path)
  1575. char *path;
  1576. {
  1577. int fd;
  1579. return (_gettemp(path, &fd) ? fd : -1);
  1580. }
  1582. # if 0
  1583. char *
  1584. mktemp(path)
  1585. char *path;
  1586. {
  1587. return(_gettemp(path, (int *)NULL) ? path : (char *)NULL);
  1588. }
  1589. # endif /* 0 */
  1591. static
  1592. _gettemp(path, doopen)
  1593. char *path;
  1594. register int *doopen;
  1595. {
  1596. extern int errno;
  1597. register char *start, *trv;
  1598. struct stat sbuf;
  1599. u_int pid;
  1601. pid = getpid();
  1602. for (trv = path; *trv; ++trv); /* extra X's get set to 0's */
  1603. while (*--trv == 'X')
  1604. {
  1605. *trv = (pid % 10) + '0';
  1606. pid /= 10;
  1607. }
  1609. /*
  1610.  * check the target directory; if you have six X's and it
  1611.  * doesn't exist this runs for a *very* long time.
  1612.  */
  1613. for (start = trv + 1;; --trv)
  1614. {
  1615. if (trv <= path)
  1616. break;
  1617. if (*trv == '/')
  1618. {
  1619. *trv = '';
  1620. if (stat(path, &sbuf) < 0)
  1621. return(0);
  1622. if (!S_ISDIR(sbuf.st_mode))
  1623. {
  1624. errno = ENOTDIR;
  1625. return(0);
  1626. }
  1627. *trv = '/';
  1628. break;
  1629. }
  1630. }
  1632. for (;;)
  1633. {
  1634. if (doopen)
  1635. {
  1636. if ((*doopen =
  1637.     open(path, O_CREAT|O_EXCL|O_RDWR, 0600)) >= 0)
  1638. return(1);
  1639. if (errno != EEXIST)
  1640. return(0);
  1641. }
  1642. else if (stat(path, &sbuf) < 0)
  1643. return(errno == ENOENT ? 1 : 0);
  1645. /* tricky little algorithm for backward compatibility */
  1646. for (trv = start;;)
  1647. {
  1648. if (!*trv)
  1649. return(0);
  1650. if (*trv == 'z')
  1651. *trv++ = 'a';
  1652. else
  1653. {
  1654. if (isascii(*trv) && isdigit(*trv))
  1655. *trv = 'a';
  1656. else
  1657. ++*trv;
  1658. break;
  1659. }
  1660. }
  1661. }
  1662. /* NOTREACHED */
  1663. }
  1664. #endif /* defined(ultrix) || defined(_CRAY) */