usr.bin/mail/cmd1.c

   1 /*-
   2  * Copyright (c) 1980, 1993
   3  *      The Regents of the University of California.  All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  * 3. All advertising materials mentioning features or use of this software
  14  *    must display the following acknowledgement:
  15  *      This product includes software developed by the University of
  16  *      California, Berkeley and its contributors.
  17  * 4. Neither the name of the University nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  *
  33  * @(#)cmd1.c   8.2 (Berkeley) 4/20/95
  34  * $FreeBSD: src/usr.bin/mail/cmd1.c,v 1.3.6.3 2003/01/06 05:46:03 mikeh Exp $
  35  * $DragonFly: src/usr.bin/mail/cmd1.c,v 1.2 2003/06/17 04:29:28 dillon Exp $
  36  */
  37
  38 #include "rcv.h"
  39 #include "extern.h"
  40
  41 /*
  42  * Mail -- a mail program
  43  *
  44  * User commands.
  45  */
  46
  47 extern const struct cmd cmdtab[];
  48
  49 /*
  50  * Print the current active headings.
  51  * Don't change dot if invoker didn't give an argument.
  52  */
  53
  54 static int screen;
  55
  56 int
  57 headers(msgvec)
  58         int *msgvec;
  59 {
  60         int n, mesg, flag, size;
  61         struct message *mp;
  62
  63         size = screensize();
  64         n = msgvec[0];
  65         if (n != 0)
  66                 screen = (n-1)/size;
  67         if (screen < 0)
  68                 screen = 0;
  69         mp = &message[screen * size];
  70         if (mp >= &message[msgCount])
  71                 mp = &message[msgCount - size];
  72         if (mp < &message[0])
  73                 mp = &message[0];
  74         flag = 0;
  75         mesg = mp - &message[0];
  76         if (dot != &message[n-1])
  77                 dot = mp;
  78         for (; mp < &message[msgCount]; mp++) {
  79                 mesg++;
  80                 if (mp->m_flag & MDELETED)
  81                         continue;
  82                 if (flag++ >= size)
  83                         break;
  84                 printhead(mesg);
  85         }
  86         if (flag == 0) {
  87                 printf("No more mail.\n");
  88                 return (1);
  89         }
  90         return (0);
  91 }
  92
  93 /*
  94  * Scroll to the next/previous screen
  95  */
  96 int
  97 scroll(arg)
  98         char arg[];
  99 {
 100         int s, size;
 101         int cur[1];
 102
 103         cur[0] = 0;
 104         size = screensize();
 105         s = screen;
 106         switch (*arg) {
 107         case 0:
 108         case '+':
 109                 s++;
 110                 if (s * size >= msgCount) {
 111                         printf("On last screenful of messages\n");
 112                         return (0);
 113                 }
 114                 screen = s;
 115                 break;
 116
 117         case '-':
 118                 if (--s < 0) {
 119                         printf("On first screenful of messages\n");
 120                         return (0);
 121                 }
 122                 screen = s;
 123                 break;
 124
 125         default:
 126                 printf("Unrecognized scrolling command \"%s\"\n", arg);
 127                 return (1);
 128         }
 129         return (headers(cur));
 130 }
 131
 132 /*
 133  * Compute screen size.
 134  */
 135 int
 136 screensize()
 137 {
 138         int s;
 139         char *cp;
 140
 141         if ((cp = value("screen")) != NULL && (s = atoi(cp)) > 0)
 142                 return (s);
 143         return (screenheight - 4);
 144 }
 145
 146 /*
 147  * Print out the headlines for each message
 148  * in the passed message list.
 149  */
 150 int
 151 from(msgvec)
 152         int *msgvec;
 153 {
 154         int *ip;
 155
 156         for (ip = msgvec; *ip != 0; ip++)
 157                 printhead(*ip);
 158         if (--ip >= msgvec)
 159                 dot = &message[*ip - 1];
 160         return (0);
 161 }
 162
 163 /*
 164  * Print out the header of a specific message.
 165  * This is a slight improvement to the standard one.
 166  */
 167 void
 168 printhead(mesg)
 169         int mesg;
 170 {
 171         struct message *mp;
 172         char headline[LINESIZE], wcount[LINESIZE], *subjline, dispc, curind;
 173         char pbuf[BUFSIZ];
 174         struct headline hl;
 175         int subjlen;
 176         char *name;
 177
 178         mp = &message[mesg-1];
 179         (void)readline(setinput(mp), headline, LINESIZE);
 180         if ((subjline = hfield("subject", mp)) == NULL)
 181                 subjline = hfield("subj", mp);
 182         /*
 183          * Bletch!
 184          */
 185         curind = dot == mp ? '>' : ' ';
 186         dispc = ' ';
 187         if (mp->m_flag & MSAVED)
 188                 dispc = '*';
 189         if (mp->m_flag & MPRESERVE)
 190                 dispc = 'P';
 191         if ((mp->m_flag & (MREAD|MNEW)) == MNEW)
 192                 dispc = 'N';
 193         if ((mp->m_flag & (MREAD|MNEW)) == 0)
 194                 dispc = 'U';
 195         if (mp->m_flag & MBOX)
 196                 dispc = 'M';
 197         parse(headline, &hl, pbuf);
 198         sprintf(wcount, "%3ld/%-5ld", mp->m_lines, mp->m_size);
 199         subjlen = screenwidth - 50 - strlen(wcount);
 200         name = value("show-rcpt") != NULL ?
 201                 skin(hfield("to", mp)) : nameof(mp, 0);
 202         if (subjline == NULL || subjlen < 0)            /* pretty pathetic */
 203                 printf("%c%c%3d %-20.20s  %16.16s %s\n",
 204                         curind, dispc, mesg, name, hl.l_date, wcount);
 205         else
 206                 printf("%c%c%3d %-20.20s  %16.16s %s \"%.*s\"\n",
 207                         curind, dispc, mesg, name, hl.l_date, wcount,
 208                         subjlen, subjline);
 209 }
 210
 211 /*
 212  * Print out the value of dot.
 213  */
 214 int
 215 pdot()
 216 {
 217         printf("%d\n", dot - &message[0] + 1);
 218         return (0);
 219 }
 220
 221 /*
 222  * Print out all the possible commands.
 223  */
 224 int
 225 pcmdlist()
 226 {
 227         const struct cmd *cp;
 228         int cc;
 229
 230         printf("Commands are:\n");
 231         for (cc = 0, cp = cmdtab; cp->c_name != NULL; cp++) {
 232                 cc += strlen(cp->c_name) + 2;
 233                 if (cc > 72) {
 234                         printf("\n");
 235                         cc = strlen(cp->c_name) + 2;
 236                 }
 237                 if ((cp+1)->c_name != NULL)
 238                         printf("%s, ", cp->c_name);
 239                 else
 240                         printf("%s\n", cp->c_name);
 241         }
 242         return (0);
 243 }
 244
 245 /*
 246  * Paginate messages, honor ignored fields.
 247  */
 248 int
 249 more(msgvec)
 250         int *msgvec;
 251 {
 252
 253         return (type1(msgvec, 1, 1));
 254 }
 255
 256 /*
 257  * Paginate messages, even printing ignored fields.
 258  */
 259 int
 260 More(msgvec)
 261         int *msgvec;
 262 {
 263
 264         return (type1(msgvec, 0, 1));
 265 }
 266
 267 /*
 268  * Type out messages, honor ignored fields.
 269  */
 270 int
 271 type(msgvec)
 272         int *msgvec;
 273 {
 274
 275         return (type1(msgvec, 1, 0));
 276 }
 277
 278 /*
 279  * Type out messages, even printing ignored fields.
 280  */
 281 int
 282 Type(msgvec)
 283         int *msgvec;
 284 {
 285
 286         return (type1(msgvec, 0, 0));
 287 }
 288
 289 /*
 290  * Type out the messages requested.
 291  */
 292 jmp_buf pipestop;
 293 int
 294 type1(msgvec, doign, page)
 295         int *msgvec;
 296         int doign, page;
 297 {
 298         int nlines, *ip;
 299         struct message *mp;
 300         char *cp;
 301         FILE *obuf;
 302
 303         obuf = stdout;
 304         if (setjmp(pipestop))
 305                 goto close_pipe;
 306         if (value("interactive") != NULL &&
 307             (page || (cp = value("crt")) != NULL)) {
 308                 nlines = 0;
 309                 if (!page) {
 310                         for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++)
 311                                 nlines += message[*ip - 1].m_lines;
 312                 }
 313                 if (page || nlines > (*cp ? atoi(cp) : realscreenheight)) {
 314                         cp = value("PAGER");
 315                         if (cp == NULL || *cp == '\0')
 316                                 cp = _PATH_MORE;
 317                         obuf = Popen(cp, "w");
 318                         if (obuf == NULL) {
 319                                 warnx("%s", cp);
 320                                 obuf = stdout;
 321                         } else
 322                                 (void)signal(SIGPIPE, brokpipe);
 323                 }
 324         }
 325
 326         /*
 327          * Send messages to the output.
 328          *
 329          */
 330         for (ip = msgvec; *ip && ip - msgvec < msgCount; ip++) {
 331                 mp = &message[*ip - 1];
 332                 touch(mp);
 333                 dot = mp;
 334                 if (value("quiet") == NULL)
 335                         fprintf(obuf, "Message %d:\n", *ip);
 336                 (void)sendmessage(mp, obuf, doign ? ignore : 0, NULL);
 337         }
 338
 339 close_pipe:
 340         if (obuf != stdout) {
 341                 /*
 342                  * Ignore SIGPIPE so it can't cause a duplicate close.
 343                  */
 344                 (void)signal(SIGPIPE, SIG_IGN);
 345                 (void)Pclose(obuf);
 346                 (void)signal(SIGPIPE, SIG_DFL);
 347         }
 348         return (0);
 349 }
 350
 351 /*
 352  * Respond to a broken pipe signal --
 353  * probably caused by quitting more.
 354  */
 355 /*ARGSUSED*/
 356 void
 357 brokpipe(signo)
 358         int signo;
 359 {
 360         longjmp(pipestop, 1);
 361 }
 362
 363 /*
 364  * Print the top so many lines of each desired message.
 365  * The number of lines is taken from the variable "toplines"
 366  * and defaults to 5.
 367  */
 368 int
 369 top(msgvec)
 370         int *msgvec;
 371 {
 372         int *ip;
 373         struct message *mp;
 374         int c, topl, lines, lineb;
 375         char *valtop, linebuf[LINESIZE];
 376         FILE *ibuf;
 377
 378         topl = 5;
 379         valtop = value("toplines");
 380         if (valtop != NULL) {
 381                 topl = atoi(valtop);
 382                 if (topl < 0 || topl > 10000)
 383                         topl = 5;
 384         }
 385         lineb = 1;
 386         for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++) {
 387                 mp = &message[*ip - 1];
 388                 touch(mp);
 389                 dot = mp;
 390                 if (value("quiet") == NULL)
 391                         printf("Message %d:\n", *ip);
 392                 ibuf = setinput(mp);
 393                 c = mp->m_lines;
 394                 if (!lineb)
 395                         printf("\n");
 396                 for (lines = 0; lines < c && lines <= topl; lines++) {
 397                         if (readline(ibuf, linebuf, sizeof(linebuf)) < 0)
 398                                 break;
 399                         puts(linebuf);
 400                         lineb = strspn(linebuf, " \t") == strlen(linebuf);
 401                 }
 402         }
 403         return (0);
 404 }
 405
 406 /*
 407  * Touch all the given messages so that they will
 408  * get mboxed.
 409  */
 410 int
 411 stouch(msgvec)
 412         int msgvec[];
 413 {
 414         int *ip;
 415
 416         for (ip = msgvec; *ip != 0; ip++) {
 417                 dot = &message[*ip-1];
 418                 dot->m_flag |= MTOUCH;
 419                 dot->m_flag &= ~MPRESERVE;
 420         }
 421         return (0);
 422 }
 423
 424 /*
 425  * Make sure all passed messages get mboxed.
 426  */
 427 int
 428 mboxit(msgvec)
 429         int msgvec[];
 430 {
 431         int *ip;
 432
 433         for (ip = msgvec; *ip != 0; ip++) {
 434                 dot = &message[*ip-1];
 435                 dot->m_flag |= MTOUCH|MBOX;
 436                 dot->m_flag &= ~MPRESERVE;
 437         }
 438         return (0);
 439 }
 440
 441 /*
 442  * List the folders the user currently has.
 443  */
 444 int
 445 folders()
 446 {
 447         char dirname[PATHSIZE];
 448         char *cmd;
 449
 450         if (getfold(dirname, sizeof(dirname)) < 0) {
 451                 printf("No value set for \"folder\"\n");
 452                 return (1);
 453         }
 454         if ((cmd = value("LISTER")) == NULL)
 455                 cmd = "ls";
 456         (void)run_command(cmd, 0, -1, -1, dirname, NULL, NULL);
 457         return (0);
 458 }
 459
 460 /*
 461  * Update the mail file with any new messages that have
 462  * come in since we started reading mail.
 463  */
 464 int
 465 inc(v)
 466         void *v;
 467 {
 468         int nmsg, mdot;
 469
 470         nmsg = incfile();
 471
 472         if (nmsg == 0)
 473                 printf("No new mail.\n");
 474         else if (nmsg > 0) {
 475                 mdot = newfileinfo(msgCount - nmsg);
 476                 dot = &message[mdot - 1];
 477         } else
 478                 printf("\"inc\" command failed...\n");
 479
 480         return (0);
 481 }