lock_file.c: close(2) file descriptor on failure, avoiding leak.

[nmh] / uip / mhmisc.c

diff --git a/uip/mhmisc.c b/uip/mhmisc.c
index 75ac158373b0e50121dd8f67d1bb9166f18cee48..acaae82ab0b54bf6702b3987c04ef8104717aa09 100644 (file)
--- a/uip/mhmisc.c
+++ b/uip/mhmisc.c
@@ -1,16 +1,17 @@
-
-/*
- * mhparse.c -- misc routines to process MIME messages
+/* mhmisc.c -- misc routines to process MIME messages

  *
  *

- * $Id$
+ * This code is Copyright (c) 2002, by the authors of nmh.  See the
+ * COPYRIGHT file in the root directory of the nmh distribution for
+ * complete copyright information.

  */
 
 #include <h/mh.h>
  */
 
 #include <h/mh.h>

-#include <errno.h>

 #include <h/mime.h>
 #include <h/mhparse.h>
 #include <h/mime.h>
 #include <h/mhparse.h>

+#include <h/utils.h>
+#include "sbr/makedir.h"
+#include "mhmisc.h"

 
 

-extern int errno;

 extern int debugsw;
 
 /*
 extern int debugsw;
 
 /*


@@ -21,34 +22,53 @@ int ntype = 0;
 char *parts[NPARTS + 1];
 char *types[NTYPES + 1];
 
 char *parts[NPARTS + 1];
 char *types[NTYPES + 1];
 

-int endian = 0;                /* little or big endian */

 int userrs = 0;
 
 static char *errs = NULL;
 
 
 int userrs = 0;
 
 static char *errs = NULL;
 
 

-/*
- * prototypes
- */
-int part_ok (CT, int);
-int type_ok (CT, int);
-void set_endian (void);
-int make_intermediates (char *);
-void content_error (char *, CT, char *, ...);
-void flush_errors (void);
+int
+part_ok (CT ct)
+{
+    char **ap;
+    int len;
+
+    /* a part is "ok", i.e., should be processed, if:
+       - there were no -part arguments
+       - this part is a multipart
+     */
+    if (npart == 0 || ct->c_type == CT_MULTIPART) {
+       return 1;
+    }
+
+    /* or if:
+       - this part is a an exact match for any -part option
+       - this part is a sub-part of any -part option
+     */
+    for (ap = parts; *ap; ap++) {
+        len = strlen(*ap);
+        if (!strncmp (*ap, ct->c_partno, len) &&
+                (!ct->c_partno[len] || ct->c_partno[len] == '.' )) {
+            return 1;
+       }
+    }

 
 

+    return 0;
+}

 
 int
 
 int

-part_ok (CT ct, int sP)
+part_exact(CT ct)

 {
     char **ap;
 
 {
     char **ap;
 

-    if (npart == 0 || (ct->c_type == CT_MULTIPART && (sP || ct->c_subtype)))
-       return 1;
+    if (!ct->c_partno)
+       return 0;

 
 

-    for (ap = parts; *ap; ap++)
-       if (!strcmp (*ap, ct->c_partno))
-           return 1;
+    for (ap = parts; *ap; ap++) {
+        if (!strcmp (*ap, ct->c_partno)) {
+            return 1;
+       }
+    }

 
     return 0;
 }
 
     return 0;
 }


@@ -73,28 +93,34 @@ type_ok (CT ct, int sP)
 }
 
 
 }
 
 

-void
-set_endian (void)
+/*
+ * Returns true if the content has a disposition of "inline".
+ *
+ * Technically we should check parent content to see if they have
+ * disposition to use as a default, but we don't right now.  Maybe
+ * later ....
+ */
+
+int
+is_inline(CT ct)

 {
 {

-    union {
-       long l;
-       char c[sizeof(long)];
-    } un;
-
-    un.l = 1;
-    endian = un.c[0] ? -1 : 1;
-    if (debugsw)
-       fprintf (stderr, "%s endian architecture\n",
-               endian > 0 ? "big" : "little");
-}
+    /*
+     * If there isn't any disposition at all, it's "inline".  Obviously
+     * if it's "inline", then it's inline.  RFC 2183 says if it's an unknown
+     * disposition, treat it as 'attachment'.
+     */

 
 

+    if (! ct->c_dispo_type || strcasecmp(ct->c_dispo_type, "inline") == 0)
+       return 1;
+    return 0;
+}

 
 int
 make_intermediates (char *file)
 {
     char *cp;
 
 
 int
 make_intermediates (char *file)
 {
     char *cp;
 

-    for (cp = file + 1; cp = strchr(cp, '/'); cp++) {
+    for (cp = file + 1; (cp = strchr(cp, '/')); cp++) {

        struct stat st;
 
        *cp = '\0';
        struct stat st;
 
        *cp = '\0';


@@ -109,13 +135,13 @@ losing_directory:
            }
 
            ep = concat ("Create directory \"", file, "\"? ", NULL);
            }
 
            ep = concat ("Create directory \"", file, "\"? ", NULL);

-           answer = getanswer (ep);
+           answer = read_yes_or_no_if_tty (ep);

            free (ep);
 
            if (!answer)
                goto losing_directory;
            if (!makedir (file)) {
            free (ep);
 
            if (!answer)
                goto losing_directory;
            if (!makedir (file)) {

-               advise (NULL, "unable to create directory %s", file);
+               inform("unable to create directory %s", file);

                goto losing_directory;
            }
        }
                goto losing_directory;
            }
        }


@@ -135,7 +161,7 @@ void
 content_error (char *what, CT ct, char *fmt, ...)
 {
     va_list arglist;
 content_error (char *what, CT ct, char *fmt, ...)
 {
     va_list arglist;

-    int        i, len, buflen;
+    int        len, buflen;

     char *bp, buffer[BUFSIZ];
     CI ci;
 
     char *bp, buffer[BUFSIZ];
     CI ci;
 


@@ -178,10 +204,8 @@ content_error (char *what, CT ct, char *fmt, ...)
        buflen -= len;
     }
 
        buflen -= len;
     }
 

-    i = strlen (invo_name) + 2;
-

     /* Now add content type and subtype */
     /* Now add content type and subtype */

-    snprintf (bp, buflen, "\n%*.*s(content %s/%s", i, i, "",
+    snprintf (bp, buflen, "\n    (content %s/%s",

        ci->ci_type, ci->ci_subtype);
     len = strlen (bp);
     bp += len;
        ci->ci_type, ci->ci_subtype);
     len = strlen (bp);
     bp += len;


@@ -214,8 +238,10 @@ content_error (char *what, CT ct, char *fmt, ...)
 
        errs = add (buffer, errs);
     } else {
 
        errs = add (buffer, errs);
     } else {

-       advise (NULL, "%s", buffer);
+       inform("%s", buffer);

     }
     }

+
+    va_end(arglist);

 }
 
 
 }
 
 


@@ -224,7 +250,7 @@ flush_errors (void)
 {
     if (errs) {
        fflush (stdout);
 {
     if (errs) {
        fflush (stdout);

-       fprintf (stderr, "%s", errs);
+       fputs(errs, stderr);

        free (errs);
        errs = NULL;
     }
        free (errs);
        errs = NULL;
     }