Lines 1-5
Link Here
|
1 |
--- fastest_cvsup.orig Thu Sep 19 20:12:17 2002 |
1 |
--- fastest_cvsup.orig Mon Jan 15 17:50:24 2007 |
2 |
+++ fastest_cvsup Sat Apr 16 17:16:50 2005 |
2 |
+++ fastest_cvsup Mon Jan 15 15:17:51 2007 |
3 |
@@ -1,13 +1,15 @@ |
3 |
@@ -1,13 +1,15 @@ |
4 |
#!/usr/bin/perl |
4 |
#!/usr/bin/perl |
5 |
#-----------------------------------------------------------------------------# |
5 |
#-----------------------------------------------------------------------------# |
Lines 17-23
Link Here
|
17 |
# 0.2.8 - fixed the progress meter, timestamped %FREEBSD_SERVERS |
17 |
# 0.2.8 - fixed the progress meter, timestamped %FREEBSD_SERVERS |
18 |
# 0.2.7 - updated documentation, usage message and progress meter. |
18 |
# 0.2.7 - updated documentation, usage message and progress meter. |
19 |
# 0.2.6 - changed from freebsdmirrors.org to the online handbook. |
19 |
# 0.2.6 - changed from freebsdmirrors.org to the online handbook. |
20 |
@@ -74,16 +76,18 @@ |
20 |
@@ -74,17 +76,19 @@ |
21 |
# How many FreeBSD CVSup servers has each country got? (well, not strictly |
21 |
# How many FreeBSD CVSup servers has each country got? (well, not strictly |
22 |
# true... what's the highest cvsup number in use? |
22 |
# true... what's the highest cvsup number in use? |
23 |
|
23 |
|
Lines 26-62
Link Here
|
26 |
'ar' => 1, # Argentina |
26 |
'ar' => 1, # Argentina |
27 |
- 'at' => 1, # Austria |
27 |
- 'at' => 1, # Austria |
28 |
- 'au' => 5, # Australia |
28 |
- 'au' => 5, # Australia |
29 |
- 'br' => 4, # Brazil |
|
|
30 |
- 'ca' => 2, # Canada |
31 |
- 'cn' => 1, # China |
32 |
+ 'at' => 2, # Austria |
29 |
+ 'at' => 2, # Austria |
33 |
+ 'au' => 7, # Australia |
30 |
+ 'au' => 7, # Australia |
34 |
+ 'br' => 4, # Brazil |
31 |
'br' => 4, # Brazil |
35 |
+ 'ca' => 2, # Canada |
32 |
'ca' => 2, # Canada |
|
|
33 |
- 'cn' => 1, # China |
36 |
+ 'ch' => 2, # Switzerland |
34 |
+ 'ch' => 2, # Switzerland |
37 |
+ 'cn' => 7, # China |
35 |
+ 'cn' => 7, # China |
38 |
+ 'cr' => 1, # Costa Rica |
36 |
+ 'cr' => 1, # Costa Rica |
39 |
'cz' => 1, # Czech Republic |
37 |
'cz' => 1, # Czech Republic |
40 |
- 'de' => 7, # Germany |
38 |
- 'de' => 7, # Germany |
41 |
- 'dk' => 1, # Denmark |
39 |
- 'dk' => 1, # Denmark |
|
|
40 |
- 'ee' => 1, # Estonia |
42 |
+ 'de' => 8, # Germany |
41 |
+ 'de' => 8, # Germany |
43 |
+ 'dk' => 3, # Denmark |
42 |
+ 'dk' => 3, # Denmark |
44 |
- 'ee' => 1, # Estonia |
|
|
45 |
+ 'ee' => 2, # Estonia |
43 |
+ 'ee' => 2, # Estonia |
46 |
'es' => 3, # Spain |
44 |
'es' => 3, # Spain |
47 |
'fi' => 2, # Finland |
45 |
'fi' => 2, # Finland |
|
|
46 |
'fr' => 8, # France |
48 |
@@ -93,25 +97,32 @@ |
47 |
@@ -93,25 +97,32 @@ |
49 |
'ie' => 1, # Ireland |
48 |
'ie' => 1, # Ireland |
50 |
'is' => 1, # Iceland |
49 |
'is' => 1, # Iceland |
51 |
'jp' => 6, # Japan |
50 |
'jp' => 6, # Japan |
52 |
- 'kr' => 2, # Korea |
51 |
- 'kr' => 2, # Korea |
53 |
- 'lt' => 2, # Lithuania |
52 |
- 'lt' => 2, # Lithuania |
|
|
53 |
- 'lv' => 1, # Latvia |
54 |
- 'nl' => 3, # Netherlands |
54 |
+ 'kg' => 1, # Kyrgyzstan |
55 |
+ 'kg' => 1, # Kyrgyzstan |
55 |
+ 'kr' => 5, # Korea |
56 |
+ 'kr' => 5, # Korea |
56 |
+ 'kw' => 1, # Kuwait |
57 |
+ 'kw' => 1, # Kuwait |
57 |
+ 'lt' => 3, # Lithuania |
58 |
+ 'lt' => 3, # Lithuania |
58 |
- 'lv' => 1, # Latvia |
|
|
59 |
- 'nl' => 3, # Netherlands |
60 |
+ 'lv' => 3, # Latvia |
59 |
+ 'lv' => 3, # Latvia |
61 |
+ 'nl' => 6, # Netherlands |
60 |
+ 'nl' => 6, # Netherlands |
62 |
'no' => 1, # Norway |
61 |
'no' => 1, # Norway |
Lines 64-77
Link Here
|
64 |
- 'pl' => 1, # Poland |
63 |
- 'pl' => 1, # Poland |
65 |
- 'pt' => 1, # Portugal |
64 |
- 'pt' => 1, # Portugal |
66 |
- 'ro' => 1, # Romania |
65 |
- 'ro' => 1, # Romania |
67 |
+ 'ph' => 1, # Philippines |
|
|
68 |
+ 'pl' => 3, # Poland |
69 |
+ 'pt' => 3, # Portugal |
70 |
+ 'ro' => 3, # Romania |
71 |
- 'ru' => 6, # Russia |
66 |
- 'ru' => 6, # Russia |
72 |
- 'se' => 2, # Sweden |
67 |
- 'se' => 2, # Sweden |
73 |
- 'si' => 1, # Slovenia |
68 |
- 'si' => 1, # Slovenia |
74 |
- 'sk' => 2, # Slovak Republic |
69 |
- 'sk' => 2, # Slovak Republic |
|
|
70 |
+ 'ph' => 1, # Philippines |
71 |
+ 'pl' => 3, # Poland |
72 |
+ 'pt' => 3, # Portugal |
73 |
+ 'ro' => 3, # Romania |
75 |
+ 'ru' => 7, # Russia |
74 |
+ 'ru' => 7, # Russia |
76 |
+ 'se' => 4, # Sweden |
75 |
+ 'se' => 4, # Sweden |
77 |
+ 'sg' => 1, # Singapore |
76 |
+ 'sg' => 1, # Singapore |
Lines 84-90
Link Here
|
84 |
- 'us' => 17, # USA |
83 |
- 'us' => 17, # USA |
85 |
+ 'th' => 1, # Thailand |
84 |
+ 'th' => 1, # Thailand |
86 |
+ 'tr' => 1, # Turkey |
85 |
+ 'tr' => 1, # Turkey |
87 |
+ 'tw' => 13, # Taiwan |
86 |
+ 'tw' => 14, # Taiwan |
88 |
+ 'ua' => 11, # Ukraine |
87 |
+ 'ua' => 11, # Ukraine |
89 |
+ 'uk' => 4, # United Kingdom |
88 |
+ 'uk' => 4, # United Kingdom |
90 |
+ 'us' => 18, # USA |
89 |
+ 'us' => 18, # USA |
Lines 110-116
Link Here
|
110 |
" local queries servers set as local in the script\n", |
109 |
" local queries servers set as local in the script\n", |
111 |
" all queries all FreeBSD servers\n\n", |
110 |
" all queries all FreeBSD servers\n\n", |
112 |
" See the man page, fastest_cvsup(7), for more details.\n\n"; |
111 |
" See the man page, fastest_cvsup(7), for more details.\n\n"; |
113 |
@@ -307,12 +321,12 @@ |
112 |
@@ -281,6 +295,7 @@ |
|
|
113 |
|
114 |
# extract the country name and the rest (what a mess!) |
115 |
|
116 |
+ s/^<a[^>]+><\/a>//; |
117 |
if ( m/^(\w+)(\s{1}\w+)?\s*(.*)/s ) { |
118 |
my $country = $1.$2; # for two word names |
119 |
my $mess = $3; # the rest |
120 |
@@ -307,12 +322,12 @@ |
114 |
unless ( $cc_name{$cc} ) { $cc_name{$cc} = $country } |
121 |
unless ( $cc_name{$cc} ) { $cc_name{$cc} = $country } |
115 |
} |
122 |
} |
116 |
|
123 |
|
Lines 126-132
Link Here
|
126 |
} |
133 |
} |
127 |
} |
134 |
} |
128 |
} |
135 |
} |
129 |
@@ -419,7 +433,7 @@ |
136 |
@@ -419,7 +434,7 @@ |
130 |
|
137 |
|
131 |
for ( my $i=1; $i<=$FREEBSD_SERVERS{$cc}; $i++ ) { |
138 |
for ( my $i=1; $i<=$FREEBSD_SERVERS{$cc}; $i++ ) { |
132 |
|
139 |
|
Lines 135-141
Link Here
|
135 |
if ( $i == 1 ) { push(@first,"cvsup$i.freebsd.org"); } |
142 |
if ( $i == 1 ) { push(@first,"cvsup$i.freebsd.org"); } |
136 |
else { push(@others,"cvsup$i.freebsd.org"); } |
143 |
else { push(@others,"cvsup$i.freebsd.org"); } |
137 |
} |
144 |
} |
138 |
@@ -575,7 +589,7 @@ |
145 |
@@ -575,7 +590,7 @@ |
139 |
|
146 |
|
140 |
=head1 SYNOPSIS |
147 |
=head1 SYNOPSIS |
141 |
|
148 |
|
Lines 144-150
Link Here
|
144 |
|
151 |
|
145 |
=head1 DESCRIPTION |
152 |
=head1 DESCRIPTION |
146 |
|
153 |
|
147 |
@@ -619,6 +633,11 @@ |
154 |
@@ -619,6 +634,11 @@ |
148 |
|
155 |
|
149 |
NetBSD and OpenBSD servers are lumped together under the 'netbsd' and |
156 |
NetBSD and OpenBSD servers are lumped together under the 'netbsd' and |
150 |
'openbsd' codes respectively. |
157 |
'openbsd' codes respectively. |