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