Ticket #14891: sortsites2.diff

portfetch.tcl

@@ -301 +301 @@
     }
 }
 
+# sorts fetch_urls in order of ping time
+proc sortsites {args} {
+    global fetch_urls fallback_mirror_site
+
+    set fallback_mirror_list [mirror_sites $fallback_mirror_site {} {}]
+
+    foreach {url_var distfile} $fetch_urls {
+        global portfetch::$url_var
+                if {![info exists $url_var]} {
+                        ui_error [format [msgcat::mc "No defined site for tag: %s, using master_sites"] $url_var]
+                        set url_var master_sites
+                        global portfetch::$url_var
+                }
+                set urllist [set $url_var]
+        set pinglist {}
+
+        foreach site $urllist {
+            regexp {[a-zA-Z]+://([a-zA-Z0-9\.-]+)[(/?$)|(/.*)]} $site -> host
+
+            set msecs 0
+            foreach fallback $fallback_mirror_list {
+                if {[string match [append fallback *] $site]} {
+                    set msecs 20000
+                    break
+                }
+            }
+            if {$msecs == 0} {
+                ui_debug "Pinging $host..."
+                if {[catch {exec ping -noq -c1 -t1 $host | grep round-trip | cut -d / -f 5} msecs]} {
+                    set msecs 10000; # ping failed, so put it last in the list
+                }
+            }
+            lappend pinglist [ list $site $msecs ]
+        }
+
+        set pinglist [ lsort -real -index 1 $pinglist ]
+
+        set $url_var {}
+        foreach pair $pinglist {
+            lappend $url_var [lindex $pair 0]
+        }
+    }
+}
+
 # Perform the full checksites/checkpatchfiles/checkdistfiles sequence.
 # This method is used by distcheck target.
 proc checkfiles {args} {
@@ -310 +354 @@
         checksites
         checkpatchfiles
         checkdistfiles
+        sortsites
 }