Mac KVASD-installer - Add download retry mechanism and improve error reporting

Merged from wsjtx-1.4 branch.



git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4762 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

Darwin/KVASD-installer/KVASD-installer/WSJTAppDelegate.applescript

@@ -29,9 +29,9 @@ script curl
     on download(|url|, fileName, destination)
         set |file| to destination & fileName
         try
-            do shell script "curl --fail --retry 5 --silent --output " & |file| & " " & |url| & fileName
+            do shell script "curl --fail --retry 5 --silent --show-error --output " & |file| & " " & |url| & fileName
-        on error
+        on error errorString
-            error "An error occurred downloading:" & return & return & |url| & fileName
+            error "An error occurred downloading:" & return & |url| & fileName & return & return & errorString
         end try
         return |file| as POSIX file
     end download
@@ -41,8 +41,8 @@ script curl
         try
             return do shell script "curl --fail --retry 5 --silent " & |url| & fileName & md5Ext ¬
                 & " | awk '{match($0,\"[[:xdigit:]]{32}\"); print substr($0,RSTART,RLENGTH)}'"
-        on error
+        on error errorString
-            error "An error occurred downloading" & return & return & fileName & md5Ext
+            error "An error occurred downloading" & return & return & fileName & md5Ext & return & return & errorString
         end try
     end downloadMD5
 end script
@@ -50,7 +50,7 @@ end script
 -- kvasd looks after fetching kvasd files from the web source
 script kvasd
     property serverPath : "https://svn.code.sf.net/p/wsjt/wsjt/trunk/kvasd-binary/"
-    property destination : system attribute "TMPDIR"
+    property destination : (system attribute "TMPDIR") & "/"
     property targetName : "kvasd"
     
     on fetchEULA()
@@ -85,8 +85,12 @@ script kvasd
     
     on cleanUp()
         tell application "Finder"
+            if exists (destination & targetName & "_eula.txt") as POSIX file then
                 delete (destination & targetName & "_eula.txt") as POSIX file
+            end if
+            if exists (destination & targetName) as POSIX file then
                 delete (destination & targetName) as POSIX file
+            end if
         end tell
     end cleanUp
 end script
@@ -155,19 +159,12 @@ script WSJTAppDelegate
         end repeat
     end process
 
-    -- execute around handler to display a progress bar during an action
-    on progressAction(action)
-        progressBar's startAnimation_(me)
-        tell action to run
-        progressBar's stopAnimation_(me)
-     end progressAction
-    
     --
     -- NSApplicationDelegate Protocol
     --
     on applicationWillFinishLaunching_(aNotification)
         try
-            mainWindow's registerForDraggedTypes_({"public.file-url"})
+--            mainWindow's registerForDraggedTypes_({"public.file-url"})
             
             set defaultNotificationCentre to current application's NSNotificationCenter's defaultCenter()
             eulaTextView's setEditable_(false)
@@ -175,7 +172,7 @@ script WSJTAppDelegate
             script downloadEula
                 eulaTextView's setString_(read kvasd's fetchEULA())
             end script
-            my progressAction(downloadEula)
+            my doWithRetry(downloadEula)
             saveButton's setEnabled_(true)
             printButton's setEnabled_(true)
         
@@ -264,7 +261,7 @@ script WSJTAppDelegate
                 script downloadKvasd
                     kvasd's fetchBinary()
                 end script
-                my progressAction(downloadKvasd)
+                my doWithRetry(downloadKvasd)
             on error errorString
                 abort(errorString)
             end try
@@ -321,6 +318,35 @@ script WSJTAppDelegate
         end try
     end viewChanged
 
+    -- Do something with retries
+    on doWithRetry(action)
+        set done to false
+        repeat until done
+            try
+                my progressAction(action)
+                set done to true
+            on error errorString
+                set userCanceled to false
+                try
+                    set dialogResult to display alert errorString as warning ¬
+                        buttons {"Cancel", "Retry"} default button "Retry" cancel button "Cancel"
+                on error number -128
+                    set userCanceled to true
+                end try
+                if userCanceled then
+                    error "User canceled operation"
+                end if
+            end try
+        end repeat
+    end doWithRetry
+
+    -- execute around handler to display a progress bar during an action
+    on progressAction(action)
+        progressBar's startAnimation_(me)
+        tell action to run
+        progressBar's stopAnimation_(me)
+    end progressAction
+
     -- Abort handler
     on abort(errorString)
         display alert errorString as critical buttons {"Ok"} default button "Ok"