1 /* sendmail-like interface to /bin/mail for system V,
2 Copyright (C) 1985, 1994 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
23 #include <../src/config.h>
25 #if defined (BSD) && !defined (BSD4_1) && !defined (USE_FAKEMAIL)
26 /* This program isnot used in BSD, so just avoid loader complaints. */
31 #else /* not BSD 4.2 (or newer) */
38 /* This conditional contains all the rest of the file. */
40 /* These are defined in config in some versions. */
59 /* Type definitions */
70 struct line_record
*continuation
;
72 typedef struct line_record
*line_list
;
77 struct header_record
*next
;
78 struct header_record
*previous
;
80 typedef struct header_record
*header
;
86 struct stream_record
*rest_streams
;
88 typedef struct stream_record
*stream_list
;
90 /* A `struct linebuffer' is a structure which holds a line of text.
91 * `readline' reads a line from a stream into a linebuffer
92 * and works regardless of the length of the line.
101 struct linebuffer lb
;
104 ((line_list) xmalloc (sizeof (struct line_record)))
105 #define new_header() \
106 ((header) xmalloc (sizeof (struct header_record)))
107 #define new_stream() \
108 ((stream_list) xmalloc (sizeof (struct stream_record)))
109 #define alloc_string(nchars) \
110 ((char *) xmalloc ((nchars) + 1))
112 /* Global declarations */
115 #define KEYWORD_SIZE 256
116 #define FROM_PREFIX "From"
117 #define MY_NAME "fakemail"
118 #define NIL ((line_list) NULL)
119 #define INITIAL_LINE_SIZE 200
121 #ifndef MAIL_PROGRAM_NAME
122 #define MAIL_PROGRAM_NAME "/bin/mail"
125 static char *my_name
;
126 static char *the_date
;
127 static char *the_user
;
128 static line_list file_preface
;
129 static stream_list the_streams
;
130 static boolean no_problems
= true;
132 extern FILE *popen ();
133 extern int fclose (), pclose ();
136 extern struct passwd
*getpwuid ();
137 extern unsigned short geteuid ();
138 static struct passwd
*my_entry
;
140 (my_entry = getpwuid (((int) geteuid ())), \
146 /* Print error message. `s1' is printf control string, `s2' is arg for it. */
152 printf ("%s: ", my_name
);
158 /* Print error message and exit. */
168 /* Like malloc but get fatal error if memory is exhausted. */
174 long *result
= (long *) malloc (((unsigned) size
));
175 if (result
== ((long *) NULL
))
176 fatal ("virtual memory exhausted", 0);
185 long *result
= (long *) realloc (ptr
, ((unsigned) size
));
186 if (result
== ((long *) NULL
))
187 fatal ("virtual memory exhausted");
191 /* Initialize a linebuffer for use */
194 init_linebuffer (linebuffer
)
195 struct linebuffer
*linebuffer
;
197 linebuffer
->size
= INITIAL_LINE_SIZE
;
198 linebuffer
->buffer
= ((char *) xmalloc (INITIAL_LINE_SIZE
));
201 /* Read a line of text from `stream' into `linebuffer'.
202 * Return the length of the line.
206 readline (linebuffer
, stream
)
207 struct linebuffer
*linebuffer
;
210 char *buffer
= linebuffer
->buffer
;
211 char *p
= linebuffer
->buffer
;
212 char *end
= p
+ linebuffer
->size
;
216 int c
= getc (stream
);
219 linebuffer
->size
*= 2;
220 buffer
= ((char *) xrealloc (buffer
, linebuffer
->size
));
221 p
= buffer
+ (p
- linebuffer
->buffer
);
222 end
= buffer
+ linebuffer
->size
;
223 linebuffer
->buffer
= buffer
;
225 if (c
< 0 || c
== '\n')
236 /* Extract a colon-terminated keyword from the string FIELD.
237 Return that keyword as a string stored in a static buffer.
238 Store the address of the rest of the string into *REST.
240 If there is no keyword, return NULL and don't alter *REST. */
243 get_keyword (field
, rest
)
244 register char *field
;
247 static char keyword
[KEYWORD_SIZE
];
253 if (isspace (c
) || c
== ':')
254 return ((char *) NULL
);
255 *ptr
++ = (islower (c
) ? toupper (c
) : c
);
256 while (((c
= *field
++) != ':') && ! isspace (c
))
257 *ptr
++ = (islower (c
) ? toupper (c
) : c
);
262 return ((char *) NULL
);
267 /* Nonzero if the string FIELD starts with a colon-terminated keyword. */
274 return (get_keyword (field
, &ignored
) != ((char *) NULL
));
277 /* Store the string FIELD, followed by any lines in THE_LIST,
278 into the buffer WHERE.
279 Concatenate lines, putting just a space between them.
280 Delete everything contained in parentheses.
281 When a recipient name contains <...>, we discard
282 everything except what is inside the <...>.
284 We don't pay attention to overflowing WHERE;
285 the caller has to make it big enough. */
288 add_field (the_list
, field
, where
)
290 register char *field
, *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
;
348 char *the_string
, *temp
;
349 long idiotic_interface
;
355 prefix_length
= strlen (FROM_PREFIX
);
356 time (&idiotic_interface
);
357 the_date
= ctime (&idiotic_interface
);
358 /* the_date has an unwanted newline at the end */
359 date_length
= strlen (the_date
) - 1;
360 the_date
[date_length
] = '\0';
361 temp
= cuserid ((char *) NULL
);
362 user_length
= strlen (temp
);
363 the_user
= alloc_string (user_length
+ 1);
364 strcpy (the_user
, temp
);
365 the_string
= alloc_string (3 + prefix_length
+
369 strcpy (temp
, FROM_PREFIX
);
370 temp
= &temp
[prefix_length
];
372 strcpy (temp
, the_user
);
373 temp
= &temp
[user_length
];
375 strcpy (temp
, the_date
);
376 result
= new_list ();
377 result
->string
= the_string
;
378 result
->continuation
= ((line_list
) NULL
);
383 write_line_list (the_list
, the_stream
)
384 register line_list the_list
;
388 the_list
!= ((line_list
) NULL
) ;
389 the_list
= the_list
->continuation
)
391 fputs (the_list
->string
, the_stream
);
392 putc ('\n', the_stream
);
400 register stream_list rem
;
401 for (rem
= the_streams
;
402 rem
!= ((stream_list
) NULL
);
403 rem
= rem
->rest_streams
)
404 no_problems
= (no_problems
&&
405 ((*rem
->action
) (rem
->handle
) == 0));
406 the_streams
= ((stream_list
) NULL
);
407 return (no_problems
? 0 : 1);
411 add_a_stream (the_stream
, closing_action
)
413 int (*closing_action
)();
415 stream_list old
= the_streams
;
416 the_streams
= new_stream ();
417 the_streams
->handle
= the_stream
;
418 the_streams
->action
= closing_action
;
419 the_streams
->rest_streams
= old
;
427 putc ('\n', the_file
);
429 return fclose (the_file
);
436 FILE *the_stream
= fopen (name
, "a");
437 if (the_stream
!= ((FILE *) NULL
))
439 add_a_stream (the_stream
, my_fclose
);
440 if (the_user
== ((char *) NULL
))
441 file_preface
= make_file_preface ();
442 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
);
464 register stream_list rem
;
465 for (rem
= the_streams
;
466 rem
!= ((stream_list
) NULL
);
467 rem
= rem
->rest_streams
)
472 /* Divide STRING into lines. */
477 /* Find the last char that fits. */
478 for (breakpos
= s
; *breakpos
&& column
< 78; ++breakpos
)
480 if (*breakpos
== '\t')
485 /* If we didn't reach end of line, break the line. */
488 /* Back up to just after the last comma that fits. */
489 while (breakpos
!= s
&& breakpos
[-1] != ',') --breakpos
;
493 /* If no comma fits, move past the first address anyway. */
494 while (*breakpos
!= 0 && *breakpos
!= ',') ++breakpos
;
496 /* Include the comma after it. */
500 /* Output that much, then break the line. */
501 fwrite (s
, 1, breakpos
- s
, rem
->handle
);
504 /* Skip whitespace and prepare to print more addresses. */
506 while (*s
== ' ' || *s
== '\t') ++s
;
508 fputs ("\n\t", rem
->handle
);
510 putc ('\n', rem
->handle
);
515 #define mail_error error
517 /* Handle an FCC field. FIELD is the text of the first line (after
518 the header name), and THE_LIST holds the continuation lines if any.
519 Call open_a_file for each file. */
522 setup_files (the_list
, field
)
523 register line_list the_list
;
524 register char *field
;
526 register char *start
;
530 while (((c
= *field
) != '\0')
538 while (((c
= *field
) != '\0')
544 if (!open_a_file (start
))
545 mail_error ("Could not open file %s", start
);
547 if (c
!= '\0') continue;
549 if (the_list
== ((line_list
) NULL
))
551 field
= the_list
->string
;
552 the_list
= the_list
->continuation
;
556 /* Compute the total size of all recipient names stored in THE_HEADER.
557 The result says how big to make the buffer to pass to parse_header. */
560 args_size (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. */
591 parse_header (the_header
, where
)
593 register char *where
;
595 register header old
= the_header
;
599 register char *keyword
= get_keyword (the_header
->text
->string
, &field
);
600 if (strcmp (keyword
, "TO") == 0)
601 where
= add_field (the_header
->text
->continuation
, field
, where
);
602 else if (strcmp (keyword
, "CC") == 0)
603 where
= add_field (the_header
->text
->continuation
, field
, where
);
604 else if (strcmp (keyword
, "BCC") == 0)
606 where
= add_field (the_header
->text
->continuation
, field
, where
);
607 the_header
->previous
->next
= the_header
->next
;
608 the_header
->next
->previous
= the_header
->previous
;
610 else if (strcmp (keyword
, "FCC") == 0)
611 setup_files (the_header
->text
->continuation
, field
);
612 the_header
= the_header
->next
;
613 } while (the_header
!= old
);
618 /* Read lines from the input until we get a blank line.
619 Create a list of `header' objects, one for each header field,
620 each of which points to a list of `line_list' objects,
621 one for each line in that field.
622 Continuation lines are grouped in the headers they continue. */
627 register header the_header
= ((header
) NULL
);
628 register line_list
*next_line
= ((line_list
*) NULL
);
630 init_linebuffer (&lb
);
637 readline (&lb
, stdin
);
639 length
= strlen (line
);
640 if (length
== 0) break;
642 if (has_keyword (line
))
644 register header old
= the_header
;
645 the_header
= new_header ();
646 if (old
== ((header
) NULL
))
648 the_header
->next
= the_header
;
649 the_header
->previous
= the_header
;
653 the_header
->previous
= old
;
654 the_header
->next
= old
->next
;
655 old
->next
= the_header
;
657 next_line
= &(the_header
->text
);
660 if (next_line
== ((line_list
*) NULL
))
662 /* Not a valid header */
665 *next_line
= new_list ();
666 (*next_line
)->string
= alloc_string (length
);
667 strcpy (((*next_line
)->string
), line
);
668 next_line
= &((*next_line
)->continuation
);
673 return the_header
->next
;
677 write_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
);
702 char *mail_program_name
;
703 char buf
[BUFLEN
+ 1];
707 extern char *getenv ();
709 mail_program_name
= getenv ("FAKEMAILER");
710 if (!(mail_program_name
&& *mail_program_name
))
711 mail_program_name
= MAIL_PROGRAM_NAME
;
712 name_length
= strlen (mail_program_name
);
715 the_streams
= ((stream_list
) NULL
);
716 the_date
= ((char *) NULL
);
717 the_user
= ((char *) NULL
);
719 the_header
= read_header ();
720 command_line
= alloc_string (name_length
+ args_size (the_header
));
721 strcpy (command_line
, mail_program_name
);
722 parse_header (the_header
, &command_line
[name_length
]);
724 the_pipe
= popen (command_line
, "w");
725 if (the_pipe
== ((FILE *) NULL
))
726 fatal ("cannot open pipe to real mailer");
728 add_a_stream (the_pipe
, pclose
);
730 write_header (the_header
);
732 /* Dump the message itself */
734 while (!feof (stdin
))
736 size
= fread (buf
, 1, BUFLEN
, stdin
);
741 exit (close_the_streams ());
744 #endif /* not MSDOS */
745 #endif /* not BSD 4.2 (or newer) */