]> Pileus Git - ~andy/fetchmail/blobdiff - env.c
Note Earl's regression fix for SSL_CTX_clear_options() on older OpenSSL.
[~andy/fetchmail] / env.c
diff --git a/env.c b/env.c
index ce4a1a09365f0a2aa92d2575605464d94f58fc88..edf998983a88be540d639946ed9c8b669711f07f 100644 (file)
--- a/env.c
+++ b/env.c
 #endif
 #include <pwd.h>
 #include <string.h>
-#ifdef HAVE_GETHOSTBYNAME
+#ifdef HAVE_NET_SOCKET_H
+#include <net/socket.h>
+#endif
 #include <netdb.h>
-#endif /* HAVE_GETHOSTBYNAME */
-#include  <sys/types.h>
-#include  <time.h>
+#include <sys/types.h>
+#include <sys/socket.h>
 #include "fetchmail.h"
+#include "getaddrinfo.h"
 
 #include "i18n.h"
+#if defined(HAVE_SETLOCALE) && defined(ENABLE_NLS) && defined(HAVE_STRFTIME)
+#include <locale.h>
+#endif
 
-extern char *getenv(); /* needed on sysV68 R3V7.1. */
-
-extern char *program_name;
+#ifndef HAVE_DECL_GETENV
+extern char *getenv(const char *);     /* needed on sysV68 R3V7.1. */
+#endif
 
 void envquery(int argc, char **argv)
 /* set up basic stuff from the environment (including the rc file name) */
 {
     struct passwd by_name, by_uid, *pwp;
 
-    if (!(user = getenv("LOGNAME")))
-       user = getenv("USER");
+    (void)argc;
+
+    (void)argc;
+    if (!(user = getenv("FETCHMAILUSER")))
+    {
+       if (!(user = getenv("LOGNAME")))
+       {
+           user = getenv("USER");
+       }
+    }
+
+    if ((program_name = strrchr(argv[0], '/')) != NULL)
+       ++program_name;
+    else
+       program_name = argv[0];
+
+    if (getenv("QMAILINJECT") && strcmp(getenv("QMAILINJECT"), ""))
+    {
+       fprintf(stderr,
+               GT_("%s: The QMAILINJECT environment variable is set.\n"
+                   "This is dangerous as it can make qmail-inject or qmail's sendmail wrapper\n"  
+                   "tamper with your From: or Message-ID: headers.\n"
+                   "Try \"env QMAILINJECT= %s YOUR ARGUMENTS HERE\"\n"
+                   "%s: Abort.\n"), 
+               program_name, program_name, program_name);
+       exit(PS_UNDEFINED);
+    }
+
+    if (getenv("NULLMAILER_FLAGS") && strcmp(getenv("NULLMAILER_FLAGS"), ""))
+    {
+       fprintf(stderr,
+               GT_("%s: The NULLMAILER_FLAGS environment variable is set.\n"
+                   "This is dangerous as it can make nullmailer-inject or nullmailer's\n" 
+                   "sendmail wrapper tamper with your From:, Message-ID: or Return-Path: headers.\n"
+                   "Try \"env NULLMAILER_FLAGS= %s YOUR ARGUMENTS HERE\"\n"
+                   "%s: Abort.\n"), 
+               program_name, program_name, program_name);
+       exit(PS_UNDEFINED);
+    }
 
     if (!(pwp = getpwuid(getuid())))
     {
        fprintf(stderr,
-               _("%s: You don't exist.  Go away.\n"),
+               GT_("%s: You don't exist.  Go away.\n"),
                program_name);
        exit(PS_UNDEFINED);
     }
     else
     {
        memcpy(&by_uid, pwp, sizeof(struct passwd));
-       if (!user)
+       if (!user || !(pwp = getpwnam(user)))
            pwp = &by_uid;
-       else if ((pwp = getpwnam(user)))
+       else
        {
            /*
             * This logic is needed to handle gracefully the possibility
-            * that multiple names might be mapped to one UID
+            * that multiple names might be mapped to one UID.
             */
            memcpy(&by_name, pwp, sizeof(struct passwd));
 
@@ -62,67 +104,89 @@ void envquery(int argc, char **argv)
            else
                pwp = &by_uid;
        }
-       else
-       {
-           fprintf(stderr,
-                   _("%s: can't find your name and home directory!\n"),
-                   program_name);
-           exit(PS_UNDEFINED);
-       }
        user = xstrdup(pwp->pw_name);
     }
 
-    if (!(home = getenv("HOME")))
-       home = pwp->pw_dir;
+    endpwent();
 
-    if ((program_name = strrchr(argv[0], '/')) != NULL)
-       ++program_name;
-    else
-       program_name = argv[0];
+    /* compute user's home directory */
+    home = getenv("HOME_ETC");
+    if (!home && !(home = getenv("HOME")))
+       home = xstrdup(pwp->pw_dir);
 
-#define RCFILE_NAME    ".fetchmailrc"
-    rcfile = (char *) xmalloc(strlen(home)+strlen(RCFILE_NAME)+2);
+    /* compute fetchmail's home directory */
+    if (!(fmhome = getenv("FETCHMAILHOME")))
+       fmhome = home;
+
+#define RCFILE_NAME    "fetchmailrc"
+    /*
+     * The (fmhome==home) leaves an extra character for a . at the
+     * beginning of the rc file's name, iff fetchmail is using $HOME
+     * for its files. We don't want to do that if fetchmail has its
+     * own home ($FETCHMAILHOME), however.
+     */
+    rcfile = (char *)xmalloc(strlen(fmhome)+sizeof(RCFILE_NAME)+(fmhome==home)+2);
     /* avoid //.fetchmailrc */
-    if (strcmp(home, "/") != 0) {
-       strcpy(rcfile, home);
-    } else {
-       *rcfile = '\0';
-    }
-    strcat(rcfile, "/");
+    if (strcmp(fmhome, "/") != 0)
+       strcpy(rcfile, fmhome);
+    else
+       *rcfile = '\0';
+
+    if (rcfile[strlen(rcfile) - 1] != '/')
+       strcat(rcfile, "/");
+    if (fmhome==home)
+       strcat(rcfile, ".");
     strcat(rcfile, RCFILE_NAME);
 }
 
-char *host_fqdn(void)
-/* get the FQDN of the machine we're running */
+char *host_fqdn(int required)
 {
-    char       tmpbuf[HOSTLEN+1];
+    char tmpbuf[HOSTLEN+1];
+    char *result;
 
     if (gethostname(tmpbuf, sizeof(tmpbuf)))
     {
-       fprintf(stderr, _("%s: can't determine your host!"),
+       fprintf(stderr, GT_("%s: can't determine your host!"),
                program_name);
        exit(PS_DNS);
     }
-#ifdef HAVE_GETHOSTBYNAME
-    /* if we got a . in the hostname assume it is a FQDN */
+
+    /* if we got no . in the hostname, try to canonicalize it,
+     * else assume it is a FQDN */
     if (strchr(tmpbuf, '.') == NULL)
     {
-       struct hostent *hp;
+       /* if we got a basename without dots, as we often do in Linux,
+        * look up canonical name (make a FQDN of it) */
+       struct addrinfo hints, *res;
+       int e;
 
-       /* if we got a basename (as we do in Linux) make a FQDN of it */
-       hp = gethostbyname(tmpbuf);
-       if (hp == (struct hostent *) NULL)
-       {
+       memset(&hints, 0, sizeof hints);
+       hints.ai_family = AF_UNSPEC;
+       hints.ai_socktype = SOCK_STREAM;
+       hints.ai_flags = AI_CANONNAME;
+
+       e = fm_getaddrinfo(tmpbuf, NULL, &hints, &res);
+       if (e) {
            /* exit with error message */
            fprintf(stderr,
-                   _("gethostbyname failed for %s\n"), tmpbuf);
-           exit(PS_DNS);
+                   GT_("gethostbyname failed for %s\n"), tmpbuf);
+           fprintf(stderr, "%s", gai_strerror(e));
+           fprintf(stderr, GT_("Cannot find my own host in hosts database to qualify it!\n"));
+           if (required)
+               exit(PS_DNS);
+           else {
+               fprintf(stderr, GT_("Trying to continue with unqualified hostname.\nDO NOT report broken Received: headers, HELO/EHLO lines or similar problems!\nDO repair your /etc/hosts, DNS, NIS or LDAP instead.\n"));
+               return xstrdup(tmpbuf);
+           }
        }
-       return(xstrdup(hp->h_name));
+
+       result = xstrdup(res->ai_canonname ? res->ai_canonname : tmpbuf);
+       fm_freeaddrinfo(res);
     }
     else
-#endif /* HAVE_GETHOSTBYNAME */
-       return(xstrdup(tmpbuf));
+       result = xstrdup(tmpbuf);
+
+    return result;
 }
 
 static char *tzoffset(time_t *now)
@@ -150,7 +214,8 @@ static char *tzoffset(time_t *now)
     }
     if (off >= 24 * 60)                        /* should be impossible */
        off = 23 * 60 + 59;             /* if not, insert silly value */
-    sprintf(offset_string, "%c%02d%02d", sign, off / 60, off % 60);
+    snprintf(offset_string, sizeof(offset_string),
+           "%c%02d%02d", sign, off / 60, off % 60);
     return (offset_string);
 }
 
@@ -166,10 +231,18 @@ char *rfc822timestamp(void)
      * Conform to RFC822.  We generate a 4-digit year here, avoiding
      * Y2K hassles.  Max length of this timestamp in an English locale
      * should be 29 chars.  The only things that should vary by locale
-     * are the day and month abbreviations.
+     * are the day and month abbreviations.  The set_locale calls prevent
+     * weird multibyte i18n characters (such as kanji) from showing up
+     * in your Received headers.
      */
+#if defined(HAVE_SETLOCALE) && defined(ENABLE_NLS)
+    setlocale (LC_TIME, "C");
+#endif
     strftime(buf, sizeof(buf)-1, 
             "%a, %d %b %Y %H:%M:%S XXXXX (%Z)", localtime(&now));
+#if defined(HAVE_SETLOCALE) && defined(ENABLE_NLS)
+    setlocale (LC_TIME, "");
+#endif
     strncpy(strstr(buf, "XXXXX"), tzoffset(&now), 5);
 #else
     /*
@@ -177,7 +250,7 @@ char *rfc822timestamp(void)
      * date format ctime(3) emits is not RFC822
      * conformant.
      */
-    strcpy(buf, ctime(&now));
+    strlcpy(buf, ctime(&now), sizeof(buf));
     buf[strlen(buf)-1] = '\0'; /* remove trailing \n */
 #endif /* HAVE_STRFTIME */
 
@@ -193,15 +266,20 @@ const char *showproto(int proto)
 #ifdef POP2_ENABLE
     case P_POP2: return("POP2");
 #endif /* POP2_ENABLE */
+#ifdef POP3_ENABLE
     case P_POP3: return("POP3");
-    case P_IMAP: return("IMAP");
-    case P_IMAP_K4: return("IMAP-K4");
-#ifdef GSSAPI
-    case P_IMAP_GSS: return("IMAP-GSS");
-#endif /* GSSAPI */
     case P_APOP: return("APOP");
     case P_RPOP: return("RPOP");
+#endif /* POP3_ENABLE */
+#ifdef IMAP_ENABLE
+    case P_IMAP: return("IMAP");
+#endif /* IMAP_ENABLE */
+#ifdef ETRN_ENABLE
     case P_ETRN: return("ETRN");
+#endif /* ETRN_ENABLE */
+#ifdef ODMR_ENABLE
+    case P_ODMR: return("ODMR");
+#endif /* ODMR_ENABLE */
     default: return("unknown?!?");
     }
 }
@@ -209,46 +287,42 @@ const char *showproto(int proto)
 char *visbuf(const char *buf)
 /* visibilize a given string */
 {
-    static char vbuf[BUFSIZ];
-    char *tp = vbuf;
+    static char *vbuf;
+    static size_t vbufs;
+    char *tp;
+    size_t needed;
+
+    needed = strlen(buf) * 5 + 1; /* worst case: HEX, plus NUL byte */
+
+    if (!vbuf || needed > vbufs) {
+       vbufs = needed;
+       vbuf = (char *)xrealloc(vbuf, vbufs);
+    }
+
+    tp = vbuf;
 
     while (*buf)
     {
-       if (*buf == '"')
-       {
-           *tp++ = '\\'; *tp++ = '"';
-           buf++;
-       }
-       else if (isprint(*buf) || *buf == ' ')
-           *tp++ = *buf++;
-       else if (*buf == '\n')
-       {
-           *tp++ = '\\'; *tp++ = 'n';
-           buf++;
-       }
-       else if (*buf == '\r')
-       {
-           *tp++ = '\\'; *tp++ = 'r';
-           buf++;
-       }
-       else if (*buf == '\b')
-       {
-           *tp++ = '\\'; *tp++ = 'b';
-           buf++;
-       }
-       else if (*buf < ' ')
-       {
-           *tp++ = '\\'; *tp++ = '^'; *tp++ = '@' + *buf;
-           buf++;
-       }
+            if (*buf == '"')  { *tp++ = '\\'; *tp++ = '"'; buf++; }
+       else if (*buf == '\\') { *tp++ = '\\'; *tp++ = '\\'; buf++; }
+       else if (isprint((unsigned char)*buf) || *buf == ' ') *tp++ = *buf++;
+       else if (*buf == '\a') { *tp++ = '\\'; *tp++ = 'a'; buf++; }
+       else if (*buf == '\b') { *tp++ = '\\'; *tp++ = 'b'; buf++; }
+       else if (*buf == '\f') { *tp++ = '\\'; *tp++ = 'f'; buf++; }
+       else if (*buf == '\n') { *tp++ = '\\'; *tp++ = 'n'; buf++; }
+       else if (*buf == '\r') { *tp++ = '\\'; *tp++ = 'r'; buf++; }
+       else if (*buf == '\t') { *tp++ = '\\'; *tp++ = 't'; buf++; }
+       else if (*buf == '\v') { *tp++ = '\\'; *tp++ = 'v'; buf++; }
        else
        {
-           (void) sprintf(tp, "\\0x%02x", *buf++);
-           tp += strlen(tp);
+           const char hex[] = "0123456789abcdef";
+           *tp++ = '\\'; *tp++ = '0'; *tp++ = 'x';
+           *tp++ = hex[*buf >> 4];
+           *tp++ = hex[*buf & 0xf];
+           buf++;
        }
     }
-    *tp++ = '\0';
+    *tp = '\0';
     return(vbuf);
 }
-
 /* env.c ends here */