X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/5391a863dc82d263f86c1b7586b7f5a16add5e6a..67997c793bb684a0b441f5a555b78e01a95b60c7:/lib-src/fakemail.c diff --git a/lib-src/fakemail.c b/lib-src/fakemail.c index 6e0cca22e5..993f90f3e8 100644 --- a/lib-src/fakemail.c +++ b/lib-src/fakemail.c @@ -1,11 +1,12 @@ /* sendmail-like interface to /bin/mail for system V, - Copyright (C) 1985, 1994 Free Software Foundation, Inc. + Copyright (C) 1985, 1994, 1999, 2001, 2002, 2003, 2004, + 2005, 2006, 2007, 2008 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) +the Free Software Foundation; either version 3, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, @@ -15,23 +16,28 @@ GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to -the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ +the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +Boston, MA 02110-1301, USA. */ +#define _XOPEN_SOURCE 500 /* for cuserid */ -#define NO_SHORTNAMES -#include <../src/config.h> +#ifdef HAVE_CONFIG_H +#include +#endif -#if defined (BSD) && !defined (BSD4_1) && !defined (USE_FAKEMAIL) +#if defined (BSD_SYSTEM) && !defined (BSD4_1) && !defined (USE_FAKEMAIL) /* This program isnot used in BSD, so just avoid loader complaints. */ -void +int main () { + return 0; } #else /* not BSD 4.2 (or newer) */ #ifdef MSDOS -void +int main () { + return 0; } #else /* not MSDOS */ /* This conditional contains all the rest of the file. */ @@ -42,11 +48,8 @@ main () #undef static #endif -#ifdef read -#undef read -#undef write -#undef open -#undef close +#ifdef WINDOWSNT +#include "ntlib.h" #endif #include @@ -54,6 +57,11 @@ main () #include #include #include + +/* This is to declare cuserid. */ +#ifdef HAVE_UNISTD_H +#include +#endif /* Type definitions */ @@ -61,6 +69,15 @@ main () #define true 1 #define false 0 +#define TM_YEAR_BASE 1900 + +/* Nonzero if TM_YEAR is a struct tm's tm_year value that causes + asctime to have well-defined behavior. */ +#ifndef TM_YEAR_IN_ASCTIME_RANGE +# define TM_YEAR_IN_ASCTIME_RANGE(tm_year) \ + (1000 - TM_YEAR_BASE <= (tm_year) && (tm_year) <= 9999 - TM_YEAR_BASE) +#endif + /* Various lists */ struct line_record @@ -77,7 +94,7 @@ struct header_record struct header_record *previous; }; typedef struct header_record *header; - + struct stream_record { FILE *handle; @@ -157,11 +174,11 @@ error (s1, s2) /* Print error message and exit. */ static void -fatal (s1, s2) - char *s1, *s2; +fatal (s1) + char *s1; { - error (s1, s2); - exit (1); + error ("%s", s1); + exit (EXIT_FAILURE); } /* Like malloc but get fatal error if memory is exhausted. */ @@ -172,7 +189,7 @@ xmalloc (size) { long *result = (long *) malloc (((unsigned) size)); if (result == ((long *) NULL)) - fatal ("virtual memory exhausted", 0); + fatal ("virtual memory exhausted"); return result; } @@ -198,8 +215,7 @@ init_linebuffer (linebuffer) } /* Read a line of text from `stream' into `linebuffer'. - * Return the length of the line. - */ + Return the length of the line. */ long readline (linebuffer, stream) @@ -216,7 +232,7 @@ readline (linebuffer, stream) if (p == end) { linebuffer->size *= 2; - buffer = ((char *) xrealloc (buffer, linebuffer->size)); + buffer = ((char *) xrealloc ((long *)buffer, linebuffer->size)); p = buffer + (p - linebuffer->buffer); end = buffer + linebuffer->size; linebuffer->buffer = buffer; @@ -245,18 +261,18 @@ get_keyword (field, rest) { static char keyword[KEYWORD_SIZE]; register char *ptr; - register char c; + register int c; ptr = &keyword[0]; - c = *field++; + c = (unsigned char) *field++; if (isspace (c) || c == ':') return ((char *) NULL); *ptr++ = (islower (c) ? toupper (c) : c); - while (((c = *field++) != ':') && ! isspace (c)) + while (((c = (unsigned char) *field++) != ':') && ! isspace (c)) *ptr++ = (islower (c) ? toupper (c) : c); *ptr++ = '\0'; while (isspace (c)) - c = *field++; + c = (unsigned char) *field++; if (c != ':') return ((char *) NULL); *rest = field; @@ -346,6 +362,7 @@ make_file_preface () { char *the_string, *temp; long idiotic_interface; + struct tm *tm; long prefix_length; long user_length; long date_length; @@ -353,7 +370,13 @@ make_file_preface () prefix_length = strlen (FROM_PREFIX); time (&idiotic_interface); - the_date = ctime (&idiotic_interface); + /* Convert to a string, checking for out-of-range time stamps. + Don't use 'ctime', as that might dump core if the hardware clock + is set to a bizarre value. */ + tm = localtime (&idiotic_interface); + if (! (tm && TM_YEAR_IN_ASCTIME_RANGE (tm->tm_year) + && (the_date = asctime (tm)))) + fatal ("current time is out of range"); /* the_date has an unwanted newline at the end */ date_length = strlen (the_date) - 1; the_date[date_length] = '\0'; @@ -361,9 +384,9 @@ make_file_preface () user_length = strlen (temp); the_user = alloc_string (user_length + 1); strcpy (the_user, temp); - the_string = alloc_string (3 + prefix_length + - user_length + - date_length); + the_string = alloc_string (3 + prefix_length + + user_length + + date_length); temp = the_string; strcpy (temp, FROM_PREFIX); temp = &temp[prefix_length]; @@ -403,7 +426,7 @@ close_the_streams () no_problems = (no_problems && ((*rem->action) (rem->handle) == 0)); the_streams = ((stream_list) NULL); - return (no_problems ? 0 : 1); + return (no_problems ? EXIT_SUCCESS : EXIT_FAILURE); } void @@ -587,6 +610,7 @@ args_size (the_header) Also, if the header has any FCC fields, call setup_files for each one. */ +void parse_header (the_header, where) header the_header; register char *where; @@ -613,13 +637,13 @@ parse_header (the_header, where) *where = '\0'; return; } - + /* Read lines from the input until we get a blank line. Create a list of `header' objects, one for each header field, each of which points to a list of `line_list' objects, one for each line in that field. Continuation lines are grouped in the headers they continue. */ - + header read_header () { @@ -659,7 +683,7 @@ read_header () if (next_line == ((line_list *) NULL)) { /* Not a valid header */ - exit (1); + exit (EXIT_FAILURE); } *next_line = new_list (); (*next_line)->string = alloc_string (length); @@ -669,6 +693,8 @@ read_header () } while (true); + if (! the_header) + fatal ("input message has no header"); return the_header->next; } @@ -690,7 +716,7 @@ write_header (the_header) return; } -void +int main (argc, argv) int argc; char **argv; @@ -719,7 +745,7 @@ main (argc, argv) command_line = alloc_string (name_length + args_size (the_header)); strcpy (command_line, mail_program_name); parse_header (the_header, &command_line[name_length]); - + the_pipe = popen (command_line, "w"); if (the_pipe == ((FILE *) NULL)) fatal ("cannot open pipe to real mailer"); @@ -742,3 +768,8 @@ main (argc, argv) #endif /* not MSDOS */ #endif /* not BSD 4.2 (or newer) */ + +/* arch-tag: acb0afa6-315a-4c5b-b9e3-def5725c8783 + (do not change this comment) */ + +/* fakemail.c ends here */