#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes qw(gettimeofday);
use LWP::UserAgent;
my $testfile = "pclinuxos/2007/base/srclist.main.bz2";
my @timedList = ();
my @badList = ();
my @reposList = (
   "http://ftp.riken.go.jp/pub/Linux/pclinuxos/apt/",
   "http://ftp.kddlabs.co.jp/Linux/packages/pclinuxos/apt/",
   "http://ftp.jaist.ac.jp/pub/Linux/PCLinuxOS/apt/",
   "http://mirror.pclinuxclub.com/pclinuxos/apt/",
   "http://www2.mirror.in.th./osarchive/pclinuxos/pclinuxos/apt/",
   "http://ftp.twaren.net/Linux/PCLinuxOS/apt/",
   "http://gnupg.cdpa.nsysu.edu.tw/Linux/PCLinuxOS/apt/",
   "http://mirror.internode.on.net/pub/pclinuxos/apt/",
   "ftp://mirror.aarnet.edu.au/pub/pclinuxos/apt/",
   "http://na.mirror.garr.it/mirrors/pclinuxos/apt/",
   "http://ftp.ch.debian.org/mirror/pclinuxos/apt/",
   "http://gnustep.ethz.ch/mirror/pclinuxos/apt/",
   "http://debian.ethz.ch/mirror/pclinuxos/apt/",
   "ftp://ftp.pbone.net/pub/pclinuxos/apt/",
   "http://ftp.klid.dk/ftp/pclinuxos/apt/",
   "http://mirrors.lastdot.org:1280/pclos/apt/",
   "http://mirrors.xservers.ro/pclinuxos/apt/",
   "http://ftp.heanet.ie/pub/pclinuxos/apt/",
   "http://ftp.belnet.be/mirror/pclinuxonline.com/apt/",
   "http://ftp.nl.freebsd.org/os/Linux/distr/texstar/pclinuxos/apt/",
   "http://ftp.sh.cvut.cz/MIRRORS/pclinuxos/apt/",
   "ftp://cesium.di.uminho.pt/pub/pclinuxos/apt/",
   "http://distrib-coffee.ipsl.jussieu.fr/pub/linux/pclinuxos/apt/",
   "http://ftp.cc.uoc.gr/mirrors/linux/pclinuxos/apt/",
   "http://ftp.leg.uct.ac.za/pub/linux/pclinuxos/apt/",
   "http://spout.ussg.indiana.edu/linux/pclinuxos/pclinuxos/apt/",
   "http://ftp.uwsg.indiana.edu/linux/pclinuxos/pclinuxos/apt/",
   "http://ftp.ussg.iu.edu/linux/pclinuxos/pclinuxos/apt/",
   "http://pclosusers.com/pclosfiles/",
   "http://distro.ibiblio.org/pub/linux/distributions/texstar/pclinuxos/apt/"
);
print "Downloading srclist.main.bz2 from each mirror...\n";
foreach my $url (@reposList) {
   my $link = "$url$testfile";
   my $ua = LWP::UserAgent->new();
   $ua->timeout(3);
   $ua->show_progress('TRUE');
   my $t0 = gettimeofday();
   my $response = $ua->get($link);
   my $t1 = gettimeofday();
   $url =~ s|(\w+://.*?)(:\d+)?/(.*)|$1|;
   if ($response->is_success) {
       my $delta = ($t1 - $t0);
       my $line = $url.' '.$delta;
       push(@timedList, $line);
   } else {
   push(@badList, $url);
   }
}
my @sortedList =
map { $_->[0] }
sort { $a->[1] <=> $b->[1] }
map { [$_, (split)[1] ] } @timedList;
print "\nMirrors speed (time to get 400 KB):\n";
foreach (@sortedList) {
   print "$_", "s\n";
}
if (@badList) {
   print "\nThe following mirrors timed out or are not valid :\n";
   foreach (@badList) {
      print "$_", "\n";
   }
}