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) # http://tor.askapache.com/ HTTP 403 Contacted 20091027

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) #20091028 Code changes to increase timout to 30 seconds (attempting to resolve "unknown" status'

22) #20091028 Code changes to change user agent of script

23) 

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

27)     timeout => 30,

28)     agent => "Tor MirrorCheck Agent"

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

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

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

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

54) 

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

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

59) 

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

74) 

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

79) 
80)     return "Unknown";

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

85) my %m = (
86) 

87)         mirror001 => {
88)             adminContact => "BarkerJr AT barkerjr DOT net",
89)             orgName => "BarkerJr",
90)             isoCC => "FR",
91)             subRegion => "",
92)             region => "FR",
93)             ipv4 => "True",
94)             ipv6 => "False",
95)             loadBalanced => "No",

96)             httpWebsiteMirror => "http://www.oignon.net/",
97)             httpsWebsiteMirror => "https://oignon.net/",

98)             rsyncWebsiteMirror => "",
99)             ftpWebsiteMirror => "",

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

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

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

107)        mirror002 => {

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

109)             orgName => "Hermetix",

110)             isoCC => "CA",
111)             subRegion => "QC",
112)             region => "North America",
113)             ipv4 => "True",
114)             ipv6 => "False",
115)             loadBalanced => "Unknown",
116)             httpWebsiteMirror => "http://tor.hermetix.org/",
117)             rsyncWebsiteMirror => "",

118)             httpDistMirror => "",

119)             rsyncDistMirror => "",

120)             updateDate => "Unknown",

121)         },
122) 
123)        mirror003 => {

124)             adminContact => "",

125)             orgName => "Boinc",

126)             isoCC => "CH",
127)             subRegion => "",
128)             region => "Europe",
129)             ipv4 => "True",
130)             ipv6 => "False",
131)             loadBalanced => "Unknown",
132)             httpWebsiteMirror => "http://tor.boinc.ch/",
133)             ftpWebsiteMirror => "",
134)             rsyncWebsiteMirror => "",
135)             httpDistMirror => "http://tor.boinc.ch/dist/",
136)             rsyncDistMirror => "",

137)             updateDate => "Unknown",

138)         },
139) 

140) 	mirror004 => {
141)             adminContact => "",
142)             orgName => "anothr",
143)             isoCC => "CN",
144)             subRegion => "",
145)             region => "CN",
146)             ipv4 => "True",
147)             ipv6 => "False",
148)             loadBalanced => "No",
149)             httpWebsiteMirror => "http://tor.anothr.com/",
150)             httpsWebsiteMirror => "",
151)             rsyncWebsiteMirror => "",
152)             ftpWebsiteMirror => "",
153)             httpDistMirror => "http://tor.anothr.com/dist/",
154)             httpsDistMirror => "",
155)             rsyncDistMirror => "",
156)             hiddenServiceMirror => "",
157)             updateDate => "Unknown",
158)         },
159) 

160)        mirror005 => {

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

162)             orgName => "Bbs",

163)             isoCC => "DE",
164)             subRegion => "",
165)             region => "Europe",
166)             ipv4 => "True",
167)             ipv6 => "False",
168)             loadBalanced => "Unknown",
169)             httpWebsiteMirror => "http://tor.blingblingsquad.net/",
170)             ftpWebsiteMirror => "",
171)             rsyncWebsiteMirror => "",

172)             httpDistMirror => "",

173)             rsyncDistMirror => "",

174)             updateDate => "Unknown",

175)         },
176) 

177)        mirror006 => {

178)             adminContact => "doc DOT kuehn AT nexgo DOT de",
179)             orgName => " spacecowboy ",
180)             isoCC => " ",

181)             subRegion => "",

182)             region => "DE",

183)             ipv4 => "True",
184)             ipv6 => "False",

185)             loadBalanced => "No",
186)             httpWebsiteMirror => "http://tor-proxy.de/tor-mirror/",
187)             httpsWebsiteMirror => "https://tor-proxy.de/tor-mirror/",

188)             rsyncWebsiteMirror => "",

189)             ftpWebsiteMirror => "",
190)             httpDistMirror => "http://tor-proxy.de/tor-mirror/dist/",
191)             httpsDistMirror => "https://tor-proxy.de/tor-mirror/dist/",

192)             rsyncDistMirror => "",

193)             hiddenServiceMirror => "",

194)             updateDate => "Unknown",
195)         },

196) 

197)        mirror007 => {

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

199)             orgName => "Cybermirror",

200)             isoCC => "DE",
201)             subRegion => "",
202)             region => "Europe",
203)             ipv4 => "True",
204)             ipv6 => "False",
205)             loadBalanced => "Unknown",
206)             httpWebsiteMirror => "http://tor.cybermirror.org/",
207)             ftpWebsiteMirror => "",
208)             rsyncWebsiteMirror => "",
209)             httpDistMirror => "http://tor.cybermirror.org/dist/",
210)             rsyncDistMirror => "",

211)             updateDate => "Unknown",

212)         },
213) 

214)        mirror008 => {

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

216)             orgName => "Spline",
217)             isoCC => "DE",
218)             subRegion => "FU",
219)             region => "Europe",
220)             ipv4 => "True",
221)             ipv6 => "False",
222)             loadBalanced => "Unknown",

223)             httpWebsiteMirror => "",

224)             ftpWebsiteMirror => "",
225)             rsyncWebsiteMirror => "",

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

227)             rsyncDistMirror => "",

228)             updateDate => "Unknown",

229)         },
230) 

231) 	mirror009 => {
232)             adminContact => "BarkerJr AT barkerjr DOT net",
233)             orgName => "BarkerJr",
234)             isoCC => "US",
235)             subRegion => "",
236)             region => "US",
237)             ipv4 => "True",
238)             ipv6 => "False",
239)             loadBalanced => "No",

240)             httpWebsiteMirror => "http://www.torproject.us/",
241)             httpsWebsiteMirror => "https://www.torproject.us/",

242)             rsyncWebsiteMirror => "",
243)             ftpWebsiteMirror => "",

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

246)             rsyncDistMirror => "",
247)             hiddenServiceMirror => "",
248)             updateDate => "Unknown",
249)         },
250) 
251) 	mirror010 => {
252)             adminContact => "",
253)             orgName => "zuola",
254)             isoCC => "CN",
255)             subRegion => "",
256)             region => "CN",
257)             ipv4 => "True",
258)             ipv6 => "False",
259)             loadBalanced => "No",
260)             httpWebsiteMirror => "http://tor.zuo.la/",
261)             httpsWebsiteMirror => "",
262)             rsyncWebsiteMirror => "",
263)             ftpWebsiteMirror => "",
264)             httpDistMirror => "http://tor.zuo.la/dist/",
265)             httpsDistMirror => "",
266)             rsyncDistMirror => "",
267)             hiddenServiceMirror => "",
268)             updateDate => "Unknown",
269)         },
270) 

271)        mirror011 => {

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

273)             orgName => "Zentrum der Gesundheit",

274)             isoCC => "DK",
275)             subRegion => "",
276)             region => "Europe",
277)             ipv4 => "True",
278)             ipv6 => "False",
279)             loadBalanced => "Unknown",

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

281)             ftpWebsiteMirror => "",

282)             rsyncWebsiteMirror => "",

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

284)             rsyncDistMirror => "",

285)             updateDate => "Unknown",

286)         },
287) 

288)        mirror012 => {

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

290)             orgName => "CRAN",
291)             isoCC => "FR",

292)             subRegion => "Ile de France",

293)             region => "Europe",
294)             ipv4 => "True",
295)             ipv6 => "False",
296)             loadBalanced => "Unknown",

297)             httpWebsiteMirror => "",

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

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

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

301)             rsyncDistMirror => "",

302)             updateDate => "Unknown",

303)         },
304) 

305)        mirror013 => {

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

307)             orgName => "Amorphis",

308)             isoCC => "NL",
309)             subRegion => "",
310)             region => "Europe",
311)             ipv4 => "True",
312)             ipv6 => "False",
313)             loadBalanced => "Unknown",
314)             httpWebsiteMirror => "http://tor.amorphis.eu/",

315)             rsyncWebsiteMirror => "",

316)             ftpWebsiteMirror => "",
317)             httpDistMirror => "http://tor.amorphis.eu/dist/",
318)             rsyncDistMirror => "",

319)             updateDate => "Unknown",

320)         },
321) 

322)        mirror014 => {

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

324)             orgName => "BIT BV",
325)             isoCC => "NL",
326)             subRegion => "",
327)             region => "Europe",
328)             ipv4 => "True",
329)             ipv6 => "False",
330)             loadBalanced => "Unknown",

331)             httpWebsiteMirror => "",

332)             rsyncWebsiteMirror => "",

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

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

335)             rsyncDistMirror => "",

336)             updateDate => "Unknown",

337)         },
338) 

339)        mirror015 => {

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

341)             orgName => "CCC",
342)             isoCC => "NL",
343)             subRegion => "",
344)             region => "Europe",
345)             ipv4 => "True",
346)             ipv6 => "False",
347)             loadBalanced => "Unknown",
348)             httpWebsiteMirror => "http://tor.ccc.de/",

349)             rsyncWebsiteMirror => "",

350)             ftpWebsiteMirror => "",
351)             httpDistMirror => "http://tor.ccc.de/dist/",
352)             rsyncDistMirror => "",

353)             updateDate => "Unknown",

354)         },
355) 

356)        mirror016 => {

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

358)             orgName => "Kamagurka",

359)             isoCC => "NL",
360)             subRegion => "Haarlem",
361)             region => "Europe",
362)             ipv4 => "True",
363)             ipv6 => "False",
364)             loadBalanced => "Unknown",
365)             httpWebsiteMirror => "http://tor.kamagurka.org/",

366)             rsyncWebsiteMirror => "",

367)             ftpWebsiteMirror => "",
368)             httpDistMirror => "http://tor.kamagurka.org/dist/",
369)             rsyncDistMirror => "",

370)             updateDate => "Unknown",

371)         },
372) 

373)        mirror018 => {

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

375)             orgName => "Meulie",

376)             isoCC => "NO",
377)             subRegion => "",
378)             region => "Europe",
379)             ipv4 => "True",
380)             ipv6 => "False",
381)             loadBalanced => "Unknown",

382)             httpWebsiteMirror => "",

383)             rsyncWebsiteMirror => "",

384)             ftpWebsiteMirror => "",

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

386)             rsyncDistMirror => "",

387)             updateDate => "Unknown",

388)         },
389) 

390)        mirror019 => {

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

392)             orgName => "Ghirai",

393)             isoCC => "UK",
394)             subRegion => "London",
395)             region => "Europe",
396)             ipv4 => "True",
397)             ipv6 => "False",
398)             loadBalanced => "Unknown",

399)             httpWebsiteMirror => "",

400)             rsyncWebsiteMirror => "",

401)             ftpWebsiteMirror => "",

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

403)             rsyncDistMirror => "",

404)             updateDate => "Unknown",

405)         },
406) 

407) 	mirror020 => {
408)             adminContact => "",
409)             orgName => "ax",

410)             isoCC => "HU",

411)             subRegion => "",

412)             region => "HU",

413)             ipv4 => "True",
414)             ipv6 => "False",
415)             loadBalanced => "No",
416)             httpWebsiteMirror => "",
417)             httpsWebsiteMirror => "",
418)             rsyncWebsiteMirror => "",
419)             ftpWebsiteMirror => "",
420)             httpDistMirror => "http://tor.initrd.net/dist/",
421)             httpsDistMirror => "",
422)             rsyncDistMirror => "",
423)             hiddenServiceMirror => "",
424)             updateDate => "Unknown",
425)         },
426) 

427)        mirror021 => {

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

429)             orgName => "TheOnionRouter",

430)             isoCC => "US",

431)             subRegion => "New Jersey",

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

437)             rsyncWebsiteMirror => "",

438)             ftpWebsiteMirror => "",
439)             httpDistMirror => "http://www.theonionrouter.com/dist/",
440)             rsyncDistMirror => "",

441)             updateDate => "Unknown",

442)         },
443) 

444)        mirror022 => {

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

446)             orgName => "Unfix",

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

454)             rsyncWebsiteMirror => "",

455)             ftpWebsiteMirror => "",

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

457)             rsyncDistMirror => "",

458)             updateDate => "Unknown",

459)         },
460) 

461)        mirror023 => {

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

463)             orgName => "Sixx",

464)             isoCC => "CH",

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

471)             rsyncWebsiteMirror => "",

472)             ftpWebsiteMirror => "",

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

474)             rsyncDistMirror => "",

475)             updateDate => "Unknown",

476)         },

477) 

478)        mirror024 => {

479)             adminContact => "",

480)             orgName => "StrangeCharm",
481)             isoCC => "",

482)             subRegion => "",

483)             region => "FR",

484)             ipv4 => "True",
485)             ipv6 => "False",
486)             loadBalanced => "No",

487)             httpWebsiteMirror => "http://torproject.the-onion-router.net/",

488)             httpsWebsiteMirror => "",

489)             rsyncWebsiteMirror => "",
490)             ftpWebsiteMirror => "",

491)             httpDistMirror => "http://torproject.the-onion-router.net/dist/",

492)             httpsDistMirror => "",

493)             rsyncDistMirror => "",
494)             hiddenServiceMirror => "",
495)         },
496) 

497)        mirror025 => {

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

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

507)             rsyncWebsiteMirror => "",

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

512)         },

513) 

514)         mirror026 => {

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

516)             orgName => "Xpdm",

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

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

525)             rsyncWebsiteMirror => "",

526)             ftpWebsiteMirror => "",

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

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

532)         },

533) 

534)         mirror027 => {

535)             adminContact => "",
536)             orgName => " cybervalley ",
537)             isoCC => " ",
538)             subRegion => "",
539)             region => " ",

540)             ipv4 => "True",
541)             ipv6 => "False",
542)             loadBalanced => "No",

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

544)             httpsWebsiteMirror => "",

545)             rsyncWebsiteMirror => "",

546)             ftpWebsiteMirror => "",

547)             httpDistMirror => "",

548)             httpsDistMirror => "",
549)             rsyncDistMirror => "",
550)             hiddenServiceMirror => "",
551)             updateDate => "Unknown",

552)         },

553) 

554)         mirror028 => {

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

556)             orgName => "Unknown",
557)             isoCC => "HU",
558)             subRegion => "Hungary",
559)             region => "Europe",
560)             ipv4 => "True",
561)             ipv6 => "False",
562)             loadBalanced => "No",

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

564)             httpsWebsiteMirror => "",

565)             rsyncWebsiteMirror => "",

566)             ftpWebsiteMirror => "",

567)             httpDistMirror => "",

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

572)         },

573) 

574)         mirror029 => {

575)             adminContact => "",

576)             orgName => "Technica-03",

577)             isoCC => "UA",

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

585)             rsyncWebsiteMirror => "",

586)             ftpWebsiteMirror => "",

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

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

592)         },

593) 

594) 	mirror030 => {

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

612)         },

613) 

614) 	mirror031 => {

615)             adminContact => "webmaster AT askapache DOT com",
616)             orgName => "AskApache",

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

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

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

632)         },

633) 

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

652)         },

653) 

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

656)             orgName => "bullog",

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

672)         },

673) 

674) 	mirror034 => {

675)             adminContact => " mail AT benjamin-meier DOT info ",
676)             orgName => "beme it",
677)             isoCC => " ",

678)             subRegion => "",

679)             region => "DE",

680)             ipv4 => "True",
681)             ipv6 => "False",
682)             loadBalanced => "No",

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

684)             httpsWebsiteMirror => "",

685)             rsyncWebsiteMirror => "",
686)             ftpWebsiteMirror => "",

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

688)             httpsDistMirror => "",

689)             rsyncDistMirror => "",
690)             hiddenServiceMirror => "",
691)             updateDate => "Unknown",

692)         },

693) 

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

696)             orgName => "shizhao",

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

712)         },

713) 

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

716)             orgName => "ranyunfei",

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

732)         },

733) 

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

736)             orgName => "wuerkaixi",

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

752)         },

753) 
754)         mirror038 => {
755)             adminContact => "",
756)             orgName => "",
757)             isoCC => "IN",
758)             subRegion => "",
759)             region => "IN",
760)             ipv4 => "True",
761)             ipv6 => "False",
762)             loadBalanced => "No",

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

764)             httpsWebsiteMirror => "",
765)             rsyncWebsiteMirror => "",
766)             ftpWebsiteMirror => "",
767)             httpDistMirror => "http://www.torproject.org.in/dist/",
768)             httpsDistMirror => "",
769)             rsyncDistMirror => "",
770)             hiddenServiceMirror => "",
771)             updateDate => "Unknown",
772)         },
773) 
774)         mirror039 => {
775)             adminContact => "",
776)             orgName => "",

777)             isoCC => "AT",

778)             subRegion => "",
779)             region => "LU",
780)             ipv4 => "True",
781)             ipv6 => "False",
782)             loadBalanced => "No",

783)             httpWebsiteMirror => "http://tor.idnr.at/",

784)             httpsWebsiteMirror => "",
785)             rsyncWebsiteMirror => "",
786)             ftpWebsiteMirror => "",

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

788)             httpsDistMirror => "",
789)             rsyncDistMirror => "",

790)             hiddenServiceMirror => "",
791)         },
792) 

793)         mirror040 => {
794)             adminContact => "",
795)             orgName => "NIIF Institute",
796)             isoCC => "HU",
797)             subRegion => "",
798)             region => "HU",
799)             ipv4 => "True",
800)             ipv6 => "False",
801)             loadBalanced => "No",
802)             httpWebsiteMirror => "http://trak.tor.hu/",
803)             httpsWebsiteMirror => "",
804)             rsyncWebsiteMirror => "",
805)             ftpWebsiteMirror => "",
806)             httpDistMirror => "http://trak.tor.hu/dist/",
807)             httpsDistMirror => "",
808)             rsyncDistMirror => "",
809)             hiddenServiceMirror => "",
810)         },

811) 

812)         mirror041 => {
813)             adminContact => "sina at accessnow.org",
814)             orgName => "Access",
815)             isoCC => "IR",
816)             subRegion => "",
817)             region => "IR",
818)             ipv4 => "True",
819)             ipv6 => "False",
820)             loadBalanced => "Yes",
821)             httpWebsiteMirror => "http://irani-tor.ath.cx/",
822)             httpsWebsiteMirror => "",
823)             rsyncWebsiteMirror => "",
824)             ftpWebsiteMirror => "",
825)             httpDistMirror => "http://irani-tor.ath.cx/dist/",
826)             httpsDistMirror => "",
827)             rsyncDistMirror => "",

828)             hiddenServiceMirror => "",
829)         },
830) 
831)         mirror042 => {
832)             adminContact => "kovtalex at mail.ru",
833)             orgName => "",
834)             isoCC => "RU",
835)             subRegion => "",
836)             region => "RU",
837)             ipv4 => "True",
838)             ipv6 => "False",
839)             loadBalanced => "No",
840)             httpWebsiteMirror => "http://www.tor.myeveryday.ru/",
841)             httpsWebsiteMirror => "",
842)             rsyncWebsiteMirror => "",
843)             ftpWebsiteMirror => "",
844)             httpDistMirror => "http://www.tor.myeveryday.ru/dist/",
845)             httpsDistMirror => "",
846)             rsyncDistMirror => "",

847)             hiddenServiceMirror => "",
848)         },
849) 
850)         mirror043 => {
851)             adminContact => "",
852)             orgName => "",
853)             isoCC => "UA",
854)             subRegion => "",
855)             region => "UA",
856)             ipv4 => "True",
857)             ipv6 => "False",
858)             loadBalanced => "No",
859)             httpWebsiteMirror => "http://tor.homosu.net/",
860)             httpsWebsiteMirror => "",
861)             rsyncWebsiteMirror => "",
862)             ftpWebsiteMirror => "",
863)             httpDistMirror => "http://tor.homosu.net/dist",
864)             httpsDistMirror => "",
865)             rsyncDistMirror => "",

866)             hiddenServiceMirror => "",
867)         }
868) 

869) );
870) 
871) my $count = values %m;
872) print "We have a total of $count mirrors\n";
873) print "Fetching the last updated date for each mirror.\n";
874) 

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

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

878) $tortime -= 1 * 172800; 

879) print "The official time for Tor is $tortime. \n";
880) 

881) foreach my $server ( keys %m ) {
882) 
883)     print "Attempting to fetch from $m{$server}{'orgName'}\n";
884) 
885)     if ($m{$server}{'httpWebsiteMirror'}) {
886)         print "Attempt to fetch via HTTP.\n";
887)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpWebsiteMirror'}");
888)     } elsif ($m{$server}{'httpsWebsiteMirror'}) {
889)         print "Attempt to fetch via HTTPS.\n";
890)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpsWebsiteMirror'}");
891)     } elsif ($m{$server}{'ftpWebsiteMirror'}) {
892)         print "Attempt to fetch via FTP.\n";
893)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'ftpWebsiteMirror'}");
894)     } else {
895)         print "We were unable to fetch or store anything. We still have the following: $m{$server}{'updateDate'}\n";
896)     }
897) 
898)     print "We fetched and stored the following: $m{$server}{'updateDate'}\n";
899) 
900)  }
901) 
902) 
903) print "We sorted the following mirrors by their date of last update: \n";
904) foreach my $server ( sort { $m{$b}{'updateDate'} <=> $m{$a}{'updateDate'}} keys %m ) {
905) 
906)      print "\n";
907)      print "Mirror $m{$server}{'orgName'}: \n";
908) 
909)      foreach my $attrib ( sort keys %{$m{$server}} ) {
910)         print "$attrib = $m{$server}{$attrib}";
911)         print "\n";
912)      };
913) }
914) 
915) my $outFile = "include/mirrors-table.wmi";
916) my $html;
917) open(OUT, "> $outFile") or die "Can't open $outFile: $!";
918) 

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

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

923)      my $time;

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

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

926) 	    $time = "Up to date";
927) 	  } else { $time = "Out of date"; }

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

929) print OUT <<"END";
930)      \n<tr>\n
931)          <td>$m{$server}{'isoCC'}</td>\n
932)          <td>$m{$server}{'orgName'}</td>\n
933)          <td>$time</td>\n
934) END
935) 
936)      my %prettyNames = (
937)                         httpWebsiteMirror => "http",
938)                         httpsWebsiteMirror => "https",
939)                         ftpWebsiteMirror => "ftp",
940)                         rsyncWebsiteMirror => "rsync",
941)                         httpDistMirror => "http",
942)                         httpsDistMirror => "https",
943)                         rsyncDistMirrors => "rsync", );
944) 
945)      foreach my $precious ( sort keys %prettyNames )

946)      {
947)         if ($m{$server}{"$precious"}) {
948)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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