1 /* $NetBSD: mail.c,v 1.9 2018/05/08 16:37:59 kamil Exp $ */
2
3 /*
4 * Mailbox checking code by Robert J. Gibson, adapted for PD ksh by
5 * John R. MacMillan
6 */
7 #include <sys/cdefs.h>
8
9 #ifndef lint
10 __RCSID("$NetBSD: mail.c,v 1.9 2018/05/08 16:37:59 kamil Exp $");
11 #endif
12
13 #include "config.h"
14
15 #ifdef KSH
16 #include <sys/stat.h>
17 #include <sys/time.h>
18 #include <time.h>
19
20 #include "sh.h"
21
22 #define MBMESSAGE "You have mail in $_"
23
24 typedef struct mbox {
25 struct mbox *mb_next; /* next mbox in list */
26 char *mb_path; /* path to mail file */
27 char *mb_msg; /* to announce arrival of new mail */
28 time_t mb_mtime; /* mtime of mail file */
29 } mbox_t;
30
31 /*
32 * $MAILPATH is a linked list of mboxes. $MAIL is a treated as a
33 * special case of $MAILPATH, where the list has only one node. The
34 * same list is used for both since they are exclusive.
35 */
36
37 static mbox_t *mplist;
38 static mbox_t mbox;
39 static time_t mlastchkd; /* when mail was last checked */
40 static time_t mailcheck_interval;
41
42 static void munset ARGS((mbox_t *mlist)); /* free mlist and mval */
43 static mbox_t * mballoc ARGS((char *p, char *m)); /* allocate a new mbox */
44 static void mprintit ARGS((mbox_t *mbp));
45
46 void
mcheck()47 mcheck()
48 {
49 mbox_t *mbp;
50 time_t now;
51 struct tbl *vp;
52 struct stat stbuf;
53
54 now = time((time_t *) 0);
55 if (mlastchkd == 0)
56 mlastchkd = now;
57 if (now - mlastchkd >= mailcheck_interval) {
58 mlastchkd = now;
59
60 if (mplist)
61 mbp = mplist;
62 else if ((vp = global("MAIL")) && (vp->flag & ISSET))
63 mbp = &mbox;
64 else
65 mbp = NULL;
66
67 while (mbp) {
68 if (mbp->mb_path && stat(mbp->mb_path, &stbuf) == 0
69 && S_ISREG(stbuf.st_mode))
70 {
71 if (stbuf.st_size
72 && mbp->mb_mtime != stbuf.st_mtime
73 && stbuf.st_atime <= stbuf.st_mtime)
74 mprintit(mbp);
75 mbp->mb_mtime = stbuf.st_mtime;
76 } else {
77 /*
78 * Some mail readers remove the mail
79 * file if all mail is read. If file
80 * does not exist, assume this is the
81 * case and set mtime to zero.
82 */
83 mbp->mb_mtime = 0;
84 }
85 mbp = mbp->mb_next;
86 }
87 }
88 }
89
90 void
mcset(interval)91 mcset(interval)
92 long interval;
93 {
94 mailcheck_interval = interval;
95 }
96
97 void
mbset(p)98 mbset(p)
99 char *p;
100 {
101 struct stat stbuf;
102
103 if (mbox.mb_msg)
104 afree((void *)mbox.mb_msg, APERM);
105 if (mbox.mb_path)
106 afree((void *)mbox.mb_path, APERM);
107 /* Save a copy to protect from export (which munges the string) */
108 mbox.mb_path = str_save(p, APERM);
109 mbox.mb_msg = NULL;
110 if (p && stat(p, &stbuf) == 0 && S_ISREG(stbuf.st_mode))
111 mbox.mb_mtime = stbuf.st_mtime;
112 else
113 mbox.mb_mtime = 0;
114 }
115
116 void
mpset(mptoparse)117 mpset(mptoparse)
118 char *mptoparse;
119 {
120 mbox_t *mbp;
121 char *mpath, *mmsg, *mval;
122 char *p;
123
124 munset( mplist );
125 mplist = NULL;
126 mval = str_save(mptoparse, APERM);
127 while (mval) {
128 mpath = mval;
129 if ((mval = strchr(mval, PATHSEP)) != NULL) {
130 *mval = '\0', mval++;
131 }
132 /* POSIX/bourne-shell say file%message */
133 for (p = mpath; (mmsg = strchr(p, '%')); ) {
134 /* a literal percent? (POSIXism) */
135 if (mmsg[-1] == '\\') {
136 /* use memmove() to avoid overlap problems */
137 memmove(mmsg - 1, mmsg, strlen(mmsg) + 1);
138 p = mmsg + 1;
139 continue;
140 }
141 break;
142 }
143 /* at&t ksh says file?message */
144 if (!mmsg && !Flag(FPOSIX))
145 mmsg = strchr(mpath, '?');
146 if (mmsg) {
147 *mmsg = '\0';
148 mmsg++;
149 }
150 mbp = mballoc(mpath, mmsg);
151 mbp->mb_next = mplist;
152 mplist = mbp;
153 }
154 }
155
156 static void
munset(mlist)157 munset(mlist)
158 mbox_t *mlist;
159 {
160 mbox_t *mbp;
161
162 while (mlist != NULL) {
163 mbp = mlist;
164 mlist = mbp->mb_next;
165 if (!mlist)
166 afree((void *)mbp->mb_path, APERM);
167 afree((void *)mbp, APERM);
168 }
169 }
170
171 static mbox_t *
mballoc(p,m)172 mballoc(p, m)
173 char *p;
174 char *m;
175 {
176 struct stat stbuf;
177 mbox_t *mbp;
178
179 mbp = (mbox_t *)alloc(sizeof(mbox_t), APERM);
180 mbp->mb_next = NULL;
181 mbp->mb_path = p;
182 mbp->mb_msg = m;
183 if (stat(mbp->mb_path, &stbuf) == 0 && S_ISREG(stbuf.st_mode))
184 mbp->mb_mtime = stbuf.st_mtime;
185 else
186 mbp->mb_mtime = 0;
187 return(mbp);
188 }
189
190 static void
mprintit(mbp)191 mprintit( mbp )
192 mbox_t *mbp;
193 {
194 struct tbl *vp;
195
196 /* Ignore setstr errors here (arbitrary) */
197 setstr((vp = local("_", false)), mbp->mb_path, KSH_RETURN_ERROR);
198
199 shellf("%s\n", substitute(mbp->mb_msg ? mbp->mb_msg : MBMESSAGE, 0));
200
201 unset(vp, 0);
202 }
203 #endif /* KSH */
204