#!/bin/sh
mirrorlist=http://www.redhat.com/download/mirror.html

if [ -x /usr/bin/curl ]; then
    get="curl -s"
elif [ -x /usr/bin/wget ]; then
    get="wget -O - -q"
else
    echo "Can't find curl or wget"
    exit 1
fi

mynetselect () {
xargs netselect -vv \
    | fgrep -v ' 0% ok' \
    | sort -n -t\[ +1 \
    | head -20
}

$get $mirrorlist \
    | awk '/<td.*><a href="(ftp|http):\/\/.*\/"/ {split($0,a,/\//);print a[3]}' \
    | uniq \
    | mynetselect