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 => "",
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)             # orgName => "loxal.net",
266)             # isoCC => "DE",
267)             # subRegion => "",
268)             # region => "Europe",
269)             # ipv4 => "True",
270)             # ipv6 => "False",
271)             # loadBalanced => "Unknown",
272)             # httpWebsiteMirror => "http://tor-anonymizer.mirror.loxal.net/",
273)             # ftpWebsiteMirror => "",
274)             # rsyncWebsiteMirror => "",
275)             # httpDistMirror => "http://tor-anonymizer.mirror.loxal.net/dist/",
276)             # rsyncDistMirror => "",
277)             # updateDate => "Unknown",
278)         # },
279) 
280)        # mirror012 => {
281)             # orgName => "centervenus.com",
282)             # isoCC => "DE",
283)             # subRegion => "",
284)             # region => "Europe",
285)             # ipv4 => "True",
286)             # ipv6 => "False",
287)             # loadBalanced => "Unknown",
288)             # httpWebsiteMirror => "",
289)             # ftpWebsiteMirror => "",
290)             # rsyncWebsiteMirror => "",
291)             # httpDistMirror => "http://www.centervenus.com/mirrors/tor/dist/",
292)             # rsyncDistMirror => "",
293)             # updateDate => "Unknown",
294)         # },

295) 
296)        mirror013 => {

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

298)             orgName => "Zentrum der Gesundheit",

299)             isoCC => "DK",
300)             subRegion => "",
301)             region => "Europe",
302)             ipv4 => "True",
303)             ipv6 => "False",
304)             loadBalanced => "Unknown",

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

306)             ftpWebsiteMirror => "",

307)             rsyncWebsiteMirror => "",

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

310)             updateDate => "Unknown",

311)         },
312) 
313)        mirror014 => {

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

315)             orgName => "CRAN",
316)             isoCC => "FR",

317)             subRegion => "Ile de France",

318)             region => "Europe",
319)             ipv4 => "True",
320)             ipv6 => "False",
321)             loadBalanced => "Unknown",

322)             httpWebsiteMirror => "",

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

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

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

326)             rsyncDistMirror => "",

327)             updateDate => "Unknown",

328)         },
329) 

330)        # mirror015 => {
331)             # orgName => "tor.newworldorder.com.es",
332)             # isoCC => "HU",
333)             # subRegion => "",
334)             # region => "Europe",
335)             # ipv4 => "True",
336)             # ipv6 => "False",
337)             # loadBalanced => "Unknown",
338)             # httpWebsiteMirror => "http://tor.newworldorder.com.es/",

339)             # rsyncWebsiteMirror => "",

340)             # ftpWebsiteMirror => "",
341)             # httpDistMirror => "",
342)             # rsyncDistMirror => "",
343)             # updateDate => "Unknown",
344)         # },

345) 
346)        mirror016 => {

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

348)             orgName => "Amorphis",

349)             isoCC => "NL",
350)             subRegion => "",
351)             region => "Europe",
352)             ipv4 => "True",
353)             ipv6 => "False",
354)             loadBalanced => "Unknown",
355)             httpWebsiteMirror => "http://tor.amorphis.eu/",

356)             rsyncWebsiteMirror => "",

357)             ftpWebsiteMirror => "",
358)             httpDistMirror => "http://tor.amorphis.eu/dist/",
359)             rsyncDistMirror => "",

360)             updateDate => "Unknown",

361)         },
362) 
363)        mirror017 => {

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

365)             orgName => "BIT BV",
366)             isoCC => "NL",
367)             subRegion => "",
368)             region => "Europe",
369)             ipv4 => "True",
370)             ipv6 => "False",
371)             loadBalanced => "Unknown",

372)             httpWebsiteMirror => "",

373)             rsyncWebsiteMirror => "",

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

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

376)             rsyncDistMirror => "",

377)             updateDate => "Unknown",

378)         },
379) 
380)        mirror018 => {

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

382)             orgName => "CCC",
383)             isoCC => "NL",
384)             subRegion => "",
385)             region => "Europe",
386)             ipv4 => "True",
387)             ipv6 => "False",
388)             loadBalanced => "Unknown",
389)             httpWebsiteMirror => "http://tor.ccc.de/",

390)             rsyncWebsiteMirror => "",

391)             ftpWebsiteMirror => "",
392)             httpDistMirror => "http://tor.ccc.de/dist/",
393)             rsyncDistMirror => "",

394)             updateDate => "Unknown",

395)         },
396) 
397)        mirror018 => {

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

399)             orgName => "Kamagurka",

400)             isoCC => "NL",
401)             subRegion => "Haarlem",
402)             region => "Europe",
403)             ipv4 => "True",
404)             ipv6 => "False",
405)             loadBalanced => "Unknown",
406)             httpWebsiteMirror => "http://tor.kamagurka.org/",

407)             rsyncWebsiteMirror => "",

408)             ftpWebsiteMirror => "",
409)             httpDistMirror => "http://tor.kamagurka.org/dist/",
410)             rsyncDistMirror => "",

411)             updateDate => "Unknown",

412)         },
413) 
414)        mirror019 => {

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

416)             orgName => "OS Mirror",
417)             isoCC => "NL",
418)             subRegion => "",
419)             region => "Europe",
420)             ipv4 => "True",
421)             ipv6 => "False",
422)             loadBalanced => "Unknown",

423)             httpWebsiteMirror => "",

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

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

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

427)             rsyncDistMirror => "",

428)             updateDate => "Unknown",

429)         },
430) 
431) 
432)        mirror020 => {

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

434)             orgName => "Meulie",

435)             isoCC => "NO",
436)             subRegion => "",
437)             region => "Europe",
438)             ipv4 => "True",
439)             ipv6 => "False",
440)             loadBalanced => "Unknown",

441)             httpWebsiteMirror => "",

442)             rsyncWebsiteMirror => "",

443)             ftpWebsiteMirror => "",

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

445)             rsyncDistMirror => "",

446)             updateDate => "Unknown",

447)         },
448) 

449)        # mirror021 => {
450)             # orgName => "Swedish Linux Society",
451)             # isoCC => "SE",
452)             # subRegion => "",
453)             # region => "Europe",
454)             # ipv4 => "True",
455)             # ipv6 => "False",
456)             # loadBalanced => "Unknown",
457)             # httpWebsiteMirror => "http://ftp.se.linux.org/crypto/tor/",

458)             # rsyncWebsiteMirror => "",

459)             # ftpWebsiteMirror => "ftp://ftp.se.linux.org/pub/crypto/tor/",
460)             # httpDistMirror => "",
461)             # rsyncDistMirror => "",
462)             # updateDate => "Unknown",
463)         # },

464) 
465)        mirror022 => {

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

467)             orgName => "Ghirai",

468)             isoCC => "UK",
469)             subRegion => "London",
470)             region => "Europe",
471)             ipv4 => "True",
472)             ipv6 => "False",
473)             loadBalanced => "Unknown",

474)             httpWebsiteMirror => "",

475)             rsyncWebsiteMirror => "",

476)             ftpWebsiteMirror => "",

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

478)             rsyncDistMirror => "",

479)             updateDate => "Unknown",

480)         },
481) 
482)        mirror023 => {

483) 							     adminContact => "bjw.bjwonline.com",

484)             orgName => "BJWOnline",

485)             isoCC => "US",
486)             subRegion => "California",
487)             region => "North America",
488)             ipv4 => "True",
489)             ipv6 => "False",
490)             loadBalanced => "Unknown",
491)             httpWebsiteMirror => "http://mirror.bjwonline.com/tor/",

492)             rsyncWebsiteMirror => "",

493)             ftpWebsiteMirror => "",

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

495)             rsyncDistMirror => "",

496)             updateDate => "Unknown",

497)         },
498) 

499)        # mirror024 => {
500)             # orgName => "Libertarian Action Network",
501)             # isoCC => "US",
502)             # subRegion => "",
503)             # region => "North America",
504)             # ipv4 => "True",
505)             # ipv6 => "False",
506)             # loadBalanced => "Unknown",
507)             # httpWebsiteMirror => "",

508)             # rsyncWebsiteMirror => "",

509)             # ftpWebsiteMirror => "ftp://libertarianactivism.com/tor.eff.org/dist/",
510)             # httpDistMirror => "",
511)             # rsyncDistMirror => "",
512)             # updateDate => "Unknown",
513)         # },

514) 
515)        mirror025 => {

516) 			adminContact => "hostmaster.zombiewerks.com",

517)             orgName => "TheOnionRouter",

518)             isoCC => "US",

519)             subRegion => "New Jersey",

520)             region => "North America",
521)             ipv4 => "True",
522)             ipv6 => "False",
523)             loadBalanced => "Unknown",
524)             httpWebsiteMirror => "http://www.theonionrouter.com/",

525)             rsyncWebsiteMirror => "",

526)             ftpWebsiteMirror => "",
527)             httpDistMirror => "http://www.theonionrouter.com/dist/",
528)             rsyncDistMirror => "",

529)             updateDate => "Unknown",

530)         },
531) 

532)        # mirror026 => {
533)             # orgName => "Site2nd.org",
534)             # isoCC => "USA",
535)             # subRegion => "Texas",
536)             # region => "North America",
537)             # ipv4 => "True",
538)             # ipv6 => "False",
539)             # loadBalanced => "Unknown",
540)             # httpWebsiteMirror => "http://tor.site2nd.org",

541)             # rsyncWebsiteMirror => "",

542)             # ftpWebsiteMirror => "",
543)             # httpDistMirror => "",
544)             # rsyncDistMirror => "",
545)             # updateDate => "Unknown",
546)         # },

547) 
548)        mirror027 => {

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

550)             orgName => "Unfix",

551)             isoCC => "CH",
552)             subRegion => "",
553)             region => "Europe",
554)             ipv4 => "True",
555)             ipv6 => "True",
556)             loadBalanced => "Unknown",
557)             httpWebsiteMirror => "http://tor.unfix.org/",

558)             rsyncWebsiteMirror => "",

559)             ftpWebsiteMirror => "",

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

561)             rsyncDistMirror => "",

562)             updateDate => "Unknown",

563)         },
564) 
565)        mirror028 => {

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

567)             orgName => "Sixx",

568)             isoCC => "CH",

569)             subRegion => "",
570)             region => "Europe",
571)             ipv4 => "True",
572)             ipv6 => "True",
573)             loadBalanced => "Unknown",
574)             httpWebsiteMirror => "http://tor.sixxs.net/",

575)             rsyncWebsiteMirror => "",

576)             ftpWebsiteMirror => "",

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

578)             rsyncDistMirror => "",

579)             updateDate => "Unknown",

580)         },

581) 
582)        mirror029 => {
583)             adminContact => "",

584)             orgName => "Crypto",

585)             isoCC => "US",
586)             subRegion => "",
587)             region => "North America",
588)             ipv4 => "True",
589)             ipv6 => "False",
590)             loadBalanced => "Unknown",
591)             httpWebsiteMirror => "http://crypto.nsa.org/tor/",

592)             rsyncWebsiteMirror => "",

593)             ftpWebsiteMirror => "",
594)             httpDistMirror => "http://crypto.nsa.org/tor/dist/",
595)             rsyncDistMirror => "",
596)             updateDate => "Unknown",
597)         },

598) 

599)        mirror030 => {

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

601)             orgName => "Wiretapped",
602)             isoCC => "AU",
603)             subRegion => "Sydney",
604)             region => "Oceania",
605)             ipv4 => "True",
606)             ipv6 => "False",
607)             loadBalanced => "Unknown",
608)             httpWebsiteMirror => "",

609)             rsyncWebsiteMirror => "",

610)             ftpWebsiteMirror => "ftp://ftp.mirrors.wiretapped.net/pub/security/cryptography/network/tor/",
611)             httpDistMirror => "http://www.mirrors.wiretapped.net/security/cryptography/network/tor/",
612)             rsyncDistMirror => "",
613)             updateDate => "Unknown",

614)         },

615) 

616)         mirror031 => {

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

618)             orgName => "Xpdm",

619)             isoCC => "US",
620)             subRegion => "",
621)             region => "North America",
622)             ipv4 => "True",
623)             ipv6 => "False",
624)             loadBalanced => "Unknown",
625)             httpWebsiteMirror => "http://torproj.xpdm.us/",

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

627)             rsyncWebsiteMirror => "",

628)             ftpWebsiteMirror => "",

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

631)             rsyncDistMirror => "",
632)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
633)             updateDate => "Unknown",

634)         },

635) 

636)         # mirror032 => {
637)             # adminContact => "abuse.misericordia.be",
638)             # orgName => "Misericordia",
639)             # isoCC => "FR",
640)             # subRegion => "France",
641)             # region => "Europe",
642)             # ipv4 => "True",
643)             # ipv6 => "False",
644)             # loadBalanced => "No",
645)             # httpWebsiteMirror => "http://mirror.misericordia.be/",
646)             # httpsWebsiteMirror => "",

647)             # rsyncWebsiteMirror => "",

648)             # ftpWebsiteMirror => "",
649)             # httpDistMirror => "http://mirror.misericordia.be/dist/",
650)             # httpsDistMirror => "",
651)             # rsyncDistMirror => "",
652)             # hiddenServiceMirror => "",
653)             # updateDate => "Unknown",

654)         # },

655) 

656)         mirror033 => {
657)             adminContact => "internetfreebeijing\@gmail.com",
658)             orgName => "Unknown",
659)             isoCC => "CN",
660)             subRegion => "China",
661)             region => "Asia",
662)             ipv4 => "True",
663)             ipv6 => "False",
664)             loadBalanced => "No",
665)             httpWebsiteMirror => "http://free.be.ijing2008.cn/tor/",
666)             httpsWebsiteMirror => "",

667)             rsyncWebsiteMirror => "",

668)             ftpWebsiteMirror => "",
669)             httpDistMirror => "http://free.be.ijing2008.cn/tor/dist/",
670)             httpsDistMirror => "",
671)             rsyncDistMirror => "",
672)             hiddenServiceMirror => "",
673)             updateDate => "Unknown",

674)         },

675) 

676)         mirror034 => {
677)             adminContact => "security\@hostoffice.hu",
678)             orgName => "Unknown",
679)             isoCC => "HU",
680)             subRegion => "Hungary",
681)             region => "Europe",
682)             ipv4 => "True",
683)             ipv6 => "False",
684)             loadBalanced => "No",
685)             httpWebsiteMirror => "http://mirror.tor.hu/",
686)             httpsWebsiteMirror => "",

687)             rsyncWebsiteMirror => "",

688)             ftpWebsiteMirror => "",
689)             httpDistMirror => "http://mirror.tor.hu/dist/",
690)             httpsDistMirror => "",
691)             rsyncDistMirror => "",
692)             hiddenServiceMirror => "",
693)             updateDate => "Unknown",

694)         },

695)         mirror035 => {
696)             adminContact => "",

697)             orgName => "Technica-03",

698)             isoCC => "UA",

699)             subRegion => "Ukraine",
700)             region => "Eastern Europe",
701)             ipv4 => "True",
702)             ipv6 => "False",
703)             loadBalanced => "No",
704)             httpWebsiteMirror => "http://torua.reactor-xg.kiev.ua/",
705)             httpsWebsiteMirror => "",

706)             rsyncWebsiteMirror => "",

707)             ftpWebsiteMirror => "",
708)             httpDistMirror => "http://tordistua.reactor-xg.kiev.ua",
709)             httpsDistMirror => "",
710)             rsyncDistMirror => "",
711)             hiddenServiceMirror => "",
712)             updateDate => "Unknown",

713)         },
714) 	mirror036 => {
715)             adminContact => "",
716)             orgName => "chaos darmstadt",
717)             isoCC => "DE",
718)             subRegion => "Germany",
719)             region => "Europe",
720)             ipv4 => "True",
721)             ipv6 => "False",
722)             loadBalanced => "No",
723)             httpWebsiteMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/",
724)             httpsWebsiteMirror => "",
725)             rsyncWebsiteMirror => "",
726)             ftpWebsiteMirror => "",
727)             httpDistMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/dist/",
728)             httpsDistMirror => "",
729)             rsyncDistMirror => "",
730)             hiddenServiceMirror => "",
731)             updateDate => "Unknown",
732)         }

733) );
734) 
735) my $count = values %m;
736) print "We have a total of $count mirrors\n";
737) print "Fetching the last updated date for each mirror.\n";
738) 
739) foreach my $server ( keys %m ) {
740) 
741)     print "Attempting to fetch from $m{$server}{'orgName'}\n";
742) 
743)     if ($m{$server}{'httpWebsiteMirror'}) {
744)         print "Attempt to fetch via HTTP.\n";
745)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpWebsiteMirror'}");
746)     } elsif ($m{$server}{'httpsWebsiteMirror'}) {
747)         print "Attempt to fetch via HTTPS.\n";
748)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpsWebsiteMirror'}");
749)     } elsif ($m{$server}{'ftpWebsiteMirror'}) {
750)         print "Attempt to fetch via FTP.\n";
751)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'ftpWebsiteMirror'}");
752)     } else {
753)         print "We were unable to fetch or store anything. We still have the following: $m{$server}{'updateDate'}\n";
754)     }
755) 
756)     print "We fetched and stored the following: $m{$server}{'updateDate'}\n";
757) 
758)  }
759) 
760) 
761) print "We sorted the following mirrors by their date of last update: \n";
762) foreach my $server ( sort { $m{$b}{'updateDate'} <=> $m{$a}{'updateDate'}} keys %m ) {
763) 
764)      print "\n";
765)      print "Mirror $m{$server}{'orgName'}: \n";
766) 
767)      foreach my $attrib ( sort keys %{$m{$server}} ) {
768)         print "$attrib = $m{$server}{$attrib}";
769)         print "\n";
770)      };
771) }
772) 
773) my $outFile = "include/mirrors-table.wmi";
774) my $html;
775) open(OUT, "> $outFile") or die "Can't open $outFile: $!";
776) 

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

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

781)      my $time;
782)      if( "$m{$server}{'updateDate'}" ne "Unknown") {
783)         $time = ctime($m{$server}{'updateDate'});
784)         chomp($time);
785)      } else { $time = "Unknown"; }
786) 

787) print OUT <<"END";
788)      \n<tr>\n
789)          <td>$m{$server}{'isoCC'}</td>\n
790)          <td>$m{$server}{'orgName'}</td>\n
791)          <td>$time</td>\n
792) END
793) 
794)      my %prettyNames = (
795)                         httpWebsiteMirror => "http",
796)                         httpsWebsiteMirror => "https",
797)                         ftpWebsiteMirror => "ftp",
798)                         rsyncWebsiteMirror => "rsync",
799)                         httpDistMirror => "http",
800)                         httpsDistMirror => "https",
801)                         rsyncDistMirrors => "rsync", );
802) 
803)      foreach my $precious ( sort keys %prettyNames )

804)      {
805)         if ($m{$server}{"$precious"}) {
806)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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