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) 

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

19)     timeout => 15,

20)     agent => "Tor MirrorCheck Agent"
21) );
22) 
23) sub sanitize {
24)     my $taintedData = shift;
25)     my $cleanedData;
26)     my $whitelist = '-a-zA-Z0-9: +';
27) 
28)     # clean the data, return cleaned data
29)     $taintedData =~ s/[^$whitelist]//go;
30)     $cleanedData = $taintedData;
31) 
32)     return $cleanedData;
33) }
34) 
35) sub FetchDate {
36)     my $url = shift; # Base url for mirror
37)     my $trace = "project/trace/www.torproject.org"; # Location of recent update info
38)     $url = "$url$trace";
39) 
40)     print "Fetching possible date from: $url\n";
41) 
42)     my $request = new HTTP::Request GET => "$url";
43)     my $result = $lua->request($request);

44)     my $code = $result->code();
45)     print "Result code $code\n";

46) 

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

48)        my $taint = $result->content;
49)        my $content = sanitize($taint);
50)        if ($content) {

51) 

52)             my $date = str2time($content);
53) 
54)             if ($date) {
55)                 print "We've fetched a date $date.\n";
56)                 return $date;
57)             } else {
58)                 print "We've haven't fetched a date.\n";
59)                 return "Unknown";
60)             }
61) 
62)         } else {
63)             print "Unable to fetch date, empty content returned.\n";
64)             return "Unknown";
65)         }

66) 

67)     } else {
68)        print "Our request failed, we had no result.\n";
69)        return "Unknown";
70)     }

71) 
72)     return "Unknown";

73) }
74) 
75) # This is the list of all known Tor mirrors
76) # Add new mirrors to the bottom!

77) my %m = (

78)        mirror000 => {

79)             adminContact => "or-assistants.local",

80)             orgName => "Cypherpunks",

81)             isoCC => "AT",
82)             subRegion => "",
83)             region => "Europe",
84)             ipv4 => "True",
85)             ipv6 => "False",
86)             loadBalanced => "Unknown",
87)             httpWebsiteMirror => "http://tor.cypherpunks.at/",
88)             rsyncWebsiteMirror => "rsync://tor.cypherpunks.at/tor",
89)             httpDistMirror => "http://tor.cypherpunks.at/dist/",

90)             rsyncDistMirror => "rsync://tor.cypherpunks.at::tor/dist/",

91)             updateDate => "Unknown",

92)         },
93) 
94)        mirror001 => {

95)             adminContact => "webmaster.depthstrike.com",

96)             orgName => "Depthstrike",

97)             isoCC => "CA",
98)             subRegion => "NS",
99)             region => "North America",
100)             ipv4 => "True",
101)             ipv6 => "False",
102)             loadBalanced => "Unknown",
103)             httpWebsiteMirror => "http://tor.depthstrike.com/",
104)             ftpWebsiteMirror => "",
105)             rsyncWebsiteMirror => "",
106)             httpDistMirror => "http://tor.depthstrike.com/dist/",
107)             rsyncDistMirror => "",

108)             updateDate => "Unknown",

109)         },
110) 
111)        mirror002 => {

112)             adminContact => "operator.hermetix.org",

113)             orgName => "Hermetix",

114)             isoCC => "CA",
115)             subRegion => "QC",
116)             region => "North America",
117)             ipv4 => "True",
118)             ipv6 => "False",
119)             loadBalanced => "Unknown",
120)             httpWebsiteMirror => "http://tor.hermetix.org/",
121)             rsyncWebsiteMirror => "",

122)             httpDistMirror => "",

123)             rsyncDistMirror => "",

124)             updateDate => "Unknown",

125)         },
126) 
127)        mirror003 => {

128)             adminContact => "",

129)             orgName => "Boinc",

130)             isoCC => "CH",
131)             subRegion => "",
132)             region => "Europe",
133)             ipv4 => "True",
134)             ipv6 => "False",
135)             loadBalanced => "Unknown",
136)             httpWebsiteMirror => "http://tor.boinc.ch/",
137)             ftpWebsiteMirror => "",
138)             rsyncWebsiteMirror => "",
139)             httpDistMirror => "http://tor.boinc.ch/dist/",
140)             rsyncDistMirror => "",

141)             updateDate => "Unknown",

142)         },
143) 
144)        mirror004 => {

145)             adminContact => "peihanru.gmail.com",

146)             orgName => "Anonymity",

147)             isoCC => "CN",
148)             subRegion => "",
149)             region => "Asia",
150)             ipv4 => "True",
151)             ipv6 => "False",
152)             loadBalanced => "Unknown",
153)             httpWebsiteMirror => "http://tor.anonymity.cn/",
154)             ftpWebsiteMirror => "",
155)             rsyncWebsiteMirror => "",
156)             httpDistMirror => "http://tor.anonymity.cn/dist/",
157)             rsyncDistMirror => "",

158)             updateDate => "Unknown",

159)         },
160) 

161)        mirror005 => {

162)             adminContact => "citizen428.gmail.com",

163)             orgName => "Bbs",

164)             isoCC => "DE",
165)             subRegion => "",
166)             region => "Europe",
167)             ipv4 => "True",
168)             ipv6 => "False",
169)             loadBalanced => "Unknown",
170)             httpWebsiteMirror => "http://tor.blingblingsquad.net/",
171)             ftpWebsiteMirror => "",
172)             rsyncWebsiteMirror => "",

173)             httpDistMirror => "",

174)             rsyncDistMirror => "",

175)             updateDate => "Unknown",

176)         },
177) 

178)        mirror005 => {
179)             orgName => "Berapla",
180)             isoCC => "DE",
181)             subRegion => "",
182)             region => "Europe",
183)             ipv4 => "True",
184)             ipv6 => "False",
185)             loadBalanced => "Unknown",
186)             httpWebsiteMirror => "http://download.berapla.de/mirrors/tor/",
187)             ftpWebsiteMirror => "",
188)             rsyncWebsiteMirror => "",
189)             httpDistMirror => "http://download.berapla.de/mirrors/tor/dist/",
190)             rsyncDistMirror => "",
191)             updateDate => "Unknown",
192)         },

193) 
194)        mirror006 => {

195)             adminContact => "cm.cybermirror.org",

196)             orgName => "Cybermirror",

197)             isoCC => "DE",
198)             subRegion => "",
199)             region => "Europe",
200)             ipv4 => "True",
201)             ipv6 => "False",
202)             loadBalanced => "Unknown",
203)             httpWebsiteMirror => "http://tor.cybermirror.org/",
204)             ftpWebsiteMirror => "",
205)             rsyncWebsiteMirror => "",
206)             httpDistMirror => "http://tor.cybermirror.org/dist/",
207)             rsyncDistMirror => "",

208)             updateDate => "Unknown",

209)         },
210) 
211)        mirror007 => {

212)             adminContact => "contact.algorithmus.com",

213)             orgName => "Spline",
214)             isoCC => "DE",
215)             subRegion => "FU",
216)             region => "Europe",
217)             ipv4 => "True",
218)             ipv6 => "False",
219)             loadBalanced => "Unknown",

220)             httpWebsiteMirror => "",

221)             ftpWebsiteMirror => "",
222)             rsyncWebsiteMirror => "",

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

224)             rsyncDistMirror => "",

225)             updateDate => "Unknown",

226)         },
227) 
228)        mirror009 => {

229)             adminContact => "beaver.trash.net",

230)             orgName => "Onionland",

231)             isoCC => "DE",
232)             subRegion => "",
233)             region => "Europe",
234)             ipv4 => "True",
235)             ipv6 => "False",
236)             loadBalanced => "Unknown",
237)             httpWebsiteMirror => "http://mirror.onionland.org/",
238)             ftpWebsiteMirror => "",
239)             rsyncWebsiteMirror => "rsync: mirror.onionland.org::tor/",
240)             httpDistMirror => "http://mirror.onionland.org/dist/",

241)             rsyncDistMirror => "rsync://mirror.onionland.org::tor/dist/",

242)             updateDate => "Unknown",

243)         },
244) 
245)        mirror010 => {

246)             adminContact => "contact.plentyfact.org",

247)             orgName => "Plentyfact",

248)             isoCC => "DE",
249)             subRegion => "",
250)             region => "Europe",
251)             ipv4 => "True",
252)             ipv6 => "False",
253)             loadBalanced => "Unknown",
254)             httpWebsiteMirror => "http://tor.plentyfact.net/",
255)             ftpWebsiteMirror => "",
256)             httpsWebsiteMirror => "https://tor.plentyfact.net/",
257)             rsyncWebsiteMirror => "",
258)             httpDistMirror => "http://tor.plentyfact.net/dist/",

259)             httpsDistMirror => "https://tor.plentyfact.net/dist/",

260)             rsyncDistMirror => "",

261)             updateDate => "Unknown",

262)         },
263) 

264)        mirror011 => {

265)             adminContact => "info.zentrum-der-gesundheit.de",

266)             orgName => "Zentrum der Gesundheit",

267)             isoCC => "DK",
268)             subRegion => "",
269)             region => "Europe",
270)             ipv4 => "True",
271)             ipv6 => "False",
272)             loadBalanced => "Unknown",

273)             httpWebsiteMirror => "http://tor.zdg-gmbh.eu/",

274)             ftpWebsiteMirror => "",

275)             rsyncWebsiteMirror => "",

276)             httpDistMirror => "http://tor.zdg-gmbh.eu/dist/",
277)             rsyncDistMirror => "",

278)             updateDate => "Unknown",

279)         },
280) 

281)        mirror012 => {

282)             adminContact => "kurt.miroir-francais.fr",

283)             orgName => "CRAN",
284)             isoCC => "FR",

285)             subRegion => "Ile de France",

286)             region => "Europe",
287)             ipv4 => "True",
288)             ipv6 => "False",
289)             loadBalanced => "Unknown",

290)             httpWebsiteMirror => "",

291)             rsyncWebsiteMirror => "rsync://miroir-francais.fr::tor",

292)             ftpWebsiteMirror => "ftp://miroir-francais.fr/pub/tor/",

293)             httpDistMirror => "http://tor.miroir-francais.fr/",

294)             rsyncDistMirror => "",

295)             updateDate => "Unknown",

296)         },
297) 

298)        mirror013 => {

299)             adminContact => "root.amorphis.eu",

300)             orgName => "Amorphis",

301)             isoCC => "NL",
302)             subRegion => "",
303)             region => "Europe",
304)             ipv4 => "True",
305)             ipv6 => "False",
306)             loadBalanced => "Unknown",
307)             httpWebsiteMirror => "http://tor.amorphis.eu/",

308)             rsyncWebsiteMirror => "",

309)             ftpWebsiteMirror => "",
310)             httpDistMirror => "http://tor.amorphis.eu/dist/",
311)             rsyncDistMirror => "",

312)             updateDate => "Unknown",

313)         },
314) 

315)        mirror014 => {

316)             adminContact => "mirror.bit.nl",

317)             orgName => "BIT BV",
318)             isoCC => "NL",
319)             subRegion => "",
320)             region => "Europe",
321)             ipv4 => "True",
322)             ipv6 => "False",
323)             loadBalanced => "Unknown",

324)             httpWebsiteMirror => "",

325)             rsyncWebsiteMirror => "",

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

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

328)             rsyncDistMirror => "",

329)             updateDate => "Unknown",

330)         },
331) 

332)        mirror015 => {

333)             adminContact => "webmaster.ccc.de",

334)             orgName => "CCC",
335)             isoCC => "NL",
336)             subRegion => "",
337)             region => "Europe",
338)             ipv4 => "True",
339)             ipv6 => "False",
340)             loadBalanced => "Unknown",
341)             httpWebsiteMirror => "http://tor.ccc.de/",

342)             rsyncWebsiteMirror => "",

343)             ftpWebsiteMirror => "",
344)             httpDistMirror => "http://tor.ccc.de/dist/",
345)             rsyncDistMirror => "",

346)             updateDate => "Unknown",

347)         },
348) 

349)        mirror016 => {

350)             adminContact => "root.kamagurka.org",

351)             orgName => "Kamagurka",

352)             isoCC => "NL",
353)             subRegion => "Haarlem",
354)             region => "Europe",
355)             ipv4 => "True",
356)             ipv6 => "False",
357)             loadBalanced => "Unknown",
358)             httpWebsiteMirror => "http://tor.kamagurka.org/",

359)             rsyncWebsiteMirror => "",

360)             ftpWebsiteMirror => "",
361)             httpDistMirror => "http://tor.kamagurka.org/dist/",
362)             rsyncDistMirror => "",

363)             updateDate => "Unknown",

364)         },
365) 

366)        mirror017 => {

367)             adminContact => "mirrors.osmirror.nl",

368)             orgName => "OS Mirror",
369)             isoCC => "NL",
370)             subRegion => "",
371)             region => "Europe",
372)             ipv4 => "True",
373)             ipv6 => "False",
374)             loadBalanced => "Unknown",

375)             httpWebsiteMirror => "",

376)             rsyncWebsiteMirror => "rsync://rsync.osmirror.nl::tor/",

377)             ftpWebsiteMirror => "ftp://ftp.osmirror.nl/pub/tor/",

378)             httpDistMirror => "http://tor.osmirror.nl/",

379)             rsyncDistMirror => "",

380)             updateDate => "Unknown",

381)         },
382) 
383) 

384)        mirror018 => {

385)             adminContact => "evert.meulie.net",

386)             orgName => "Meulie",

387)             isoCC => "NO",
388)             subRegion => "",
389)             region => "Europe",
390)             ipv4 => "True",
391)             ipv6 => "False",
392)             loadBalanced => "Unknown",

393)             httpWebsiteMirror => "",

394)             rsyncWebsiteMirror => "",

395)             ftpWebsiteMirror => "",

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

397)             rsyncDistMirror => "",

398)             updateDate => "Unknown",

399)         },
400) 

401)        mirror019 => {

402)             adminContact => "ghirai.ghirai.com",

403)             orgName => "Ghirai",

404)             isoCC => "UK",
405)             subRegion => "London",
406)             region => "Europe",
407)             ipv4 => "True",
408)             ipv6 => "False",
409)             loadBalanced => "Unknown",

410)             httpWebsiteMirror => "",

411)             rsyncWebsiteMirror => "",

412)             ftpWebsiteMirror => "",

413)             httpDistMirror => "http://www.ghirai.com/tor/",

414)             rsyncDistMirror => "",

415)             updateDate => "Unknown",

416)         },
417) 

418)        mirror020 => {
419) 	    adminContact => "bjw.bjwonline.com",

420)             orgName => "BJWOnline",

421)             isoCC => "US",
422)             subRegion => "California",
423)             region => "North America",
424)             ipv4 => "True",
425)             ipv6 => "False",
426)             loadBalanced => "Unknown",
427)             httpWebsiteMirror => "http://mirror.bjwonline.com/tor/",

428)             rsyncWebsiteMirror => "",

429)             ftpWebsiteMirror => "",

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

431)             rsyncDistMirror => "",

432)             updateDate => "Unknown",

433)         },
434) 

435)        mirror021 => {
436) 	    adminContact => "hostmaster.zombiewerks.com",

437)             orgName => "TheOnionRouter",

438)             isoCC => "US",

439)             subRegion => "New Jersey",

440)             region => "North America",
441)             ipv4 => "True",
442)             ipv6 => "False",
443)             loadBalanced => "Unknown",
444)             httpWebsiteMirror => "http://www.theonionrouter.com/",

445)             rsyncWebsiteMirror => "",

446)             ftpWebsiteMirror => "",
447)             httpDistMirror => "http://www.theonionrouter.com/dist/",
448)             rsyncDistMirror => "",

449)             updateDate => "Unknown",

450)         },
451) 

452)        mirror022 => {

453)             adminContact => "jeroen.unfix.org",

454)             orgName => "Unfix",

455)             isoCC => "CH",
456)             subRegion => "",
457)             region => "Europe",
458)             ipv4 => "True",
459)             ipv6 => "True",
460)             loadBalanced => "Unknown",
461)             httpWebsiteMirror => "http://tor.unfix.org/",

462)             rsyncWebsiteMirror => "",

463)             ftpWebsiteMirror => "",

464)             httpDistMirror => "http://tor.unfix.org/dist/",

465)             rsyncDistMirror => "",

466)             updateDate => "Unknown",

467)         },
468) 

469)        mirror023 => {

470)             adminContact => "jeroen.unfix.org",

471)             orgName => "Sixx",

472)             isoCC => "CH",

473)             subRegion => "",
474)             region => "Europe",
475)             ipv4 => "True",
476)             ipv6 => "True",
477)             loadBalanced => "Unknown",
478)             httpWebsiteMirror => "http://tor.sixxs.net/",

479)             rsyncWebsiteMirror => "",

480)             ftpWebsiteMirror => "",

481)             httpDistMirror => "http://tor.sixxs.net/dist/",

482)             rsyncDistMirror => "",

483)             updateDate => "Unknown",

484)         },

485) 

486)        mirror024 => {

487)             adminContact => "",

488)             orgName => "Crypto",

489)             isoCC => "US",
490)             subRegion => "",
491)             region => "North America",
492)             ipv4 => "True",
493)             ipv6 => "False",
494)             loadBalanced => "Unknown",
495)             httpWebsiteMirror => "http://crypto.nsa.org/tor/",

496)             rsyncWebsiteMirror => "",

497)             ftpWebsiteMirror => "",
498)             httpDistMirror => "http://crypto.nsa.org/tor/dist/",
499)             rsyncDistMirror => "",
500)             updateDate => "Unknown",
501)         },

502) 

503)        mirror025 => {

504)             adminContact => "web2005a.year2005a.wiretapped.net",

505)             orgName => "Wiretapped",
506)             isoCC => "AU",
507)             subRegion => "Sydney",
508)             region => "Oceania",
509)             ipv4 => "True",
510)             ipv6 => "False",
511)             loadBalanced => "Unknown",
512)             httpWebsiteMirror => "",

513)             rsyncWebsiteMirror => "",

514)             ftpWebsiteMirror => "ftp://ftp.mirrors.wiretapped.net/pub/security/cryptography/network/tor/",
515)             httpDistMirror => "http://www.mirrors.wiretapped.net/security/cryptography/network/tor/",
516)             rsyncDistMirror => "",
517)             updateDate => "Unknown",

518)         },

519) 

520)         mirror026 => {

521)             adminContact => "tormaster.xpdm.us",

522)             orgName => "Xpdm",

523)             isoCC => "US",
524)             subRegion => "",
525)             region => "North America",
526)             ipv4 => "True",
527)             ipv6 => "False",
528)             loadBalanced => "Unknown",
529)             httpWebsiteMirror => "http://torproj.xpdm.us/",

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

531)             rsyncWebsiteMirror => "",

532)             ftpWebsiteMirror => "",

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

535)             rsyncDistMirror => "",
536)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
537)             updateDate => "Unknown",

538)         },

539) 

540)         mirror027 => {

541)             adminContact => "internetfreebeijing\@gmail.com",
542)             orgName => "Unknown",
543)             isoCC => "CN",
544)             subRegion => "China",
545)             region => "Asia",
546)             ipv4 => "True",
547)             ipv6 => "False",
548)             loadBalanced => "No",
549)             httpWebsiteMirror => "http://free.be.ijing2008.cn/tor/",
550)             httpsWebsiteMirror => "",

551)             rsyncWebsiteMirror => "",

552)             ftpWebsiteMirror => "",
553)             httpDistMirror => "http://free.be.ijing2008.cn/tor/dist/",
554)             httpsDistMirror => "",
555)             rsyncDistMirror => "",
556)             hiddenServiceMirror => "",
557)             updateDate => "Unknown",

558)         },

559) 

560)         mirror028 => {

561)             adminContact => "security\@hostoffice.hu",
562)             orgName => "Unknown",
563)             isoCC => "HU",
564)             subRegion => "Hungary",
565)             region => "Europe",
566)             ipv4 => "True",
567)             ipv6 => "False",
568)             loadBalanced => "No",
569)             httpWebsiteMirror => "http://mirror.tor.hu/",
570)             httpsWebsiteMirror => "",

571)             rsyncWebsiteMirror => "",

572)             ftpWebsiteMirror => "",
573)             httpDistMirror => "http://mirror.tor.hu/dist/",
574)             httpsDistMirror => "",
575)             rsyncDistMirror => "",
576)             hiddenServiceMirror => "",
577)             updateDate => "Unknown",

578)         },

579)         mirror029 => {

580)             adminContact => "",

581)             orgName => "Technica-03",

582)             isoCC => "UA",

583)             subRegion => "Ukraine",
584)             region => "Eastern Europe",
585)             ipv4 => "True",
586)             ipv6 => "False",
587)             loadBalanced => "No",
588)             httpWebsiteMirror => "http://torua.reactor-xg.kiev.ua/",
589)             httpsWebsiteMirror => "",

590)             rsyncWebsiteMirror => "",

591)             ftpWebsiteMirror => "",
592)             httpDistMirror => "http://tordistua.reactor-xg.kiev.ua",
593)             httpsDistMirror => "",
594)             rsyncDistMirror => "",
595)             hiddenServiceMirror => "",
596)             updateDate => "Unknown",

597)         },

598) 	mirror030 => {

599)             adminContact => "",
600)             orgName => "chaos darmstadt",
601)             isoCC => "DE",
602)             subRegion => "Germany",
603)             region => "Europe",
604)             ipv4 => "True",
605)             ipv6 => "False",
606)             loadBalanced => "No",
607)             httpWebsiteMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/",
608)             httpsWebsiteMirror => "",
609)             rsyncWebsiteMirror => "",
610)             ftpWebsiteMirror => "",
611)             httpDistMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/dist/",
612)             httpsDistMirror => "",
613)             rsyncDistMirror => "",
614)             hiddenServiceMirror => "",
615)             updateDate => "Unknown",
616)         }

617) );
618) 
619) my $count = values %m;
620) print "We have a total of $count mirrors\n";
621) print "Fetching the last updated date for each mirror.\n";
622) 
623) foreach my $server ( keys %m ) {
624) 
625)     print "Attempting to fetch from $m{$server}{'orgName'}\n";
626) 
627)     if ($m{$server}{'httpWebsiteMirror'}) {
628)         print "Attempt to fetch via HTTP.\n";
629)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpWebsiteMirror'}");
630)     } elsif ($m{$server}{'httpsWebsiteMirror'}) {
631)         print "Attempt to fetch via HTTPS.\n";
632)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpsWebsiteMirror'}");
633)     } elsif ($m{$server}{'ftpWebsiteMirror'}) {
634)         print "Attempt to fetch via FTP.\n";
635)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'ftpWebsiteMirror'}");
636)     } else {
637)         print "We were unable to fetch or store anything. We still have the following: $m{$server}{'updateDate'}\n";
638)     }
639) 
640)     print "We fetched and stored the following: $m{$server}{'updateDate'}\n";
641) 
642)  }
643) 
644) 
645) print "We sorted the following mirrors by their date of last update: \n";
646) foreach my $server ( sort { $m{$b}{'updateDate'} <=> $m{$a}{'updateDate'}} keys %m ) {
647) 
648)      print "\n";
649)      print "Mirror $m{$server}{'orgName'}: \n";
650) 
651)      foreach my $attrib ( sort keys %{$m{$server}} ) {
652)         print "$attrib = $m{$server}{$attrib}";
653)         print "\n";
654)      };
655) }
656) 
657) my $outFile = "include/mirrors-table.wmi";
658) my $html;
659) open(OUT, "> $outFile") or die "Can't open $outFile: $!";
660) 

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

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

665)      my $time;
666)      if( "$m{$server}{'updateDate'}" ne "Unknown") {
667)         $time = ctime($m{$server}{'updateDate'});
668)         chomp($time);

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

670) print OUT <<"END";
671)      \n<tr>\n
672)          <td>$m{$server}{'isoCC'}</td>\n
673)          <td>$m{$server}{'orgName'}</td>\n
674)          <td>$time</td>\n
675) END
676) 
677)      my %prettyNames = (
678)                         httpWebsiteMirror => "http",
679)                         httpsWebsiteMirror => "https",
680)                         ftpWebsiteMirror => "ftp",
681)                         rsyncWebsiteMirror => "rsync",
682)                         httpDistMirror => "http",
683)                         httpsDistMirror => "https",
684)                         rsyncDistMirrors => "rsync", );
685) 
686)      foreach my $precious ( sort keys %prettyNames )

687)      {
688)         if ($m{$server}{"$precious"}) {
689)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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