1 /* 2 * Copyright (c) 1980, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 1. Redistributions of source code must retain the above copyright 9 * notice, this list of conditions and the following disclaimer. 10 * 2. Redistributions in binary form must reproduce the above copyright 11 * notice, this list of conditions and the following disclaimer in the 12 * documentation and/or other materials provided with the distribution. 13 * 3. All advertising materials mentioning features or use of this software 14 * must display the following acknowledgement: 15 * This product includes software developed by the University of 16 * California, Berkeley and its contributors. 17 * 4. Neither the name of the University nor the names of its contributors 18 * may be used to endorse or promote products derived from this software 19 * without specific prior written permission. 20 * 21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 24 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 31 * SUCH DAMAGE. 32 * 33 * $FreeBSD$ 34 */ 35 36 #ifndef lint 37 #if 0 38 static char sccsid[] = "@(#)fio.c 8.1 (Berkeley) 6/6/93"; 39 #endif 40 static const char rcsid[] = 41 "$FreeBSD$"; 42 #endif /* not lint */ 43 44 #include "rcv.h" 45 #include <sys/file.h> 46 #include <sys/wait.h> 47 48 #include <unistd.h> 49 #include <paths.h> 50 #include <errno.h> 51 #include "extern.h" 52 53 /* 54 * Mail -- a mail program 55 * 56 * File I/O. 57 */ 58 59 /* 60 * Set up the input pointers while copying the mail file into /tmp. 61 */ 62 void 63 setptr(ibuf) 64 register FILE *ibuf; 65 { 66 register int c, count; 67 register char *cp, *cp2; 68 struct message this; 69 FILE *mestmp; 70 off_t offset; 71 int maybe, inhead; 72 char linebuf[LINESIZE], pathbuf[PATHSIZE]; 73 74 /* Get temporary file. */ 75 (void)snprintf(pathbuf, sizeof(pathbuf), "%s/mail.XXXXXXXXXX", tmpdir); 76 if ((c = mkstemp(pathbuf)) == -1 || (mestmp = Fdopen(c, "r+")) == NULL) 77 err(1, "can't open %s", pathbuf); 78 (void) rm(pathbuf); 79 80 msgCount = 0; 81 maybe = 1; 82 inhead = 0; 83 offset = 0; 84 this.m_flag = MUSED|MNEW; 85 this.m_size = 0; 86 this.m_lines = 0; 87 this.m_block = 0; 88 this.m_offset = 0; 89 for (;;) { 90 if (fgets(linebuf, sizeof(linebuf), ibuf) == NULL) { 91 if (append(&this, mestmp)) 92 errx(1, "temporary file"); 93 makemessage(mestmp); 94 return; 95 } 96 count = strlen(linebuf); 97 /* 98 * Transforms lines ending in <CR><LF> to just <LF>. 99 * This allows mail to be able to read Eudora mailboxes. 100 */ 101 if (count >= 2 && linebuf[count - 1] == '\n' && 102 linebuf[count - 2] == '\r') { 103 count--; 104 linebuf[count - 1] = '\n'; 105 } 106 107 (void) fwrite(linebuf, sizeof *linebuf, count, otf); 108 if (ferror(otf)) 109 errx(1, "/tmp"); 110 if (count) 111 linebuf[count - 1] = '\0'; 112 if (maybe && linebuf[0] == 'F' && ishead(linebuf)) { 113 msgCount++; 114 if (append(&this, mestmp)) 115 errx(1, "temporary file"); 116 this.m_flag = MUSED|MNEW; 117 this.m_size = 0; 118 this.m_lines = 0; 119 this.m_block = blockof(offset); 120 this.m_offset = boffsetof(offset); 121 inhead = 1; 122 } else if (linebuf[0] == 0) { 123 inhead = 0; 124 } else if (inhead) { 125 for (cp = linebuf, cp2 = "status";; cp++) { 126 if ((c = *cp2++) == 0) { 127 while (isspace(*cp++)) 128 ; 129 if (cp[-1] != ':') 130 break; 131 while (c = *cp++) 132 if (c == 'R') 133 this.m_flag |= MREAD; 134 else if (c == 'O') 135 this.m_flag &= ~MNEW; 136 inhead = 0; 137 break; 138 } 139 if (*cp != c && *cp != toupper(c)) 140 break; 141 } 142 } 143 offset += count; 144 this.m_size += count; 145 this.m_lines++; 146 maybe = linebuf[0] == 0; 147 } 148 } 149 150 /* 151 * Drop the passed line onto the passed output buffer. 152 * If a write error occurs, return -1, else the count of 153 * characters written, including the newline. 154 */ 155 int 156 putline(obuf, linebuf) 157 FILE *obuf; 158 char *linebuf; 159 { 160 register int c; 161 162 c = strlen(linebuf); 163 (void) fwrite(linebuf, sizeof *linebuf, c, obuf); 164 (void) putc('\n', obuf); 165 if (ferror(obuf)) 166 return (-1); 167 return (c + 1); 168 } 169 170 /* 171 * Read up a line from the specified input into the line 172 * buffer. Return the number of characters read. Do not 173 * include the newline (or carriage return) at the end. 174 */ 175 int 176 readline(ibuf, linebuf, linesize) 177 FILE *ibuf; 178 char *linebuf; 179 int linesize; 180 { 181 register int n; 182 183 clearerr(ibuf); 184 if (fgets(linebuf, linesize, ibuf) == NULL) 185 return -1; 186 n = strlen(linebuf); 187 if (n > 0 && linebuf[n - 1] == '\n') 188 linebuf[--n] = '\0'; 189 if (n > 0 && linebuf[n - 1] == '\r') 190 linebuf[--n] = '\0'; 191 return n; 192 } 193 194 /* 195 * Return a file buffer all ready to read up the 196 * passed message pointer. 197 */ 198 FILE * 199 setinput(mp) 200 register struct message *mp; 201 { 202 203 fflush(otf); 204 if (fseek(itf, (long)positionof(mp->m_block, mp->m_offset), 0) < 0) 205 err(1, "fseek"); 206 return (itf); 207 } 208 209 /* 210 * Take the data out of the passed ghost file and toss it into 211 * a dynamically allocated message structure. 212 */ 213 void 214 makemessage(f) 215 FILE *f; 216 { 217 register size = (msgCount + 1) * sizeof (struct message); 218 219 if (message != 0) 220 free((char *) message); 221 if ((message = (struct message *) malloc((unsigned) size)) == 0) 222 err(1, "Out of memory"); 223 dot = message; 224 size -= sizeof (struct message); 225 fflush(f); 226 (void) lseek(fileno(f), (off_t)sizeof *message, 0); 227 if (read(fileno(f), (char *) message, size) != size) 228 errx(1, "Message temporary file corrupted"); 229 message[msgCount].m_size = 0; 230 message[msgCount].m_lines = 0; 231 Fclose(f); 232 } 233 234 /* 235 * Append the passed message descriptor onto the temp file. 236 * If the write fails, return 1, else 0 237 */ 238 int 239 append(mp, f) 240 struct message *mp; 241 FILE *f; 242 { 243 return fwrite((char *) mp, sizeof *mp, 1, f) != 1; 244 } 245 246 /* 247 * Delete a file, but only if the file is a plain file. 248 */ 249 int 250 rm(name) 251 char *name; 252 { 253 struct stat sb; 254 255 if (stat(name, &sb) < 0) 256 return(-1); 257 if (!S_ISREG(sb.st_mode)) { 258 errno = EISDIR; 259 return(-1); 260 } 261 return(unlink(name)); 262 } 263 264 static int sigdepth; /* depth of holdsigs() */ 265 static int omask; 266 /* 267 * Hold signals SIGHUP, SIGINT, and SIGQUIT. 268 */ 269 void 270 holdsigs() 271 { 272 273 if (sigdepth++ == 0) 274 omask = sigblock(sigmask(SIGHUP)|sigmask(SIGINT)|sigmask(SIGQUIT)); 275 } 276 277 /* 278 * Release signals SIGHUP, SIGINT, and SIGQUIT. 279 */ 280 void 281 relsesigs() 282 { 283 284 if (--sigdepth == 0) 285 sigsetmask(omask); 286 } 287 288 /* 289 * Determine the size of the file possessed by 290 * the passed buffer. 291 */ 292 off_t 293 fsize(iob) 294 FILE *iob; 295 { 296 struct stat sbuf; 297 298 if (fstat(fileno(iob), &sbuf) < 0) 299 return 0; 300 return sbuf.st_size; 301 } 302 303 /* 304 * Evaluate the string given as a new mailbox name. 305 * Supported meta characters: 306 * % for my system mail box 307 * %user for user's system mail box 308 * # for previous file 309 * & invoker's mbox file 310 * +file file in folder directory 311 * any shell meta character 312 * Return the file name as a dynamic string. 313 */ 314 char * 315 expand(name) 316 register char *name; 317 { 318 char xname[PATHSIZE]; 319 char cmdbuf[PATHSIZE]; /* also used for file names */ 320 register int pid, l; 321 register char *cp, *shell; 322 int pivec[2]; 323 struct stat sbuf; 324 extern int wait_status; 325 326 /* 327 * The order of evaluation is "%" and "#" expand into constants. 328 * "&" can expand into "+". "+" can expand into shell meta characters. 329 * Shell meta characters expand into constants. 330 * This way, we make no recursive expansion. 331 */ 332 switch (*name) { 333 case '%': 334 findmail(name[1] ? name + 1 : myname, xname, sizeof(xname)); 335 return savestr(xname); 336 case '#': 337 if (name[1] != 0) 338 break; 339 if (prevfile[0] == 0) { 340 printf("No previous file\n"); 341 return NOSTR; 342 } 343 return savestr(prevfile); 344 case '&': 345 if (name[1] == 0 && (name = value("MBOX")) == NOSTR) 346 name = "~/mbox"; 347 /* fall through */ 348 } 349 if (name[0] == '+' && getfold(cmdbuf, sizeof(cmdbuf)) >= 0) { 350 snprintf(xname, sizeof(xname), "%s/%s", cmdbuf, name + 1); 351 name = savestr(xname); 352 } 353 /* catch the most common shell meta character */ 354 if (name[0] == '~' && homedir != NULL && 355 (name[1] == '/' || name[1] == '\0')) { 356 snprintf(xname, sizeof(xname), "%s%s", homedir, name + 1); 357 name = savestr(xname); 358 } 359 if (!strpbrk(name, "~{[*?$`'\"\\")) 360 return name; 361 if (pipe(pivec) < 0) { 362 warn("pipe"); 363 return name; 364 } 365 snprintf(cmdbuf, sizeof(cmdbuf), "echo %s", name); 366 if ((shell = value("SHELL")) == NOSTR) 367 shell = _PATH_CSHELL; 368 pid = start_command(shell, 0, -1, pivec[1], "-c", cmdbuf, NOSTR); 369 if (pid < 0) { 370 close(pivec[0]); 371 close(pivec[1]); 372 return NOSTR; 373 } 374 close(pivec[1]); 375 l = read(pivec[0], xname, BUFSIZ); 376 close(pivec[0]); 377 if (wait_child(pid) < 0 && WIFSIGNALED(wait_status) && WTERMSIG(wait_status) != SIGPIPE) { 378 fprintf(stderr, "\"%s\": Expansion failed.\n", name); 379 return NOSTR; 380 } 381 if (l < 0) { 382 warn("read"); 383 return NOSTR; 384 } 385 if (l == 0) { 386 fprintf(stderr, "\"%s\": No match.\n", name); 387 return NOSTR; 388 } 389 if (l == BUFSIZ) { 390 fprintf(stderr, "\"%s\": Expansion buffer overflow.\n", name); 391 return NOSTR; 392 } 393 xname[l] = '\0'; 394 for (cp = &xname[l-1]; *cp == '\n' && cp > xname; cp--) 395 ; 396 cp[1] = '\0'; 397 if (strchr(xname, ' ') && stat(xname, &sbuf) < 0) { 398 fprintf(stderr, "\"%s\": Ambiguous.\n", name); 399 return NOSTR; 400 } 401 return savestr(xname); 402 } 403 404 /* 405 * Determine the current folder directory name. 406 */ 407 int 408 getfold(name, namelen) 409 char *name; 410 int namelen; 411 { 412 char *folder; 413 int copylen; 414 415 if ((folder = value("folder")) == NOSTR) 416 return (-1); 417 if (*folder == '/') 418 copylen = strlcpy(name, folder, namelen); 419 else 420 copylen = snprintf(name, namelen, "%s/%s", homedir ? homedir : ".", folder); 421 return copylen >= namelen ? (-1) : (0); 422 } 423 424 /* 425 * Return the name of the dead.letter file. 426 */ 427 char * 428 getdeadletter() 429 { 430 register char *cp; 431 432 if ((cp = value("DEAD")) == NOSTR || (cp = expand(cp)) == NOSTR) 433 cp = expand("~/dead.letter"); 434 else if (*cp != '/') { 435 char buf[PATHSIZE]; 436 437 (void) snprintf(buf, sizeof(buf), "~/%s", cp); 438 cp = expand(buf); 439 } 440 return cp; 441 } 442