Cygwin Mirror Tester

Cygwin Mirror Tester.au3

;#NoTrayIcon
#include <WinHttp.au3>
#include <String.au3>
#include <array.au3>

$mirrorsUrl = "http://cygwin.com/mirrors.lst"
$aMirrorsUrl = StringSplit($mirrorsUrl, "/", 2)

$mirrorsHost = $aMirrorsUrl[2]
$mirrorsFile = $aMirrorsUrl[3]

$testFile = "x86/setup.ini"


$hOpen = _WinHttpOpen()
$hConnect = _WinHttpConnect($hOpen, $mirrorsHost)
$hRequest = _WinHttpOpenRequest($hConnect, Default, $mirrorsFile)

; Send request
_WinHttpSendRequest($hRequest)

; Wait for the response
_WinHttpReceiveResponse($hRequest)

global $sChunk

If _WinHttpQueryDataAvailable($hRequest) Then
   Local $sData
	While 1
		$sChunk = _WinHttpReadData($hRequest)
		If @error Then ExitLoop
		$sData &= $sChunk
    WEnd
	
	_WinHttpCloseHandle($hRequest)
	_WinHttpCloseHandle($hConnect)
	_WinHttpCloseHandle($hOpen)
	
	$tmpMirrors = Stringsplit($sData, @CRLF)
	;_ArrayDisplay($tmpMirrors)
	
	global $aMirrors[1]
	for $i=1 To Ubound($tmpMirrors) - 1
		$currMirror = _StringBetween($tmpMirrors[$i], "http://",";")
		If @error = 1 Then ContinueLoop
		
		; Delete the last character if "/"
		If StringRight($currMirror[0],1) = "/" Then $currMirror[0] = StringMid($currMirror[0], 1, StringLen($currMirror[0]) - 1)
		   
		If $i = 1 Then
			$aMirrors[0] = $currMirror[0]
		Else
			_ArrayAdd($aMirrors, $currMirror[0])
		EndIf
	 Next
	
	global $aGoodMirrors[1][2]
	
	
	for $i=0 To Ubound($aMirrors) - 1
	   $currMirror = $aMirrors[$i]
	   
		$hOpen = _WinHttpOpen()
		
		$reqStart = TimerInit()
		
		Local $sitePathOffset = StringInStr($currMirror, "/", 0, 1)
		
		Local $realAddress, $extrapath
		If $sitePathOffset <> 0 Then
		   $realAddress = StringMid($currMirror, 1, $sitePathOffset - 1)
		   
		   $extraPath = StringMid($currMirror, $sitePathOffset + 1)
		 EndIf
		
		If $sitePathOffset <> 0 Then $currMirror = $realAddress
		   
		$hConnect = _WinHttpConnect($hOpen, $currMirror)
		Local $currFile
		
		If $sitePathOffset <> 0 Then
		   $currFile = $extraPath & "/" & $testFile
		Else
		   $currFile = $testFile
	    EndIf
		   
		$hRequest = _WinHttpOpenRequest($hConnect, Default, $currFile)
		
		_WinHttpSendRequest($hRequest)
		
		; Wait for the response
	    _WinHttpReceiveResponse($hRequest)
		
		; There is some content to get (We should also verify size)
		If _WinHttpQueryDataAvailable($hRequest) Then
		  While 1
			; Download data but do not keep it (useless)
			  _WinHttpReadData($hRequest)
			  If @error Then ExitLoop
		  WEnd
		  	_WinHttpCloseHandle($hRequest)
			_WinHttpCloseHandle($hConnect)
			_WinHttpCloseHandle($hOpen)
		  
	   Else
		 ContinueLoop
	  EndIf
		$reqDiff = TimerDiff($reqStart)
		
		ConsoleWrite("Time: " & $reqDiff & @CRLF & "Mirror: " & $currMirror & @CRLF)
		
		; If the array is yet empty
		If  $aGoodMirrors[0][0] = "" Then
			$aGoodMirrors[0][0] = $reqDiff
			$aGoodMirrors[0][1] = $currMirror
		 Else
			$latestArraySize = Ubound($aGoodMirrors)
			Redim $aGoodMirrors[$latestArraySize + 1][2]
		   $aGoodMirrors[$latestArraySize][0] = $reqDiff
		   $aGoodMirrors[$latestArraySize][1] = $currMirror
		EndIf
	Next
	$aGoodMirros = _Arraysort($aGoodMirrors)
	; Display sorted results
	_ArrayDisplay($aGoodMirrors, "Cygwin Mirror Tester - Fastest mirror on the top", -1, 0, "", "|", "Rank|Time (ms)|HTTP Mirror")
EndIf

Cygwin Mirror Tester

Description

This AutoIt3 code will retrieve all the available Cygwin HTTP mirrors, try to download the file "x86/setup.ini" using each mirror, it then displays a sorted list with the time it took to download this file.

Depending on the speed of your Internet connection, this can take time before the summary window opens.

The fastest mirror is on the top of the list, the slowest is at the bottom.
This comes useful when you want to download Cygwin in the minimal time.

Screenshot

Download

Compiled EXE can be downloaded here: http://www.mirari.fr/MgeV

License

WTFPL

            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
                    Version 2, December 2004

 Copyright (C) 2004 Sam Hocevar <[email protected]>

 Everyone is permitted to copy and distribute verbatim or modified
 copies of this license document, and changing it is allowed as long
 as the name is changed.

            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION

  0. You just DO WHAT THE FUCK YOU WANT TO.