usr.bin/mail/main.c

   1 /*-
   2  * SPDX-License-Identifier: BSD-3-Clause
   3  *
   4  * Copyright (c) 1980, 1993
   5  *      The Regents of the University of California.  All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  * 3. Neither the name of the University nor the names of its contributors
  16  *    may be used to endorse or promote products derived from this software
  17  *    without specific prior written permission.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  29  * SUCH DAMAGE.
  30  */
  31
  32 #ifndef lint
  33 static const char copyright[] =
  34 "@(#) Copyright (c) 1980, 1993\n\
  35         The Regents of the University of California.  All rights reserved.\n";
  36 #endif /* not lint */
  37
  38 #ifndef lint
  39 #if 0
  40 static char sccsid[] = "@(#)main.c      8.2 (Berkeley) 4/20/95";
  41 #endif
  42 #endif /* not lint */
  43 #include <sys/cdefs.h>
  44 __FBSDID("$FreeBSD$");
  45
  46 #include "rcv.h"
  47 #include <fcntl.h>
  48 #include "extern.h"
  49
  50 /*
  51  * Mail -- a mail program
  52  *
  53  * Startup -- interface with user.
  54  */
  55 int     msgCount;
  56 int     rcvmode;
  57 int     sawcom;
  58 char    *Tflag;
  59 int     senderr;
  60 int     edit;
  61 int     readonly;
  62 int     noreset;
  63 int     sourcing;
  64 int     loading;
  65 int     cond;
  66 FILE    *itf;
  67 FILE    *otf;
  68 int     image;
  69 FILE    *input;
  70 char    mailname[PATHSIZE];
  71 char    prevfile[PATHSIZE];
  72 char    *homedir;
  73 char    *myname;
  74 off_t   mailsize;
  75 int     lexnumber;
  76 char    lexstring[STRINGLEN];
  77 int     regretp;
  78 int     regretstack[REGDEP];
  79 char    *string_stack[REGDEP];
  80 int     numberstack[REGDEP];
  81 struct  message *dot;
  82 struct  message *message;
  83 struct  var     *variables[HSHSIZE];
  84 struct  grouphead       *groups[HSHSIZE];
  85 struct  ignoretab       ignore[2];
  86
  87 struct  ignoretab       saveignore[2];
  88
  89 struct  ignoretab       ignoreall[2];
  90 char    **altnames;
  91 int     debug;
  92 int     screenwidth;
  93 int     screenheight;
  94
  95 int     realscreenheight;
  96
  97 jmp_buf srbuf;
  98
  99 static jmp_buf  hdrjmp;
 100
 101 extern const char *version;
 102
 103 int
 104 main(int argc, char *argv[])
 105 {
 106         int i;
 107         struct name *to, *cc, *bcc, *smopts;
 108         char *subject, *replyto;
 109         char *ef, *rc;
 110         char nosrc = 0;
 111         sig_t prevint;
 112
 113         /*
 114          * Set up a reasonable environment.
 115          * Figure out whether we are being run interactively,
 116          * start the SIGCHLD catcher, and so forth.
 117          */
 118         (void)signal(SIGCHLD, sigchild);
 119         if (isatty(0))
 120                 assign("interactive", "");
 121         image = -1;
 122         /*
 123          * Now, determine how we are being used.
 124          * We successively pick off - flags.
 125          * If there is anything left, it is the base of the list
 126          * of users to mail to.  Argp will be set to point to the
 127          * first of these users.
 128          */
 129         ef = NULL;
 130         to = NULL;
 131         cc = NULL;
 132         bcc = NULL;
 133         smopts = NULL;
 134         subject = NULL;
 135         while ((i = getopt(argc, argv, "FEHINT:b:c:edfins:u:v")) != -1) {
 136                 switch (i) {
 137                 case 'T':
 138                         /*
 139                          * Next argument is temp file to write which
 140                          * articles have been read/deleted for netnews.
 141                          */
 142                         Tflag = optarg;
 143                         if ((i = open(Tflag, O_CREAT | O_TRUNC | O_WRONLY,
 144                             0600)) < 0)
 145                                 err(1, "%s", Tflag);
 146                         (void)close(i);
 147                         break;
 148                 case 'u':
 149                         /*
 150                          * Next argument is person to pretend to be.
 151                          */
 152                         myname = optarg;
 153                         unsetenv("MAIL");
 154                         break;
 155                 case 'i':
 156                         /*
 157                          * User wants to ignore interrupts.
 158                          * Set the variable "ignore"
 159                          */
 160                         assign("ignore", "");
 161                         break;
 162                 case 'd':
 163                         debug++;
 164                         break;
 165                 case 'e':
 166                         /*
 167                          * User wants to check mail and exit.
 168                          */
 169                         assign("checkmode", "");
 170                         break;
 171                 case 'H':
 172                         /*
 173                          * User wants a header summary only.
 174                          */
 175                         assign("headersummary", "");
 176                         break;
 177                 case 'F':
 178                         /*
 179                          * User wants to record messages to files
 180                          * named after first recipient username.
 181                          */
 182                         assign("recordrecip", "");
 183                         break;
 184                 case 's':
 185                         /*
 186                          * Give a subject field for sending from
 187                          * non terminal
 188                          */
 189                         subject = optarg;
 190                         break;
 191                 case 'f':
 192                         /*
 193                          * User is specifying file to "edit" with Mail,
 194                          * as opposed to reading system mailbox.
 195                          * If no argument is given after -f, we read his
 196                          * mbox file.
 197                          *
 198                          * getopt() can't handle optional arguments, so here
 199                          * is an ugly hack to get around it.
 200                          */
 201                         if ((argv[optind] != NULL) && (argv[optind][0] != '-'))
 202                                 ef = argv[optind++];
 203                         else
 204                                 ef = "&";
 205                         break;
 206                 case 'n':
 207                         /*
 208                          * User doesn't want to source /usr/lib/Mail.rc
 209                          */
 210                         nosrc++;
 211                         break;
 212                 case 'N':
 213                         /*
 214                          * Avoid initial header printing.
 215                          */
 216                         assign("noheader", "");
 217                         break;
 218                 case 'v':
 219                         /*
 220                          * Send mailer verbose flag
 221                          */
 222                         assign("verbose", "");
 223                         break;
 224                 case 'I':
 225                         /*
 226                          * We're interactive
 227                          */
 228                         assign("interactive", "");
 229                         break;
 230                 case 'c':
 231                         /*
 232                          * Get Carbon Copy Recipient list
 233                          */
 234                         cc = cat(cc, nalloc(optarg, GCC));
 235                         break;
 236                 case 'b':
 237                         /*
 238                          * Get Blind Carbon Copy Recipient list
 239                          */
 240                         bcc = cat(bcc, nalloc(optarg, GBCC));
 241                         break;
 242                 case 'E':
 243                         /*
 244                          * Don't send empty files.
 245                          */
 246                         assign("dontsendempty", "");
 247                         break;
 248                 case '?':
 249                         fprintf(stderr, "\
 250 Usage: %s [-dEiInv] [-s subject] [-c cc-addr] [-b bcc-addr] [-F] to-addr ...\n\
 251        %*s [-sendmail-option ...]\n\
 252        %s [-dEHiInNv] [-F] -f [name]\n\
 253        %s [-dEHiInNv] [-F] [-u user]\n\
 254        %s [-d] -e [-f name]\n", __progname, (int)strlen(__progname), "",
 255                                 __progname, __progname, __progname);
 256                         exit(1);
 257                 }
 258         }
 259         for (i = optind; (argv[i] != NULL) && (*argv[i] != '-'); i++)
 260                 to = cat(to, nalloc(argv[i], GTO));
 261         for (; argv[i] != NULL; i++)
 262                 smopts = cat(smopts, nalloc(argv[i], 0));
 263         /*
 264          * Check for inconsistent arguments.
 265          */
 266         if (to == NULL && (subject != NULL || cc != NULL || bcc != NULL))
 267                 errx(1, "You must specify direct recipients with -s, -c, or -b.");
 268         if (ef != NULL && to != NULL)
 269                 errx(1, "Cannot give -f and people to send to.");
 270         tinit();
 271         setscreensize();
 272         input = stdin;
 273         rcvmode = !to;
 274         spreserve();
 275         if (!nosrc) {
 276                 char *s, *path_rc;
 277
 278                 if ((path_rc = malloc(sizeof(_PATH_MASTER_RC))) == NULL)
 279                         err(1, "malloc(path_rc) failed");
 280
 281                 strcpy(path_rc, _PATH_MASTER_RC);
 282                 while ((s = strsep(&path_rc, ":")) != NULL)
 283                         if (*s != '\0')
 284                                 load(s);
 285         }
 286         /*
 287          * Expand returns a savestr, but load only uses the file name
 288          * for fopen, so it's safe to do this.
 289          */
 290         if ((rc = getenv("MAILRC")) == NULL)
 291                 rc = "~/.mailrc";
 292         load(expand(rc));
 293
 294         replyto = value("REPLYTO");
 295         if (!rcvmode) {
 296                 mail(to, cc, bcc, smopts, subject, replyto);
 297                 /*
 298                  * why wait?
 299                  */
 300                 exit(senderr);
 301         }
 302
 303         if(value("checkmode") != NULL) {
 304                 if (ef == NULL)
 305                         ef = "%";
 306                 if (setfile(ef) <= 0)
 307                         /* Either an error has occurred, or no mail */
 308                         exit(1);
 309                 else
 310                         exit(0);
 311                 /* NOTREACHED */
 312         }
 313
 314         /*
 315          * Ok, we are reading mail.
 316          * Decide whether we are editing a mailbox or reading
 317          * the system mailbox, and open up the right stuff.
 318          */
 319         if (ef == NULL)
 320                 ef = "%";
 321         if (setfile(ef) < 0)
 322                 exit(1);                /* error already reported */
 323         if (setjmp(hdrjmp) == 0) {
 324                 if ((prevint = signal(SIGINT, SIG_IGN)) != SIG_IGN)
 325                         (void)signal(SIGINT, hdrstop);
 326                 if (value("quiet") == NULL)
 327                         printf("Mail version %s.  Type ? for help.\n",
 328                                 version);
 329                 announce();
 330                 (void)fflush(stdout);
 331                 (void)signal(SIGINT, prevint);
 332         }
 333
 334         /* If we were in header summary mode, it's time to exit. */
 335         if (value("headersummary") != NULL)
 336                 exit(0);
 337
 338         commands();
 339         (void)signal(SIGHUP, SIG_IGN);
 340         (void)signal(SIGINT, SIG_IGN);
 341         (void)signal(SIGQUIT, SIG_IGN);
 342         quit();
 343         exit(0);
 344 }
 345
 346 /*
 347  * Interrupt printing of the headers.
 348  */
 349 /*ARGSUSED*/
 350 void
 351 hdrstop(int signo __unused)
 352 {
 353
 354         (void)fflush(stdout);
 355         fprintf(stderr, "\nInterrupt\n");
 356         longjmp(hdrjmp, 1);
 357 }
 358
 359 /*
 360  * Compute what the screen size for printing headers should be.
 361  * We use the following algorithm for the height:
 362  *      If baud rate < 1200, use  9
 363  *      If baud rate = 1200, use 14
 364  *      If baud rate > 1200, use 24 or ws_row
 365  * Width is either 80 or ws_col;
 366  */
 367 void
 368 setscreensize(void)
 369 {
 370         struct termios tbuf;
 371         struct winsize ws;
 372         speed_t speed;
 373
 374         if (ioctl(1, TIOCGWINSZ, (char *)&ws) < 0)
 375                 ws.ws_col = ws.ws_row = 0;
 376         if (tcgetattr(1, &tbuf) < 0)
 377                 speed = B9600;
 378         else
 379                 speed = cfgetospeed(&tbuf);
 380         if (speed < B1200)
 381                 screenheight = 9;
 382         else if (speed == B1200)
 383                 screenheight = 14;
 384         else if (ws.ws_row != 0)
 385                 screenheight = ws.ws_row;
 386         else
 387                 screenheight = 24;
 388         if ((realscreenheight = ws.ws_row) == 0)
 389                 realscreenheight = 24;
 390         if ((screenwidth = ws.ws_col) == 0)
 391                 screenwidth = 80;
 392 }