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. */
64 /* This is to declare cuserid. */
67 /* Type definitions */
73 #define TM_YEAR_BASE 1900
75 /* Nonzero if TM_YEAR is a struct tm's tm_year value that causes
76 asctime to have well-defined behavior. */
77 #ifndef TM_YEAR_IN_ASCTIME_RANGE
78 # define TM_YEAR_IN_ASCTIME_RANGE(tm_year) \
79 (1000 - TM_YEAR_BASE <= (tm_year) && (tm_year) <= 9999 - TM_YEAR_BASE)
87 struct line_record
*continuation
;
89 typedef struct line_record
*line_list
;
94 struct header_record
*next
;
95 struct header_record
*previous
;
97 typedef struct header_record
*header
;
102 int (*action
)(FILE *);
103 struct stream_record
*rest_streams
;
105 typedef struct stream_record
*stream_list
;
107 /* A `struct linebuffer' is a structure which holds a line of text.
108 * `readline' reads a line from a stream into a linebuffer
109 * and works regardless of the length of the line.
118 struct linebuffer lb
;
121 ((line_list) xmalloc (sizeof (struct line_record)))
122 #define new_header() \
123 ((header) xmalloc (sizeof (struct header_record)))
124 #define new_stream() \
125 ((stream_list) xmalloc (sizeof (struct stream_record)))
126 #define alloc_string(nchars) \
127 ((char *) xmalloc ((nchars) + 1))
129 /* Global declarations */
132 #define KEYWORD_SIZE 256
133 #define FROM_PREFIX "From"
134 #define MY_NAME "fakemail"
135 #define NIL ((line_list) NULL)
136 #define INITIAL_LINE_SIZE 200
138 #ifndef MAIL_PROGRAM_NAME
139 #define MAIL_PROGRAM_NAME "/bin/mail"
142 static const char *my_name
;
143 static char *the_date
;
144 static char *the_user
;
145 static line_list file_preface
;
146 static stream_list the_streams
;
147 static boolean no_problems
= true;
149 static void fatal (const char *s1
) NO_RETURN
;
152 static struct passwd
*my_entry
;
154 (my_entry = getpwuid (((int) geteuid ())), \
160 /* Print error message. `s1' is printf control string, `s2' is arg for it. */
163 error (const char *s1
, const char *s2
)
165 printf ("%s: ", my_name
);
171 /* Print error message and exit. */
174 fatal (const char *s1
)
180 /* Like malloc but get fatal error if memory is exhausted. */
185 long *result
= (long *) malloc (((unsigned) size
));
186 if (result
== ((long *) NULL
))
187 fatal ("virtual memory exhausted");
192 xrealloc (long int *ptr
, int size
)
194 long *result
= (long *) realloc (ptr
, ((unsigned) size
));
195 if (result
== ((long *) NULL
))
196 fatal ("virtual memory exhausted");
200 /* Initialize a linebuffer for use */
203 init_linebuffer (struct linebuffer
*linebuffer
)
205 linebuffer
->size
= INITIAL_LINE_SIZE
;
206 linebuffer
->buffer
= ((char *) xmalloc (INITIAL_LINE_SIZE
));
209 /* Read a line of text from `stream' into `linebuffer'.
210 Return the length of the line. */
213 readline (struct linebuffer
*linebuffer
, FILE *stream
)
215 char *buffer
= linebuffer
->buffer
;
216 char *p
= linebuffer
->buffer
;
217 char *end
= p
+ linebuffer
->size
;
221 int c
= getc (stream
);
224 linebuffer
->size
*= 2;
225 buffer
= ((char *) xrealloc ((long *)buffer
, linebuffer
->size
));
226 p
= buffer
+ (p
- linebuffer
->buffer
);
227 end
= buffer
+ linebuffer
->size
;
228 linebuffer
->buffer
= buffer
;
230 if (c
< 0 || c
== '\n')
241 /* Extract a colon-terminated keyword from the string FIELD.
242 Return that keyword as a string stored in a static buffer.
243 Store the address of the rest of the string into *REST.
245 If there is no keyword, return NULL and don't alter *REST. */
248 get_keyword (register char *field
, char **rest
)
250 static char keyword
[KEYWORD_SIZE
];
255 c
= (unsigned char) *field
++;
256 if (isspace (c
) || c
== ':')
257 return ((char *) NULL
);
258 *ptr
++ = (islower (c
) ? toupper (c
) : c
);
259 while (((c
= (unsigned char) *field
++) != ':') && ! isspace (c
))
260 *ptr
++ = (islower (c
) ? toupper (c
) : c
);
263 c
= (unsigned char) *field
++;
265 return ((char *) NULL
);
270 /* Nonzero if the string FIELD starts with a colon-terminated keyword. */
273 has_keyword (char *field
)
276 return (get_keyword (field
, &ignored
) != ((char *) NULL
));
279 /* Store the string FIELD, followed by any lines in THE_LIST,
280 into the buffer WHERE.
281 Concatenate lines, putting just a space between them.
282 Delete everything contained in parentheses.
283 When a recipient name contains <...>, we discard
284 everything except what is inside the <...>.
286 We don't pay attention to overflowing WHERE;
287 the caller has to make it big enough. */
290 add_field (line_list the_list
, register char *field
, register char *where
)
295 char *this_recipient_where
;
299 this_recipient_where
= where
;
301 while ((c
= *field
++) != '\0')
307 in_quotes
= ! in_quotes
;
314 while (*field
&& *field
!= ')') ++field
;
315 if (! (*field
++)) break; /* no close */
321 /* When we get to the end of one recipient,
322 don't discard it if the next one has <...>. */
323 this_recipient_where
= where
;
326 /* Discard everything we got before the `<'. */
327 where
= this_recipient_where
;
329 /* Discard the rest of this name that follows the `>'. */
331 while (*field
&& *field
!= ',') ++field
;
332 if (! (*field
++)) break; /* no comma */
338 if (the_list
== NIL
) break;
339 field
= the_list
->string
;
340 the_list
= the_list
->continuation
;
346 make_file_preface (void)
348 char *the_string
, *temp
;
349 long idiotic_interface
;
356 prefix_length
= strlen (FROM_PREFIX
);
357 time (&idiotic_interface
);
358 /* Convert to a string, checking for out-of-range time stamps.
359 Don't use 'ctime', as that might dump core if the hardware clock
360 is set to a bizarre value. */
361 tm
= localtime (&idiotic_interface
);
362 if (! (tm
&& TM_YEAR_IN_ASCTIME_RANGE (tm
->tm_year
)
363 && (the_date
= asctime (tm
))))
364 fatal ("current time is out of range");
365 /* the_date has an unwanted newline at the end */
366 date_length
= strlen (the_date
) - 1;
367 the_date
[date_length
] = '\0';
368 temp
= cuserid ((char *) NULL
);
369 user_length
= strlen (temp
);
370 the_user
= alloc_string (user_length
+ 1);
371 strcpy (the_user
, temp
);
372 the_string
= alloc_string (3 + prefix_length
376 strcpy (temp
, FROM_PREFIX
);
377 temp
= &temp
[prefix_length
];
379 strcpy (temp
, the_user
);
380 temp
= &temp
[user_length
];
382 strcpy (temp
, the_date
);
383 result
= new_list ();
384 result
->string
= the_string
;
385 result
->continuation
= ((line_list
) NULL
);
390 write_line_list (register line_list the_list
, FILE *the_stream
)
393 the_list
!= ((line_list
) NULL
) ;
394 the_list
= the_list
->continuation
)
396 fputs (the_list
->string
, the_stream
);
397 putc ('\n', the_stream
);
403 close_the_streams (void)
405 register stream_list rem
;
406 for (rem
= the_streams
;
407 rem
!= ((stream_list
) NULL
);
408 rem
= rem
->rest_streams
)
409 no_problems
= (no_problems
&&
410 ((*rem
->action
) (rem
->handle
) == 0));
411 the_streams
= ((stream_list
) NULL
);
412 return (no_problems
? EXIT_SUCCESS
: EXIT_FAILURE
);
416 add_a_stream (FILE *the_stream
, int (*closing_action
) (FILE *))
418 stream_list old
= the_streams
;
419 the_streams
= new_stream ();
420 the_streams
->handle
= the_stream
;
421 the_streams
->action
= closing_action
;
422 the_streams
->rest_streams
= old
;
427 my_fclose (FILE *the_file
)
429 putc ('\n', the_file
);
431 return fclose (the_file
);
435 open_a_file (char *name
)
437 FILE *the_stream
= fopen (name
, "a");
438 if (the_stream
!= ((FILE *) NULL
))
440 add_a_stream (the_stream
, my_fclose
);
441 if (the_user
== ((char *) NULL
))
442 file_preface
= make_file_preface ();
443 write_line_list (file_preface
, the_stream
);
452 register stream_list rem
;
453 for (rem
= the_streams
;
454 rem
!= ((stream_list
) NULL
);
455 rem
= rem
->rest_streams
)
456 fputs (s
, rem
->handle
);
461 put_line (const char *string
)
463 register stream_list rem
;
464 for (rem
= the_streams
;
465 rem
!= ((stream_list
) NULL
);
466 rem
= rem
->rest_streams
)
468 const char *s
= string
;
471 /* Divide STRING into lines. */
474 const char *breakpos
;
476 /* Find the last char that fits. */
477 for (breakpos
= s
; *breakpos
&& column
< 78; ++breakpos
)
479 if (*breakpos
== '\t')
484 /* If we didn't reach end of line, break the line. */
487 /* Back up to just after the last comma that fits. */
488 while (breakpos
!= s
&& breakpos
[-1] != ',') --breakpos
;
492 /* If no comma fits, move past the first address anyway. */
493 while (*breakpos
!= 0 && *breakpos
!= ',') ++breakpos
;
495 /* Include the comma after it. */
499 /* Output that much, then break the line. */
500 fwrite (s
, 1, breakpos
- s
, rem
->handle
);
503 /* Skip whitespace and prepare to print more addresses. */
505 while (*s
== ' ' || *s
== '\t') ++s
;
507 fputs ("\n\t", rem
->handle
);
509 putc ('\n', rem
->handle
);
514 #define mail_error error
516 /* Handle an FCC field. FIELD is the text of the first line (after
517 the header name), and THE_LIST holds the continuation lines if any.
518 Call open_a_file for each file. */
521 setup_files (register line_list the_list
, register char *field
)
523 register char *start
;
527 while (((c
= *field
) != '\0')
535 while (((c
= *field
) != '\0')
541 if (!open_a_file (start
))
542 mail_error ("Could not open file %s", start
);
544 if (c
!= '\0') continue;
546 if (the_list
== ((line_list
) NULL
))
548 field
= the_list
->string
;
549 the_list
= the_list
->continuation
;
553 /* Compute the total size of all recipient names stored in THE_HEADER.
554 The result says how big to make the buffer to pass to parse_header. */
557 args_size (header the_header
)
559 register header old
= the_header
;
560 register line_list rem
;
561 register int size
= 0;
565 register char *keyword
= get_keyword (the_header
->text
->string
, &field
);
566 if ((strcmp (keyword
, "TO") == 0)
567 || (strcmp (keyword
, "CC") == 0)
568 || (strcmp (keyword
, "BCC") == 0))
570 size
+= 1 + strlen (field
);
571 for (rem
= the_header
->text
->continuation
;
573 rem
= rem
->continuation
)
574 size
+= 1 + strlen (rem
->string
);
576 the_header
= the_header
->next
;
577 } while (the_header
!= old
);
581 /* Scan the header described by the lists THE_HEADER,
582 and put all recipient names into the buffer WHERE.
583 Precede each recipient name with a space.
585 Also, if the header has any FCC fields, call setup_files for each one. */
588 parse_header (header the_header
, register char *where
)
590 register header old
= the_header
;
594 register char *keyword
= get_keyword (the_header
->text
->string
, &field
);
595 if (strcmp (keyword
, "TO") == 0)
596 where
= add_field (the_header
->text
->continuation
, field
, where
);
597 else if (strcmp (keyword
, "CC") == 0)
598 where
= add_field (the_header
->text
->continuation
, field
, where
);
599 else if (strcmp (keyword
, "BCC") == 0)
601 where
= add_field (the_header
->text
->continuation
, field
, where
);
602 the_header
->previous
->next
= the_header
->next
;
603 the_header
->next
->previous
= the_header
->previous
;
605 else if (strcmp (keyword
, "FCC") == 0)
606 setup_files (the_header
->text
->continuation
, field
);
607 the_header
= the_header
->next
;
608 } while (the_header
!= old
);
613 /* Read lines from the input until we get a blank line.
614 Create a list of `header' objects, one for each header field,
615 each of which points to a list of `line_list' objects,
616 one for each line in that field.
617 Continuation lines are grouped in the headers they continue. */
622 register header the_header
= ((header
) NULL
);
623 register line_list
*next_line
= ((line_list
*) NULL
);
625 init_linebuffer (&lb
);
632 readline (&lb
, stdin
);
634 length
= strlen (line
);
635 if (length
== 0) break;
637 if (has_keyword (line
))
639 register header old
= the_header
;
640 the_header
= new_header ();
641 if (old
== ((header
) NULL
))
643 the_header
->next
= the_header
;
644 the_header
->previous
= the_header
;
648 the_header
->previous
= old
;
649 the_header
->next
= old
->next
;
650 old
->next
= the_header
;
652 next_line
= &(the_header
->text
);
655 if (next_line
== ((line_list
*) NULL
))
657 /* Not a valid header */
660 *next_line
= new_list ();
661 (*next_line
)->string
= alloc_string (length
);
662 strcpy (((*next_line
)->string
), line
);
663 next_line
= &((*next_line
)->continuation
);
669 fatal ("input message has no header");
670 return the_header
->next
;
674 write_header (header the_header
)
676 register header old
= the_header
;
679 register line_list the_list
;
680 for (the_list
= the_header
->text
;
682 the_list
= the_list
->continuation
)
683 put_line (the_list
->string
);
684 the_header
= the_header
->next
;
685 } while (the_header
!= old
);
691 main (int argc
, char **argv
)
696 const char *mail_program_name
;
697 char buf
[BUFLEN
+ 1];
701 mail_program_name
= getenv ("FAKEMAILER");
702 if (!(mail_program_name
&& *mail_program_name
))
703 mail_program_name
= MAIL_PROGRAM_NAME
;
704 name_length
= strlen (mail_program_name
);
707 the_streams
= ((stream_list
) NULL
);
708 the_date
= ((char *) NULL
);
709 the_user
= ((char *) NULL
);
711 the_header
= read_header ();
712 command_line
= alloc_string (name_length
+ args_size (the_header
));
713 strcpy (command_line
, mail_program_name
);
714 parse_header (the_header
, &command_line
[name_length
]);
716 the_pipe
= popen (command_line
, "w");
717 if (the_pipe
== ((FILE *) NULL
))
718 fatal ("cannot open pipe to real mailer");
720 add_a_stream (the_pipe
, pclose
);
722 write_header (the_header
);
724 /* Dump the message itself */
726 while (!feof (stdin
))
728 size
= fread (buf
, 1, BUFLEN
, stdin
);
733 exit (close_the_streams ());
736 #endif /* not MSDOS */
737 #endif /* not BSD 4.2 (or newer) */
739 /* arch-tag: acb0afa6-315a-4c5b-b9e3-def5725c8783
740 (do not change this comment) */
742 /* fakemail.c ends here */