Changeset 1748

Timestamp:

Feb 28, 2014, 3:48:00 PM (12 years ago)

Author:

John Small

Message:

Ticket #510: Improved handling of cleanup of temporary files.

File:

• trunk/ReleaseTool.cmd (modified) (7 diffs)

trunk/ReleaseTool.cmd

@@ -71 +71 @@
  *    07 Aug 11 JBS Ticket 462: Fix bug in NNTP "To" code
  *    11 Feb 14 JBS Ticket 462: Improved handling of missing cfg file.
+ *    28 Feb 14 JBS Ticket 510: Improved handling cleaenup of temporary files
  *
  * To Do
@@ -486 +487 @@
             server_count = cfg.SMTP.0
             page_title = 'Release announcement'
-            email.subject = 'File Manager/2 v3.19.1 released'
+            email.subject = 'File Manager/2' ver.full 'released'
             call SetDefaultAnnouncementText email.body_file
         end
@@ -1957 +1958 @@
       return
     end
-  body_file = SysTempFilename('NNTPBody.???')
-  call SetDefaultAnnouncementText body_file
+  nntp_body_file = SysTempFilename('NNTPBody.???')
+  call SetDefaultAnnouncementText nntp_body_file
   cfg.NNTP.subject = 'FM/2' ver.full 'has been released.'
   _text = '<Standard>'
@@ -1988 +1989 @@
         when option = 'T' then
            do
-              b4_timestamp = SysGetFileDateTime(body_file)
+              b4_timestamp = SysGetFileDateTime(nntp_body_file)
               say 'The current body of the newsgroup message will now be loaded into an editor.'
               say 'Make desired changes, if any, and save the file.'
@@ -1995 +1996 @@
               call SysGetKey
               say
-              call ExecCmd cmd.editor body_file
-              if b4_timestamp \= SysGetFileDateTime(body_file) then
+              call ExecCmd cmd.editor nntp_body_file
+              if b4_timestamp \= SysGetFileDateTime(nntp_body_file) then
                  _text = '<Modified>'
            end
@@ -2114 +2115 @@
                     cfg.NNTP.message_body = cfg.NNTP.message_body || linein(body_file) || cfg.crlf
                  end
-                 call stream body_file, 'c', 'close'
+                 call stream nntp_body_file, 'c', 'close'
                  rcx = SendNNTP(s)
               end
@@ -2122 +2123 @@
            rcx = -1 /* User aborted */
      end
-  call SysFileDelete body_file
+  call SysFileDelete nntp_body_file
 return rcx