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) #Meulie Configuration error.

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 => "North America",

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://www.oignon.net/dist/",
116)             httpsDistMirror => "https://www.oignon.net/dist/",

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 => "scream AT nonvocalscream DOT com",
483)             orgName => "NVS",
484)             isoCC => "US",
485)             subRegion => "",
486)             region => "US",
487)             ipv4 => "True",
488)             ipv6 => "False",
489)             loadBalanced => "No",
490)             httpWebsiteMirror => "http://tor.nonvocalscream.com/",
491)             httpsWebsiteMirror => "https://tor.nonvocalscream.com/",
492)             rsyncWebsiteMirror => "",
493)             ftpWebsiteMirror => "",
494)             httpDistMirror => "http://tor.nonvocalscream.com/dist/",
495)             httpsDistMirror => "https://tor.nonvocalscream.com/dist/",
496)             rsyncDistMirror => "",
497)             hiddenServiceMirror => "",
498)             updateDate => "Unknown",
499)         },
500) 

501)        mirror025 => {

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

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

511)             rsyncWebsiteMirror => "",

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

516)         },

517) 

518)         mirror026 => {

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

520)             orgName => "Xpdm",

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

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

529)             rsyncWebsiteMirror => "",

530)             ftpWebsiteMirror => "",

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

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

536)         },

537) 

538)         mirror027 => {

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

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

549)             rsyncWebsiteMirror => "",

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

556)         },

557) 

558)         mirror028 => {

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

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

569)             rsyncWebsiteMirror => "",

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

576)         },

577) 

578)         mirror029 => {

579)             adminContact => "",

580)             orgName => "Technica-03",

581)             isoCC => "UA",

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

589)             rsyncWebsiteMirror => "",

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

596)         },

597) 

598) 	mirror030 => {

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

616)         },

617) 

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

631)             httpDistMirror => "",

632)             httpsDistMirror => "",
633)             rsyncDistMirror => "",
634)             hiddenServiceMirror => "",
635)             updateDate => "Unknown",

636)         },

637) 

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

656)         },

657) 

658) 	mirror033 => {
659)             adminContact => "",

660)             orgName => "bullog",

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

676)         },

677) 

678) 	mirror034 => {
679)             adminContact => "",

680)             orgName => "digitip",

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

696)         },

697) 

698) 	mirror035 => {
699)             adminContact => "",

700)             orgName => "shizhao",

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

716)         },

717) 

718) 	mirror036 => {
719)             adminContact => "",

720)             orgName => "ranyunfei",

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

736)         },

737) 

738) 	mirror037 => {
739)             adminContact => "",

740)             orgName => "wuerkaixi",

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

756)         },

757) 

758) 	mirror038 => {
759)             adminContact => "",

760)             orgName => "izaobao",

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

776)         },

777) 

778) 	mirror039 => {
779)             adminContact => "",

780)             orgName => "anothr",

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

796)         },

797) 

798) 	mirror040 => {
799)             adminContact => "",

800)             orgName => "zuola",

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

816)         },
817) 
818) 	mirror041 => {
819)             adminContact => "BarkerJr AT barkerjr DOT net",
820)             orgName => "BarkerJr",
821)             isoCC => "US",
822)             subRegion => "",
823)             region => "US",
824)             ipv4 => "True",
825)             ipv6 => "False",
826)             loadBalanced => "No",
827)             httpWebsiteMirror => "",
828)             httpsWebsiteMirror => "",
829)             rsyncWebsiteMirror => "",
830)             ftpWebsiteMirror => "",
831)             httpDistMirror => "http://tor.dontdraft.us/dist/",
832)             httpsDistMirror => "",
833)             rsyncDistMirror => "",
834)             hiddenServiceMirror => "",
835)             updateDate => "Unknown",

836)         }

837) 

838) 

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

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

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

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

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

891)      my $time;

892)      if ( "$m{$server}{'updateDate'}" ne "Unknown") {
893) 	  if ( "$m{$server}{'updateDate'}" eq "$tortime" ) {

894) 	    $time = "Up to date";
895) 	  } else { $time = "Out of date"; }

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

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

914)      {
915)         if ($m{$server}{"$precious"}) {
916)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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