|
Lines 33-39
Link Here
|
| 33 |
if [ "${1}" = "-a" ] ; then |
33 |
if [ "${1}" = "-a" ] ; then |
| 34 |
echo "Fetching server list from web" |
34 |
echo "Fetching server list from web" |
| 35 |
# nastiness, but it should work for now |
35 |
# nastiness, but it should work for now |
| 36 |
MIRROR_LIST=$((echo -e "GET /main/en/mirrors.xml HTTP/0.9\r\n\r\n" 1>&3 & cat 0<&3) 3<> /dev/tcp/gentoo.org/80 | \ |
36 |
MIRROR_LIST=$((wget -q -O- www.gentoo.org/main/en/mirrors.xml) | \ |
| 37 |
(read i; while [ "$(echo $i | tr -d '\r')" != "" ]; do read i; done; cat) | \ |
37 |
(read i; while [ "$(echo $i | tr -d '\r')" != "" ]; do read i; done; cat) | \ |
| 38 |
perl -nle'print $1 if /\s{5}<a href="((htt|ft)p[^"]+)/' | grep -v "MIRRORS") |
38 |
perl -nle'print $1 if /\s{5}<a href="((htt|ft)p[^"]+)/' | grep -v "MIRRORS") |
| 39 |
|
39 |
|
