1 /* sendmail-like interface to /bin/mail for system V,
2 Copyright (C) 1985, 1994, 1999, 2001, 2002, 2003, 2004,
3 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
5 Author: Bill Rozas <jinx@martigny.ai.mit.edu>
6 (according to ack.texi)
8 This file is part of GNU Emacs.
10 GNU Emacs is free software: you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation, either version 3 of the License, or
13 (at your option) any later version.
15 GNU Emacs is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
24 #define _XOPEN_SOURCE 500 /* for cuserid */
30 #if defined (BSD_SYSTEM) && !defined (USE_FAKEMAIL)
31 /* This program isnot used in BSD, so just avoid loader complaints. */
37 #else /* not BSD 4.2 (or newer) */
45 /* This conditional contains all the rest of the file. */
47 /* These are defined in config in some versions. */
63 /* This is to declare cuserid. */
68 /* Type definitions */
74 #define TM_YEAR_BASE 1900
76 /* Nonzero if TM_YEAR is a struct tm's tm_year value that causes
77 asctime to have well-defined behavior. */
78 #ifndef TM_YEAR_IN_ASCTIME_RANGE
79 # define TM_YEAR_IN_ASCTIME_RANGE(tm_year) \
80 (1000 - TM_YEAR_BASE <= (tm_year) && (tm_year) <= 9999 - TM_YEAR_BASE)
88 struct line_record
*continuation
;
90 typedef struct line_record
*line_list
;
95 struct header_record
*next
;
96 struct header_record
*previous
;
98 typedef struct header_record
*header
;
103 int (*action
)(FILE *);
104 struct stream_record
*rest_streams
;
106 typedef struct stream_record
*stream_list
;
108 /* A `struct linebuffer' is a structure which holds a line of text.
109 * `readline' reads a line from a stream into a linebuffer
110 * and works regardless of the length of the line.
119 struct linebuffer lb
;
122 ((line_list) xmalloc (sizeof (struct line_record)))
123 #define new_header() \
124 ((header) xmalloc (sizeof (struct header_record)))
125 #define new_stream() \
126 ((stream_list) xmalloc (sizeof (struct stream_record)))
127 #define alloc_string(nchars) \
128 ((char *) xmalloc ((nchars) + 1))
130 /* Global declarations */
133 #define KEYWORD_SIZE 256
134 #define FROM_PREFIX "From"
135 #define MY_NAME "fakemail"
136 #define NIL ((line_list) NULL)
137 #define INITIAL_LINE_SIZE 200
139 #ifndef MAIL_PROGRAM_NAME
140 #define MAIL_PROGRAM_NAME "/bin/mail"
143 static char *my_name
;
144 static char *the_date
;
145 static char *the_user
;
146 static line_list file_preface
;
147 static stream_list the_streams
;
148 static boolean no_problems
= true;
150 extern FILE *popen (const char *, const char *);
151 extern int fclose (FILE *), pclose (FILE *);
154 extern struct passwd
*getpwuid ();
155 extern unsigned short geteuid ();
156 static struct passwd
*my_entry
;
158 (my_entry = getpwuid (((int) geteuid ())), \
164 /* Print error message. `s1' is printf control string, `s2' is arg for it. */
167 error (char *s1
, char *s2
)
169 printf ("%s: ", my_name
);
175 /* Print error message and exit. */
184 /* Like malloc but get fatal error if memory is exhausted. */
189 long *result
= (long *) malloc (((unsigned) size
));
190 if (result
== ((long *) NULL
))
191 fatal ("virtual memory exhausted");
196 xrealloc (long int *ptr
, int size
)
198 long *result
= (long *) realloc (ptr
, ((unsigned) size
));
199 if (result
== ((long *) NULL
))
200 fatal ("virtual memory exhausted");
204 /* Initialize a linebuffer for use */
207 init_linebuffer (struct linebuffer
*linebuffer
)
209 linebuffer
->size
= INITIAL_LINE_SIZE
;
210 linebuffer
->buffer
= ((char *) xmalloc (INITIAL_LINE_SIZE
));
213 /* Read a line of text from `stream' into `linebuffer'.
214 Return the length of the line. */
217 readline (struct linebuffer
*linebuffer
, FILE *stream
)
219 char *buffer
= linebuffer
->buffer
;
220 char *p
= linebuffer
->buffer
;
221 char *end
= p
+ linebuffer
->size
;
225 int c
= getc (stream
);
228 linebuffer
->size
*= 2;
229 buffer
= ((char *) xrealloc ((long *)buffer
, linebuffer
->size
));
230 p
= buffer
+ (p
- linebuffer
->buffer
);
231 end
= buffer
+ linebuffer
->size
;
232 linebuffer
->buffer
= buffer
;
234 if (c
< 0 || c
== '\n')
245 /* Extract a colon-terminated keyword from the string FIELD.
246 Return that keyword as a string stored in a static buffer.
247 Store the address of the rest of the string into *REST.
249 If there is no keyword, return NULL and don't alter *REST. */
252 get_keyword (register char *field
, char **rest
)
254 static char keyword
[KEYWORD_SIZE
];
259 c
= (unsigned char) *field
++;
260 if (isspace (c
) || c
== ':')
261 return ((char *) NULL
);
262 *ptr
++ = (islower (c
) ? toupper (c
) : c
);
263 while (((c
= (unsigned char) *field
++) != ':') && ! isspace (c
))
264 *ptr
++ = (islower (c
) ? toupper (c
) : c
);
267 c
= (unsigned char) *field
++;
269 return ((char *) NULL
);
274 /* Nonzero if the string FIELD starts with a colon-terminated keyword. */
277 has_keyword (char *field
)
280 return (get_keyword (field
, &ignored
) != ((char *) NULL
));
283 /* Store the string FIELD, followed by any lines in THE_LIST,
284 into the buffer WHERE.
285 Concatenate lines, putting just a space between them.
286 Delete everything contained in parentheses.
287 When a recipient name contains <...>, we discard
288 everything except what is inside the <...>.
290 We don't pay attention to overflowing WHERE;
291 the caller has to make it big enough. */
294 add_field (line_list the_list
, register char *field
, register char *where
)
299 char *this_recipient_where
;
303 this_recipient_where
= where
;
305 while ((c
= *field
++) != '\0')
311 in_quotes
= ! in_quotes
;
318 while (*field
&& *field
!= ')') ++field
;
319 if (! (*field
++)) break; /* no close */
325 /* When we get to the end of one recipient,
326 don't discard it if the next one has <...>. */
327 this_recipient_where
= where
;
330 /* Discard everything we got before the `<'. */
331 where
= this_recipient_where
;
333 /* Discard the rest of this name that follows the `>'. */
335 while (*field
&& *field
!= ',') ++field
;
336 if (! (*field
++)) break; /* no comma */
342 if (the_list
== NIL
) break;
343 field
= the_list
->string
;
344 the_list
= the_list
->continuation
;
350 make_file_preface (void)
352 char *the_string
, *temp
;
353 long idiotic_interface
;
360 prefix_length
= strlen (FROM_PREFIX
);
361 time (&idiotic_interface
);
362 /* Convert to a string, checking for out-of-range time stamps.
363 Don't use 'ctime', as that might dump core if the hardware clock
364 is set to a bizarre value. */
365 tm
= localtime (&idiotic_interface
);
366 if (! (tm
&& TM_YEAR_IN_ASCTIME_RANGE (tm
->tm_year
)
367 && (the_date
= asctime (tm
))))
368 fatal ("current time is out of range");
369 /* the_date has an unwanted newline at the end */
370 date_length
= strlen (the_date
) - 1;
371 the_date
[date_length
] = '\0';
372 temp
= cuserid ((char *) NULL
);
373 user_length
= strlen (temp
);
374 the_user
= alloc_string (user_length
+ 1);
375 strcpy (the_user
, temp
);
376 the_string
= alloc_string (3 + prefix_length
380 strcpy (temp
, FROM_PREFIX
);
381 temp
= &temp
[prefix_length
];
383 strcpy (temp
, the_user
);
384 temp
= &temp
[user_length
];
386 strcpy (temp
, the_date
);
387 result
= new_list ();
388 result
->string
= the_string
;
389 result
->continuation
= ((line_list
) NULL
);
394 write_line_list (register line_list the_list
, FILE *the_stream
)
397 the_list
!= ((line_list
) NULL
) ;
398 the_list
= the_list
->continuation
)
400 fputs (the_list
->string
, the_stream
);
401 putc ('\n', the_stream
);
407 close_the_streams (void)
409 register stream_list rem
;
410 for (rem
= the_streams
;
411 rem
!= ((stream_list
) NULL
);
412 rem
= rem
->rest_streams
)
413 no_problems
= (no_problems
&&
414 ((*rem
->action
) (rem
->handle
) == 0));
415 the_streams
= ((stream_list
) NULL
);
416 return (no_problems
? EXIT_SUCCESS
: EXIT_FAILURE
);
420 add_a_stream (FILE *the_stream
, int (*closing_action
) (FILE *))
422 stream_list old
= the_streams
;
423 the_streams
= new_stream ();
424 the_streams
->handle
= the_stream
;
425 the_streams
->action
= closing_action
;
426 the_streams
->rest_streams
= old
;
431 my_fclose (FILE *the_file
)
433 putc ('\n', the_file
);
435 return fclose (the_file
);
439 open_a_file (char *name
)
441 FILE *the_stream
= fopen (name
, "a");
442 if (the_stream
!= ((FILE *) NULL
))
444 add_a_stream (the_stream
, my_fclose
);
445 if (the_user
== ((char *) NULL
))
446 file_preface
= make_file_preface ();
447 write_line_list (file_preface
, the_stream
);
456 register stream_list rem
;
457 for (rem
= the_streams
;
458 rem
!= ((stream_list
) NULL
);
459 rem
= rem
->rest_streams
)
460 fputs (s
, rem
->handle
);
465 put_line (char *string
)
467 register stream_list rem
;
468 for (rem
= the_streams
;
469 rem
!= ((stream_list
) NULL
);
470 rem
= rem
->rest_streams
)
475 /* Divide STRING into lines. */
480 /* Find the last char that fits. */
481 for (breakpos
= s
; *breakpos
&& column
< 78; ++breakpos
)
483 if (*breakpos
== '\t')
488 /* If we didn't reach end of line, break the line. */
491 /* Back up to just after the last comma that fits. */
492 while (breakpos
!= s
&& breakpos
[-1] != ',') --breakpos
;
496 /* If no comma fits, move past the first address anyway. */
497 while (*breakpos
!= 0 && *breakpos
!= ',') ++breakpos
;
499 /* Include the comma after it. */
503 /* Output that much, then break the line. */
504 fwrite (s
, 1, breakpos
- s
, rem
->handle
);
507 /* Skip whitespace and prepare to print more addresses. */
509 while (*s
== ' ' || *s
== '\t') ++s
;
511 fputs ("\n\t", rem
->handle
);
513 putc ('\n', rem
->handle
);
518 #define mail_error error
520 /* Handle an FCC field. FIELD is the text of the first line (after
521 the header name), and THE_LIST holds the continuation lines if any.
522 Call open_a_file for each file. */
525 setup_files (register line_list the_list
, register char *field
)
527 register char *start
;
531 while (((c
= *field
) != '\0')
539 while (((c
= *field
) != '\0')
545 if (!open_a_file (start
))
546 mail_error ("Could not open file %s", start
);
548 if (c
!= '\0') continue;
550 if (the_list
== ((line_list
) NULL
))
552 field
= the_list
->string
;
553 the_list
= the_list
->continuation
;
557 /* Compute the total size of all recipient names stored in THE_HEADER.
558 The result says how big to make the buffer to pass to parse_header. */
561 args_size (header the_header
)
563 register header old
= the_header
;
564 register line_list rem
;
565 register int size
= 0;
569 register char *keyword
= get_keyword (the_header
->text
->string
, &field
);
570 if ((strcmp (keyword
, "TO") == 0)
571 || (strcmp (keyword
, "CC") == 0)
572 || (strcmp (keyword
, "BCC") == 0))
574 size
+= 1 + strlen (field
);
575 for (rem
= the_header
->text
->continuation
;
577 rem
= rem
->continuation
)
578 size
+= 1 + strlen (rem
->string
);
580 the_header
= the_header
->next
;
581 } while (the_header
!= old
);
585 /* Scan the header described by the lists THE_HEADER,
586 and put all recipient names into the buffer WHERE.
587 Precede each recipient name with a space.
589 Also, if the header has any FCC fields, call setup_files for each one. */
592 parse_header (header the_header
, register char *where
)
594 register header old
= the_header
;
598 register char *keyword
= get_keyword (the_header
->text
->string
, &field
);
599 if (strcmp (keyword
, "TO") == 0)
600 where
= add_field (the_header
->text
->continuation
, field
, where
);
601 else if (strcmp (keyword
, "CC") == 0)
602 where
= add_field (the_header
->text
->continuation
, field
, where
);
603 else if (strcmp (keyword
, "BCC") == 0)
605 where
= add_field (the_header
->text
->continuation
, field
, where
);
606 the_header
->previous
->next
= the_header
->next
;
607 the_header
->next
->previous
= the_header
->previous
;
609 else if (strcmp (keyword
, "FCC") == 0)
610 setup_files (the_header
->text
->continuation
, field
);
611 the_header
= the_header
->next
;
612 } while (the_header
!= old
);
617 /* Read lines from the input until we get a blank line.
618 Create a list of `header' objects, one for each header field,
619 each of which points to a list of `line_list' objects,
620 one for each line in that field.
621 Continuation lines are grouped in the headers they continue. */
626 register header the_header
= ((header
) NULL
);
627 register line_list
*next_line
= ((line_list
*) NULL
);
629 init_linebuffer (&lb
);
636 readline (&lb
, stdin
);
638 length
= strlen (line
);
639 if (length
== 0) break;
641 if (has_keyword (line
))
643 register header old
= the_header
;
644 the_header
= new_header ();
645 if (old
== ((header
) NULL
))
647 the_header
->next
= the_header
;
648 the_header
->previous
= the_header
;
652 the_header
->previous
= old
;
653 the_header
->next
= old
->next
;
654 old
->next
= the_header
;
656 next_line
= &(the_header
->text
);
659 if (next_line
== ((line_list
*) NULL
))
661 /* Not a valid header */
664 *next_line
= new_list ();
665 (*next_line
)->string
= alloc_string (length
);
666 strcpy (((*next_line
)->string
), line
);
667 next_line
= &((*next_line
)->continuation
);
673 fatal ("input message has no header");
674 return the_header
->next
;
678 write_header (header the_header
)
680 register header old
= the_header
;
683 register line_list the_list
;
684 for (the_list
= the_header
->text
;
686 the_list
= the_list
->continuation
)
687 put_line (the_list
->string
);
688 the_header
= the_header
->next
;
689 } while (the_header
!= old
);
695 main (int argc
, char **argv
)
700 char *mail_program_name
;
701 char buf
[BUFLEN
+ 1];
705 extern char *getenv (const char *);
707 mail_program_name
= getenv ("FAKEMAILER");
708 if (!(mail_program_name
&& *mail_program_name
))
709 mail_program_name
= MAIL_PROGRAM_NAME
;
710 name_length
= strlen (mail_program_name
);
713 the_streams
= ((stream_list
) NULL
);
714 the_date
= ((char *) NULL
);
715 the_user
= ((char *) NULL
);
717 the_header
= read_header ();
718 command_line
= alloc_string (name_length
+ args_size (the_header
));
719 strcpy (command_line
, mail_program_name
);
720 parse_header (the_header
, &command_line
[name_length
]);
722 the_pipe
= popen (command_line
, "w");
723 if (the_pipe
== ((FILE *) NULL
))
724 fatal ("cannot open pipe to real mailer");
726 add_a_stream (the_pipe
, pclose
);
728 write_header (the_header
);
730 /* Dump the message itself */
732 while (!feof (stdin
))
734 size
= fread (buf
, 1, BUFLEN
, stdin
);
739 exit (close_the_streams ());
742 #endif /* not MSDOS */
743 #endif /* not BSD 4.2 (or newer) */
745 /* arch-tag: acb0afa6-315a-4c5b-b9e3-def5725c8783
746 (do not change this comment) */
748 /* fakemail.c ends here */