Changeset 82920

Timestamp:

08/21/11 18:23:40 (4 years ago)

Author:

derek@…

Message:

Catch errors from curl post

File:

• branches/gsoc11-statistics/base/src/port/port.tcl (modified) (1 diff)

branches/gsoc11-statistics/base/src/port/port.tcl

@@ -2728 +2728 @@
             
             set json [json_encode_stats ${macports::stats_id} os ports]
-            curl post "submit\[data\]=$json" ${macports::stats_url}  
+            ui_notice "Submitting to ${macports::stats_url}"
+            
+            if {[catch {curl post "submission\[data\]=$json" ${macports::stats_url}} value]} {
+                global errorInfo
+                ui_error "$errorInfo"
+                return 0
+            }
         }
         default {