git.marmaro.de Git - mmh/blob - uip/whom.c

   1
   2 /*
   3  * whom.c -- report to whom a message would be sent
   4  *
   5  * This code is Copyright (c) 2002, by the authors of nmh.  See the
   6  * COPYRIGHT file in the root directory of the nmh distribution for
   7  * complete copyright information.
   8  */
   9
  10 #include <h/mh.h>
  11 #include <h/signals.h>
  12 #include <signal.h>
  13
  14 #ifndef TLS_SUPPORT
  15 # define TLSminc(a)  (a)
  16 #else /* TLS_SUPPORT */
  17 # define TLSminc(a)   0
  18 #endif /* TLS_SUPPORT */
  19
  20 static struct swit switches[] = {
  21 #define ALIASW              0
  22     { "alias aliasfile", 0 },
  23 #define CHKSW               1
  24     { "check", 0 },
  25 #define NOCHKSW             2
  26     { "nocheck", 0 },
  27 #define DRAFTSW             3
  28     { "draft", 0 },
  29 #define DFOLDSW             4
  30     { "draftfolder +folder", 6 },
  31 #define DMSGSW              5
  32     { "draftmessage msg", 6 },
  33 #define NDFLDSW             6
  34     { "nodraftfolder", 0 },
  35 #define VERSIONSW           7
  36     { "version", 0 },
  37 #define HELPSW              8
  38     { "help", 0 },
  39 #define CLIESW              9
  40     { "client host", -6 },
  41 #define SERVSW             10
  42     { "server host", -6 },
  43 #define SNOOPSW            11
  44     { "snoop", -5 },
  45 #define PORTSW             15
  46     { "port server port name/number", 4 },
  47 #define TLSSW              16
  48     { "tls", TLSminc(-3) },
  49     { NULL, 0 }
  50 };
  51
  52
  53 int
  54 main (int argc, char **argv)
  55 {
  56     pid_t child_id;
  57     int i, status, isdf = 0;
  58     int distsw = 0, vecp = 0;
  59     char *cp, *dfolder = NULL, *dmsg = NULL;
  60     char *msg = NULL, **ap, **argp, backup[BUFSIZ];
  61     char buf[BUFSIZ], **arguments, *vec[MAXARGS];
  62
  63 #ifdef LOCALE
  64     setlocale(LC_ALL, "");
  65 #endif
  66     invo_name = r1bindex (argv[0], '/');
  67
  68     /* read user profile/context */
  69     context_read();
  70
  71     arguments = getarguments (invo_name, argc, argv, 1);
  72     argp = arguments;
  73
  74     vec[vecp++] = invo_name;
  75     vec[vecp++] = "-whom";
  76     vec[vecp++] = "-library";
  77     vec[vecp++] = getcpy (m_maildir (""));
  78
  79     while ((cp = *argp++)) {
  80         if (*cp == '-') {
  81             switch (smatch (++cp, switches)) {
  82                 case AMBIGSW:
  83                     ambigsw (cp, switches);
  84                     done (1);
  85                 case UNKWNSW:
  86                     adios (NULL, "-%s unknown", cp);
  87
  88                 case HELPSW:
  89                     snprintf (buf, sizeof(buf), "%s [switches] [file]", invo_name);
  90                     print_help (buf, switches, 1);
  91                     done (1);
  92                 case VERSIONSW:
  93                     print_version(invo_name);
  94                     done (1);
  95
  96                 case CHKSW:
  97                 case NOCHKSW:
  98                 case SNOOPSW:
  99                     vec[vecp++] = --cp;
 100                     continue;
 101
 102                 case DRAFTSW:
 103                     msg = draft;
 104                     continue;
 105
 106                 case DFOLDSW:
 107                     if (dfolder)
 108                         adios (NULL, "only one draft folder at a time!");
 109                     if (!(cp = *argp++) || *cp == '-')
 110                         adios (NULL, "missing argument to %s", argp[-2]);
 111                     dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
 112                             *cp != '@' ? TFOLDER : TSUBCWF);
 113                     continue;
 114                 case DMSGSW:
 115                     if (dmsg)
 116                         adios (NULL, "only one draft message at a time!");
 117                     if (!(dmsg = *argp++) || *dmsg == '-')
 118                         adios (NULL, "missing argument to %s", argp[-2]);
 119                     continue;
 120                 case NDFLDSW:
 121                     dfolder = NULL;
 122                     isdf = NOTOK;
 123                     continue;
 124
 125                 case ALIASW:
 126                 case CLIESW:
 127                 case SERVSW:
 128                 case PORTSW:
 129                     vec[vecp++] = --cp;
 130                     if (!(cp = *argp++) || *cp == '-')
 131                         adios (NULL, "missing argument to %s", argp[-2]);
 132                     vec[vecp++] = cp;
 133                     continue;
 134             }
 135         }
 136         if (msg)
 137             adios (NULL, "only one draft at a time!");
 138         else
 139             vec[vecp++] = msg = cp;
 140     }
 141
 142     /* allow Aliasfile: profile entry */
 143     if ((cp = context_find ("Aliasfile"))) {
 144         char *dp = NULL;
 145
 146         for (ap = brkstring(dp = getcpy(cp), " ", "\n"); ap && *ap; ap++) {
 147             vec[vecp++] = "-alias";
 148             vec[vecp++] = *ap;
 149         }
 150     }
 151
 152     if (msg == NULL) {
 153 #ifdef  WHATNOW
 154         if (dfolder || (cp = getenv ("mhdraft")) == NULL || *cp == '\0')
 155 #endif  /* WHATNOW */
 156             cp  = getcpy (m_draft (dfolder, dmsg, 1, &isdf));
 157         msg = vec[vecp++] = cp;
 158     }
 159     if ((cp = getenv ("mhdist"))
 160             && *cp
 161             && (distsw = atoi (cp))
 162             && (cp = getenv ("mhaltmsg"))
 163             && *cp) {
 164         if (distout (msg, cp, backup) == NOTOK)
 165             done (1);
 166         vec[vecp++] = "-dist";
 167         distsw++;
 168     }
 169     vec[vecp] = NULL;
 170
 171     closefds (3);
 172
 173     if (distsw) {
 174         for (i = 0; (child_id = fork()) == NOTOK && i < 5; i++)
 175             sleep (5);
 176     }
 177
 178     switch (distsw ? child_id : OK) {
 179         case NOTOK:
 180             advise (NULL, "unable to fork, so checking directly...");
 181         case OK:
 182             execvp (postproc, vec);
 183             fprintf (stderr, "unable to exec ");
 184             perror (postproc);
 185             _exit (-1);
 186
 187         default:
 188             SIGNAL (SIGHUP, SIG_IGN);
 189             SIGNAL (SIGINT, SIG_IGN);
 190             SIGNAL (SIGQUIT, SIG_IGN);
 191             SIGNAL (SIGTERM, SIG_IGN);
 192
 193             status = pidwait(child_id, OK);
 194
 195             unlink (msg);
 196             if (rename (backup, msg) == NOTOK)
 197                 adios (msg, "unable to rename %s to", backup);
 198             done (status);
 199     }
 200
 201     return 0;  /* dead code to satisfy the compiler */
 202 }