home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / APPS / elm.lzh / ELM / SRC / HDRCONFG.C < prev    next >
Text File  |  1991-01-11  |  10KB  |  369 lines
  1.  
  2. static char rcsid[] = "@(#)$Id: hdrconfg.c,v 4.1.1.2 90/06/05 20:59:30 syd Exp $";
  3.  
  4. /*******************************************************************************
  5.  *  The Elm Mail System  -  $Revision: 4.1.1.2 $   $State: Exp $
  6.  *
  7.  *             Copyright (c) 1986, 1987 Dave Taylor
  8.  *             Copyright (c) 1988, 1989, 1990 USENET Community Trust
  9.  *******************************************************************************
  10.  * Bug reports, patches, comments, suggestions should be sent to:
  11.  *
  12.  *    Syd Weinstein, Elm Coordinator
  13.  *    elm@DSI.COM            dsinc!elm
  14.  *
  15.  *******************************************************************************
  16.  * $Log:    hdrconfg.c,v $
  17.  * Revision 4.1.1.2  90/06/05  20:59:30  syd
  18.  * Fix log
  19.  * 
  20.  * Revision 4.1.1.1  90/06/05  20:58:23  syd
  21.  * Fixes when ALLOW_SUBSHELL #define'd and you are in the
  22.  * Message Header Edit Screen and the mail you just composed
  23.  * is not a reply THEN the subshell command is executed.
  24.  * From: zvr@natasha.cs.wisc.EDU (Alexios Zavras)
  25.  * 
  26.  * Revision 4.1  90/04/28  22:43:10  syd
  27.  * checkin of Elm 2.3 as of Release PL0
  28.  * 
  29.  *
  30.  ******************************************************************************/
  31.  
  32. /**   This file contains the routines necessary to be able to modify
  33.       the mail headers of messages on the way off the machine.  The
  34.       headers currently supported for modification are:
  35.  
  36.     Subject:
  37.     To:
  38.     Cc:
  39.     Bcc:
  40.     Reply-To:
  41.     Expires:
  42.     Priority:
  43.         In-Reply-To:
  44.     Action:
  45.  
  46.     <user defined>
  47. **/
  48.  
  49. #include "headers.h"
  50.  
  51. #include <ctype.h>
  52.  
  53. #ifdef BSD
  54. #undef toupper
  55. #undef tolower
  56. #endif
  57.  
  58. /*
  59.  * Allow three lines for To and Cc.
  60.  * Allow two lines for Bcc, Subject and In-reply-to.
  61.  * Allow one line for all others.
  62.  */
  63. #define TO_LINE            2
  64. #define CC_LINE                 5
  65. #define BCC_LINE                8
  66. #define SUBJECT_LINE            10
  67. #define REPLY_TO_LINE           12
  68. #define ACTION_LINE             13
  69. #define EXPIRES_LINE            14
  70. #define PRIORITY_LINE           15
  71. #define IN_REPLY_TO_LINE        16
  72. #define USER_DEFINED_HDR_LINE   18
  73. #define INSTRUCT_LINE           LINES-4
  74. #define EXTRA_PROMPT_LINE    LINES-3
  75. #define INPUT_LINE        LINES-2
  76. #define ERROR_LINE        LINES-1
  77.  
  78. static  put_header();
  79.  
  80. #define put_to()        put_header(TO_LINE, 3, "To", expanded_to)
  81. #define put_cc()        put_header(CC_LINE, 3, "Cc", expanded_cc)
  82. #define put_bcc()       put_header(BCC_LINE, 2, "Bcc", expanded_bcc)
  83. #define put_subject()   put_header(SUBJECT_LINE, 2, "Subject", subject)
  84. #define put_replyto()   put_header(REPLY_TO_LINE, 1, "Reply-to", reply_to)
  85. #define put_action()    put_header(ACTION_LINE, 1, "Action", action)
  86. #define put_expires()   put_header(EXPIRES_LINE, 1, "Expires", expires)
  87. #define put_priority()  put_header(PRIORITY_LINE, 1, "Priority", priority)
  88. #define put_inreplyto() put_header(IN_REPLY_TO_LINE, 2, \
  89.                     "In-reply-to", in_reply_to)
  90. #define put_userdefined() put_header(USER_DEFINED_HDR_LINE, 1, \
  91.                     (char *) NULL, user_defined_header)
  92.  
  93. /* these are all defined in the mailmsg file! */
  94. extern char subject[SLEN], in_reply_to[SLEN], expires[SLEN], 
  95.             action[SLEN], priority[SLEN], reply_to[SLEN], to[VERY_LONG_STRING], 
  96.         cc[VERY_LONG_STRING], expanded_to[VERY_LONG_STRING], 
  97.         expanded_cc[VERY_LONG_STRING], user_defined_header[SLEN],
  98.         bcc[VERY_LONG_STRING], expanded_bcc[VERY_LONG_STRING];
  99.  
  100. char *strip_commas(), *strcpy();
  101.  
  102. edit_headers()
  103. {
  104.     /** Edit headers.  **/
  105.     int c, displayed_error = NO;
  106.  
  107.     /*  Expand address-type headers for main part of display */
  108.     /*  (Unexpanded ones are used on the 'edit-line') */
  109.     (void) build_address(strip_commas(to), expanded_to);
  110.     (void) build_address(strip_commas(cc), expanded_cc);
  111.     (void) build_address(strip_commas(bcc), expanded_bcc);
  112.     
  113.     display_headers();
  114.  
  115.     clearerr(stdin);
  116.  
  117.     while (TRUE) {    /* forever */
  118.       PutLine0(INPUT_LINE,0,"Choice: ");
  119.       if (displayed_error)
  120.         displayed_error = NO;
  121.       else
  122.         CleartoEOS();
  123. /*      c = getchar();    */
  124.       c = ReadCh();
  125.       if (isupper(c))
  126.         c = tolower(c);
  127.       clear_error();
  128.       if (c == EOF)
  129.         return(0);
  130.       switch (c) {
  131.         case RETURN:
  132.         case LINE_FEED:
  133.         case 'q' :  MoveCursor(INSTRUCT_LINE, 0);
  134.             CleartoEOS();
  135.             return(0);
  136.  
  137.         case ctrl('L') :
  138.             display_headers();
  139.             break;
  140.  
  141.         case 't' :  PutLine0(INPUT_LINE, 0, "To: "); CleartoEOLN();
  142.                      if (optionally_enter(to, INPUT_LINE, 4, TRUE, FALSE) == -1)
  143.               return(0);
  144.             (void) build_address(strip_commas(to), expanded_to);
  145.             put_to();
  146.             break;
  147.  
  148.         case 's' :  PutLine0(INPUT_LINE, 0, "Subject: "); CleartoEOLN();
  149.                 if (optionally_enter(subject,
  150.                   INPUT_LINE, 9, FALSE, FALSE) == -1)
  151.               return(0);
  152.             put_subject();
  153.             break;
  154.  
  155.         case 'b' :  PutLine0(INPUT_LINE, 0, "Bcc: "); CleartoEOLN();
  156.                 if (optionally_enter(bcc,
  157.                   INPUT_LINE, 5, TRUE, FALSE) == -1)
  158.               return(0);
  159.             (void) build_address(strip_commas(bcc), expanded_bcc);
  160.             put_bcc();
  161.             break;
  162.  
  163.         case 'c' :  PutLine0(INPUT_LINE, 0, "Cc: "); CleartoEOLN();
  164.                 if (optionally_enter(cc, INPUT_LINE, 4, TRUE, FALSE) == -1)
  165.               return(0);
  166.             (void) build_address(strip_commas(cc), expanded_cc);
  167.             put_cc();
  168.             break;
  169.  
  170.         case 'r' :  PutLine0(INPUT_LINE, 0, "Reply-To: "); CleartoEOLN();
  171.                 if(optionally_enter(reply_to,
  172.                   INPUT_LINE, 10, FALSE, FALSE) == -1)
  173.               return(0);
  174.             put_replyto();
  175.             break;
  176.  
  177.         case 'a' :  PutLine0(INPUT_LINE, 0, "Action: "); CleartoEOLN();
  178.                 if (optionally_enter(action,
  179.                   INPUT_LINE, 8, FALSE, FALSE) == -1)
  180.               return(0);
  181.             put_action();
  182.             break;
  183.  
  184.         case 'p' :  PutLine0(INPUT_LINE, 0, "Priority: "); CleartoEOLN();
  185.                 if (optionally_enter(priority,
  186.                   INPUT_LINE, 10, FALSE, FALSE)==-1)
  187.               return(0);
  188.             put_priority();
  189.             break;
  190.  
  191.         case 'e' :  enter_date(expires);
  192.             put_expires();
  193.             break;
  194.  
  195.         case 'u' :  PutLine0(EXTRA_PROMPT_LINE, 0, "User defined header: ");
  196.             CleartoEOLN();
  197.                 if (optionally_enter(user_defined_header,
  198.                  INPUT_LINE, 0, FALSE, FALSE)==-1)
  199.               return(0);
  200.             check_user_header(user_defined_header);
  201.             put_userdefined();
  202.             ClearLine(EXTRA_PROMPT_LINE);
  203.             break;
  204.  
  205. #ifdef ALLOW_SUBSHELL
  206.         case '!':   if (subshell())
  207.               display_headers();
  208.                 break;
  209. #endif
  210.  
  211.         case 'i' :  if (strlen(in_reply_to) > 0) {
  212.               PutLine0(INPUT_LINE, 0, "In-Reply-To: "); CleartoEOLN();
  213.                       if (optionally_enter(in_reply_to,
  214.                   INPUT_LINE, 13, FALSE, FALSE) == -1)
  215.                 return(0);
  216.               put_inreplyto();
  217.               break;        
  218.                }
  219.  
  220.         default  : Centerline(ERROR_LINE, "No such header!");
  221.                displayed_error = YES;
  222.       }
  223.     }
  224. }
  225.  
  226. display_headers()
  227. {
  228.     char buffer[SLEN];
  229.  
  230.     ClearScreen();
  231.  
  232.     Centerline(0,"Message Header Edit Screen");
  233.  
  234.     put_to();
  235.     put_cc();
  236.     put_bcc();
  237.     put_subject();
  238.     put_replyto();
  239.     put_action();
  240.     put_expires();
  241.     put_priority();
  242.     if (in_reply_to[0])
  243.       put_inreplyto();
  244.     if (user_defined_header[0])
  245.       put_userdefined();
  246.  
  247.     strcpy(buffer, "Choose first letter of header, u)ser defined header, ");
  248. #ifdef ALLOW_SUBSHELL
  249.     strcat(buffer, "!)shell, ");
  250. #endif
  251.     strcat(buffer, "or <return>.");
  252.     Centerline(INSTRUCT_LINE, buffer);
  253. }
  254.  
  255. static
  256. put_header(hline, hcount, field, value)
  257. int     hline, hcount;
  258. char    *field, *value;
  259. {
  260.     char    *p;
  261.     int     x, y;
  262.  
  263.     MoveCursor(hline, 0);
  264.  
  265.     if (field) {
  266.       for (p = field; *p; ++p)
  267.         Writechar(*p);
  268.       Writechar(':');
  269.       Writechar(' ');
  270.     }
  271.  
  272.     GetXYLocation(&x, &y);
  273.  
  274.     for (p = value; *p; ++p) {
  275.       if (x >= (hline + hcount))
  276.           break;
  277.       /* neat hack alert -- danger will robinson */
  278.       if ((x + 1) == (hline + hcount)
  279.        && (y + 4) == COLUMNS && strlen(p) > 4)
  280.         p = " ...";
  281.       Writechar(*p);
  282.       ++y;
  283.       if (*p < 0x20 || *p >= 0x7F || y >= COLUMNS)
  284.         GetXYLocation(&x, &y);
  285.     }
  286.  
  287.     if (x < (hline + hcount)) {
  288.       CleartoEOLN();
  289.  
  290.       while (++x < (hline + hcount)) {
  291.         MoveCursor(x, 0);
  292.         CleartoEOLN();
  293.       }
  294.     }
  295. }
  296.  
  297. enter_date(datebuf)
  298. char *datebuf;
  299. {
  300.     /** Enter the number of days this message is valid for, then
  301.         display at (x,y) the actual date of expiration.  This 
  302.         routine relies heavily on the routine 'days_ahead()' in
  303.         the file date.c
  304.     **/
  305.  
  306.     int days;
  307.     char numdaysbuf[SLEN];
  308.  
  309.     static char prompt[] =
  310.       "How many days in the future should this message expire? ";
  311.  
  312.     PutLine0(INPUT_LINE,0, prompt);
  313.     CleartoEOLN();
  314.     *datebuf = *numdaysbuf = '\0';
  315.  
  316.     optionally_enter(numdaysbuf, INPUT_LINE, strlen(prompt), FALSE, FALSE);
  317.     sscanf(numdaysbuf, "%d", &days);
  318.     if (days < 1)
  319.       Centerline(ERROR_LINE, "That doesn't make sense!");
  320.     else if (days > 56)
  321.       Centerline(ERROR_LINE, 
  322.          "Expiration date must be within eight weeks of today.");
  323.     else {
  324.       days_ahead(days, datebuf);
  325.     }
  326. }
  327.  
  328. check_user_header(header)
  329. char *header;
  330. {
  331.     /** check the header format...if bad print error and erase! **/
  332.  
  333.     register int i = -1;
  334.  
  335.     if (strlen(header) == 0)
  336.        return;
  337.  
  338.     if (whitespace(header[0])) {
  339.       error ("You can't have leading white space in a header!");
  340.       header[0] = '\0';
  341.       ClearLine(USER_DEFINED_HDR_LINE);
  342.       return;
  343.     }
  344.  
  345.     if (header[0] == ':') {
  346.       error ("You can't have a colon as the first character!");
  347.       header[0] = '\0';
  348.       ClearLine(USER_DEFINED_HDR_LINE);
  349.       return;
  350.     }
  351.  
  352.     while (header[++i] != ':') {
  353.       if (header[i] == '\0') {
  354.         Centerline(ERROR_LINE, "You need to have a colon ending the field name!");
  355.         header[0] = '\0';
  356.         ClearLine(USER_DEFINED_HDR_LINE);
  357.         return;
  358.       }
  359.       else if (whitespace(header[i])) {
  360.         Centerline(ERROR_LINE, "You can't have white space imbedded in the header name!");
  361.         header[0] = '\0';
  362.         ClearLine(USER_DEFINED_HDR_LINE);
  363.         return;
  364.       }
  365.     }
  366.     
  367.     return;
  368. }
  369.