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) #Kamagurka TIMOUTS (Should be up in about a week)

17) #

18) #CHANGELOG
19) #20091003 Code changes to elimiate the need for a trailing slash in addresses for script runtime

20) #20091004 Code changes to increase out of date tolerance to 48 hours

21) #

22) 

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

26)     timeout => 15,

27)     agent => "Tor MirrorCheck Agent"
28) );
29) 
30) sub sanitize {
31)     my $taintedData = shift;
32)     my $cleanedData;
33)     my $whitelist = '-a-zA-Z0-9: +';
34) 
35)     # clean the data, return cleaned data
36)     $taintedData =~ s/[^$whitelist]//go;
37)     $cleanedData = $taintedData;
38) 
39)     return $cleanedData;
40) }
41) 
42) sub FetchDate {
43)     my $url = shift; # Base url for mirror

44)     my $trace = "/project/trace/www.torproject.org"; # Location of recent update info

45)     $url = "$url$trace";
46) 
47)     print "Fetching possible date from: $url\n";
48) 
49)     my $request = new HTTP::Request GET => "$url";
50)     my $result = $lua->request($request);

51)     my $code = $result->code();
52)     print "Result code $code\n";

53) 

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

55)        my $taint = $result->content;
56)        my $content = sanitize($taint);
57)        if ($content) {

58) 

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

73) 

74)     } else {
75)        print "Our request failed, we had no result.\n";
76)        return "Unknown";
77)     }

78) 
79)     return "Unknown";

80) }
81) 
82) # This is the list of all known Tor mirrors
83) # Add new mirrors to the bottom!

84) my %m = (
85)         mirror000 => {
86)             adminContact => "tor AT goodeid DOT com",

87)             orgName => "Goodeid",

88)             isoCC => "CA",

89)             subRegion => "",

90)             region => "North America",

91)             ipv4 => "True",
92)             ipv6 => "False",
93)             loadBalanced => "No",

94)             httpWebsiteMirror => "http://tor-node.goodeid.com:8081/",
95)             httpsWebsiteMirror => "https://tor-node.goodeid.com:8444/",

96)             rsyncWebsiteMirror => "",
97)             ftpWebsiteMirror => "",

98)             httpDistMirror => "http://tor-node.goodeid.com:8081/dist/",
99)             httpsDistMirror => "https://tor-node.goodeid.com:8444/dist/
100) 
101) ",

102)             rsyncDistMirror => "",
103)             hiddenServiceMirror => "",
104)             updateDate => "Unknown",
105)         },
106) 

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

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

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

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

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

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

127)        mirror002 => {

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

129)             orgName => "Hermetix",

130)             isoCC => "CA",
131)             subRegion => "QC",
132)             region => "North America",
133)             ipv4 => "True",
134)             ipv6 => "False",
135)             loadBalanced => "Unknown",
136)             httpWebsiteMirror => "http://tor.hermetix.org/",
137)             rsyncWebsiteMirror => "",

138)             httpDistMirror => "",

139)             rsyncDistMirror => "",

140)             updateDate => "Unknown",

141)         },
142) 
143)        mirror003 => {

144)             adminContact => "",

145)             orgName => "Boinc",

146)             isoCC => "CH",
147)             subRegion => "",
148)             region => "Europe",
149)             ipv4 => "True",
150)             ipv6 => "False",
151)             loadBalanced => "Unknown",
152)             httpWebsiteMirror => "http://tor.boinc.ch/",
153)             ftpWebsiteMirror => "",
154)             rsyncWebsiteMirror => "",
155)             httpDistMirror => "http://tor.boinc.ch/dist/",
156)             rsyncDistMirror => "",

157)             updateDate => "Unknown",

158)         },
159) 

160) 	mirror004 => {
161)             adminContact => "",
162)             orgName => "anothr",
163)             isoCC => "CN",
164)             subRegion => "",
165)             region => "CN",
166)             ipv4 => "True",
167)             ipv6 => "False",
168)             loadBalanced => "No",
169)             httpWebsiteMirror => "http://tor.anothr.com/",
170)             httpsWebsiteMirror => "",
171)             rsyncWebsiteMirror => "",
172)             ftpWebsiteMirror => "",
173)             httpDistMirror => "http://tor.anothr.com/dist/",
174)             httpsDistMirror => "",
175)             rsyncDistMirror => "",
176)             hiddenServiceMirror => "",
177)             updateDate => "Unknown",
178)         },
179) 

180)        mirror005 => {

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

182)             orgName => "Bbs",

183)             isoCC => "DE",
184)             subRegion => "",
185)             region => "Europe",
186)             ipv4 => "True",
187)             ipv6 => "False",
188)             loadBalanced => "Unknown",
189)             httpWebsiteMirror => "http://tor.blingblingsquad.net/",
190)             ftpWebsiteMirror => "",
191)             rsyncWebsiteMirror => "",

192)             httpDistMirror => "",

193)             rsyncDistMirror => "",

194)             updateDate => "Unknown",

195)         },
196) 

197)        mirror006 => {

198)             adminContact => "doc DOT kuehn AT nexgo DOT de",
199)             orgName => " spacecowboy ",
200)             isoCC => " ",

201)             subRegion => "",

202)             region => "DE",

203)             ipv4 => "True",
204)             ipv6 => "False",

205)             loadBalanced => "No",
206)             httpWebsiteMirror => "http://tor-proxy.de/tor-mirror/",
207)             httpsWebsiteMirror => "https://tor-proxy.de/tor-mirror/",

208)             rsyncWebsiteMirror => "",

209)             ftpWebsiteMirror => "",
210)             httpDistMirror => "http://tor-proxy.de/tor-mirror/dist/",
211)             httpsDistMirror => "https://tor-proxy.de/tor-mirror/dist/",

212)             rsyncDistMirror => "",

213)             hiddenServiceMirror => "",

214)             updateDate => "Unknown",
215)         },

216) 

217)        mirror007 => {

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

219)             orgName => "Cybermirror",

220)             isoCC => "DE",
221)             subRegion => "",
222)             region => "Europe",
223)             ipv4 => "True",
224)             ipv6 => "False",
225)             loadBalanced => "Unknown",
226)             httpWebsiteMirror => "http://tor.cybermirror.org/",
227)             ftpWebsiteMirror => "",
228)             rsyncWebsiteMirror => "",
229)             httpDistMirror => "http://tor.cybermirror.org/dist/",
230)             rsyncDistMirror => "",

231)             updateDate => "Unknown",

232)         },
233) 

234)        mirror008 => {

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

236)             orgName => "Spline",
237)             isoCC => "DE",
238)             subRegion => "FU",
239)             region => "Europe",
240)             ipv4 => "True",
241)             ipv6 => "False",
242)             loadBalanced => "Unknown",

243)             httpWebsiteMirror => "",

244)             ftpWebsiteMirror => "",
245)             rsyncWebsiteMirror => "",

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

247)             rsyncDistMirror => "",

248)             updateDate => "Unknown",

249)         },
250) 

251) 	mirror009 => {
252)             adminContact => "BarkerJr AT barkerjr DOT net",
253)             orgName => "BarkerJr",
254)             isoCC => "US",
255)             subRegion => "",
256)             region => "US",
257)             ipv4 => "True",
258)             ipv6 => "False",
259)             loadBalanced => "No",

260)             httpWebsiteMirror => "http://www.cebolla.us/",
261)             httpsWebsiteMirror => "https://www.cebolla.us/",

262)             rsyncWebsiteMirror => "",
263)             ftpWebsiteMirror => "",
264)             httpDistMirror => "http://www.cebolla.us/dist/",
265)             httpsDistMirror => "https://www.cebolla.us/dist/",
266)             rsyncDistMirror => "",
267)             hiddenServiceMirror => "",
268)             updateDate => "Unknown",
269)         },
270) 
271) 	mirror010 => {
272)             adminContact => "",
273)             orgName => "zuola",
274)             isoCC => "CN",
275)             subRegion => "",
276)             region => "CN",
277)             ipv4 => "True",
278)             ipv6 => "False",
279)             loadBalanced => "No",
280)             httpWebsiteMirror => "http://tor.zuo.la/",
281)             httpsWebsiteMirror => "",
282)             rsyncWebsiteMirror => "",
283)             ftpWebsiteMirror => "",
284)             httpDistMirror => "http://tor.zuo.la/dist/",
285)             httpsDistMirror => "",
286)             rsyncDistMirror => "",
287)             hiddenServiceMirror => "",
288)             updateDate => "Unknown",
289)         },
290) 

291)        mirror011 => {

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

293)             orgName => "Zentrum der Gesundheit",

294)             isoCC => "DK",
295)             subRegion => "",
296)             region => "Europe",
297)             ipv4 => "True",
298)             ipv6 => "False",
299)             loadBalanced => "Unknown",

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

301)             ftpWebsiteMirror => "",

302)             rsyncWebsiteMirror => "",

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

304)             rsyncDistMirror => "",

305)             updateDate => "Unknown",

306)         },
307) 

308)        mirror012 => {

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

310)             orgName => "CRAN",
311)             isoCC => "FR",

312)             subRegion => "Ile de France",

313)             region => "Europe",
314)             ipv4 => "True",
315)             ipv6 => "False",
316)             loadBalanced => "Unknown",

317)             httpWebsiteMirror => "",

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

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

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

321)             rsyncDistMirror => "",

322)             updateDate => "Unknown",

323)         },
324) 

325)        mirror013 => {

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

327)             orgName => "Amorphis",

328)             isoCC => "NL",
329)             subRegion => "",
330)             region => "Europe",
331)             ipv4 => "True",
332)             ipv6 => "False",
333)             loadBalanced => "Unknown",
334)             httpWebsiteMirror => "http://tor.amorphis.eu/",

335)             rsyncWebsiteMirror => "",

336)             ftpWebsiteMirror => "",
337)             httpDistMirror => "http://tor.amorphis.eu/dist/",
338)             rsyncDistMirror => "",

339)             updateDate => "Unknown",

340)         },
341) 

342)        mirror014 => {

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

344)             orgName => "BIT BV",
345)             isoCC => "NL",
346)             subRegion => "",
347)             region => "Europe",
348)             ipv4 => "True",
349)             ipv6 => "False",
350)             loadBalanced => "Unknown",

351)             httpWebsiteMirror => "",

352)             rsyncWebsiteMirror => "",

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

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

355)             rsyncDistMirror => "",

356)             updateDate => "Unknown",

357)         },
358) 

359)        mirror015 => {

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

361)             orgName => "CCC",
362)             isoCC => "NL",
363)             subRegion => "",
364)             region => "Europe",
365)             ipv4 => "True",
366)             ipv6 => "False",
367)             loadBalanced => "Unknown",
368)             httpWebsiteMirror => "http://tor.ccc.de/",

369)             rsyncWebsiteMirror => "",

370)             ftpWebsiteMirror => "",
371)             httpDistMirror => "http://tor.ccc.de/dist/",
372)             rsyncDistMirror => "",

373)             updateDate => "Unknown",

374)         },
375) 

376)        mirror016 => {

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

378)             orgName => "Kamagurka",

379)             isoCC => "NL",
380)             subRegion => "Haarlem",
381)             region => "Europe",
382)             ipv4 => "True",
383)             ipv6 => "False",
384)             loadBalanced => "Unknown",
385)             httpWebsiteMirror => "http://tor.kamagurka.org/",

386)             rsyncWebsiteMirror => "",

387)             ftpWebsiteMirror => "",
388)             httpDistMirror => "http://tor.kamagurka.org/dist/",
389)             rsyncDistMirror => "",

390)             updateDate => "Unknown",

391)         },
392) 

393)        mirror018 => {

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

395)             orgName => "Meulie",

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

402)             httpWebsiteMirror => "",

403)             rsyncWebsiteMirror => "",

404)             ftpWebsiteMirror => "",

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

406)             rsyncDistMirror => "",

407)             updateDate => "Unknown",

408)         },
409) 

410)        mirror019 => {

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

412)             orgName => "Ghirai",

413)             isoCC => "UK",
414)             subRegion => "London",
415)             region => "Europe",
416)             ipv4 => "True",
417)             ipv6 => "False",
418)             loadBalanced => "Unknown",

419)             httpWebsiteMirror => "",

420)             rsyncWebsiteMirror => "",

421)             ftpWebsiteMirror => "",

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

423)             rsyncDistMirror => "",

424)             updateDate => "Unknown",

425)         },
426) 

427) 	mirror020 => {
428)             adminContact => "",
429)             orgName => "ax",
430)             isoCC => "DE",
431)             subRegion => "",
432)             region => "DE",
433)             ipv4 => "True",
434)             ipv6 => "False",
435)             loadBalanced => "No",
436)             httpWebsiteMirror => "",
437)             httpsWebsiteMirror => "",
438)             rsyncWebsiteMirror => "",
439)             ftpWebsiteMirror => "",
440)             httpDistMirror => "http://tor.initrd.net/dist/",
441)             httpsDistMirror => "",
442)             rsyncDistMirror => "",
443)             hiddenServiceMirror => "",
444)             updateDate => "Unknown",
445)         },
446) 

447)        mirror021 => {

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

449)             orgName => "TheOnionRouter",

450)             isoCC => "US",

451)             subRegion => "New Jersey",

452)             region => "North America",
453)             ipv4 => "True",
454)             ipv6 => "False",
455)             loadBalanced => "Unknown",
456)             httpWebsiteMirror => "http://www.theonionrouter.com/",

457)             rsyncWebsiteMirror => "",

458)             ftpWebsiteMirror => "",
459)             httpDistMirror => "http://www.theonionrouter.com/dist/",
460)             rsyncDistMirror => "",

461)             updateDate => "Unknown",

462)         },
463) 

464)        mirror022 => {

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

466)             orgName => "Unfix",

467)             isoCC => "CH",
468)             subRegion => "",
469)             region => "Europe",
470)             ipv4 => "True",
471)             ipv6 => "True",
472)             loadBalanced => "Unknown",
473)             httpWebsiteMirror => "http://tor.unfix.org/",

474)             rsyncWebsiteMirror => "",

475)             ftpWebsiteMirror => "",

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

477)             rsyncDistMirror => "",

478)             updateDate => "Unknown",

479)         },
480) 

481)        mirror023 => {

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

483)             orgName => "Sixx",

484)             isoCC => "CH",

485)             subRegion => "",
486)             region => "Europe",
487)             ipv4 => "True",
488)             ipv6 => "True",
489)             loadBalanced => "Unknown",
490)             httpWebsiteMirror => "http://tor.sixxs.net/",

491)             rsyncWebsiteMirror => "",

492)             ftpWebsiteMirror => "",

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

494)             rsyncDistMirror => "",

495)             updateDate => "Unknown",

496)         },

497) 

498) 	mirror024 => {

499)             adminContact => "",
500)             orgName => "izaobao",
501)             isoCC => "CN",

502)             subRegion => "",

503)             region => "CN",

504)             ipv4 => "True",
505)             ipv6 => "False",
506)             loadBalanced => "No",

507)             httpWebsiteMirror => "http://tor.izaobao.com/",
508)             httpsWebsiteMirror => "",

509)             rsyncWebsiteMirror => "",
510)             ftpWebsiteMirror => "",

511)             httpDistMirror => "http://tor.izaobao.com/dist/",
512)             httpsDistMirror => "",

513)             rsyncDistMirror => "",
514)             hiddenServiceMirror => "",
515)             updateDate => "Unknown",
516)         },
517) 

518)        mirror025 => {

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

520)             orgName => "Wiretapped",
521)             isoCC => "AU",
522)             subRegion => "Sydney",
523)             region => "Oceania",
524)             ipv4 => "True",
525)             ipv6 => "False",
526)             loadBalanced => "Unknown",
527)             httpWebsiteMirror => "",

528)             rsyncWebsiteMirror => "",

529)             ftpWebsiteMirror => "ftp://ftp.mirrors.wiretapped.net/pub/security/cryptography/network/tor/",
530)             httpDistMirror => "http://www.mirrors.wiretapped.net/security/cryptography/network/tor/",
531)             rsyncDistMirror => "",
532)             updateDate => "Unknown",

533)         },

534) 

535)         mirror026 => {

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

537)             orgName => "Xpdm",

538)             isoCC => "US",
539)             subRegion => "",
540)             region => "North America",
541)             ipv4 => "True",
542)             ipv6 => "False",
543)             loadBalanced => "Unknown",
544)             httpWebsiteMirror => "http://torproj.xpdm.us/",

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

546)             rsyncWebsiteMirror => "",

547)             ftpWebsiteMirror => "",

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

550)             rsyncDistMirror => "",
551)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
552)             updateDate => "Unknown",

553)         },

554) 

555)         mirror027 => {

556)             adminContact => "",
557)             orgName => " cybervalley ",
558)             isoCC => " ",
559)             subRegion => "",
560)             region => " ",

561)             ipv4 => "True",
562)             ipv6 => "False",
563)             loadBalanced => "No",

564)             httpWebsiteMirror => "http://torproject.cybervalley.org/",

565)             httpsWebsiteMirror => "",

566)             rsyncWebsiteMirror => "",

567)             ftpWebsiteMirror => "",

568)             httpDistMirror => "",

569)             httpsDistMirror => "",
570)             rsyncDistMirror => "",
571)             hiddenServiceMirror => "",
572)             updateDate => "Unknown",

573)         },

574) 

575)         mirror028 => {

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

577)             orgName => "Unknown",
578)             isoCC => "HU",
579)             subRegion => "Hungary",
580)             region => "Europe",
581)             ipv4 => "True",
582)             ipv6 => "False",
583)             loadBalanced => "No",

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

585)             httpsWebsiteMirror => "",

586)             rsyncWebsiteMirror => "",

587)             ftpWebsiteMirror => "",

588)             httpDistMirror => "",

589)             httpsDistMirror => "",
590)             rsyncDistMirror => "",
591)             hiddenServiceMirror => "",
592)             updateDate => "Unknown",

593)         },

594) 

595)         mirror029 => {

596)             adminContact => "",

597)             orgName => "Technica-03",

598)             isoCC => "UA",

599)             subRegion => "Ukraine",
600)             region => "Eastern Europe",
601)             ipv4 => "True",
602)             ipv6 => "False",
603)             loadBalanced => "No",
604)             httpWebsiteMirror => "http://torua.reactor-xg.kiev.ua/",
605)             httpsWebsiteMirror => "",

606)             rsyncWebsiteMirror => "",

607)             ftpWebsiteMirror => "",

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

609)             httpsDistMirror => "",
610)             rsyncDistMirror => "",
611)             hiddenServiceMirror => "",
612)             updateDate => "Unknown",

613)         },

614) 

615) 	mirror030 => {

616)             adminContact => "",
617)             orgName => "chaos darmstadt",
618)             isoCC => "DE",
619)             subRegion => "Germany",
620)             region => "Europe",
621)             ipv4 => "True",
622)             ipv6 => "False",
623)             loadBalanced => "No",
624)             httpWebsiteMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/",
625)             httpsWebsiteMirror => "",
626)             rsyncWebsiteMirror => "",
627)             ftpWebsiteMirror => "",
628)             httpDistMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/dist/",
629)             httpsDistMirror => "",
630)             rsyncDistMirror => "",
631)             hiddenServiceMirror => "",
632)             updateDate => "Unknown",

633)         },

634) 

635) 	mirror031 => {

636)             adminContact => "webmaster AT askapache DOT com",
637)             orgName => "AskApache",

638)             isoCC => "US",
639)             subRegion => "California",
640)             region => "US",
641)             ipv4 => "True",
642)             ipv6 => "False",
643)             loadBalanced => "No",
644)             httpWebsiteMirror => "http://tor.askapache.com/",
645)             httpsWebsiteMirror => "",
646)             rsyncWebsiteMirror => "",
647)             ftpWebsiteMirror => "",

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

649)             httpsDistMirror => "",
650)             rsyncDistMirror => "",
651)             hiddenServiceMirror => "",
652)             updateDate => "Unknown",

653)         },

654) 

655) 	mirror032 => {
656)             adminContact => "",
657)             orgName => "I'm on the roof",
658)             isoCC => "US",
659)             subRegion => "",
660)             region => "US",
661)             ipv4 => "True",
662)             ipv6 => "False",
663)             loadBalanced => "No",
664)             httpWebsiteMirror => "http://mirror.imontheroof.com/tor-mirror/",
665)             httpsWebsiteMirror => "",
666)             rsyncWebsiteMirror => "",
667)             ftpWebsiteMirror => "",
668)             httpDistMirror => "http://mirror.imontheroof.com/tor-mirror/dist/",
669)             httpsDistMirror => "",
670)             rsyncDistMirror => "",
671)             hiddenServiceMirror => "",
672)             updateDate => "Unknown",

673)         },

674) 

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

677)             orgName => "bullog",

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

693)         },

694) 

695) 	mirror034 => {

696)             adminContact => " mail AT benjamin-meier DOT info ",
697)             orgName => "beme it",
698)             isoCC => " ",

699)             subRegion => "",

700)             region => "DE",

701)             ipv4 => "True",
702)             ipv6 => "False",
703)             loadBalanced => "No",

704)             httpWebsiteMirror => "http://tor.beme-it.de/",
705)             httpsWebsiteMirror => "https://tor.beme-it.de/",

706)             rsyncWebsiteMirror => "",
707)             ftpWebsiteMirror => "",

708)             httpDistMirror => "http://tor.beme-it.de/dist/",
709)             httpsDistMirror => "https://tor.beme-it.de/dist/",

710)             rsyncDistMirror => "",
711)             hiddenServiceMirror => "",
712)             updateDate => "Unknown",

713)         },

714) 

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

717)             orgName => "shizhao",

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

733)         },

734) 

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

737)             orgName => "ranyunfei",

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

753)         },

754) 

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

757)             orgName => "wuerkaixi",

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

773)         },

774) 
775)         mirror038 => {
776)             adminContact => "",
777)             orgName => "",
778)             isoCC => "IN",
779)             subRegion => "",
780)             region => "IN",
781)             ipv4 => "True",
782)             ipv6 => "False",
783)             loadBalanced => "No",
784)             httpWebsiteMirror => "http://www.torproject.org.in",
785)             httpsWebsiteMirror => "",
786)             rsyncWebsiteMirror => "",
787)             ftpWebsiteMirror => "",
788)             httpDistMirror => "http://www.torproject.org.in/dist/",
789)             httpsDistMirror => "",
790)             rsyncDistMirror => "",
791)             hiddenServiceMirror => "",
792)             updateDate => "Unknown",
793)         },
794) 
795)         mirror039 => {
796)             adminContact => "",
797)             orgName => "",
798)             isoCC => "LU",
799)             subRegion => "",
800)             region => "LU",
801)             ipv4 => "True",
802)             ipv6 => "False",
803)             loadBalanced => "No",
804)             httpWebsiteMirror => "http://tor.idnr.at",
805)             httpsWebsiteMirror => "",
806)             rsyncWebsiteMirror => "",
807)             ftpWebsiteMirror => "",

808)             httpDistMirror => "http://tor.idnr.at/dist",

809)             httpsDistMirror => "",
810)             rsyncDistMirror => "",

811)             hiddenServiceMirror => "",
812)         },
813) 
814)         mirror040 => {
815)             adminContact => "",

816)             orgName => "StrangeCharm",
817)             isoCC => "",

818)             subRegion => "",

819)             region => "FR",

820)             ipv4 => "True",
821)             ipv6 => "False",
822)             loadBalanced => "No",
823)             httpWebsiteMirror => "http://torproject.the-onion-router.net/",
824)             httpsWebsiteMirror => "",
825)             rsyncWebsiteMirror => "",
826)             ftpWebsiteMirror => "",
827)             httpDistMirror => "http://torproject.the-onion-router.net/dist",
828)             httpsDistMirror => "",
829)             rsyncDistMirror => "",

830)             hiddenServiceMirror => "",
831)         },
832) 

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

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

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

842) $tortime -= 1 * 172800; 

843) print "The official time for Tor is $tortime. \n";
844) 

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

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

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

887)      my $time;

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

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

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

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

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

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

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