Lines 1-5
Link Here
|
1 |
--- fastest_cvsup.orig Thu Sep 19 21:12:17 2002 |
1 |
--- fastest_cvsup.orig Thu Sep 19 20:12:17 2002 |
2 |
+++ fastest_cvsup Mon Dec 13 18:06:56 2004 |
2 |
+++ fastest_cvsup Sat Apr 16 17:16:50 2005 |
3 |
@@ -1,13 +1,15 @@ |
3 |
@@ -1,13 +1,15 @@ |
4 |
#!/usr/bin/perl |
4 |
#!/usr/bin/perl |
5 |
#-----------------------------------------------------------------------------# |
5 |
#-----------------------------------------------------------------------------# |
Lines 17-43
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 |
@@ -82,7 +84,7 @@ |
20 |
@@ -74,16 +76,18 @@ |
21 |
'ca' => 2, # Canada |
21 |
# How many FreeBSD CVSup servers has each country got? (well, not strictly |
22 |
'cn' => 1, # China |
22 |
# true... what's the highest cvsup number in use? |
|
|
23 |
|
24 |
-my %FREEBSD_SERVERS = ( # last updated: Thu Sep 19 12:56:23 2002 |
25 |
+my %FREEBSD_SERVERS = ( # last updated: Sat Apr 16 17:15:39 CST 2005 |
26 |
'ar' => 1, # Argentina |
27 |
- 'at' => 1, # Austria |
28 |
- 'au' => 5, # Australia |
29 |
- 'br' => 4, # Brazil |
30 |
- 'ca' => 2, # Canada |
31 |
- 'cn' => 1, # China |
32 |
+ 'at' => 2, # Austria |
33 |
+ 'au' => 7, # Australia |
34 |
+ 'br' => 5, # Brazil |
35 |
+ 'ca' => 1, # Canada |
36 |
+ 'ch' => 1, # Switzerland |
37 |
+ 'cn' => 5, # China |
38 |
+ 'cr' => 1, # Costa Rica |
23 |
'cz' => 1, # Czech Republic |
39 |
'cz' => 1, # Czech Republic |
24 |
- 'de' => 7, # Germany |
40 |
- 'de' => 7, # Germany |
|
|
41 |
- 'dk' => 1, # Denmark |
25 |
+ 'de' => 8, # Germany |
42 |
+ 'de' => 8, # Germany |
26 |
'dk' => 1, # Denmark |
43 |
+ 'dk' => 3, # Denmark |
27 |
'ee' => 1, # Estonia |
44 |
'ee' => 1, # Estonia |
28 |
'es' => 3, # Spain |
45 |
'es' => 3, # Spain |
29 |
@@ -110,8 +112,9 @@ |
46 |
'fi' => 2, # Finland |
30 |
'tw' => 3, # Taiwan |
47 |
@@ -93,25 +97,32 @@ |
31 |
'ua' => 5, # Ukraine |
48 |
'ie' => 1, # Ireland |
32 |
'uk' => 5, # United Kingdom |
49 |
'is' => 1, # Iceland |
|
|
50 |
'jp' => 6, # Japan |
51 |
- 'kr' => 2, # Korea |
52 |
- 'lt' => 2, # Lithuania |
53 |
+ 'kg' => 1, # Kyrgyzstan |
54 |
+ 'kr' => 3, # Korea |
55 |
+ 'kw' => 1, # Kuwait |
56 |
+ 'lt' => 3, # Lithuania |
57 |
'lv' => 1, # Latvia |
58 |
- 'nl' => 3, # Netherlands |
59 |
+ 'nl' => 5, # Netherlands |
60 |
'no' => 1, # Norway |
61 |
'nz' => 1, # New Zealand |
62 |
- 'pl' => 1, # Poland |
63 |
- 'pt' => 1, # Portugal |
64 |
- 'ro' => 1, # Romania |
65 |
+ 'ph' => 1, # Philippines |
66 |
+ 'pl' => 3, # Poland |
67 |
+ 'pt' => 3, # Portugal |
68 |
+ 'ro' => 3, # Romania |
69 |
'ru' => 6, # Russia |
70 |
- 'se' => 2, # Sweden |
71 |
- 'si' => 1, # Slovenia |
72 |
+ 'se' => 3, # Sweden |
73 |
+ 'sg' => 1, # Singapore |
74 |
+ 'si' => 2, # Slovenia |
75 |
'sk' => 2, # Slovak Republic |
76 |
'sm' => 1, # San Marino |
77 |
- 'tw' => 3, # Taiwan |
78 |
- 'ua' => 5, # Ukraine |
79 |
- 'uk' => 5, # United Kingdom |
33 |
- 'us' => 17, # USA |
80 |
- 'us' => 17, # USA |
|
|
81 |
+ 'th' => 1, # Thailand |
82 |
+ 'tr' => 1, # Turkey |
83 |
+ 'tw' => 13, # Taiwan |
84 |
+ 'ua' => 7, # Ukraine |
85 |
+ 'uk' => 4, # United Kingdom |
34 |
+ 'us' => 18, # USA |
86 |
+ 'us' => 18, # USA |
35 |
'za' => 2, # South Africa |
87 |
'za' => 2, # South Africa |
36 |
+ 'tld' => 18, # Top Level Domain |
88 |
+ 'tld' => 18, # Top Level Domain |
37 |
); |
89 |
); |
38 |
|
90 |
|
39 |
my %OTHER_SERVERS = ( |
91 |
my %OTHER_SERVERS = ( |
40 |
@@ -177,6 +180,7 @@ |
92 |
@@ -141,6 +152,8 @@ |
|
|
93 |
'rt.fm', |
94 |
'skeleton.phys.spbu.ru', |
95 |
'cvsup.jp.openbsd.org', |
96 |
+ 'cvsup.tw.openbsd.org', |
97 |
+ 'openbsd.cc.ntu.edu.tw', |
98 |
'wiretapped.net', |
99 |
], |
100 |
); |
101 |
@@ -177,6 +190,7 @@ |
41 |
" -Q very quiet mode, no progress meter\n", |
102 |
" -Q very quiet mode, no progress meter\n", |
42 |
" -r uses remote server list from FreeBSD Handbook\n", |
103 |
" -r uses remote server list from FreeBSD Handbook\n", |
43 |
" -c aa,bb,cc queries servers in countries aa,bb,cc\n", |
104 |
" -c aa,bb,cc queries servers in countries aa,bb,cc\n", |
Lines 45-51
Link Here
|
45 |
" local queries servers set as local in the script\n", |
106 |
" local queries servers set as local in the script\n", |
46 |
" all queries all FreeBSD servers\n\n", |
107 |
" all queries all FreeBSD servers\n\n", |
47 |
" See the man page, fastest_cvsup(7), for more details.\n\n"; |
108 |
" See the man page, fastest_cvsup(7), for more details.\n\n"; |
48 |
@@ -307,12 +311,12 @@ |
109 |
@@ -307,12 +321,12 @@ |
49 |
unless ( $cc_name{$cc} ) { $cc_name{$cc} = $country } |
110 |
unless ( $cc_name{$cc} ) { $cc_name{$cc} = $country } |
50 |
} |
111 |
} |
51 |
|
112 |
|
Lines 61-67
Link Here
|
61 |
} |
122 |
} |
62 |
} |
123 |
} |
63 |
} |
124 |
} |
64 |
@@ -419,7 +423,7 @@ |
125 |
@@ -419,7 +433,7 @@ |
65 |
|
126 |
|
66 |
for ( my $i=1; $i<=$FREEBSD_SERVERS{$cc}; $i++ ) { |
127 |
for ( my $i=1; $i<=$FREEBSD_SERVERS{$cc}; $i++ ) { |
67 |
|
128 |
|
Lines 70-76
Link Here
|
70 |
if ( $i == 1 ) { push(@first,"cvsup$i.freebsd.org"); } |
131 |
if ( $i == 1 ) { push(@first,"cvsup$i.freebsd.org"); } |
71 |
else { push(@others,"cvsup$i.freebsd.org"); } |
132 |
else { push(@others,"cvsup$i.freebsd.org"); } |
72 |
} |
133 |
} |
73 |
@@ -575,7 +579,7 @@ |
134 |
@@ -575,7 +589,7 @@ |
74 |
|
135 |
|
75 |
=head1 SYNOPSIS |
136 |
=head1 SYNOPSIS |
76 |
|
137 |
|
Lines 79-85
Link Here
|
79 |
|
140 |
|
80 |
=head1 DESCRIPTION |
141 |
=head1 DESCRIPTION |
81 |
|
142 |
|
82 |
@@ -619,6 +623,11 @@ |
143 |
@@ -619,6 +633,11 @@ |
83 |
|
144 |
|
84 |
NetBSD and OpenBSD servers are lumped together under the 'netbsd' and |
145 |
NetBSD and OpenBSD servers are lumped together under the 'netbsd' and |
85 |
'openbsd' codes respectively. |
146 |
'openbsd' codes respectively. |