home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / com / utils / elm / sources / edit.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-05-26  |  6.3 KB  |  209 lines
  1.  
  2. static char rcsid[] = "@(#)$Id: edit.c,v 4.1.1.2 90/10/07 21:02:42 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:    edit.c,v $
  17.  * Revision 4.1.1.2  90/10/07  21:02:42  syd
  18.  * Fix EB29 using alternate editor all the time
  19.  * From: Michael Clay
  20.  *
  21.  * Revision 4.1.1.1  90/07/12  22:43:05  syd
  22.  * Make it aware of the fact that we loose the cursor position on
  23.  * some system calls, so set it far enough off an absolute move will
  24.  * be done on the next cursor address, and then place it where we want it.
  25.  * From: Syd, reported by Douglas Lamb
  26.  *
  27.  * Revision 4.1  90/04/28  22:42:46  syd
  28.  * checkin of Elm 2.3 as of Release PL0
  29.  *
  30.  *
  31.  ******************************************************************************/
  32.  
  33. /** This routine is for allowing the user to edit their current folder
  34.     as they wish.
  35.  
  36. **/
  37.  
  38. #include "headers.h"
  39. #include <errno.h>
  40.  
  41. #ifndef OS2
  42. extern int errno;
  43. #endif
  44.  
  45. char   *error_name(), *error_description(), *strcpy();
  46. long   bytes();
  47. unsigned long sleep();
  48.  
  49. #ifdef ALLOW_MAILBOX_EDITING
  50.  
  51. edit_mailbox()
  52. {
  53.     /** Allow the user to edit their folder, always resynchronizing
  54.         afterwards.   Due to intense laziness on the part of the
  55.         programmer, this routine will invoke $EDITOR on the entire
  56.         file.  The mailer will ALWAYS resync on the folder
  57.         even if nothing has changed since, not unreasonably, it's
  58.         hard to figure out what occurred in the edit session...
  59.  
  60.         Also note that if the user wants to edit their incoming
  61.         mailbox they'll actually be editing the tempfile that is
  62.         an exact copy.  More on how we resync in that case later
  63.         in this code.
  64.     **/
  65.  
  66.     FILE     *real_folder, *temp_folder;
  67.     char     edited_file[SLEN], buffer[SLEN];
  68.  
  69.     if(folder_type == SPOOL) {
  70.       if(save_file_stats(cur_folder) != 0) {
  71.         error1("Problems saving permissions of folder %s!", cur_folder);
  72.         Raw(ON);
  73.         sleep(2);
  74.         return(0);
  75.       }
  76.     }
  77.  
  78.     PutLine0(LINES-1,0,"Invoking editor...");
  79.  
  80.     strcpy(edited_file, (folder_type == NON_SPOOL ? cur_folder : cur_tempfolder));
  81.     if (strcmp(editor, "builtin") == 0 || strcmp(editor, "none") == 0)
  82.       sprintf(buffer, "%s %s", alternative_editor, edited_file);
  83.     else
  84.       sprintf(buffer, "%s %s", editor, edited_file);
  85.  
  86.     Raw(OFF);
  87.  
  88.     fclose(mailfile);
  89.     mailfile = NULL;
  90.  
  91.     if (system_call(buffer, SH, TRUE, FALSE) != 0) {
  92.       error1("Problems invoking editor %s!", alternative_editor);
  93.       Raw(ON);
  94.       sleep(2);
  95.       return(0);
  96.     }
  97.  
  98.     Raw(ON);
  99.         ClearScreen();
  100.     SetXYLocation(0, 40);    /* a location not near the next request, so an absolute is used */
  101.  
  102.     if (folder_type == SPOOL) {    /* uh oh... now the toughie...  */
  103.  
  104.       if (bytes(cur_folder) != mailfile_size) {
  105.  
  106.          /* SIGH.  We've received mail since we invoked the editor
  107.         on the folder.  We'll have to do some strange stuff to
  108.             remedy the problem... */
  109.  
  110.          PutLine0(LINES, 0, "Warning: new mail received...");
  111.          CleartoEOLN();
  112.  
  113.          if ((temp_folder = fopen(edited_file, "a")) == NULL) {
  114.            dprint(1, (debugfile,
  115.             "Attempt to open \"%s\" to append failed in %s\n",
  116.             edited_file, "edit_mailbox"));
  117.            set_error("Couldn't reopen tempfile. Edit LOST!");
  118.            return(1);
  119.          }
  120.          /** Now let's lock the folder up and stream the new stuff
  121.          into the temp file... **/
  122.  
  123.          lock(OUTGOING);
  124.          if ((real_folder = fopen(cur_folder, "r")) == NULL) {
  125.            dprint(1, (debugfile,
  126.                "Attempt to open \"%s\" for reading new mail failed in %s\n",
  127.             cur_folder, "edit_mailbox"));
  128.            sprintf(buffer, "Couldn't open %s for reading!  Edit LOST!",
  129.                cur_folder);
  130.            set_error(buffer);
  131.            unlock();
  132.            return(1);
  133.          }
  134.          if (fseek(real_folder, mailfile_size, 0) == -1) {
  135.            dprint(1, (debugfile,
  136.             "Couldn't seek to end of cur_folder (offset %ld) (%s)\n",
  137.             mailfile_size, "edit_mailbox"));
  138.            set_error("Couldn't seek to end of folder.  Edit LOST!");
  139.            unlock();
  140.            return(1);
  141.          }
  142.  
  143.          /** Now we can finally stream the new mail into the tempfile **/
  144.  
  145.          while (fgets(buffer, SLEN, real_folder) != NULL)
  146.            fprintf(temp_folder, "%s", buffer);
  147.  
  148.          fclose(real_folder);
  149.          fclose(temp_folder);
  150.  
  151.         } else lock(OUTGOING);
  152.  
  153.        /* remove real mail_file and then
  154.         * link or copy the edited mailfile to real mail_file */
  155.  
  156.        (void)unlink(cur_folder);
  157.  
  158.        if (link(edited_file, cur_folder) != 0)  {
  159.          if (errno == EXDEV || errno == EEXIST) {
  160.            /* attempt to link across file systems */
  161.               if (copy(edited_file, cur_folder) != 0) {
  162.          Write_to_screen(
  163.             "\n\rCouldn't copy %s to mailfile %s!\n\r",
  164.             2, edited_file, cur_folder);
  165.          Write_to_screen(
  166.             "\n\rYou'll need to check out %s for your mail.\n\r",
  167.             1, edited_file);
  168.          Write_to_screen("** %s - %s. **\n\r", 2,
  169.             error_name(errno), error_description(errno));
  170.          unlock();                    /* ciao!*/
  171.          emergency_exit();
  172.            }
  173.          } else {
  174.         Write_to_screen("\n\rCouldn't link %s to mailfile %s!\n\r",2,
  175.           edited_file, cur_folder);
  176.             Write_to_screen(
  177.           "\n\rYou'll need to check out %s for your mail.\n\r",
  178.           1, edited_file);
  179.         Write_to_screen("** %s - %s. **\n\r", 2,
  180.           error_name(errno), error_description(errno));
  181.             unlock();                    /* ciao!*/
  182.             emergency_exit();
  183.          }
  184.        }
  185.  
  186.        /* restore file permissions before removing lock */
  187.  
  188.        if(restore_file_stats(cur_folder) != 1) {
  189.          error1("Problems restoring permissions of folder %s!", cur_folder);
  190.          Raw(ON);
  191.          sleep(2);
  192.        }
  193.  
  194.        unlock();
  195.        unlink(edited_file);    /* remove the edited mailfile */
  196.        error("Changes incorporated into new mail...");
  197.  
  198.     } else
  199.       error("Resynchronizing with new version of folder...");
  200.  
  201.     /* sleep(2); */
  202.     ClearScreen();
  203.     newmbox(cur_folder, FALSE);
  204.     showscreen();
  205.     return(1);
  206. }
  207.  
  208. #endif
  209.