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)         mirror000 => {
87)             adminContact => "tor AT goodeid DOT com",

88)             orgName => "Goodeid",

89)             isoCC => "CA",

90)             subRegion => "",

91)             region => "North America",

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

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

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

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

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

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

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

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

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

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

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

128)        mirror002 => {

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

130)             orgName => "Hermetix",

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

139)             httpDistMirror => "",

140)             rsyncDistMirror => "",

141)             updateDate => "Unknown",

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

145)             adminContact => "",

146)             orgName => "Boinc",

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

158)             updateDate => "Unknown",

159)         },
160) 

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

181)        mirror005 => {

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

183)             orgName => "Bbs",

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

193)             httpDistMirror => "",

194)             rsyncDistMirror => "",

195)             updateDate => "Unknown",

196)         },
197) 

198)        mirror006 => {

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

202)             subRegion => "",

203)             region => "DE",

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

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

209)             rsyncWebsiteMirror => "",

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

213)             rsyncDistMirror => "",

214)             hiddenServiceMirror => "",

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

217) 

218)        mirror007 => {

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

220)             orgName => "Cybermirror",

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

232)             updateDate => "Unknown",

233)         },
234) 

235)        mirror008 => {

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

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

244)             httpWebsiteMirror => "",

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

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

248)             rsyncDistMirror => "",

249)             updateDate => "Unknown",

250)         },
251) 

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

261)             httpWebsiteMirror => "http://www.torproject.us/",
262)             httpsWebsiteMirror => "https://www.torproject.us/",

263)             rsyncWebsiteMirror => "",
264)             ftpWebsiteMirror => "",

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

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

292)        mirror011 => {

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

294)             orgName => "Zentrum der Gesundheit",

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

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

302)             ftpWebsiteMirror => "",

303)             rsyncWebsiteMirror => "",

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

305)             rsyncDistMirror => "",

306)             updateDate => "Unknown",

307)         },
308) 

309)        mirror012 => {

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

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

313)             subRegion => "Ile de France",

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

318)             httpWebsiteMirror => "",

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

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

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

322)             rsyncDistMirror => "",

323)             updateDate => "Unknown",

324)         },
325) 

326)        mirror013 => {

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

328)             orgName => "Amorphis",

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

336)             rsyncWebsiteMirror => "",

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

340)             updateDate => "Unknown",

341)         },
342) 

343)        mirror014 => {

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

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

352)             httpWebsiteMirror => "",

353)             rsyncWebsiteMirror => "",

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

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

356)             rsyncDistMirror => "",

357)             updateDate => "Unknown",

358)         },
359) 

360)        mirror015 => {

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

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

370)             rsyncWebsiteMirror => "",

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

374)             updateDate => "Unknown",

375)         },
376) 

377)        mirror016 => {

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

379)             orgName => "Kamagurka",

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

387)             rsyncWebsiteMirror => "",

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

391)             updateDate => "Unknown",

392)         },
393) 

394)        mirror018 => {

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

396)             orgName => "Meulie",

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

403)             httpWebsiteMirror => "",

404)             rsyncWebsiteMirror => "",

405)             ftpWebsiteMirror => "",

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

407)             rsyncDistMirror => "",

408)             updateDate => "Unknown",

409)         },
410) 

411)        mirror019 => {

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

413)             orgName => "Ghirai",

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

420)             httpWebsiteMirror => "",

421)             rsyncWebsiteMirror => "",

422)             ftpWebsiteMirror => "",

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

424)             rsyncDistMirror => "",

425)             updateDate => "Unknown",

426)         },
427) 

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

448)        mirror021 => {

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

450)             orgName => "TheOnionRouter",

451)             isoCC => "US",

452)             subRegion => "New Jersey",

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

458)             rsyncWebsiteMirror => "",

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

462)             updateDate => "Unknown",

463)         },
464) 

465)        mirror022 => {

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

467)             orgName => "Unfix",

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

475)             rsyncWebsiteMirror => "",

476)             ftpWebsiteMirror => "",

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

478)             rsyncDistMirror => "",

479)             updateDate => "Unknown",

480)         },
481) 

482)        mirror023 => {

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

484)             orgName => "Sixx",

485)             isoCC => "CH",

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

492)             rsyncWebsiteMirror => "",

493)             ftpWebsiteMirror => "",

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

495)             rsyncDistMirror => "",

496)             updateDate => "Unknown",

497)         },

498) 

499)        mirror024 => {

500)             adminContact => "",

501)             orgName => "StrangeCharm",
502)             isoCC => "",

503)             subRegion => "",

504)             region => "FR",

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

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

509)             httpsWebsiteMirror => "",

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

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

513)             httpsDistMirror => "",

514)             rsyncDistMirror => "",
515)             hiddenServiceMirror => "",
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 => "",

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

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

709)             httpsDistMirror => "",

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 => "AT",

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 => "NIIF Institute",
817)             isoCC => "HU",
818)             subRegion => "",
819)             region => "HU",
820)             ipv4 => "True",
821)             ipv6 => "False",
822)             loadBalanced => "No",
823)             httpWebsiteMirror => "http://trak.tor.hu/",
824)             httpsWebsiteMirror => "",
825)             rsyncWebsiteMirror => "",
826)             ftpWebsiteMirror => "",
827)             httpDistMirror => "http://trak.tor.hu/dist/",
828)             httpsDistMirror => "",
829)             rsyncDistMirror => "",
830)             hiddenServiceMirror => "",
831)         },

832) 

833)         mirror041 => {
834)             adminContact => "sina at accessnow.org",
835)             orgName => "Access",
836)             isoCC => "IR",
837)             subRegion => "",
838)             region => "IR",
839)             ipv4 => "True",
840)             ipv6 => "False",
841)             loadBalanced => "Yes",
842)             httpWebsiteMirror => "http://irani-tor.ath.cx/",
843)             httpsWebsiteMirror => "",
844)             rsyncWebsiteMirror => "",
845)             ftpWebsiteMirror => "",
846)             httpDistMirror => "http://irani-tor.ath.cx/dist/",
847)             httpsDistMirror => "",
848)             rsyncDistMirror => "",

849)             hiddenServiceMirror => "",
850)         },
851) 
852)         mirror042 => {
853)             adminContact => "kovtalex at mail.ru",
854)             orgName => "",
855)             isoCC => "RU",
856)             subRegion => "",
857)             region => "RU",
858)             ipv4 => "True",
859)             ipv6 => "False",
860)             loadBalanced => "No",
861)             httpWebsiteMirror => "http://www.tor.myeveryday.ru/",
862)             httpsWebsiteMirror => "",
863)             rsyncWebsiteMirror => "",
864)             ftpWebsiteMirror => "",
865)             httpDistMirror => "http://www.tor.myeveryday.ru/dist/",
866)             httpsDistMirror => "",
867)             rsyncDistMirror => "",

868)             hiddenServiceMirror => "",
869)         },
870) 
871)         mirror043 => {
872)             adminContact => "",
873)             orgName => "",
874)             isoCC => "UA",
875)             subRegion => "",
876)             region => "UA",
877)             ipv4 => "True",
878)             ipv6 => "False",
879)             loadBalanced => "No",
880)             httpWebsiteMirror => "http://tor.homosu.net/",
881)             httpsWebsiteMirror => "",
882)             rsyncWebsiteMirror => "",
883)             ftpWebsiteMirror => "",
884)             httpDistMirror => "http://tor.homosu.net/dist",
885)             httpsDistMirror => "",
886)             rsyncDistMirror => "",

887)             hiddenServiceMirror => "",
888)         }
889) 

890) );
891) 
892) my $count = values %m;
893) print "We have a total of $count mirrors\n";
894) print "Fetching the last updated date for each mirror.\n";
895) 

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

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

899) $tortime -= 1 * 172800; 

900) print "The official time for Tor is $tortime. \n";
901) 

902) foreach my $server ( keys %m ) {
903) 
904)     print "Attempting to fetch from $m{$server}{'orgName'}\n";
905) 
906)     if ($m{$server}{'httpWebsiteMirror'}) {
907)         print "Attempt to fetch via HTTP.\n";
908)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpWebsiteMirror'}");
909)     } elsif ($m{$server}{'httpsWebsiteMirror'}) {
910)         print "Attempt to fetch via HTTPS.\n";
911)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpsWebsiteMirror'}");
912)     } elsif ($m{$server}{'ftpWebsiteMirror'}) {
913)         print "Attempt to fetch via FTP.\n";
914)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'ftpWebsiteMirror'}");
915)     } else {
916)         print "We were unable to fetch or store anything. We still have the following: $m{$server}{'updateDate'}\n";
917)     }
918) 
919)     print "We fetched and stored the following: $m{$server}{'updateDate'}\n";
920) 
921)  }
922) 
923) 
924) print "We sorted the following mirrors by their date of last update: \n";
925) foreach my $server ( sort { $m{$b}{'updateDate'} <=> $m{$a}{'updateDate'}} keys %m ) {
926) 
927)      print "\n";
928)      print "Mirror $m{$server}{'orgName'}: \n";
929) 
930)      foreach my $attrib ( sort keys %{$m{$server}} ) {
931)         print "$attrib = $m{$server}{$attrib}";
932)         print "\n";
933)      };
934) }
935) 
936) my $outFile = "include/mirrors-table.wmi";
937) my $html;
938) open(OUT, "> $outFile") or die "Can't open $outFile: $!";
939) 

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

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

944)      my $time;

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

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

947) 	    $time = "Up to date";
948) 	  } else { $time = "Out of date"; }

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

950) print OUT <<"END";
951)      \n<tr>\n
952)          <td>$m{$server}{'isoCC'}</td>\n
953)          <td>$m{$server}{'orgName'}</td>\n
954)          <td>$time</td>\n
955) END
956) 
957)      my %prettyNames = (
958)                         httpWebsiteMirror => "http",
959)                         httpsWebsiteMirror => "https",
960)                         ftpWebsiteMirror => "ftp",
961)                         rsyncWebsiteMirror => "rsync",
962)                         httpDistMirror => "http",
963)                         httpsDistMirror => "https",
964)                         rsyncDistMirrors => "rsync", );
965) 
966)      foreach my $precious ( sort keys %prettyNames )

967)      {
968)         if ($m{$server}{"$precious"}) {
969)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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