tor-webwml.git

1) #!/usr/bin/perl -w
2) use warnings;
3) use strict;
4) use LWP::Simple;
5) use LWP;
6) use Date::Parse;

7) use Date::Format;

8) 

9) #
10) # A quick hack by Jacob Appelbaum <jacob@appelbaum.net>

11) # LWP suggestions by Leigh Honeywell

12) # This is Free Software (GPLv3)
13) # http://www.gnu.org/licenses/gpl-3.0.txt
14) #

15) # CHANGELOG
16) # 20091003 Code changes to elimiate the need for a trailing slash in addresses for script runtime
17) # 20091004 Code changes to increase out of date tolerance to 48 hours
18) # 20091028 Code changes to increase timout to 30 seconds (attempting to # resolve "unknown" status')
19) # 20091028 Code changes to change user agent of script
20) # 20100807 Remove dead mirrors.

21) 

22) print "Creating LWP agent ($LWP::VERSION)...\n";
23) my $lua = LWP::UserAgent->new(
24)     keep_alive => 1,

25)     timeout => 30,

26)     agent => "Tor MirrorCheck Agent"

27) );
28) 
29) sub sanitize {
30)     my $taintedData = shift;
31)     my $cleanedData;
32)     my $whitelist = '-a-zA-Z0-9: +';
33) 
34)     # clean the data, return cleaned data
35)     $taintedData =~ s/[^$whitelist]//go;
36)     $cleanedData = $taintedData;
37) 
38)     return $cleanedData;
39) }
40) 
41) sub FetchDate {
42)     my $url = shift; # Base url for mirror

43)     my $trace = "/project/trace/www.torproject.org"; # Location of recent update info

44)     $url = "$url$trace";
45) 
46)     print "Fetching possible date from: $url\n";
47) 
48)     my $request = new HTTP::Request GET => "$url";
49)     my $result = $lua->request($request);

50)     my $code = $result->code();
51)     print "Result code $code\n";

52) 

53)     if ($result->is_success && $code eq "200"){

54)        my $taint = $result->content;
55)        my $content = sanitize($taint);
56)        if ($content) {

57) 

58)             my $date = str2time($content);
59) 
60)             if ($date) {
61)                 print "We've fetched a date $date.\n";
62)                 return $date;
63)             } else {
64)                 print "We've haven't fetched a date.\n";
65)                 return "Unknown";
66)             }
67) 
68)         } else {
69)             print "Unable to fetch date, empty content returned.\n";
70)             return "Unknown";
71)         }

72) 

73)     } else {
74)        print "Our request failed, we had no result.\n";
75)        return "Unknown";
76)     }

77) 
78)     return "Unknown";

79) }
80) 
81) # This is the list of all known Tor mirrors
82) # Add new mirrors to the bottom!

83) my %m = (
84) 

85)         mirror001 => {
86)             adminContact => "BarkerJr AT barkerjr DOT net",
87)             orgName => "BarkerJr",
88)             isoCC => "FR",
89)             subRegion => "",
90)             region => "FR",
91)             ipv4 => "True",
92)             ipv6 => "False",
93)             loadBalanced => "No",

94)             httpWebsiteMirror => "http://www.oignon.net/",

95)             httpsWebsiteMirror => "https://www.oignon.net/",

96)             rsyncWebsiteMirror => "",
97)             ftpWebsiteMirror => "",

98)             httpDistMirror => "http://www.oignon.net/dist/",

99)             httpsDistMirror => "https://www.oignon.net/dist/",

100)             rsyncDistMirror => "",
101)             hiddenServiceMirror => "",
102)             updateDate => "Unknown",
103)         },
104) 

105)        mirror002 => {

106)             adminContact => "",

107)             orgName => "Boinc",

108)             isoCC => "CH",
109)             subRegion => "",
110)             region => "Europe",
111)             ipv4 => "True",
112)             ipv6 => "False",
113)             loadBalanced => "Unknown",
114)             httpWebsiteMirror => "http://tor.boinc.ch/",
115)             ftpWebsiteMirror => "",
116)             rsyncWebsiteMirror => "",
117)             httpDistMirror => "http://tor.boinc.ch/dist/",
118)             rsyncDistMirror => "",

119)             updateDate => "Unknown",

120)         },
121) 

122)        mirror003 => {

123)             adminContact => "citizen428 AT gmail DOT com",

124)             orgName => "[[:bbs:]]",

125)             isoCC => "DE",
126)             subRegion => "",
127)             region => "Europe",
128)             ipv4 => "True",
129)             ipv6 => "False",
130)             loadBalanced => "Unknown",
131)             httpWebsiteMirror => "http://tor.blingblingsquad.net/",

132)             httpsWebsiteMirror => "https://tor.blingblingsquad.net/",

133)             ftpWebsiteMirror => "",
134)             rsyncWebsiteMirror => "",

135)             httpDistMirror => "http://tor.blingblingsquad.net/dist",

136)             httpsDistMirror => "https://tor.blingblingsquad.net/dist",

137)             rsyncDistMirror => "",

138)             updateDate => "Unknown",

139)         },
140) 

141)        mirror004 => {

142)             adminContact => "doc DOT kuehn AT nexgo DOT de",
143)             orgName => " spacecowboy ",
144)             isoCC => " ",

145)             subRegion => "",

146)             region => "DE",

147)             ipv4 => "True",
148)             ipv6 => "False",

149)             loadBalanced => "No",
150)             httpWebsiteMirror => "http://tor-proxy.de/tor-mirror/",
151)             httpsWebsiteMirror => "https://tor-proxy.de/tor-mirror/",

152)             rsyncWebsiteMirror => "",

153)             ftpWebsiteMirror => "",
154)             httpDistMirror => "http://tor-proxy.de/tor-mirror/dist/",
155)             httpsDistMirror => "https://tor-proxy.de/tor-mirror/dist/",

156)             rsyncDistMirror => "",

157)             hiddenServiceMirror => "",

158)             updateDate => "Unknown",
159)         },

160) 

161)        mirror005 => {

162)             adminContact => "contact AT algorithmus DOT com",

163)             orgName => "Spline",
164)             isoCC => "DE",
165)             subRegion => "FU",
166)             region => "Europe",
167)             ipv4 => "True",
168)             ipv6 => "False",
169)             loadBalanced => "Unknown",

170)             httpWebsiteMirror => "",

171)             ftpWebsiteMirror => "",
172)             rsyncWebsiteMirror => "",

173)             httpDistMirror => "http://rem.spline.de/tor/",

174)             rsyncDistMirror => "",

175)             updateDate => "Unknown",

176)         },
177) 

178) 	    mirror006 => {

179)             adminContact => "BarkerJr AT barkerjr DOT net",
180)             orgName => "BarkerJr",
181)             isoCC => "US",
182)             subRegion => "",
183)             region => "US",
184)             ipv4 => "True",
185)             ipv6 => "False",
186)             loadBalanced => "No",

187)             httpWebsiteMirror => "http://www.torproject.us/",
188)             httpsWebsiteMirror => "https://www.torproject.us/",

189)             rsyncWebsiteMirror => "rsync://rsync.torproject.us/tor",

190)             ftpWebsiteMirror => "",

191)             httpDistMirror => "http://www.torproject.us/dist/",
192)             httpsDistMirror => "https://www.torproject.us/dist/",

193)             rsyncDistMirror => "rsync://rsync.torproject.us/tor/dist",

194)             hiddenServiceMirror => "",
195)             updateDate => "Unknown",
196)         },
197) 

198)        mirror007 => {

199)             adminContact => "info AT zentrum-der-gesundheit DOT de",

200)             orgName => "Zentrum der Gesundheit",

201)             isoCC => "DK",
202)             subRegion => "",
203)             region => "Europe",
204)             ipv4 => "True",
205)             ipv6 => "False",
206)             loadBalanced => "Unknown",

207)             httpWebsiteMirror => "http://tor.idnr.ws/",

208)             ftpWebsiteMirror => "",

209)             rsyncWebsiteMirror => "",

210)             httpDistMirror => "http://tor.idnr.ws/dist/",

211)             rsyncDistMirror => "",

212)             updateDate => "Unknown",

213)         },
214) 

215)        mirror008 => {

216)             adminContact => "root AT amorphis DOT eu",

217)             orgName => "Amorphis",

218)             isoCC => "NL",
219)             subRegion => "",
220)             region => "Europe",
221)             ipv4 => "True",
222)             ipv6 => "False",
223)             loadBalanced => "Unknown",
224)             httpWebsiteMirror => "http://tor.amorphis.eu/",

225)             rsyncWebsiteMirror => "",

226)             ftpWebsiteMirror => "",
227)             httpDistMirror => "http://tor.amorphis.eu/dist/",
228)             rsyncDistMirror => "",

229)             updateDate => "Unknown",

230)         },
231) 

232)        mirror009 => {

233)             adminContact => "mirror AT bit DOT nl",

234)             orgName => "BIT BV",
235)             isoCC => "NL",
236)             subRegion => "",
237)             region => "Europe",
238)             ipv4 => "True",
239)             ipv6 => "False",
240)             loadBalanced => "Unknown",

241)             httpWebsiteMirror => "",

242)             rsyncWebsiteMirror => "",

243)             ftpWebsiteMirror => "ftp://ftp.bit.nl/mirror/tor/",

244)             httpDistMirror => "http://ftp.bit.nl/mirror/tor/",

245)             rsyncDistMirror => "",

246)             updateDate => "Unknown",

247)         },
248) 

249)        mirror010 => {

250)             adminContact => "webmaster AT ccc DOT de",

251)             orgName => "CCC",
252)             isoCC => "NL",
253)             subRegion => "",
254)             region => "Europe",
255)             ipv4 => "True",
256)             ipv6 => "False",
257)             loadBalanced => "Unknown",
258)             httpWebsiteMirror => "http://tor.ccc.de/",

259)             rsyncWebsiteMirror => "",

260)             ftpWebsiteMirror => "",
261)             httpDistMirror => "http://tor.ccc.de/dist/",
262)             rsyncDistMirror => "",

263)             updateDate => "Unknown",

264)         },
265) 

266)        mirror011 => {

267)             adminContact => "root AT kamagurka DOT org",

268)             orgName => "Kamagurka",

269)             isoCC => "NL",
270)             subRegion => "Haarlem",
271)             region => "Europe",
272)             ipv4 => "True",
273)             ipv6 => "False",
274)             loadBalanced => "Unknown",
275)             httpWebsiteMirror => "http://tor.kamagurka.org/",

276)             rsyncWebsiteMirror => "",

277)             ftpWebsiteMirror => "",
278)             httpDistMirror => "http://tor.kamagurka.org/dist/",
279)             rsyncDistMirror => "",

280)             updateDate => "Unknown",

281)         },
282) 

283)        mirror012 => {

284)             adminContact => "evert AT meulie DOT net",

285)             orgName => "Meulie",

286)             isoCC => "NO",
287)             subRegion => "",
288)             region => "Europe",
289)             ipv4 => "True",
290)             ipv6 => "False",
291)             loadBalanced => "Unknown",

292)             httpWebsiteMirror => "",

293)             rsyncWebsiteMirror => "",

294)             ftpWebsiteMirror => "",

295)             httpDistMirror => "http://tor.meulie.net/",

296)             rsyncDistMirror => "",

297)             updateDate => "Unknown",

298)         },
299) 

300)        mirror013 => {

301) 	    adminContact => "hostmaster AT zombiewerks DOT com",

302)             orgName => "TheOnionRouter",

303)             isoCC => "US",

304)             subRegion => "New Jersey",

305)             region => "North America",
306)             ipv4 => "True",
307)             ipv6 => "False",
308)             loadBalanced => "Unknown",
309)             httpWebsiteMirror => "http://www.theonionrouter.com/",

310)             rsyncWebsiteMirror => "",

311)             ftpWebsiteMirror => "",
312)             httpDistMirror => "http://www.theonionrouter.com/dist/",
313)             rsyncDistMirror => "",

314)             updateDate => "Unknown",

315)         },
316) 

317)         mirror014 => {

318)             adminContact => "tormaster AT xpdm DOT us",

319)             orgName => "Xpdm",

320)             isoCC => "US",
321)             subRegion => "",
322)             region => "North America",
323)             ipv4 => "True",
324)             ipv6 => "False",
325)             loadBalanced => "Unknown",
326)             httpWebsiteMirror => "http://torproj.xpdm.us/",

327)             httpsWebsiteMirror => "https://torproj.xpdm.us/",

328)             rsyncWebsiteMirror => "",

329)             ftpWebsiteMirror => "",

330)             httpDistMirror => "http://torproj.xpdm.us/dist/",
331)             httpsDistMirror => "https://torproj.xpdm.us/dist/",

332)             rsyncDistMirror => "",
333)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
334)             updateDate => "Unknown",

335)         },

336) 

337)         mirror015 => {

338)             adminContact => "",

339)             orgName => "cybervalley",
340)             isoCC => "IT",

341)             subRegion => "",

342)             region => "Italy",

343)             ipv4 => "True",
344)             ipv6 => "False",
345)             loadBalanced => "No",

346)             httpWebsiteMirror => "http://torproject.cybervalley.org/",

347)             httpsWebsiteMirror => "",

348)             rsyncWebsiteMirror => "",

349)             ftpWebsiteMirror => "",

350)             httpDistMirror => "",

351)             httpsDistMirror => "",
352)             rsyncDistMirror => "",
353)             hiddenServiceMirror => "",
354)             updateDate => "Unknown",

355)         },

356) 

357)         mirror016 => {

358)             adminContact => "security AT hostoffice DOT hu",

359)             orgName => "Unknown",
360)             isoCC => "HU",
361)             subRegion => "Hungary",
362)             region => "Europe",
363)             ipv4 => "True",
364)             ipv6 => "False",
365)             loadBalanced => "No",

366)             httpWebsiteMirror => "http://tor.hu/",

367)             httpsWebsiteMirror => "",

368)             rsyncWebsiteMirror => "",

369)             ftpWebsiteMirror => "",

370)             httpDistMirror => "",

371)             httpsDistMirror => "",
372)             rsyncDistMirror => "",
373)             hiddenServiceMirror => "",
374)             updateDate => "Unknown",

375)         },

376) 

377)         mirror017 => {

378)             adminContact => "",

379)             orgName => "Technica-03",

380)             isoCC => "UA",

381)             subRegion => "Ukraine",
382)             region => "Eastern Europe",
383)             ipv4 => "True",
384)             ipv6 => "False",
385)             loadBalanced => "No",
386)             httpWebsiteMirror => "http://torua.reactor-xg.kiev.ua/",
387)             httpsWebsiteMirror => "",

388)             rsyncWebsiteMirror => "",

389)             ftpWebsiteMirror => "",

390)             httpDistMirror => "http://tordistua.reactor-xg.kiev.ua/",

391)             httpsDistMirror => "",
392)             rsyncDistMirror => "",
393)             hiddenServiceMirror => "",
394)             updateDate => "Unknown",

395)         },

396) 

397) 	    mirror018 => {

398)             adminContact => "",
399)             orgName => "chaos darmstadt",
400)             isoCC => "DE",
401)             subRegion => "Germany",
402)             region => "Europe",
403)             ipv4 => "True",
404)             ipv6 => "False",
405)             loadBalanced => "No",
406)             httpWebsiteMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/",
407)             httpsWebsiteMirror => "",
408)             rsyncWebsiteMirror => "",
409)             ftpWebsiteMirror => "",
410)             httpDistMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/dist/",
411)             httpsDistMirror => "",
412)             rsyncDistMirror => "",
413)             hiddenServiceMirror => "",
414)             updateDate => "Unknown",

415)         },

416) 

417) 	mirror019 => {

418)             adminContact => "webmaster AT askapache DOT com",
419)             orgName => "AskApache",

420)             isoCC => "US",
421)             subRegion => "California",
422)             region => "US",
423)             ipv4 => "True",
424)             ipv6 => "False",
425)             loadBalanced => "No",
426)             httpWebsiteMirror => "http://tor.askapache.com/",
427)             httpsWebsiteMirror => "",
428)             rsyncWebsiteMirror => "",
429)             ftpWebsiteMirror => "",

430)             httpDistMirror => "http://tor.askapache.com/dist/",

431)             httpsDistMirror => "",
432)             rsyncDistMirror => "",
433)             hiddenServiceMirror => "",
434)             updateDate => "Unknown",

435)         },

436) 

437) 	mirror020 => {

438)             adminContact => " mail AT benjamin-meier DOT info ",
439)             orgName => "beme it",

440)             isoCC => "DE",

441)             subRegion => "",

442)             region => "DE",

443)             ipv4 => "True",
444)             ipv6 => "False",
445)             loadBalanced => "No",

446)             httpWebsiteMirror => "http://tor.beme-it.de/",

447)             httpsWebsiteMirror => "https://tor.beme-it.de/",

448)             rsyncWebsiteMirror => "rsync://tor.beme-it.de/tor",

449)             ftpWebsiteMirror => "",

450)             httpDistMirror => "http://tor.beme-it.de/dist/",

451)             httpsDistMirror => "https://tor.beme-it.de/dist/",

452)             rsyncDistMirror => "rsync://tor.beme-it.de/tor/dist",

453)             hiddenServiceMirror => "",
454)             updateDate => "Unknown",

455)         },

456) 

457)         mirror021 => {

458)             adminContact => "",

459)             orgName => "India Tor Fans",

460)             isoCC => "IN",
461)             subRegion => "",
462)             region => "IN",
463)             ipv4 => "True",
464)             ipv6 => "False",
465)             loadBalanced => "No",

466)             httpWebsiteMirror => "http://www.torproject.org.in/",

467)             httpsWebsiteMirror => "",
468)             rsyncWebsiteMirror => "",
469)             ftpWebsiteMirror => "",
470)             httpDistMirror => "http://www.torproject.org.in/dist/",
471)             httpsDistMirror => "",
472)             rsyncDistMirror => "",
473)             hiddenServiceMirror => "",
474)             updateDate => "Unknown",
475)         },
476) 

477)         mirror022 => {

478)             adminContact => "",
479)             orgName => "NIIF Institute",
480)             isoCC => "HU",
481)             subRegion => "",
482)             region => "HU",
483)             ipv4 => "True",
484)             ipv6 => "False",
485)             loadBalanced => "No",
486)             httpWebsiteMirror => "http://trak.tor.hu/",
487)             httpsWebsiteMirror => "",
488)             rsyncWebsiteMirror => "",
489)             ftpWebsiteMirror => "",
490)             httpDistMirror => "http://trak.tor.hu/dist/",
491)             httpsDistMirror => "",
492)             rsyncDistMirror => "",
493)             hiddenServiceMirror => "",
494)         },

495) 

496)         mirror023 => {

497)             adminContact => "sina at accessnow.org",
498)             orgName => "Access",
499)             isoCC => "IR",
500)             subRegion => "",
501)             region => "IR",
502)             ipv4 => "True",
503)             ipv6 => "False",
504)             loadBalanced => "Yes",
505)             httpWebsiteMirror => "http://irani-tor.ath.cx/",
506)             httpsWebsiteMirror => "",
507)             rsyncWebsiteMirror => "",
508)             ftpWebsiteMirror => "",
509)             httpDistMirror => "http://irani-tor.ath.cx/dist/",
510)             httpsDistMirror => "",
511)             rsyncDistMirror => "",

512)             hiddenServiceMirror => "",
513)         },
514) 

515)         mirror024 => {

516)             adminContact => "",

517)             orgName => "homosu",

518)             isoCC => "SE",

519)             subRegion => "",

520)             region => "SE",

521)             ipv4 => "True",
522)             ipv6 => "False",
523)             loadBalanced => "No",
524)             httpWebsiteMirror => "http://tor.homosu.net/",
525)             httpsWebsiteMirror => "",
526)             rsyncWebsiteMirror => "",
527)             ftpWebsiteMirror => "",
528)             httpDistMirror => "http://tor.homosu.net/dist",
529)             httpsDistMirror => "",
530)             rsyncDistMirror => "",

531)             hiddenServiceMirror => "",

532)         },

533) 

534)         mirror025 => {

535)             adminContact => "margus.random at mail.ee",
536)             orgName => "CyberSIDE",

537)             isoCC => "EE",

538)             subRegion => "",
539)             region => "EE",
540)             ipv4 => "True",
541)             ipv6 => "False",
542)             loadBalanced => "No",
543)             httpWebsiteMirror => "http://cyberside.planet.ee/tor/",
544)             httpsWebsiteMirror => "",
545)             rsyncWebsiteMirror => "",
546)             ftpWebsiteMirror => "",
547)             httpDistMirror => "http://freedos.pri.ee/tor/",
548)             httpsDistMirror => "",
549)             rsyncDistMirror => "",

550)             hiddenServiceMirror => "",

551)         },

552) 

553)         mirror026 => {

554)             adminContact => "me_ at tomyn dot com",
555)             orgName => "tomyn",
556)             isoCC => "UK",
557)             subRegion => "",
558)             region => "UK",
559)             ipv4 => "True",
560)             ipv6 => "False",
561)             loadBalanced => "No",
562)             httpWebsiteMirror => "http://tor.tomyn.com",
563)             httpsWebsiteMirror => "https://tor.tomyn.com",
564)             rsyncWebsiteMirror => "",
565)             ftpWebsiteMirror => "ftp://tor.tomyn.com",
566)             httpDistMirror => "http://tor.tomyn.com/dist",
567)             httpsDistMirror => "https://tor.tomyn.com/dist",
568)             rsyncDistMirror => "",
569)             hiddenServiceMirror => "",
570)         }

571) );
572) 
573) my $count = values %m;
574) print "We have a total of $count mirrors\n";
575) print "Fetching the last updated date for each mirror.\n";
576) 

577) my $tortime;
578) $tortime = FetchDate("http://www.torproject.org/");

579) # Adjust offical Tor time by out-of-date offset: number of days * seconds per day 

580) $tortime -= 1 * 172800; 

581) print "The official time for Tor is $tortime. \n";
582) 

583) foreach my $server ( keys %m ) {
584) 
585)     print "Attempting to fetch from $m{$server}{'orgName'}\n";
586) 
587)     if ($m{$server}{'httpWebsiteMirror'}) {
588)         print "Attempt to fetch via HTTP.\n";
589)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpWebsiteMirror'}");
590)     } elsif ($m{$server}{'httpsWebsiteMirror'}) {
591)         print "Attempt to fetch via HTTPS.\n";
592)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpsWebsiteMirror'}");
593)     } elsif ($m{$server}{'ftpWebsiteMirror'}) {
594)         print "Attempt to fetch via FTP.\n";
595)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'ftpWebsiteMirror'}");
596)     } else {
597)         print "We were unable to fetch or store anything. We still have the following: $m{$server}{'updateDate'}\n";
598)     }
599) 
600)     print "We fetched and stored the following: $m{$server}{'updateDate'}\n";
601) 
602)  }
603) 
604) 
605) print "We sorted the following mirrors by their date of last update: \n";
606) foreach my $server ( sort { $m{$b}{'updateDate'} <=> $m{$a}{'updateDate'}} keys %m ) {
607) 
608)      print "\n";
609)      print "Mirror $m{$server}{'orgName'}: \n";
610) 
611)      foreach my $attrib ( sort keys %{$m{$server}} ) {
612)         print "$attrib = $m{$server}{$attrib}";
613)         print "\n";
614)      };
615) }
616) 
617) my $outFile = "include/mirrors-table.wmi";
618) my $html;
619) open(OUT, "> $outFile") or die "Can't open $outFile: $!";
620) 

621) # Here's where we open a file and print some wml include goodness

622) # This is storted from last known recent update to unknown update times
623) foreach my $server ( sort { $m{$b}{'updateDate'} <=> $m{$a}{'updateDate'}} keys %m ) {
624) 

625)      my $time;

626)      if ( "$m{$server}{'updateDate'}" ne "Unknown") {

627) 	  if ( $m{$server}{'updateDate'} > $tortime ) {

628) 	    $time = "Up to date";
629) 	  } else { $time = "Out of date"; }

630)      } else { $time = "Unknown"; }

631) print OUT <<"END";
632)      \n<tr>\n
633)          <td>$m{$server}{'isoCC'}</td>\n
634)          <td>$m{$server}{'orgName'}</td>\n
635)          <td>$time</td>\n
636) END
637) 
638)      my %prettyNames = (
639)                         httpWebsiteMirror => "http",
640)                         httpsWebsiteMirror => "https",
641)                         ftpWebsiteMirror => "ftp",
642)                         rsyncWebsiteMirror => "rsync",
643)                         httpDistMirror => "http",
644)                         httpsDistMirror => "https",
645)                         rsyncDistMirrors => "rsync", );
646) 
647)      foreach my $precious ( sort keys %prettyNames )

648)      {
649)         if ($m{$server}{"$precious"}) {
650)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

651)                       "$prettyNames{$precious}</a></td>\n";