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) #Contacted
16) #Crypto 404 

17) #Kamagurka TIMOUTS (Should be up in about a week)

18) #

19) 

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

23)     timeout => 15,

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

48)     my $code = $result->code();
49)     print "Result code $code\n";

50) 

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

52)        my $taint = $result->content;
53)        my $content = sanitize($taint);
54)        if ($content) {

55) 

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

70) 

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

75) 
76)     return "Unknown";

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

81) my %m = (
82)         mirror000 => {
83)             adminContact => "tor AT goodeid DOT com",
84)             orgName => "goodeid.com",

85)             isoCC => "CA",

86)             subRegion => "",

87)             region => "CA",

88)             ipv4 => "True",
89)             ipv6 => "False",
90)             loadBalanced => "No",
91)             httpWebsiteMirror => "http://tor-node.goodeid.com/",
92)             httpsWebsiteMirror => "https://tor-node.goodeid.com/",
93)             rsyncWebsiteMirror => "",
94)             ftpWebsiteMirror => "",
95)             httpDistMirror => "http://tor-node.goodeid.com/dist/",
96)             httpsDistMirror => "https://tor-node.goodeid.com/dist/",
97)             rsyncDistMirror => "",
98)             hiddenServiceMirror => "",
99)             updateDate => "Unknown",
100)         },
101) 

102)         mirror001 => {
103)             adminContact => "BarkerJr AT barkerjr DOT net",
104)             orgName => "BarkerJr",
105)             isoCC => "FR",
106)             subRegion => "",
107)             region => "FR",
108)             ipv4 => "True",
109)             ipv6 => "False",
110)             loadBalanced => "No",
111)             httpWebsiteMirror => "",
112)             httpsWebsiteMirror => "",
113)             rsyncWebsiteMirror => "",
114)             ftpWebsiteMirror => "",
115)             httpDistMirror => "http://tor.megahal.org/dist/",
116)             httpsDistMirror => "",
117)             rsyncDistMirror => "",
118)             hiddenServiceMirror => "",
119)             updateDate => "Unknown",
120)         },
121) 

122)        mirror002 => {

123)             adminContact => "operator AT hermetix DOT org",

124)             orgName => "Hermetix",

125)             isoCC => "CA",
126)             subRegion => "QC",
127)             region => "North America",
128)             ipv4 => "True",
129)             ipv6 => "False",
130)             loadBalanced => "Unknown",
131)             httpWebsiteMirror => "http://tor.hermetix.org/",
132)             rsyncWebsiteMirror => "",

133)             httpDistMirror => "",

134)             rsyncDistMirror => "",

135)             updateDate => "Unknown",

136)         },
137) 
138)        mirror003 => {

139)             adminContact => "",

140)             orgName => "Boinc",

141)             isoCC => "CH",
142)             subRegion => "",
143)             region => "Europe",
144)             ipv4 => "True",
145)             ipv6 => "False",
146)             loadBalanced => "Unknown",
147)             httpWebsiteMirror => "http://tor.boinc.ch/",
148)             ftpWebsiteMirror => "",
149)             rsyncWebsiteMirror => "",
150)             httpDistMirror => "http://tor.boinc.ch/dist/",
151)             rsyncDistMirror => "",

152)             updateDate => "Unknown",

153)         },
154) 
155)        mirror004 => {

156)             adminContact => "peihanru AT gmail DOT com",

157)             orgName => "Anonymity",

158)             isoCC => "CN",
159)             subRegion => "",
160)             region => "Asia",
161)             ipv4 => "True",
162)             ipv6 => "False",
163)             loadBalanced => "Unknown",

164)             httpWebsiteMirror => "http://tor.cypherpunks.cn/",

165)             ftpWebsiteMirror => "",
166)             rsyncWebsiteMirror => "",

167)             httpDistMirror => "http://tor.cypherpunks.cn/dist/",

168)             rsyncDistMirror => "",

169)             updateDate => "Unknown",

170)         },
171) 

172)        mirror005 => {

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

174)             orgName => "Bbs",

175)             isoCC => "DE",
176)             subRegion => "",
177)             region => "Europe",
178)             ipv4 => "True",
179)             ipv6 => "False",
180)             loadBalanced => "Unknown",
181)             httpWebsiteMirror => "http://tor.blingblingsquad.net/",
182)             ftpWebsiteMirror => "",
183)             rsyncWebsiteMirror => "",

184)             httpDistMirror => "",

185)             rsyncDistMirror => "",

186)             updateDate => "Unknown",

187)         },
188) 

189)        mirror006 => {

190)             orgName => "Berapla",
191)             isoCC => "DE",
192)             subRegion => "",
193)             region => "Europe",
194)             ipv4 => "True",
195)             ipv6 => "False",
196)             loadBalanced => "Unknown",
197)             httpWebsiteMirror => "http://download.berapla.de/mirrors/tor/",
198)             ftpWebsiteMirror => "",
199)             rsyncWebsiteMirror => "",
200)             httpDistMirror => "http://download.berapla.de/mirrors/tor/dist/",
201)             rsyncDistMirror => "",
202)             updateDate => "Unknown",
203)         },

204) 

205)        mirror007 => {

206)             adminContact => "cm AT cybermirror DOT org",

207)             orgName => "Cybermirror",

208)             isoCC => "DE",
209)             subRegion => "",
210)             region => "Europe",
211)             ipv4 => "True",
212)             ipv6 => "False",
213)             loadBalanced => "Unknown",
214)             httpWebsiteMirror => "http://tor.cybermirror.org/",
215)             ftpWebsiteMirror => "",
216)             rsyncWebsiteMirror => "",
217)             httpDistMirror => "http://tor.cybermirror.org/dist/",
218)             rsyncDistMirror => "",

219)             updateDate => "Unknown",

220)         },
221) 

222)        mirror008 => {

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

224)             orgName => "Spline",
225)             isoCC => "DE",
226)             subRegion => "FU",
227)             region => "Europe",
228)             ipv4 => "True",
229)             ipv6 => "False",
230)             loadBalanced => "Unknown",

231)             httpWebsiteMirror => "",

232)             ftpWebsiteMirror => "",
233)             rsyncWebsiteMirror => "",

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

235)             rsyncDistMirror => "",

236)             updateDate => "Unknown",

237)         },
238) 
239)        mirror009 => {

240)             adminContact => "beaver AT trash DOT net",

241)             orgName => "Onionland",

242)             isoCC => "DE",
243)             subRegion => "",
244)             region => "Europe",
245)             ipv4 => "True",
246)             ipv6 => "False",
247)             loadBalanced => "Unknown",
248)             httpWebsiteMirror => "http://mirror.onionland.org/",
249)             ftpWebsiteMirror => "",
250)             rsyncWebsiteMirror => "rsync: mirror.onionland.org::tor/",
251)             httpDistMirror => "http://mirror.onionland.org/dist/",

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

253)             updateDate => "Unknown",

254)         },
255) 

256)        mirror011 => {

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

258)             orgName => "Zentrum der Gesundheit",

259)             isoCC => "DK",
260)             subRegion => "",
261)             region => "Europe",
262)             ipv4 => "True",
263)             ipv6 => "False",
264)             loadBalanced => "Unknown",

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

266)             ftpWebsiteMirror => "",

267)             rsyncWebsiteMirror => "",

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

270)             updateDate => "Unknown",

271)         },
272) 

273)        mirror012 => {

274)             adminContact => "kurt AT miroir-francais DOT fr",

275)             orgName => "CRAN",
276)             isoCC => "FR",

277)             subRegion => "Ile de France",

278)             region => "Europe",
279)             ipv4 => "True",
280)             ipv6 => "False",
281)             loadBalanced => "Unknown",

282)             httpWebsiteMirror => "",

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

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

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

286)             rsyncDistMirror => "",

287)             updateDate => "Unknown",

288)         },
289) 

290)        mirror013 => {

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

292)             orgName => "Amorphis",

293)             isoCC => "NL",
294)             subRegion => "",
295)             region => "Europe",
296)             ipv4 => "True",
297)             ipv6 => "False",
298)             loadBalanced => "Unknown",
299)             httpWebsiteMirror => "http://tor.amorphis.eu/",

300)             rsyncWebsiteMirror => "",

301)             ftpWebsiteMirror => "",
302)             httpDistMirror => "http://tor.amorphis.eu/dist/",
303)             rsyncDistMirror => "",

304)             updateDate => "Unknown",

305)         },
306) 

307)        mirror014 => {

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

309)             orgName => "BIT BV",
310)             isoCC => "NL",
311)             subRegion => "",
312)             region => "Europe",
313)             ipv4 => "True",
314)             ipv6 => "False",
315)             loadBalanced => "Unknown",

316)             httpWebsiteMirror => "",

317)             rsyncWebsiteMirror => "",

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

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

320)             rsyncDistMirror => "",

321)             updateDate => "Unknown",

322)         },
323) 

324)        mirror015 => {

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

326)             orgName => "CCC",
327)             isoCC => "NL",
328)             subRegion => "",
329)             region => "Europe",
330)             ipv4 => "True",
331)             ipv6 => "False",
332)             loadBalanced => "Unknown",
333)             httpWebsiteMirror => "http://tor.ccc.de/",

334)             rsyncWebsiteMirror => "",

335)             ftpWebsiteMirror => "",
336)             httpDistMirror => "http://tor.ccc.de/dist/",
337)             rsyncDistMirror => "",

338)             updateDate => "Unknown",

339)         },
340) 

341)        mirror016 => {

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

343)             orgName => "Kamagurka",

344)             isoCC => "NL",
345)             subRegion => "Haarlem",
346)             region => "Europe",
347)             ipv4 => "True",
348)             ipv6 => "False",
349)             loadBalanced => "Unknown",
350)             httpWebsiteMirror => "http://tor.kamagurka.org/",

351)             rsyncWebsiteMirror => "",

352)             ftpWebsiteMirror => "",
353)             httpDistMirror => "http://tor.kamagurka.org/dist/",
354)             rsyncDistMirror => "",

355)             updateDate => "Unknown",

356)         },
357) 

358)        mirror017 => {

359)             adminContact => "mirrorsosmirror.nl",

360)             orgName => "OS Mirror",
361)             isoCC => "NL",
362)             subRegion => "",
363)             region => "Europe",
364)             ipv4 => "True",
365)             ipv6 => "False",
366)             loadBalanced => "Unknown",

367)             httpWebsiteMirror => "",

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

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

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

371)             rsyncDistMirror => "",

372)             updateDate => "Unknown",

373)         },
374) 
375) 

376)        mirror018 => {

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

378)             orgName => "Meulie",

379)             isoCC => "NO",
380)             subRegion => "",
381)             region => "Europe",
382)             ipv4 => "True",
383)             ipv6 => "False",
384)             loadBalanced => "Unknown",

385)             httpWebsiteMirror => "",

386)             rsyncWebsiteMirror => "",

387)             ftpWebsiteMirror => "",

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

389)             rsyncDistMirror => "",

390)             updateDate => "Unknown",

391)         },
392) 

393)        mirror019 => {

394)             adminContact => "ghirai AT ghirai DOT com",

395)             orgName => "Ghirai",

396)             isoCC => "UK",
397)             subRegion => "London",
398)             region => "Europe",
399)             ipv4 => "True",
400)             ipv6 => "False",
401)             loadBalanced => "Unknown",

402)             httpWebsiteMirror => "",

403)             rsyncWebsiteMirror => "",

404)             ftpWebsiteMirror => "",

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

406)             rsyncDistMirror => "",

407)             updateDate => "Unknown",

408)         },
409) 

410) 	mirror020 => {
411)             adminContact => "",
412)             orgName => "ax",
413)             isoCC => "DE",
414)             subRegion => "",
415)             region => "DE",
416)             ipv4 => "True",
417)             ipv6 => "False",
418)             loadBalanced => "No",
419)             httpWebsiteMirror => "",
420)             httpsWebsiteMirror => "",
421)             rsyncWebsiteMirror => "",
422)             ftpWebsiteMirror => "",
423)             httpDistMirror => "http://tor.initrd.net/dist/",
424)             httpsDistMirror => "",
425)             rsyncDistMirror => "",
426)             hiddenServiceMirror => "",
427)             updateDate => "Unknown",
428)         },
429) 

430)        mirror021 => {

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

432)             orgName => "TheOnionRouter",

433)             isoCC => "US",

434)             subRegion => "New Jersey",

435)             region => "North America",
436)             ipv4 => "True",
437)             ipv6 => "False",
438)             loadBalanced => "Unknown",
439)             httpWebsiteMirror => "http://www.theonionrouter.com/",

440)             rsyncWebsiteMirror => "",

441)             ftpWebsiteMirror => "",
442)             httpDistMirror => "http://www.theonionrouter.com/dist/",
443)             rsyncDistMirror => "",

444)             updateDate => "Unknown",

445)         },
446) 

447)        mirror022 => {

448)             adminContact => "jeroen AT unfix DOT org",

449)             orgName => "Unfix",

450)             isoCC => "CH",
451)             subRegion => "",
452)             region => "Europe",
453)             ipv4 => "True",
454)             ipv6 => "True",
455)             loadBalanced => "Unknown",
456)             httpWebsiteMirror => "http://tor.unfix.org/",

457)             rsyncWebsiteMirror => "",

458)             ftpWebsiteMirror => "",

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

460)             rsyncDistMirror => "",

461)             updateDate => "Unknown",

462)         },
463) 

464)        mirror023 => {

465)             adminContact => "jeroen AT unfix DOT org",

466)             orgName => "Sixx",

467)             isoCC => "CH",

468)             subRegion => "",
469)             region => "Europe",
470)             ipv4 => "True",
471)             ipv6 => "True",
472)             loadBalanced => "Unknown",
473)             httpWebsiteMirror => "http://tor.sixxs.net/",

474)             rsyncWebsiteMirror => "",

475)             ftpWebsiteMirror => "",

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

477)             rsyncDistMirror => "",

478)             updateDate => "Unknown",

479)         },

480) 

481)        mirror024 => {

482)             adminContact => "",

483)             orgName => "Crypto",

484)             isoCC => "US",
485)             subRegion => "",
486)             region => "North America",
487)             ipv4 => "True",
488)             ipv6 => "False",
489)             loadBalanced => "Unknown",
490)             httpWebsiteMirror => "http://crypto.nsa.org/tor/",

491)             rsyncWebsiteMirror => "",

492)             ftpWebsiteMirror => "",
493)             httpDistMirror => "http://crypto.nsa.org/tor/dist/",
494)             rsyncDistMirror => "",
495)             updateDate => "Unknown",
496)         },

497) 

498)        mirror025 => {

499)             adminContact => "web2005a AT year2005a.wiretapped DOT net",

500)             orgName => "Wiretapped",
501)             isoCC => "AU",
502)             subRegion => "Sydney",
503)             region => "Oceania",
504)             ipv4 => "True",
505)             ipv6 => "False",
506)             loadBalanced => "Unknown",
507)             httpWebsiteMirror => "",

508)             rsyncWebsiteMirror => "",

509)             ftpWebsiteMirror => "ftp://ftp.mirrors.wiretapped.net/pub/security/cryptography/network/tor/",
510)             httpDistMirror => "http://www.mirrors.wiretapped.net/security/cryptography/network/tor/",
511)             rsyncDistMirror => "",
512)             updateDate => "Unknown",

513)         },

514) 

515)         mirror026 => {

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

517)             orgName => "Xpdm",

518)             isoCC => "US",
519)             subRegion => "",
520)             region => "North America",
521)             ipv4 => "True",
522)             ipv6 => "False",
523)             loadBalanced => "Unknown",
524)             httpWebsiteMirror => "http://torproj.xpdm.us/",

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

526)             rsyncWebsiteMirror => "",

527)             ftpWebsiteMirror => "",

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

530)             rsyncDistMirror => "",
531)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
532)             updateDate => "Unknown",

533)         },

534) 

535)         mirror027 => {

536)             adminContact => "internetfreebeijing AT gmail DOT com",

537)             orgName => "Unknown",
538)             isoCC => "CN",
539)             subRegion => "China",
540)             region => "Asia",
541)             ipv4 => "True",
542)             ipv6 => "False",
543)             loadBalanced => "No",
544)             httpWebsiteMirror => "http://free.be.ijing2008.cn/tor/",
545)             httpsWebsiteMirror => "",

546)             rsyncWebsiteMirror => "",

547)             ftpWebsiteMirror => "",
548)             httpDistMirror => "http://free.be.ijing2008.cn/tor/dist/",
549)             httpsDistMirror => "",
550)             rsyncDistMirror => "",
551)             hiddenServiceMirror => "",
552)             updateDate => "Unknown",

553)         },

554) 

555)         mirror028 => {

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

557)             orgName => "Unknown",
558)             isoCC => "HU",
559)             subRegion => "Hungary",
560)             region => "Europe",
561)             ipv4 => "True",
562)             ipv6 => "False",
563)             loadBalanced => "No",
564)             httpWebsiteMirror => "http://mirror.tor.hu/",
565)             httpsWebsiteMirror => "",

566)             rsyncWebsiteMirror => "",

567)             ftpWebsiteMirror => "",
568)             httpDistMirror => "http://mirror.tor.hu/dist/",
569)             httpsDistMirror => "",
570)             rsyncDistMirror => "",
571)             hiddenServiceMirror => "",
572)             updateDate => "Unknown",

573)         },

574) 

575)         mirror029 => {

576)             adminContact => "",

577)             orgName => "Technica-03",

578)             isoCC => "UA",

579)             subRegion => "Ukraine",
580)             region => "Eastern Europe",
581)             ipv4 => "True",
582)             ipv6 => "False",
583)             loadBalanced => "No",
584)             httpWebsiteMirror => "http://torua.reactor-xg.kiev.ua/",
585)             httpsWebsiteMirror => "",

586)             rsyncWebsiteMirror => "",

587)             ftpWebsiteMirror => "",
588)             httpDistMirror => "http://tordistua.reactor-xg.kiev.ua",
589)             httpsDistMirror => "",
590)             rsyncDistMirror => "",
591)             hiddenServiceMirror => "",
592)             updateDate => "Unknown",

593)         },

594) 

595) 	mirror030 => {

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

613)         },

614) 

615) 	mirror031 => {
616)             adminContact => "",
617)             orgName => "Ask Apache",
618)             isoCC => "US",
619)             subRegion => "California",
620)             region => "US",
621)             ipv4 => "True",
622)             ipv6 => "False",
623)             loadBalanced => "No",
624)             httpWebsiteMirror => "http://tor.askapache.com/",
625)             httpsWebsiteMirror => "",
626)             rsyncWebsiteMirror => "",
627)             ftpWebsiteMirror => "",

628)             httpDistMirror => "",

629)             httpsDistMirror => "",
630)             rsyncDistMirror => "",
631)             hiddenServiceMirror => "",
632)             updateDate => "Unknown",

633)         },

634) 

635) 	mirror032 => {
636)             adminContact => "",
637)             orgName => "I'm on the roof",
638)             isoCC => "US",
639)             subRegion => "",
640)             region => "US",
641)             ipv4 => "True",
642)             ipv6 => "False",
643)             loadBalanced => "No",
644)             httpWebsiteMirror => "http://mirror.imontheroof.com/tor-mirror/",
645)             httpsWebsiteMirror => "",
646)             rsyncWebsiteMirror => "",
647)             ftpWebsiteMirror => "",
648)             httpDistMirror => "http://mirror.imontheroof.com/tor-mirror/dist/",
649)             httpsDistMirror => "",
650)             rsyncDistMirror => "",
651)             hiddenServiceMirror => "",
652)             updateDate => "Unknown",

653)         },

654) 

655) 	mirror033 => {
656)             adminContact => "",

657)             orgName => "bullog",

658)             isoCC => "CN",
659)             subRegion => "",
660)             region => "CN",
661)             ipv4 => "True",
662)             ipv6 => "False",
663)             loadBalanced => "No",
664)             httpWebsiteMirror => "http://tor.bullog.org/",
665)             httpsWebsiteMirror => "",
666)             rsyncWebsiteMirror => "",
667)             ftpWebsiteMirror => "",
668)             httpDistMirror => "http://tor.bullog.org/dist/",
669)             httpsDistMirror => "",
670)             rsyncDistMirror => "",
671)             hiddenServiceMirror => "",
672)             updateDate => "Unknown",

673)         },

674) 

675) 	mirror034 => {
676)             adminContact => "",

677)             orgName => "digitip",

678)             isoCC => "CN",
679)             subRegion => "",
680)             region => "CN",
681)             ipv4 => "True",
682)             ipv6 => "False",
683)             loadBalanced => "No",
684)             httpWebsiteMirror => "http://tor.digitip.net/",
685)             httpsWebsiteMirror => "",
686)             rsyncWebsiteMirror => "",
687)             ftpWebsiteMirror => "",
688)             httpDistMirror => "http://tor.digitip.net/dist/",
689)             httpsDistMirror => "",
690)             rsyncDistMirror => "",
691)             hiddenServiceMirror => "",
692)             updateDate => "Unknown",

693)         },

694) 

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

697)             orgName => "shizhao",

698)             isoCC => "CN",
699)             subRegion => "",
700)             region => "CN",
701)             ipv4 => "True",
702)             ipv6 => "False",
703)             loadBalanced => "No",
704)             httpWebsiteMirror => "http://tor.shizhao.org/",
705)             httpsWebsiteMirror => "",
706)             rsyncWebsiteMirror => "",
707)             ftpWebsiteMirror => "",
708)             httpDistMirror => "http://tor.shizhao.org/dist/",
709)             httpsDistMirror => "",
710)             rsyncDistMirror => "",
711)             hiddenServiceMirror => "",
712)             updateDate => "Unknown",

713)         },

714) 

715) 	mirror036 => {
716)             adminContact => "",

717)             orgName => "ranyunfei",

718)             isoCC => "CN",
719)             subRegion => "",
720)             region => "CN",
721)             ipv4 => "True",
722)             ipv6 => "False",
723)             loadBalanced => "No",
724)             httpWebsiteMirror => "http://tor.ranyunfei.com/",
725)             httpsWebsiteMirror => "",
726)             rsyncWebsiteMirror => "",
727)             ftpWebsiteMirror => "",
728)             httpDistMirror => "http://tor.ranyunfei.com/dist/",
729)             httpsDistMirror => "",
730)             rsyncDistMirror => "",
731)             hiddenServiceMirror => "",
732)             updateDate => "Unknown",

733)         },

734) 

735) 	mirror037 => {
736)             adminContact => "",

737)             orgName => "wuerkaixi",

738)             isoCC => "CN",
739)             subRegion => "",
740)             region => "CN",
741)             ipv4 => "True",
742)             ipv6 => "False",
743)             loadBalanced => "No",
744)             httpWebsiteMirror => "http://tor.wuerkaixi.com/",
745)             httpsWebsiteMirror => "",
746)             rsyncWebsiteMirror => "",
747)             ftpWebsiteMirror => "",
748)             httpDistMirror => "http://tor.wuerkaixi.com/dist/",
749)             httpsDistMirror => "",
750)             rsyncDistMirror => "",
751)             hiddenServiceMirror => "",
752)             updateDate => "Unknown",

753)         },

754) 

755) 	mirror038 => {
756)             adminContact => "",

757)             orgName => "izaobao",

758)             isoCC => "CN",
759)             subRegion => "",
760)             region => "CN",
761)             ipv4 => "True",
762)             ipv6 => "False",
763)             loadBalanced => "No",
764)             httpWebsiteMirror => "http://tor.izaobao.com/",
765)             httpsWebsiteMirror => "",
766)             rsyncWebsiteMirror => "",
767)             ftpWebsiteMirror => "",
768)             httpDistMirror => "http://tor.izaobao.com/dist/",
769)             httpsDistMirror => "",
770)             rsyncDistMirror => "",
771)             hiddenServiceMirror => "",
772)             updateDate => "Unknown",

773)         },

774) 

775) 	mirror039 => {
776)             adminContact => "",

777)             orgName => "anothr",

778)             isoCC => "CN",
779)             subRegion => "",
780)             region => "CN",
781)             ipv4 => "True",
782)             ipv6 => "False",
783)             loadBalanced => "No",
784)             httpWebsiteMirror => "http://tor.anothr.com/",
785)             httpsWebsiteMirror => "",
786)             rsyncWebsiteMirror => "",
787)             ftpWebsiteMirror => "",
788)             httpDistMirror => "http://tor.anothr.com/dist/",
789)             httpsDistMirror => "",
790)             rsyncDistMirror => "",
791)             hiddenServiceMirror => "",
792)             updateDate => "Unknown",

793)         },

794) 

795) 	mirror040 => {
796)             adminContact => "",

797)             orgName => "zuola",

798)             isoCC => "CN",
799)             subRegion => "",
800)             region => "CN",
801)             ipv4 => "True",
802)             ipv6 => "False",
803)             loadBalanced => "No",
804)             httpWebsiteMirror => "http://tor.zuo.la/",
805)             httpsWebsiteMirror => "",
806)             rsyncWebsiteMirror => "",
807)             ftpWebsiteMirror => "",
808)             httpDistMirror => "http://tor.zuo.la/dist/",
809)             httpsDistMirror => "",
810)             rsyncDistMirror => "",
811)             hiddenServiceMirror => "",
812)             updateDate => "Unknown",

813)         },
814) 
815) 	mirror041 => {

816)             adminContact => "scream AT nonvocalscream DOT com",

817)             orgName => "NVS",
818)             isoCC => "US",
819)             subRegion => "",
820)             region => "US",
821)             ipv4 => "True",
822)             ipv6 => "False",
823)             loadBalanced => "No",
824)             httpWebsiteMirror => "http://tor.nonvocalscream.com/",

825)             httpsWebsiteMirror => "https://tor.nonvocalscream.com/",

826)             rsyncWebsiteMirror => "",
827)             ftpWebsiteMirror => "",
828)             httpDistMirror => "http://tor.nonvocalscream.com/dist/",

829)             httpsDistMirror => "https://tor.nonvocalscream.com/dist/",

830)             rsyncDistMirror => "",
831)             hiddenServiceMirror => "",
832)             updateDate => "Unknown",

833)         },
834) 

835) 

836) );
837) 
838) my $count = values %m;
839) print "We have a total of $count mirrors\n";
840) print "Fetching the last updated date for each mirror.\n";
841) 

842) my $tortime;
843) $tortime = FetchDate("http://www.torproject.org/");
844) print "The official time for Tor is $tortime. \n";
845) 

846) foreach my $server ( keys %m ) {
847) 
848)     print "Attempting to fetch from $m{$server}{'orgName'}\n";
849) 
850)     if ($m{$server}{'httpWebsiteMirror'}) {
851)         print "Attempt to fetch via HTTP.\n";
852)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpWebsiteMirror'}");
853)     } elsif ($m{$server}{'httpsWebsiteMirror'}) {
854)         print "Attempt to fetch via HTTPS.\n";
855)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpsWebsiteMirror'}");
856)     } elsif ($m{$server}{'ftpWebsiteMirror'}) {
857)         print "Attempt to fetch via FTP.\n";
858)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'ftpWebsiteMirror'}");
859)     } else {
860)         print "We were unable to fetch or store anything. We still have the following: $m{$server}{'updateDate'}\n";
861)     }
862) 
863)     print "We fetched and stored the following: $m{$server}{'updateDate'}\n";
864) 
865)  }
866) 
867) 
868) print "We sorted the following mirrors by their date of last update: \n";
869) foreach my $server ( sort { $m{$b}{'updateDate'} <=> $m{$a}{'updateDate'}} keys %m ) {
870) 
871)      print "\n";
872)      print "Mirror $m{$server}{'orgName'}: \n";
873) 
874)      foreach my $attrib ( sort keys %{$m{$server}} ) {
875)         print "$attrib = $m{$server}{$attrib}";
876)         print "\n";
877)      };
878) }
879) 
880) my $outFile = "include/mirrors-table.wmi";
881) my $html;
882) open(OUT, "> $outFile") or die "Can't open $outFile: $!";
883) 

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

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

888)      my $time;

889)      if ( "$m{$server}{'updateDate'}" ne "Unknown") {
890) 	  if ( "$m{$server}{'updateDate'}" eq "$tortime" ) {

891) 	    $time = "Up to date";
892) 	  } else { $time = "Out of date"; }

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

894) print OUT <<"END";
895)      \n<tr>\n
896)          <td>$m{$server}{'isoCC'}</td>\n
897)          <td>$m{$server}{'orgName'}</td>\n
898)          <td>$time</td>\n
899) END
900) 
901)      my %prettyNames = (
902)                         httpWebsiteMirror => "http",
903)                         httpsWebsiteMirror => "https",
904)                         ftpWebsiteMirror => "ftp",
905)                         rsyncWebsiteMirror => "rsync",
906)                         httpDistMirror => "http",
907)                         httpsDistMirror => "https",
908)                         rsyncDistMirrors => "rsync", );
909) 
910)      foreach my $precious ( sort keys %prettyNames )

911)      {
912)         if ($m{$server}{"$precious"}) {
913)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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