]>
code.delx.au - gnu-emacs/blob - lib-src/fakemail.c
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. */
22 /* This is needed to get the declaration of cuserid in GNU libc. */
23 #define _XOPEN_SOURCE 1
26 #include <../src/config.h>
28 #if defined (BSD_SYSTEM) && !defined (BSD4_1) && !defined (USE_FAKEMAIL)
29 /* This program isnot used in BSD, so just avoid loader complaints. */
35 #else /* not BSD 4.2 (or newer) */
43 /* This conditional contains all the rest of the file. */
45 /* These are defined in config in some versions. */
68 /* This is to declare cuserid. */
73 /* Type definitions */
84 struct line_record
*continuation
;
86 typedef struct line_record
*line_list
;
91 struct header_record
*next
;
92 struct header_record
*previous
;
94 typedef struct header_record
*header
;
100 struct stream_record
*rest_streams
;
102 typedef struct stream_record
*stream_list
;
104 /* A `struct linebuffer' is a structure which holds a line of text.
105 * `readline' reads a line from a stream into a linebuffer
106 * and works regardless of the length of the line.
115 struct linebuffer lb
;
118 ((line_list) xmalloc (sizeof (struct line_record)))
119 #define new_header() \
120 ((header) xmalloc (sizeof (struct header_record)))
121 #define new_stream() \
122 ((stream_list) xmalloc (sizeof (struct stream_record)))
123 #define alloc_string(nchars) \
124 ((char *) xmalloc ((nchars) + 1))
126 /* Global declarations */
129 #define KEYWORD_SIZE 256
130 #define FROM_PREFIX "From"
131 #define MY_NAME "fakemail"
132 #define NIL ((line_list) NULL)
133 #define INITIAL_LINE_SIZE 200
135 #ifndef MAIL_PROGRAM_NAME
136 #define MAIL_PROGRAM_NAME "/bin/mail"
139 static char *my_name
;
140 static char *the_date
;
141 static char *the_user
;
142 static line_list file_preface
;
143 static stream_list the_streams
;
144 static boolean no_problems
= true;
146 extern FILE *popen ();
147 extern int fclose (), pclose ();
150 extern struct passwd
*getpwuid ();
151 extern unsigned short geteuid ();
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. */
166 printf ("%s: ", my_name
);
172 /* Print error message and exit. */
182 /* Like malloc but get fatal error if memory is exhausted. */
188 long *result
= (long *) malloc (((unsigned) size
));
189 if (result
== ((long *) NULL
))
190 fatal ("virtual memory exhausted", 0);
199 long *result
= (long *) realloc (ptr
, ((unsigned) size
));
200 if (result
== ((long *) NULL
))
201 fatal ("virtual memory exhausted");
205 /* Initialize a linebuffer for use */
208 init_linebuffer (linebuffer
)
209 struct linebuffer
*linebuffer
;
211 linebuffer
->size
= INITIAL_LINE_SIZE
;
212 linebuffer
->buffer
= ((char *) xmalloc (INITIAL_LINE_SIZE
));
215 /* Read a line of text from `stream' into `linebuffer'.
216 * Return the length of the line.
220 readline (linebuffer
, stream
)
221 struct linebuffer
*linebuffer
;
224 char *buffer
= linebuffer
->buffer
;
225 char *p
= linebuffer
->buffer
;
226 char *end
= p
+ linebuffer
->size
;
230 int c
= getc (stream
);
233 linebuffer
->size
*= 2;
234 buffer
= ((char *) xrealloc (buffer
, linebuffer
->size
));
235 p
= buffer
+ (p
- linebuffer
->buffer
);
236 end
= buffer
+ linebuffer
->size
;
237 linebuffer
->buffer
= buffer
;
239 if (c
< 0 || c
== '\n')
250 /* Extract a colon-terminated keyword from the string FIELD.
251 Return that keyword as a string stored in a static buffer.
252 Store the address of the rest of the string into *REST.
254 If there is no keyword, return NULL and don't alter *REST. */
257 get_keyword (field
, rest
)
258 register char *field
;
261 static char keyword
[KEYWORD_SIZE
];
267 if (isspace (c
) || c
== ':')
268 return ((char *) NULL
);
269 *ptr
++ = (islower (c
) ? toupper (c
) : c
);
270 while (((c
= *field
++) != ':') && ! isspace (c
))
271 *ptr
++ = (islower (c
) ? toupper (c
) : c
);
276 return ((char *) NULL
);
281 /* Nonzero if the string FIELD starts with a colon-terminated keyword. */
288 return (get_keyword (field
, &ignored
) != ((char *) NULL
));
291 /* Store the string FIELD, followed by any lines in THE_LIST,
292 into the buffer WHERE.
293 Concatenate lines, putting just a space between them.
294 Delete everything contained in parentheses.
295 When a recipient name contains <...>, we discard
296 everything except what is inside the <...>.
298 We don't pay attention to overflowing WHERE;
299 the caller has to make it big enough. */
302 add_field (the_list
, field
, where
)
304 register char *field
, *where
;
309 char *this_recipient_where
;
313 this_recipient_where
= where
;
315 while ((c
= *field
++) != '\0')
321 in_quotes
= ! in_quotes
;
328 while (*field
&& *field
!= ')') ++field
;
329 if (! (*field
++)) break; /* no close */
335 /* When we get to the end of one recipient,
336 don't discard it if the next one has <...>. */
337 this_recipient_where
= where
;
340 /* Discard everything we got before the `<'. */
341 where
= this_recipient_where
;
343 /* Discard the rest of this name that follows the `>'. */
345 while (*field
&& *field
!= ',') ++field
;
346 if (! (*field
++)) break; /* no comma */
352 if (the_list
== NIL
) break;
353 field
= the_list
->string
;
354 the_list
= the_list
->continuation
;
362 char *the_string
, *temp
;
363 long idiotic_interface
;
369 prefix_length
= strlen (FROM_PREFIX
);
370 time (&idiotic_interface
);
371 the_date
= ctime (&idiotic_interface
);
372 /* the_date has an unwanted newline at the end */
373 date_length
= strlen (the_date
) - 1;
374 the_date
[date_length
] = '\0';
375 temp
= cuserid ((char *) NULL
);
376 user_length
= strlen (temp
);
377 the_user
= alloc_string (user_length
+ 1);
378 strcpy (the_user
, temp
);
379 the_string
= alloc_string (3 + prefix_length
383 strcpy (temp
, FROM_PREFIX
);
384 temp
= &temp
[prefix_length
];
386 strcpy (temp
, the_user
);
387 temp
= &temp
[user_length
];
389 strcpy (temp
, the_date
);
390 result
= new_list ();
391 result
->string
= the_string
;
392 result
->continuation
= ((line_list
) NULL
);
397 write_line_list (the_list
, the_stream
)
398 register line_list the_list
;
402 the_list
!= ((line_list
) NULL
) ;
403 the_list
= the_list
->continuation
)
405 fputs (the_list
->string
, the_stream
);
406 putc ('\n', the_stream
);
414 register stream_list rem
;
415 for (rem
= the_streams
;
416 rem
!= ((stream_list
) NULL
);
417 rem
= rem
->rest_streams
)
418 no_problems
= (no_problems
&&
419 ((*rem
->action
) (rem
->handle
) == 0));
420 the_streams
= ((stream_list
) NULL
);
421 return (no_problems
? 0 : 1);
425 add_a_stream (the_stream
, closing_action
)
427 int (*closing_action
)();
429 stream_list old
= the_streams
;
430 the_streams
= new_stream ();
431 the_streams
->handle
= the_stream
;
432 the_streams
->action
= closing_action
;
433 the_streams
->rest_streams
= old
;
441 putc ('\n', the_file
);
443 return fclose (the_file
);
450 FILE *the_stream
= fopen (name
, "a");
451 if (the_stream
!= ((FILE *) NULL
))
453 add_a_stream (the_stream
, my_fclose
);
454 if (the_user
== ((char *) NULL
))
455 file_preface
= make_file_preface ();
456 write_line_list (file_preface
, the_stream
);
466 register stream_list rem
;
467 for (rem
= the_streams
;
468 rem
!= ((stream_list
) NULL
);
469 rem
= rem
->rest_streams
)
470 fputs (s
, rem
->handle
);
478 register stream_list rem
;
479 for (rem
= the_streams
;
480 rem
!= ((stream_list
) NULL
);
481 rem
= rem
->rest_streams
)
486 /* Divide STRING into lines. */
491 /* Find the last char that fits. */
492 for (breakpos
= s
; *breakpos
&& column
< 78; ++breakpos
)
494 if (*breakpos
== '\t')
499 /* If we didn't reach end of line, break the line. */
502 /* Back up to just after the last comma that fits. */
503 while (breakpos
!= s
&& breakpos
[-1] != ',') --breakpos
;
507 /* If no comma fits, move past the first address anyway. */
508 while (*breakpos
!= 0 && *breakpos
!= ',') ++breakpos
;
510 /* Include the comma after it. */
514 /* Output that much, then break the line. */
515 fwrite (s
, 1, breakpos
- s
, rem
->handle
);
518 /* Skip whitespace and prepare to print more addresses. */
520 while (*s
== ' ' || *s
== '\t') ++s
;
522 fputs ("\n\t", rem
->handle
);
524 putc ('\n', rem
->handle
);
529 #define mail_error error
531 /* Handle an FCC field. FIELD is the text of the first line (after
532 the header name), and THE_LIST holds the continuation lines if any.
533 Call open_a_file for each file. */
536 setup_files (the_list
, field
)
537 register line_list the_list
;
538 register char *field
;
540 register char *start
;
544 while (((c
= *field
) != '\0')
552 while (((c
= *field
) != '\0')
558 if (!open_a_file (start
))
559 mail_error ("Could not open file %s", start
);
561 if (c
!= '\0') continue;
563 if (the_list
== ((line_list
) NULL
))
565 field
= the_list
->string
;
566 the_list
= the_list
->continuation
;
570 /* Compute the total size of all recipient names stored in THE_HEADER.
571 The result says how big to make the buffer to pass to parse_header. */
574 args_size (the_header
)
577 register header old
= the_header
;
578 register line_list rem
;
579 register int size
= 0;
583 register char *keyword
= get_keyword (the_header
->text
->string
, &field
);
584 if ((strcmp (keyword
, "TO") == 0)
585 || (strcmp (keyword
, "CC") == 0)
586 || (strcmp (keyword
, "BCC") == 0))
588 size
+= 1 + strlen (field
);
589 for (rem
= the_header
->text
->continuation
;
591 rem
= rem
->continuation
)
592 size
+= 1 + strlen (rem
->string
);
594 the_header
= the_header
->next
;
595 } while (the_header
!= old
);
599 /* Scan the header described by the lists THE_HEADER,
600 and put all recipient names into the buffer WHERE.
601 Precede each recipient name with a space.
603 Also, if the header has any FCC fields, call setup_files for each one. */
606 parse_header (the_header
, where
)
608 register char *where
;
610 register header old
= the_header
;
614 register char *keyword
= get_keyword (the_header
->text
->string
, &field
);
615 if (strcmp (keyword
, "TO") == 0)
616 where
= add_field (the_header
->text
->continuation
, field
, where
);
617 else if (strcmp (keyword
, "CC") == 0)
618 where
= add_field (the_header
->text
->continuation
, field
, where
);
619 else if (strcmp (keyword
, "BCC") == 0)
621 where
= add_field (the_header
->text
->continuation
, field
, where
);
622 the_header
->previous
->next
= the_header
->next
;
623 the_header
->next
->previous
= the_header
->previous
;
625 else if (strcmp (keyword
, "FCC") == 0)
626 setup_files (the_header
->text
->continuation
, field
);
627 the_header
= the_header
->next
;
628 } while (the_header
!= old
);
633 /* Read lines from the input until we get a blank line.
634 Create a list of `header' objects, one for each header field,
635 each of which points to a list of `line_list' objects,
636 one for each line in that field.
637 Continuation lines are grouped in the headers they continue. */
642 register header the_header
= ((header
) NULL
);
643 register line_list
*next_line
= ((line_list
*) NULL
);
645 init_linebuffer (&lb
);
652 readline (&lb
, stdin
);
654 length
= strlen (line
);
655 if (length
== 0) break;
657 if (has_keyword (line
))
659 register header old
= the_header
;
660 the_header
= new_header ();
661 if (old
== ((header
) NULL
))
663 the_header
->next
= the_header
;
664 the_header
->previous
= the_header
;
668 the_header
->previous
= old
;
669 the_header
->next
= old
->next
;
670 old
->next
= the_header
;
672 next_line
= &(the_header
->text
);
675 if (next_line
== ((line_list
*) NULL
))
677 /* Not a valid header */
680 *next_line
= new_list ();
681 (*next_line
)->string
= alloc_string (length
);
682 strcpy (((*next_line
)->string
), line
);
683 next_line
= &((*next_line
)->continuation
);
688 return the_header
->next
;
692 write_header (the_header
)
695 register header old
= the_header
;
698 register line_list the_list
;
699 for (the_list
= the_header
->text
;
701 the_list
= the_list
->continuation
)
702 put_line (the_list
->string
);
703 the_header
= the_header
->next
;
704 } while (the_header
!= old
);
717 char *mail_program_name
;
718 char buf
[BUFLEN
+ 1];
722 extern char *getenv ();
724 mail_program_name
= getenv ("FAKEMAILER");
725 if (!(mail_program_name
&& *mail_program_name
))
726 mail_program_name
= MAIL_PROGRAM_NAME
;
727 name_length
= strlen (mail_program_name
);
730 the_streams
= ((stream_list
) NULL
);
731 the_date
= ((char *) NULL
);
732 the_user
= ((char *) NULL
);
734 the_header
= read_header ();
735 command_line
= alloc_string (name_length
+ args_size (the_header
));
736 strcpy (command_line
, mail_program_name
);
737 parse_header (the_header
, &command_line
[name_length
]);
739 the_pipe
= popen (command_line
, "w");
740 if (the_pipe
== ((FILE *) NULL
))
741 fatal ("cannot open pipe to real mailer");
743 add_a_stream (the_pipe
, pclose
);
745 write_header (the_header
);
747 /* Dump the message itself */
749 while (!feof (stdin
))
751 size
= fread (buf
, 1, BUFLEN
, stdin
);
756 exit (close_the_streams ());
759 #endif /* not MSDOS */
760 #endif /* not BSD 4.2 (or newer) */