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)        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)             ftpWebsiteMirror => "",
151)             rsyncWebsiteMirror => "",

152)             httpDistMirror => "",

153)             rsyncDistMirror => "",

154)             updateDate => "Unknown",

155)         },
156) 

157)        mirror006 => {

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

161)             subRegion => "",

162)             region => "DE",

163)             ipv4 => "True",
164)             ipv6 => "False",

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

168)             rsyncWebsiteMirror => "",

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

172)             rsyncDistMirror => "",

173)             hiddenServiceMirror => "",

174)             updateDate => "Unknown",
175)         },

176) 

177)        mirror007 => {

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

179)             orgName => "Cybermirror",

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

191)             updateDate => "Unknown",

192)         },
193) 

194)        mirror008 => {

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

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

203)             httpWebsiteMirror => "",

204)             ftpWebsiteMirror => "",
205)             rsyncWebsiteMirror => "",

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

207)             rsyncDistMirror => "",

208)             updateDate => "Unknown",

209)         },
210) 

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

220)             httpWebsiteMirror => "http://www.torproject.us/",
221)             httpsWebsiteMirror => "https://www.torproject.us/",

222)             rsyncWebsiteMirror => "",
223)             ftpWebsiteMirror => "",

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

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

251)        mirror011 => {

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

253)             orgName => "Zentrum der Gesundheit",

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

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

261)             ftpWebsiteMirror => "",

262)             rsyncWebsiteMirror => "",

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

264)             rsyncDistMirror => "",

265)             updateDate => "Unknown",

266)         },
267) 

268)        mirror012 => {

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

270)             orgName => "CRAN",
271)             isoCC => "FR",

272)             subRegion => "Ile de France",

273)             region => "Europe",
274)             ipv4 => "True",
275)             ipv6 => "False",
276)             loadBalanced => "Unknown",

277)             httpWebsiteMirror => "",

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

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

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

281)             rsyncDistMirror => "",

282)             updateDate => "Unknown",

283)         },
284) 

285)        mirror013 => {

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

287)             orgName => "Amorphis",

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

295)             rsyncWebsiteMirror => "",

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

299)             updateDate => "Unknown",

300)         },
301) 

302)        mirror014 => {

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

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

311)             httpWebsiteMirror => "",

312)             rsyncWebsiteMirror => "",

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

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

315)             rsyncDistMirror => "",

316)             updateDate => "Unknown",

317)         },
318) 

319)        mirror015 => {

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

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

329)             rsyncWebsiteMirror => "",

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

333)             updateDate => "Unknown",

334)         },
335) 

336)        mirror016 => {

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

338)             orgName => "Kamagurka",

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

346)             rsyncWebsiteMirror => "",

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

350)             updateDate => "Unknown",

351)         },
352) 

353)        mirror018 => {

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

355)             orgName => "Meulie",

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

362)             httpWebsiteMirror => "",

363)             rsyncWebsiteMirror => "",

364)             ftpWebsiteMirror => "",

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

366)             rsyncDistMirror => "",

367)             updateDate => "Unknown",

368)         },
369) 

370)        mirror019 => {

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

372)             orgName => "Ghirai",

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

379)             httpWebsiteMirror => "",

380)             rsyncWebsiteMirror => "",

381)             ftpWebsiteMirror => "",

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

383)             rsyncDistMirror => "",

384)             updateDate => "Unknown",

385)         },
386) 

387) 	mirror020 => {
388)             adminContact => "",
389)             orgName => "ax",

390)             isoCC => "HU",

391)             subRegion => "",

392)             region => "HU",

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

407)        mirror021 => {

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

409)             orgName => "TheOnionRouter",

410)             isoCC => "US",

411)             subRegion => "New Jersey",

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

417)             rsyncWebsiteMirror => "",

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

421)             updateDate => "Unknown",

422)         },
423) 

424)        mirror022 => {

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

426)             orgName => "Unfix",

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

434)             rsyncWebsiteMirror => "",

435)             ftpWebsiteMirror => "",

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

437)             rsyncDistMirror => "",

438)             updateDate => "Unknown",

439)         },
440) 

441)        mirror023 => {

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

443)             orgName => "Sixx",

444)             isoCC => "CH",

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

451)             rsyncWebsiteMirror => "",

452)             ftpWebsiteMirror => "",

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

454)             rsyncDistMirror => "",

455)             updateDate => "Unknown",

456)         },

457) 

458)        mirror024 => {

459)             adminContact => "",

460)             orgName => "StrangeCharm",
461)             isoCC => "",

462)             subRegion => "",

463)             region => "FR",

464)             ipv4 => "True",
465)             ipv6 => "False",
466)             loadBalanced => "No",

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

468)             httpsWebsiteMirror => "",

469)             rsyncWebsiteMirror => "",
470)             ftpWebsiteMirror => "",

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

472)             httpsDistMirror => "",

473)             rsyncDistMirror => "",
474)             hiddenServiceMirror => "",
475)         },
476) 

477)        mirror025 => {

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

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

487)             rsyncWebsiteMirror => "",

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

492)         },

493) 

494)         mirror026 => {

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

496)             orgName => "Xpdm",

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

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

505)             rsyncWebsiteMirror => "",

506)             ftpWebsiteMirror => "",

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

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

512)         },

513) 

514)         mirror027 => {

515)             adminContact => "",
516)             orgName => " cybervalley ",
517)             isoCC => " ",
518)             subRegion => "",
519)             region => " ",

520)             ipv4 => "True",
521)             ipv6 => "False",
522)             loadBalanced => "No",

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

524)             httpsWebsiteMirror => "",

525)             rsyncWebsiteMirror => "",

526)             ftpWebsiteMirror => "",

527)             httpDistMirror => "",

528)             httpsDistMirror => "",
529)             rsyncDistMirror => "",
530)             hiddenServiceMirror => "",
531)             updateDate => "Unknown",

532)         },

533) 

534)         mirror028 => {

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

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

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

544)             httpsWebsiteMirror => "",

545)             rsyncWebsiteMirror => "",

546)             ftpWebsiteMirror => "",

547)             httpDistMirror => "",

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

552)         },

553) 

554)         mirror029 => {

555)             adminContact => "",

556)             orgName => "Technica-03",

557)             isoCC => "UA",

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

565)             rsyncWebsiteMirror => "",

566)             ftpWebsiteMirror => "",

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

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

572)         },

573) 

574) 	mirror030 => {

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

592)         },

593) 

594) 	mirror031 => {

595)             adminContact => "webmaster AT askapache DOT com",
596)             orgName => "AskApache",

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

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

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

612)         },

613) 

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

632)         },

633) 

634) 	mirror033 => {
635)             adminContact => "",

636)             orgName => "bullog",

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

652)         },

653) 

654) 	mirror034 => {

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

657)             isoCC => "DE",

658)             subRegion => "",

659)             region => "DE",

660)             ipv4 => "True",
661)             ipv6 => "False",
662)             loadBalanced => "No",

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

664)             httpsWebsiteMirror => "",

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

666)             ftpWebsiteMirror => "",

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

668)             httpsDistMirror => "",

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

670)             hiddenServiceMirror => "",
671)             updateDate => "Unknown",

672)         },

673) 

674) 	mirror035 => {
675)             adminContact => "",

676)             orgName => "shizhao",

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

692)         },

693) 

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

696)             orgName => "ranyunfei",

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

712)         },

713) 

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

716)             orgName => "wuerkaixi",

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

732)         },

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

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

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

757)             isoCC => "AT",

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

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

764)             httpsWebsiteMirror => "",
765)             rsyncWebsiteMirror => "",
766)             ftpWebsiteMirror => "",

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

768)             httpsDistMirror => "",
769)             rsyncDistMirror => "",

770)             hiddenServiceMirror => "",
771)         },
772) 

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

791) 

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

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

827)             hiddenServiceMirror => "",
828)         },
829) 
830)         mirror043 => {
831)             adminContact => "",
832)             orgName => "",
833)             isoCC => "UA",
834)             subRegion => "",
835)             region => "UA",
836)             ipv4 => "True",
837)             ipv6 => "False",
838)             loadBalanced => "No",
839)             httpWebsiteMirror => "http://tor.homosu.net/",
840)             httpsWebsiteMirror => "",
841)             rsyncWebsiteMirror => "",
842)             ftpWebsiteMirror => "",
843)             httpDistMirror => "http://tor.homosu.net/dist",
844)             httpsDistMirror => "",
845)             rsyncDistMirror => "",

846)             hiddenServiceMirror => "",
847)         }
848) 

849) );
850) 
851) my $count = values %m;
852) print "We have a total of $count mirrors\n";
853) print "Fetching the last updated date for each mirror.\n";
854) 

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

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

858) $tortime -= 1 * 172800; 

859) print "The official time for Tor is $tortime. \n";
860) 

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

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

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

903)      my $time;

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

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

906) 	    $time = "Up to date";
907) 	  } else { $time = "Out of date"; }

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

909) print OUT <<"END";
910)      \n<tr>\n
911)          <td>$m{$server}{'isoCC'}</td>\n
912)          <td>$m{$server}{'orgName'}</td>\n
913)          <td>$time</td>\n
914) END
915) 
916)      my %prettyNames = (
917)                         httpWebsiteMirror => "http",
918)                         httpsWebsiteMirror => "https",
919)                         ftpWebsiteMirror => "ftp",
920)                         rsyncWebsiteMirror => "rsync",
921)                         httpDistMirror => "http",
922)                         httpsDistMirror => "https",
923)                         rsyncDistMirrors => "rsync", );
924) 
925)      foreach my $precious ( sort keys %prettyNames )

926)      {
927)         if ($m{$server}{"$precious"}) {
928)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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