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://www.oignon.net/",

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

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

101)             httpsDistMirror => "https://www.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)        mirror005 => {

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

142)             orgName => "[[:bbs:]]",

143)             isoCC => "DE",
144)             subRegion => "",
145)             region => "Europe",
146)             ipv4 => "True",
147)             ipv6 => "False",
148)             loadBalanced => "Unknown",
149)             httpWebsiteMirror => "http://tor.blingblingsquad.net/",

150)             httpsWebsiteMirror => "",

151)             ftpWebsiteMirror => "",
152)             rsyncWebsiteMirror => "",

153)             httpDistMirror => "http://tor.blingblingsquad.net/dist",
154)             httpsDistMirror => "",

155)             rsyncDistMirror => "",

156)             updateDate => "Unknown",

157)         },
158) 

159)        mirror006 => {

160)             adminContact => "doc DOT kuehn AT nexgo DOT de",
161)             orgName => " spacecowboy ",
162)             isoCC => " ",

163)             subRegion => "",

164)             region => "DE",

165)             ipv4 => "True",
166)             ipv6 => "False",

167)             loadBalanced => "No",
168)             httpWebsiteMirror => "http://tor-proxy.de/tor-mirror/",
169)             httpsWebsiteMirror => "https://tor-proxy.de/tor-mirror/",

170)             rsyncWebsiteMirror => "",

171)             ftpWebsiteMirror => "",
172)             httpDistMirror => "http://tor-proxy.de/tor-mirror/dist/",
173)             httpsDistMirror => "https://tor-proxy.de/tor-mirror/dist/",

174)             rsyncDistMirror => "",

175)             hiddenServiceMirror => "",

176)             updateDate => "Unknown",
177)         },

178) 

179)        mirror007 => {

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

181)             orgName => "Cybermirror",

182)             isoCC => "DE",
183)             subRegion => "",
184)             region => "Europe",
185)             ipv4 => "True",
186)             ipv6 => "False",
187)             loadBalanced => "Unknown",
188)             httpWebsiteMirror => "http://tor.cybermirror.org/",
189)             ftpWebsiteMirror => "",
190)             rsyncWebsiteMirror => "",
191)             httpDistMirror => "http://tor.cybermirror.org/dist/",
192)             rsyncDistMirror => "",

193)             updateDate => "Unknown",

194)         },
195) 

196)        mirror008 => {

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

198)             orgName => "Spline",
199)             isoCC => "DE",
200)             subRegion => "FU",
201)             region => "Europe",
202)             ipv4 => "True",
203)             ipv6 => "False",
204)             loadBalanced => "Unknown",

205)             httpWebsiteMirror => "",

206)             ftpWebsiteMirror => "",
207)             rsyncWebsiteMirror => "",

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

209)             rsyncDistMirror => "",

210)             updateDate => "Unknown",

211)         },
212) 

213) 	mirror009 => {
214)             adminContact => "BarkerJr AT barkerjr DOT net",
215)             orgName => "BarkerJr",
216)             isoCC => "US",
217)             subRegion => "",
218)             region => "US",
219)             ipv4 => "True",
220)             ipv6 => "False",
221)             loadBalanced => "No",

222)             httpWebsiteMirror => "http://www.torproject.us/",
223)             httpsWebsiteMirror => "https://www.torproject.us/",

224)             rsyncWebsiteMirror => "rsync://rsync.torproject.us/tor",

225)             ftpWebsiteMirror => "",

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

228)             rsyncDistMirror => "rsync://rsync.torproject.us/tor/dist",

229)             hiddenServiceMirror => "",
230)             updateDate => "Unknown",
231)         },
232) 
233) 	mirror010 => {
234)             adminContact => "",
235)             orgName => "zuola",
236)             isoCC => "CN",
237)             subRegion => "",
238)             region => "CN",
239)             ipv4 => "True",
240)             ipv6 => "False",
241)             loadBalanced => "No",
242)             httpWebsiteMirror => "http://tor.zuo.la/",
243)             httpsWebsiteMirror => "",
244)             rsyncWebsiteMirror => "",
245)             ftpWebsiteMirror => "",
246)             httpDistMirror => "http://tor.zuo.la/dist/",
247)             httpsDistMirror => "",
248)             rsyncDistMirror => "",
249)             hiddenServiceMirror => "",
250)             updateDate => "Unknown",
251)         },
252) 

253)        mirror011 => {

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

255)             orgName => "Zentrum der Gesundheit",

256)             isoCC => "DK",
257)             subRegion => "",
258)             region => "Europe",
259)             ipv4 => "True",
260)             ipv6 => "False",
261)             loadBalanced => "Unknown",

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

263)             ftpWebsiteMirror => "",

264)             rsyncWebsiteMirror => "",

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

266)             rsyncDistMirror => "",

267)             updateDate => "Unknown",

268)         },
269) 

270)        mirror012 => {

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

272)             orgName => "CRAN",
273)             isoCC => "FR",

274)             subRegion => "Ile de France",

275)             region => "Europe",
276)             ipv4 => "True",
277)             ipv6 => "False",
278)             loadBalanced => "Unknown",

279)             httpWebsiteMirror => "",

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

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

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

283)             rsyncDistMirror => "",

284)             updateDate => "Unknown",

285)         },
286) 

287)        mirror013 => {

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

289)             orgName => "Amorphis",

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

297)             rsyncWebsiteMirror => "",

298)             ftpWebsiteMirror => "",
299)             httpDistMirror => "http://tor.amorphis.eu/dist/",
300)             rsyncDistMirror => "",

301)             updateDate => "Unknown",

302)         },
303) 

304)        mirror014 => {

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

306)             orgName => "BIT BV",
307)             isoCC => "NL",
308)             subRegion => "",
309)             region => "Europe",
310)             ipv4 => "True",
311)             ipv6 => "False",
312)             loadBalanced => "Unknown",

313)             httpWebsiteMirror => "",

314)             rsyncWebsiteMirror => "",

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

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

317)             rsyncDistMirror => "",

318)             updateDate => "Unknown",

319)         },
320) 

321)        mirror015 => {

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

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

331)             rsyncWebsiteMirror => "",

332)             ftpWebsiteMirror => "",
333)             httpDistMirror => "http://tor.ccc.de/dist/",
334)             rsyncDistMirror => "",

335)             updateDate => "Unknown",

336)         },
337) 

338)        mirror016 => {

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

340)             orgName => "Kamagurka",

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

348)             rsyncWebsiteMirror => "",

349)             ftpWebsiteMirror => "",
350)             httpDistMirror => "http://tor.kamagurka.org/dist/",
351)             rsyncDistMirror => "",

352)             updateDate => "Unknown",

353)         },
354) 

355)        mirror018 => {

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

357)             orgName => "Meulie",

358)             isoCC => "NO",
359)             subRegion => "",
360)             region => "Europe",
361)             ipv4 => "True",
362)             ipv6 => "False",
363)             loadBalanced => "Unknown",

364)             httpWebsiteMirror => "",

365)             rsyncWebsiteMirror => "",

366)             ftpWebsiteMirror => "",

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

368)             rsyncDistMirror => "",

369)             updateDate => "Unknown",

370)         },
371) 

372)        mirror019 => {

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

374)             orgName => "Ghirai",

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

381)             httpWebsiteMirror => "",

382)             rsyncWebsiteMirror => "",

383)             ftpWebsiteMirror => "",

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

385)             rsyncDistMirror => "",

386)             updateDate => "Unknown",

387)         },
388) 

389) 	mirror020 => {
390)             adminContact => "",
391)             orgName => "ax",

392)             isoCC => "HU",

393)             subRegion => "",

394)             region => "HU",

395)             ipv4 => "True",
396)             ipv6 => "False",
397)             loadBalanced => "No",
398)             httpWebsiteMirror => "",
399)             httpsWebsiteMirror => "",
400)             rsyncWebsiteMirror => "",
401)             ftpWebsiteMirror => "",
402)             httpDistMirror => "http://tor.initrd.net/dist/",
403)             httpsDistMirror => "",
404)             rsyncDistMirror => "",
405)             hiddenServiceMirror => "",
406)             updateDate => "Unknown",
407)         },
408) 

409)        mirror021 => {

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

411)             orgName => "TheOnionRouter",

412)             isoCC => "US",

413)             subRegion => "New Jersey",

414)             region => "North America",
415)             ipv4 => "True",
416)             ipv6 => "False",
417)             loadBalanced => "Unknown",
418)             httpWebsiteMirror => "http://www.theonionrouter.com/",

419)             rsyncWebsiteMirror => "",

420)             ftpWebsiteMirror => "",
421)             httpDistMirror => "http://www.theonionrouter.com/dist/",
422)             rsyncDistMirror => "",

423)             updateDate => "Unknown",

424)         },
425) 

426)        mirror022 => {

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

428)             orgName => "Unfix",

429)             isoCC => "CH",
430)             subRegion => "",
431)             region => "Europe",
432)             ipv4 => "True",
433)             ipv6 => "True",
434)             loadBalanced => "Unknown",
435)             httpWebsiteMirror => "http://tor.unfix.org/",

436)             rsyncWebsiteMirror => "",

437)             ftpWebsiteMirror => "",

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

439)             rsyncDistMirror => "",

440)             updateDate => "Unknown",

441)         },
442) 

443)        mirror023 => {

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

445)             orgName => "Sixx",

446)             isoCC => "CH",

447)             subRegion => "",
448)             region => "Europe",
449)             ipv4 => "True",
450)             ipv6 => "True",
451)             loadBalanced => "Unknown",
452)             httpWebsiteMirror => "http://tor.sixxs.net/",

453)             rsyncWebsiteMirror => "",

454)             ftpWebsiteMirror => "",

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

456)             rsyncDistMirror => "",

457)             updateDate => "Unknown",

458)         },

459) 

460)        mirror024 => {

461)             adminContact => "",

462)             orgName => "StrangeCharm",
463)             isoCC => "",

464)             subRegion => "",

465)             region => "FR",

466)             ipv4 => "True",
467)             ipv6 => "False",
468)             loadBalanced => "No",

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

470)             httpsWebsiteMirror => "",

471)             rsyncWebsiteMirror => "",
472)             ftpWebsiteMirror => "",

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

474)             httpsDistMirror => "",

475)             rsyncDistMirror => "",
476)             hiddenServiceMirror => "",
477)         },
478) 

479)        mirror025 => {

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

481)             orgName => "Wiretapped",
482)             isoCC => "AU",
483)             subRegion => "Sydney",
484)             region => "Oceania",
485)             ipv4 => "True",
486)             ipv6 => "False",
487)             loadBalanced => "Unknown",
488)             httpWebsiteMirror => "",

489)             rsyncWebsiteMirror => "",

490)             ftpWebsiteMirror => "ftp://ftp.mirrors.wiretapped.net/pub/security/cryptography/network/tor/",
491)             httpDistMirror => "http://www.mirrors.wiretapped.net/security/cryptography/network/tor/",
492)             rsyncDistMirror => "",
493)             updateDate => "Unknown",

494)         },

495) 

496)         mirror026 => {

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

498)             orgName => "Xpdm",

499)             isoCC => "US",
500)             subRegion => "",
501)             region => "North America",
502)             ipv4 => "True",
503)             ipv6 => "False",
504)             loadBalanced => "Unknown",
505)             httpWebsiteMirror => "http://torproj.xpdm.us/",

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

507)             rsyncWebsiteMirror => "",

508)             ftpWebsiteMirror => "",

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

511)             rsyncDistMirror => "",
512)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
513)             updateDate => "Unknown",

514)         },

515) 

516)         mirror027 => {

517)             adminContact => "",
518)             orgName => " cybervalley ",
519)             isoCC => " ",
520)             subRegion => "",
521)             region => " ",

522)             ipv4 => "True",
523)             ipv6 => "False",
524)             loadBalanced => "No",

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

526)             httpsWebsiteMirror => "",

527)             rsyncWebsiteMirror => "",

528)             ftpWebsiteMirror => "",

529)             httpDistMirror => "",

530)             httpsDistMirror => "",
531)             rsyncDistMirror => "",
532)             hiddenServiceMirror => "",
533)             updateDate => "Unknown",

534)         },

535) 

536)         mirror028 => {

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

538)             orgName => "Unknown",
539)             isoCC => "HU",
540)             subRegion => "Hungary",
541)             region => "Europe",
542)             ipv4 => "True",
543)             ipv6 => "False",
544)             loadBalanced => "No",

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

546)             httpsWebsiteMirror => "",

547)             rsyncWebsiteMirror => "",

548)             ftpWebsiteMirror => "",

549)             httpDistMirror => "",

550)             httpsDistMirror => "",
551)             rsyncDistMirror => "",
552)             hiddenServiceMirror => "",
553)             updateDate => "Unknown",

554)         },

555) 

556)         mirror029 => {

557)             adminContact => "",

558)             orgName => "Technica-03",

559)             isoCC => "UA",

560)             subRegion => "Ukraine",
561)             region => "Eastern Europe",
562)             ipv4 => "True",
563)             ipv6 => "False",
564)             loadBalanced => "No",
565)             httpWebsiteMirror => "http://torua.reactor-xg.kiev.ua/",
566)             httpsWebsiteMirror => "",

567)             rsyncWebsiteMirror => "",

568)             ftpWebsiteMirror => "",

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

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

574)         },

575) 

576) 	mirror030 => {

577)             adminContact => "",
578)             orgName => "chaos darmstadt",
579)             isoCC => "DE",
580)             subRegion => "Germany",
581)             region => "Europe",
582)             ipv4 => "True",
583)             ipv6 => "False",
584)             loadBalanced => "No",
585)             httpWebsiteMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/",
586)             httpsWebsiteMirror => "",
587)             rsyncWebsiteMirror => "",
588)             ftpWebsiteMirror => "",
589)             httpDistMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/dist/",
590)             httpsDistMirror => "",
591)             rsyncDistMirror => "",
592)             hiddenServiceMirror => "",
593)             updateDate => "Unknown",

594)         },

595) 

596) 	mirror031 => {

597)             adminContact => "webmaster AT askapache DOT com",
598)             orgName => "AskApache",

599)             isoCC => "US",
600)             subRegion => "California",
601)             region => "US",
602)             ipv4 => "True",
603)             ipv6 => "False",
604)             loadBalanced => "No",
605)             httpWebsiteMirror => "http://tor.askapache.com/",
606)             httpsWebsiteMirror => "",
607)             rsyncWebsiteMirror => "",
608)             ftpWebsiteMirror => "",

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

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

614)         },

615) 

616) 	mirror032 => {
617)             adminContact => "",
618)             orgName => "I'm on the roof",
619)             isoCC => "US",
620)             subRegion => "",
621)             region => "US",
622)             ipv4 => "True",
623)             ipv6 => "False",
624)             loadBalanced => "No",
625)             httpWebsiteMirror => "http://mirror.imontheroof.com/tor-mirror/",
626)             httpsWebsiteMirror => "",
627)             rsyncWebsiteMirror => "",
628)             ftpWebsiteMirror => "",
629)             httpDistMirror => "http://mirror.imontheroof.com/tor-mirror/dist/",
630)             httpsDistMirror => "",
631)             rsyncDistMirror => "",
632)             hiddenServiceMirror => "",
633)             updateDate => "Unknown",

634)         },

635) 

636) 	mirror033 => {
637)             adminContact => "",

638)             orgName => "bullog",

639)             isoCC => "CN",
640)             subRegion => "",
641)             region => "CN",
642)             ipv4 => "True",
643)             ipv6 => "False",
644)             loadBalanced => "No",
645)             httpWebsiteMirror => "http://tor.bullog.org/",
646)             httpsWebsiteMirror => "",
647)             rsyncWebsiteMirror => "",
648)             ftpWebsiteMirror => "",
649)             httpDistMirror => "http://tor.bullog.org/dist/",
650)             httpsDistMirror => "",
651)             rsyncDistMirror => "",
652)             hiddenServiceMirror => "",
653)             updateDate => "Unknown",

654)         },

655) 

656) 	mirror034 => {

657)             adminContact => " mail AT benjamin-meier DOT info ",
658)             orgName => "beme it",

659)             isoCC => "DE",

660)             subRegion => "",

661)             region => "DE",

662)             ipv4 => "True",
663)             ipv6 => "False",
664)             loadBalanced => "No",

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

666)             httpsWebsiteMirror => "",

667)             rsyncWebsiteMirror => "rsync://tor.beme-it.de/tor",

668)             ftpWebsiteMirror => "",

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

670)             httpsDistMirror => "",

671)             rsyncDistMirror => "rsync://tor.beme-it.de/tor/dist",

672)             hiddenServiceMirror => "",
673)             updateDate => "Unknown",

674)         },

675) 

676) 	mirror035 => {
677)             adminContact => "",

678)             orgName => "shizhao",

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

694)         },

695) 

696) 	mirror036 => {
697)             adminContact => "",

698)             orgName => "ranyunfei",

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

714)         },

715) 

716) 	mirror037 => {
717)             adminContact => "",

718)             orgName => "wuerkaixi",

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

734)         },

735) 
736)         mirror038 => {
737)             adminContact => "",
738)             orgName => "",
739)             isoCC => "IN",
740)             subRegion => "",
741)             region => "IN",
742)             ipv4 => "True",
743)             ipv6 => "False",
744)             loadBalanced => "No",

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

746)             httpsWebsiteMirror => "",
747)             rsyncWebsiteMirror => "",
748)             ftpWebsiteMirror => "",
749)             httpDistMirror => "http://www.torproject.org.in/dist/",
750)             httpsDistMirror => "",
751)             rsyncDistMirror => "",
752)             hiddenServiceMirror => "",
753)             updateDate => "Unknown",
754)         },
755) 
756)         mirror039 => {
757)             adminContact => "",
758)             orgName => "",

759)             isoCC => "AT",

760)             subRegion => "",
761)             region => "LU",
762)             ipv4 => "True",
763)             ipv6 => "False",
764)             loadBalanced => "No",

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

766)             httpsWebsiteMirror => "",
767)             rsyncWebsiteMirror => "",
768)             ftpWebsiteMirror => "",

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

770)             httpsDistMirror => "",
771)             rsyncDistMirror => "",

772)             hiddenServiceMirror => "",
773)         },
774) 

775)         mirror040 => {
776)             adminContact => "",
777)             orgName => "NIIF Institute",
778)             isoCC => "HU",
779)             subRegion => "",
780)             region => "HU",
781)             ipv4 => "True",
782)             ipv6 => "False",
783)             loadBalanced => "No",
784)             httpWebsiteMirror => "http://trak.tor.hu/",
785)             httpsWebsiteMirror => "",
786)             rsyncWebsiteMirror => "",
787)             ftpWebsiteMirror => "",
788)             httpDistMirror => "http://trak.tor.hu/dist/",
789)             httpsDistMirror => "",
790)             rsyncDistMirror => "",
791)             hiddenServiceMirror => "",
792)         },

793) 

794)         mirror041 => {
795)             adminContact => "sina at accessnow.org",
796)             orgName => "Access",
797)             isoCC => "IR",
798)             subRegion => "",
799)             region => "IR",
800)             ipv4 => "True",
801)             ipv6 => "False",
802)             loadBalanced => "Yes",
803)             httpWebsiteMirror => "http://irani-tor.ath.cx/",
804)             httpsWebsiteMirror => "",
805)             rsyncWebsiteMirror => "",
806)             ftpWebsiteMirror => "",
807)             httpDistMirror => "http://irani-tor.ath.cx/dist/",
808)             httpsDistMirror => "",
809)             rsyncDistMirror => "",

810)             hiddenServiceMirror => "",
811)         },
812) 
813)         mirror042 => {
814)             adminContact => "kovtalex at mail.ru",
815)             orgName => "",
816)             isoCC => "RU",
817)             subRegion => "",
818)             region => "RU",
819)             ipv4 => "True",
820)             ipv6 => "False",
821)             loadBalanced => "No",
822)             httpWebsiteMirror => "http://www.tor.myeveryday.ru/",
823)             httpsWebsiteMirror => "",
824)             rsyncWebsiteMirror => "",
825)             ftpWebsiteMirror => "",
826)             httpDistMirror => "http://www.tor.myeveryday.ru/dist/",
827)             httpsDistMirror => "",
828)             rsyncDistMirror => "",

829)             hiddenServiceMirror => "",
830)         },
831) 
832)         mirror043 => {
833)             adminContact => "",
834)             orgName => "",

835)             isoCC => "SE",

836)             subRegion => "",

837)             region => "SE",

838)             ipv4 => "True",
839)             ipv6 => "False",
840)             loadBalanced => "No",
841)             httpWebsiteMirror => "http://tor.homosu.net/",
842)             httpsWebsiteMirror => "",
843)             rsyncWebsiteMirror => "",
844)             ftpWebsiteMirror => "",
845)             httpDistMirror => "http://tor.homosu.net/dist",
846)             httpsDistMirror => "",
847)             rsyncDistMirror => "",

848)             hiddenServiceMirror => "",

849)         },

850) 
851)         mirror044 => {
852)             adminContact => "margus.random at mail.ee",
853)             orgName => "CyberSIDE",

854)             isoCC => "EE",

855)             subRegion => "",
856)             region => "EE",
857)             ipv4 => "True",
858)             ipv6 => "False",
859)             loadBalanced => "No",
860)             httpWebsiteMirror => "http://cyberside.planet.ee/tor/",
861)             httpsWebsiteMirror => "",
862)             rsyncWebsiteMirror => "",
863)             ftpWebsiteMirror => "",
864)             httpDistMirror => "http://freedos.pri.ee/tor/",
865)             httpsDistMirror => "",
866)             rsyncDistMirror => "",

867)             hiddenServiceMirror => "",

868)         },

869) 

870)         mirror045 => {
871)             adminContact => "me_ at tomyn dot com",
872)             orgName => "tomyn",
873)             isoCC => "UK",
874)             subRegion => "",
875)             region => "UK",
876)             ipv4 => "True",
877)             ipv6 => "False",
878)             loadBalanced => "No",
879)             httpWebsiteMirror => "http://tor.tomyn.com",
880)             httpsWebsiteMirror => "https://tor.tomyn.com",
881)             rsyncWebsiteMirror => "",
882)             ftpWebsiteMirror => "ftp://tor.tomyn.com",
883)             httpDistMirror => "http://tor.tomyn.com/dist",
884)             httpsDistMirror => "https://tor.tomyn.com/dist",
885)             rsyncDistMirror => "",
886)             hiddenServiceMirror => "",
887)         }

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

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

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

897) $tortime -= 1 * 172800; 

898) print "The official time for Tor is $tortime. \n";
899) 

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

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

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

942)      my $time;

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

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

945) 	    $time = "Up to date";
946) 	  } else { $time = "Out of date"; }

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

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

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

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