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-master.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)         
86)         mirror000 => {
87)             adminContact => "coralcdn.org",
88)             orgName => "CoralCDN",
89)             isoCC => "INT",
90)             subRegion => "",
91)             region => "INT",
92)             ipv4 => "True",
93)             ipv6 => "False",
94)             loadBalanced => "Yes",
95)             httpWebsiteMirror => "http://www.torproject.org.nyud.net/",
96)             httpsWebsiteMirror => "",
97)             rsyncWebsiteMirror => "",
98)             ftpWebsiteMirror => "",
99)             httpDistMirror => "http://www.torproject.org.nyud.net/dist/",
100)             httpsDistMirror => "",
101)             rsyncDistMirror => "",
102)             hiddenServiceMirror => "",
103)             updateDate => "Unknown",
104) 
105)         },
106) 

107)         mirror001 => {
108)             adminContact => "BarkerJr AT barkerjr DOT net",
109)             orgName => "BarkerJr",
110)             isoCC => "FR",
111)             subRegion => "",
112)             region => "FR",
113)             ipv4 => "True",
114)             ipv6 => "False",
115)             loadBalanced => "No",

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

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

118)             rsyncWebsiteMirror => "",
119)             ftpWebsiteMirror => "",

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

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

122)             rsyncDistMirror => "",
123)             hiddenServiceMirror => "",
124)             updateDate => "Unknown",
125)         },
126) 

127)        mirror003 => {

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

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

130)             isoCC => "DE",
131)             subRegion => "",
132)             region => "Europe",
133)             ipv4 => "True",
134)             ipv6 => "False",
135)             loadBalanced => "Unknown",
136)             httpWebsiteMirror => "http://tor.blingblingsquad.net/",

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

138)             ftpWebsiteMirror => "",
139)             rsyncWebsiteMirror => "",

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

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

142)             rsyncDistMirror => "",

143)             updateDate => "Unknown",

144)         },
145) 

146) 	    mirror006 => {

147)             adminContact => "BarkerJr AT barkerjr DOT net",
148)             orgName => "BarkerJr",
149)             isoCC => "US",
150)             subRegion => "",
151)             region => "US",
152)             ipv4 => "True",
153)             ipv6 => "False",
154)             loadBalanced => "No",

155)             httpWebsiteMirror => "http://www.torproject.us/",
156)             httpsWebsiteMirror => "https://www.torproject.us/",

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

158)             ftpWebsiteMirror => "",

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

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

162)             hiddenServiceMirror => "",
163)             updateDate => "Unknown",
164)         },
165) 

166)        mirror007 => {

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

168)             orgName => "Zentrum der Gesundheit",

169)             isoCC => "DK",
170)             subRegion => "",
171)             region => "Europe",
172)             ipv4 => "True",
173)             ipv6 => "False",
174)             loadBalanced => "Unknown",

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

176)             ftpWebsiteMirror => "",

177)             rsyncWebsiteMirror => "",

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

179)             rsyncDistMirror => "",

180)             updateDate => "Unknown",

181)         },
182) 

183)        mirror008 => {

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

185)             orgName => "Amorphis",

186)             isoCC => "NL",
187)             subRegion => "",
188)             region => "Europe",
189)             ipv4 => "True",
190)             ipv6 => "False",
191)             loadBalanced => "Unknown",
192)             httpWebsiteMirror => "http://tor.amorphis.eu/",

193)             rsyncWebsiteMirror => "",

194)             ftpWebsiteMirror => "",
195)             httpDistMirror => "http://tor.amorphis.eu/dist/",
196)             rsyncDistMirror => "",

197)             updateDate => "Unknown",

198)         },
199) 

200)        mirror009 => {

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

202)             orgName => "BIT BV",
203)             isoCC => "NL",
204)             subRegion => "",
205)             region => "Europe",
206)             ipv4 => "True",
207)             ipv6 => "False",
208)             loadBalanced => "Unknown",

209)             httpWebsiteMirror => "",

210)             rsyncWebsiteMirror => "",

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

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

213)             rsyncDistMirror => "",

214)             updateDate => "Unknown",

215)         },
216) 

217)        mirror010 => {

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

219)             orgName => "CCC",
220)             isoCC => "NL",
221)             subRegion => "",
222)             region => "Europe",
223)             ipv4 => "True",
224)             ipv6 => "False",
225)             loadBalanced => "Unknown",
226)             httpWebsiteMirror => "http://tor.ccc.de/",

227)             rsyncWebsiteMirror => "",

228)             ftpWebsiteMirror => "",
229)             httpDistMirror => "http://tor.ccc.de/dist/",
230)             rsyncDistMirror => "",

231)             updateDate => "Unknown",

232)         },
233) 

234)        mirror013 => {

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

236)             orgName => "TheOnionRouter",

237)             isoCC => "IS",
238)             subRegion => "",
239)             region => "Iceland",

240)             ipv4 => "True",
241)             ipv6 => "False",
242)             loadBalanced => "Unknown",

243)             httpWebsiteMirror => "http://theonionrouter.com/",

244)             rsyncWebsiteMirror => "",

245)             ftpWebsiteMirror => "",

246)             httpDistMirror => "http://theonionrouter.com/dist/",

247)             rsyncDistMirror => "",

248)             updateDate => "Unknown",

249)         },
250) 

251)         mirror014 => {

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

253)             orgName => "Xpdm",

254)             isoCC => "US",
255)             subRegion => "",
256)             region => "North America",
257)             ipv4 => "True",
258)             ipv6 => "False",
259)             loadBalanced => "Unknown",
260)             httpWebsiteMirror => "http://torproj.xpdm.us/",

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

262)             rsyncWebsiteMirror => "",

263)             ftpWebsiteMirror => "",

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

266)             rsyncDistMirror => "",
267)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
268)             updateDate => "Unknown",

269)         },

270) 

271)         mirror016 => {

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

273)             orgName => "Unknown",
274)             isoCC => "HU",
275)             subRegion => "Hungary",
276)             region => "Europe",
277)             ipv4 => "True",
278)             ipv6 => "False",
279)             loadBalanced => "No",

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

281)             httpsWebsiteMirror => "",

282)             rsyncWebsiteMirror => "",

283)             ftpWebsiteMirror => "",

284)             httpDistMirror => "http://mirror.tor.hu/dist",

285)             httpsDistMirror => "",
286)             rsyncDistMirror => "",
287)             hiddenServiceMirror => "",
288)             updateDate => "Unknown",

289)         },

290) 

291)         mirror017 => {

292)             adminContact => "",

293)             orgName => "Technica-03",

294)             isoCC => "UA",

295)             subRegion => "Ukraine",
296)             region => "Eastern Europe",
297)             ipv4 => "True",
298)             ipv6 => "False",
299)             loadBalanced => "No",
300)             httpWebsiteMirror => "http://torua.reactor-xg.kiev.ua/",
301)             httpsWebsiteMirror => "",

302)             rsyncWebsiteMirror => "",

303)             ftpWebsiteMirror => "",

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

305)             httpsDistMirror => "",
306)             rsyncDistMirror => "",
307)             hiddenServiceMirror => "",
308)             updateDate => "Unknown",

309)         },

310) 

311) 	    mirror018 => {

312)             adminContact => "",
313)             orgName => "chaos darmstadt",
314)             isoCC => "DE",
315)             subRegion => "Germany",
316)             region => "Europe",
317)             ipv4 => "True",
318)             ipv6 => "False",
319)             loadBalanced => "No",
320)             httpWebsiteMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/",
321)             httpsWebsiteMirror => "",
322)             rsyncWebsiteMirror => "",
323)             ftpWebsiteMirror => "",
324)             httpDistMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/dist/",
325)             httpsDistMirror => "",
326)             rsyncDistMirror => "",
327)             hiddenServiceMirror => "",
328)             updateDate => "Unknown",

329)         },

330) 

331) 	mirror019 => {

332)             adminContact => "webmaster AT askapache DOT com",
333)             orgName => "AskApache",

334)             isoCC => "US",
335)             subRegion => "California",
336)             region => "US",
337)             ipv4 => "True",
338)             ipv6 => "False",
339)             loadBalanced => "No",
340)             httpWebsiteMirror => "http://tor.askapache.com/",
341)             httpsWebsiteMirror => "",
342)             rsyncWebsiteMirror => "",
343)             ftpWebsiteMirror => "",

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

345)             httpsDistMirror => "",
346)             rsyncDistMirror => "",
347)             hiddenServiceMirror => "",
348)             updateDate => "Unknown",

349)         },

350) 

351) 	mirror020 => {

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

354)             isoCC => "DE",

355)             subRegion => "",

356)             region => "DE",

357)             ipv4 => "True",
358)             ipv6 => "False",
359)             loadBalanced => "No",

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

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

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

363)             ftpWebsiteMirror => "",

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

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

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

367)             hiddenServiceMirror => "",
368)             updateDate => "Unknown",

369)         },

370) 

371)         mirror021 => {

372)             adminContact => "",

373)             orgName => "India Tor Fans",

374)             isoCC => "IN",
375)             subRegion => "",
376)             region => "IN",
377)             ipv4 => "True",
378)             ipv6 => "False",
379)             loadBalanced => "No",

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

381)             httpsWebsiteMirror => "",
382)             rsyncWebsiteMirror => "",
383)             ftpWebsiteMirror => "",
384)             httpDistMirror => "http://www.torproject.org.in/dist/",
385)             httpsDistMirror => "",
386)             rsyncDistMirror => "",
387)             hiddenServiceMirror => "",
388)             updateDate => "Unknown",
389)         },
390) 

391)         mirror023 => {

392)             adminContact => "SiNA",

393)             orgName => "Ninjas",

394)             isoCC => "IR",
395)             subRegion => "",
396)             region => "IR",
397)             ipv4 => "True",
398)             ipv6 => "False",
399)             loadBalanced => "Yes",

400)             httpWebsiteMirror => "http://onion.anonymo.us.org/",

401)             httpsWebsiteMirror => "",
402)             rsyncWebsiteMirror => "",
403)             ftpWebsiteMirror => "",

404)             httpDistMirror => "http://onion.anonymo.us.org/dist/",

405)             httpsDistMirror => "",
406)             rsyncDistMirror => "",

407)             hiddenServiceMirror => "",
408)         },
409) 

410)         mirror024 => {

411)             adminContact => "",

412)             orgName => "homosu",

413)             isoCC => "SE",

414)             subRegion => "",

415)             region => "SE",

416)             ipv4 => "True",
417)             ipv6 => "False",
418)             loadBalanced => "No",
419)             httpWebsiteMirror => "http://tor.homosu.net/",
420)             httpsWebsiteMirror => "",
421)             rsyncWebsiteMirror => "",
422)             ftpWebsiteMirror => "",
423)             httpDistMirror => "http://tor.homosu.net/dist",
424)             httpsDistMirror => "",
425)             rsyncDistMirror => "",

426)             hiddenServiceMirror => "",

427)         },

428) 

429)         mirror025 => {

430)             adminContact => "margus.random at mail.ee",
431)             orgName => "CyberSIDE",

432)             isoCC => "EE",

433)             subRegion => "",
434)             region => "EE",
435)             ipv4 => "True",
436)             ipv6 => "False",
437)             loadBalanced => "No",
438)             httpWebsiteMirror => "http://cyberside.planet.ee/tor/",
439)             httpsWebsiteMirror => "",
440)             rsyncWebsiteMirror => "",
441)             ftpWebsiteMirror => "",

442)             httpDistMirror => "http://cyberside.net.ee/tor/",

443)             httpsDistMirror => "",
444)             rsyncDistMirror => "",

445)             hiddenServiceMirror => "",

446)         },

447) 

448)         mirror028 => {

449)             adminContact => "",

450)             orgName => "NW Linux",

451)             isoCC => "US",
452)             subRegion => "WA",
453)             region => "US",
454)             ipv4 => "True",
455)             ipv6 => "False",
456)             loadBalanced => "No",
457)             httpWebsiteMirror => "http://torproject.nwlinux.us",
458)             httpsWebsiteMirror => "",

459)             rsyncWebsiteMirror => "rsync://nwlinux.us/tor-web",

460)             ftpWebsiteMirror => "",
461)             httpDistMirror => "http://torproject.nwlinux.us/dist",
462)             httpsDistMirror => "",

463)             rsyncDistMirror => "rsync://nwlinux.us/tor-dist",

464)             hiddenServiceMirror => "",
465)         },

466)         mirror029 => {

467)             adminContact => "",
468)             orgName => "LazyTiger",
469)             isoCC => "FR",
470)             subRegion => "",
471)             region => "FR",
472)             ipv4 => "True",
473)             ipv6 => "False",
474)             loadBalanced => "No",
475)             httpWebsiteMirror => "http://tor.taiga-san.net/",
476)             httpsWebsiteMirror => "",
477)             rsyncWebsiteMirror => "",
478)             ftpWebsiteMirror => "",
479)             httpDistMirror => "http://tor.taiga-san.net/dist",
480)             httpsDistMirror => "",
481)             rsyncDistMirror => "",

482)             hiddenServiceMirror => "",
483)         },

484)         mirror030 => {

485)             adminContact => "",
486)             orgName => "searchprivate",
487)             isoCC => "US",
488)             subRegion => "TX",
489)             region => "US",
490)             ipv4 => "True",
491)             ipv6 => "False",
492)             loadBalanced => "No",
493)             httpWebsiteMirror => "http://tor.searchprivate.com",
494)             httpsWebsiteMirror => "",
495)             rsyncWebsiteMirror => "",
496)             ftpWebsiteMirror => "",
497)             httpDistMirror => "http://tor.searchprivate.com/dist",
498)             httpsDistMirror => "",
499)             rsyncDistMirror => "",

500)             hiddenServiceMirror => "",
501)         },

502)         mirror031 => {

503)             adminContact => "",
504)             orgName => "cyberarmy",
505)             isoCC => "AT",
506)             subRegion => "",
507)             region => "AT",
508)             ipv4 => "True",
509)             ipv6 => "False",
510)             loadBalanced => "No",
511)             httpWebsiteMirror => "http://tor.cyberarmy.at",
512)             httpsWebsiteMirror => "",
513)             rsyncWebsiteMirror => "",
514)             ftpWebsiteMirror => "",
515)             httpDistMirror => "http://tor.cyberarmy.at/dist",
516)             httpsDistMirror => "",
517)             rsyncDistMirror => "",
518)             hiddenServiceMirror => "",
519)         },
520)         mirror032 => {
521)             adminContact => "",

522)             orgName => "torproject.is",

523)             isoCC => "IS",
524)             subRegion => "",
525)             region => "IS",
526)             ipv4 => "True",
527)             ipv6 => "False",
528)             loadBalanced => "No",

529)             httpWebsiteMirror => "http://torproject.is/",

530)             httpsWebsiteMirror => "",
531)             rsyncWebsiteMirror => "",
532)             ftpWebsiteMirror => "",
533)             httpDistMirror => "http://torproject.is/dist",
534)             httpsDistMirror => "",
535)             rsyncDistMirror => "",

536)             hiddenServiceMirror => "",

537)         },
538)         mirror033 => {
539)             adminContact => "",
540)             orgName => "torservers",
541)             isoCC => "DE",
542)             subRegion => "",
543)             region => "DE",
544)             ipv4 => "True",
545)             ipv6 => "False",
546)             loadBalanced => "No",
547)             httpWebsiteMirror => "http://www.torservers.net/mirrors/torproject.org/",
548)             httpsWebsiteMirror => "https://www.torservers.net/mirrors/torproject.org/",
549)             rsyncWebsiteMirror => "",
550)             ftpWebsiteMirror => "",
551)             httpDistMirror => "http://www.torservers.net/mirrors/torproject.org/dist",
552)             httpsDistMirror => "https://www.torservers.net/mirrors/torproject.org/dist",
553)             rsyncDistMirror => "",
554)             hiddenServiceMirror => "http://hbpvnydyyjbmhx6b.onion/mirrors/torproject.org/",

555)         },
556)         mirror034 => {
557)             adminContact => "",
558)             orgName => "",
559)             isoCC => "AT",
560)             subRegion => "",
561)             region => "AT",
562)             ipv4 => "True",
563)             ipv6 => "False",
564)             loadBalanced => "No",
565)             httpWebsiteMirror => "http://tor.webersiedlung.at/",
566)             httpsWebsiteMirror => "",
567)             rsyncWebsiteMirror => "",
568)             ftpWebsiteMirror => "",

569)             httpDistMirror => "http://tor.webersiedlung.at/dist/",

570)             httpsDistMirror => "",
571)             rsyncDistMirror => "",

572)             hiddenServiceMirror => "",
573)         },

574)         mirror036 => {
575)             adminContact => "",
576)             orgName => "",
577)             isoCC => "NL",
578)             subRegion => "",
579)             region => "NL",
580)             ipv4 => "True",
581)             ipv6 => "False",
582)             loadBalanced => "No",
583)             httpWebsiteMirror => "",
584)             httpsWebsiteMirror => "",
585)             rsyncWebsiteMirror => "",
586)             ftpWebsiteMirror => "",
587)             httpDistMirror => "",
588)             httpsDistMirror => "https://www.coevoet.nl/tor/dist",
589)             rsyncDistMirror => "",
590)             hiddenServiceMirror => "",

591)       },

592)         mirror037 => {
593)             adminContact => "",

594)             orgName => "crypto.is",

595)             isoCC => "IS",
596)             subRegion => "",

597)             region => "Iceland",

598)             ipv4 => "True",
599)             ipv6 => "False",
600)             loadBalanced => "No",
601)             httpWebsiteMirror => "https://torproject.crypto.is",
602)             httpsWebsiteMirror => "",
603)             rsyncWebsiteMirror => "",
604)             ftpWebsiteMirror => "",
605)             httpDistMirror => "https://torproject.crypto.is/dist",
606)             httpsDistMirror => "",
607)             rsyncDistMirror => "",
608)             hiddenServiceMirror => "",
609)       }

610) );
611) 
612) my $count = values %m;
613) print "We have a total of $count mirrors\n";
614) print "Fetching the last updated date for each mirror.\n";
615) 

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

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

619) $tortime -= 1 * 172800; 

620) print "The official time for Tor is $tortime. \n";
621) 

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

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

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

664)      my $time;

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

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

667) 	    $time = "Up to date";
668) 	  } else { $time = "Out of date"; }

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";