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) # 001 Timoutes 	Contacted
16) # 002 403 	Contacted

17) 

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

21)     timeout => 15,

22)     agent => "Tor MirrorCheck Agent"
23) );
24) 
25) sub sanitize {
26)     my $taintedData = shift;
27)     my $cleanedData;
28)     my $whitelist = '-a-zA-Z0-9: +';
29) 
30)     # clean the data, return cleaned data
31)     $taintedData =~ s/[^$whitelist]//go;
32)     $cleanedData = $taintedData;
33) 
34)     return $cleanedData;
35) }
36) 
37) sub FetchDate {
38)     my $url = shift; # Base url for mirror
39)     my $trace = "project/trace/www.torproject.org"; # Location of recent update info
40)     $url = "$url$trace";
41) 
42)     print "Fetching possible date from: $url\n";
43) 
44)     my $request = new HTTP::Request GET => "$url";
45)     my $result = $lua->request($request);

46)     my $code = $result->code();
47)     print "Result code $code\n";

48) 

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

50)        my $taint = $result->content;
51)        my $content = sanitize($taint);
52)        if ($content) {

53) 

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

68) 

69)     } else {
70)        print "Our request failed, we had no result.\n";
71)        return "Unknown";
72)     }

73) 
74)     return "Unknown";

75) }
76) 
77) # This is the list of all known Tor mirrors
78) # Add new mirrors to the bottom!

79) my %m = (

80)        mirror000 => {

81)             adminContact => "or-assistants.local",

82)             orgName => "Cypherpunks",

83)             isoCC => "AT",
84)             subRegion => "",
85)             region => "Europe",
86)             ipv4 => "True",
87)             ipv6 => "False",
88)             loadBalanced => "Unknown",
89)             httpWebsiteMirror => "http://tor.cypherpunks.at/",
90)             rsyncWebsiteMirror => "rsync://tor.cypherpunks.at/tor",
91)             httpDistMirror => "http://tor.cypherpunks.at/dist/",

92)             rsyncDistMirror => "rsync://tor.cypherpunks.at::tor/dist/",

93)             updateDate => "Unknown",

94)         },
95) 
96)        mirror001 => {

97)             adminContact => "webmaster AT depthstrike DOT com",

98)             orgName => "Depthstrike",

99)             isoCC => "CA",
100)             subRegion => "NS",
101)             region => "North America",
102)             ipv4 => "True",
103)             ipv6 => "False",
104)             loadBalanced => "Unknown",
105)             httpWebsiteMirror => "http://tor.depthstrike.com/",
106)             ftpWebsiteMirror => "",
107)             rsyncWebsiteMirror => "",
108)             httpDistMirror => "http://tor.depthstrike.com/dist/",
109)             rsyncDistMirror => "",

110)             updateDate => "Unknown",

111)         },
112) 
113)        mirror002 => {

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

115)             orgName => "Hermetix",

116)             isoCC => "CA",
117)             subRegion => "QC",
118)             region => "North America",
119)             ipv4 => "True",
120)             ipv6 => "False",
121)             loadBalanced => "Unknown",
122)             httpWebsiteMirror => "http://tor.hermetix.org/",
123)             rsyncWebsiteMirror => "",

124)             httpDistMirror => "",

125)             rsyncDistMirror => "",

126)             updateDate => "Unknown",

127)         },
128) 
129)        mirror003 => {

130)             adminContact => "",

131)             orgName => "Boinc",

132)             isoCC => "CH",
133)             subRegion => "",
134)             region => "Europe",
135)             ipv4 => "True",
136)             ipv6 => "False",
137)             loadBalanced => "Unknown",
138)             httpWebsiteMirror => "http://tor.boinc.ch/",
139)             ftpWebsiteMirror => "",
140)             rsyncWebsiteMirror => "",
141)             httpDistMirror => "http://tor.boinc.ch/dist/",
142)             rsyncDistMirror => "",

143)             updateDate => "Unknown",

144)         },
145) 
146)        mirror004 => {

147)             adminContact => "peihanru AT gmail DOT com",

148)             orgName => "Anonymity",

149)             isoCC => "CN",
150)             subRegion => "",
151)             region => "Asia",
152)             ipv4 => "True",
153)             ipv6 => "False",
154)             loadBalanced => "Unknown",

155)             httpWebsiteMirror => "http://tor.cypherpunks.cn/",

156)             ftpWebsiteMirror => "",
157)             rsyncWebsiteMirror => "",

158)             httpDistMirror => "http://tor.cypherpunks.cn/dist/",

159)             rsyncDistMirror => "",

160)             updateDate => "Unknown",

161)         },
162) 

163)        mirror005 => {

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

165)             orgName => "Bbs",

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

175)             httpDistMirror => "",

176)             rsyncDistMirror => "",

177)             updateDate => "Unknown",

178)         },
179) 

180)        mirror006 => {

181)             orgName => "Berapla",
182)             isoCC => "DE",
183)             subRegion => "",
184)             region => "Europe",
185)             ipv4 => "True",
186)             ipv6 => "False",
187)             loadBalanced => "Unknown",
188)             httpWebsiteMirror => "http://download.berapla.de/mirrors/tor/",
189)             ftpWebsiteMirror => "",
190)             rsyncWebsiteMirror => "",
191)             httpDistMirror => "http://download.berapla.de/mirrors/tor/dist/",
192)             rsyncDistMirror => "",
193)             updateDate => "Unknown",
194)         },

195) 

196)        mirror007 => {

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

198)             orgName => "Cybermirror",

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

210)             updateDate => "Unknown",

211)         },
212) 

213)        mirror008 => {

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

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

222)             httpWebsiteMirror => "",

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

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

226)             rsyncDistMirror => "",

227)             updateDate => "Unknown",

228)         },
229) 
230)        mirror009 => {

231)             adminContact => "beaver AT trash DOT net",

232)             orgName => "Onionland",

233)             isoCC => "DE",
234)             subRegion => "",
235)             region => "Europe",
236)             ipv4 => "True",
237)             ipv6 => "False",
238)             loadBalanced => "Unknown",
239)             httpWebsiteMirror => "http://mirror.onionland.org/",
240)             ftpWebsiteMirror => "",
241)             rsyncWebsiteMirror => "rsync: mirror.onionland.org::tor/",
242)             httpDistMirror => "http://mirror.onionland.org/dist/",

243)             rsyncDistMirror => "rsync://mirror.onionland.org::tor/dist/",

244)             updateDate => "Unknown",

245)         },
246) 

247)        mirror011 => {

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

249)             orgName => "Zentrum der Gesundheit",

250)             isoCC => "DK",
251)             subRegion => "",
252)             region => "Europe",
253)             ipv4 => "True",
254)             ipv6 => "False",
255)             loadBalanced => "Unknown",

256)             httpWebsiteMirror => "http://tor.zdg-gmbh.eu/",

257)             ftpWebsiteMirror => "",

258)             rsyncWebsiteMirror => "",

259)             httpDistMirror => "http://tor.zdg-gmbh.eu/dist/",
260)             rsyncDistMirror => "",

261)             updateDate => "Unknown",

262)         },
263) 

264)        mirror012 => {

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

266)             orgName => "CRAN",
267)             isoCC => "FR",

268)             subRegion => "Ile de France",

269)             region => "Europe",
270)             ipv4 => "True",
271)             ipv6 => "False",
272)             loadBalanced => "Unknown",

273)             httpWebsiteMirror => "",

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

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

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

277)             rsyncDistMirror => "",

278)             updateDate => "Unknown",

279)         },
280) 

281)        mirror013 => {

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

283)             orgName => "Amorphis",

284)             isoCC => "NL",
285)             subRegion => "",
286)             region => "Europe",
287)             ipv4 => "True",
288)             ipv6 => "False",
289)             loadBalanced => "Unknown",
290)             httpWebsiteMirror => "http://tor.amorphis.eu/",

291)             rsyncWebsiteMirror => "",

292)             ftpWebsiteMirror => "",
293)             httpDistMirror => "http://tor.amorphis.eu/dist/",
294)             rsyncDistMirror => "",

295)             updateDate => "Unknown",

296)         },
297) 

298)        mirror014 => {

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

300)             orgName => "BIT BV",
301)             isoCC => "NL",
302)             subRegion => "",
303)             region => "Europe",
304)             ipv4 => "True",
305)             ipv6 => "False",
306)             loadBalanced => "Unknown",

307)             httpWebsiteMirror => "",

308)             rsyncWebsiteMirror => "",

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

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

311)             rsyncDistMirror => "",

312)             updateDate => "Unknown",

313)         },
314) 

315)        mirror015 => {

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

317)             orgName => "CCC",
318)             isoCC => "NL",
319)             subRegion => "",
320)             region => "Europe",
321)             ipv4 => "True",
322)             ipv6 => "False",
323)             loadBalanced => "Unknown",
324)             httpWebsiteMirror => "http://tor.ccc.de/",

325)             rsyncWebsiteMirror => "",

326)             ftpWebsiteMirror => "",
327)             httpDistMirror => "http://tor.ccc.de/dist/",
328)             rsyncDistMirror => "",

329)             updateDate => "Unknown",

330)         },
331) 

332)        mirror016 => {

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

334)             orgName => "Kamagurka",

335)             isoCC => "NL",
336)             subRegion => "Haarlem",
337)             region => "Europe",
338)             ipv4 => "True",
339)             ipv6 => "False",
340)             loadBalanced => "Unknown",
341)             httpWebsiteMirror => "http://tor.kamagurka.org/",

342)             rsyncWebsiteMirror => "",

343)             ftpWebsiteMirror => "",
344)             httpDistMirror => "http://tor.kamagurka.org/dist/",
345)             rsyncDistMirror => "",

346)             updateDate => "Unknown",

347)         },
348) 

349)        mirror017 => {

350)             adminContact => "mirrorsosmirror.nl",

351)             orgName => "OS Mirror",
352)             isoCC => "NL",
353)             subRegion => "",
354)             region => "Europe",
355)             ipv4 => "True",
356)             ipv6 => "False",
357)             loadBalanced => "Unknown",

358)             httpWebsiteMirror => "",

359)             rsyncWebsiteMirror => "rsync://rsync.osmirror.nl::tor/",

360)             ftpWebsiteMirror => "ftp://ftp.osmirror.nl/pub/tor/",

361)             httpDistMirror => "http://tor.osmirror.nl/",

362)             rsyncDistMirror => "",

363)             updateDate => "Unknown",

364)         },
365) 
366) 

367)        mirror018 => {

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

369)             orgName => "Meulie",

370)             isoCC => "NO",
371)             subRegion => "",
372)             region => "Europe",
373)             ipv4 => "True",
374)             ipv6 => "False",
375)             loadBalanced => "Unknown",

376)             httpWebsiteMirror => "",

377)             rsyncWebsiteMirror => "",

378)             ftpWebsiteMirror => "",

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

380)             rsyncDistMirror => "",

381)             updateDate => "Unknown",

382)         },
383) 

384)        mirror019 => {

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

386)             orgName => "Ghirai",

387)             isoCC => "UK",
388)             subRegion => "London",
389)             region => "Europe",
390)             ipv4 => "True",
391)             ipv6 => "False",
392)             loadBalanced => "Unknown",

393)             httpWebsiteMirror => "",

394)             rsyncWebsiteMirror => "",

395)             ftpWebsiteMirror => "",

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

397)             rsyncDistMirror => "",

398)             updateDate => "Unknown",

399)         },
400) 

401)        mirror020 => {

402) 	    adminContact => "bjw AT bjwonline DOT com",

403)             orgName => "BJWOnline",

404)             isoCC => "US",
405)             subRegion => "California",
406)             region => "North America",
407)             ipv4 => "True",
408)             ipv6 => "False",
409)             loadBalanced => "Unknown",
410)             httpWebsiteMirror => "http://mirror.bjwonline.com/tor/",

411)             rsyncWebsiteMirror => "",

412)             ftpWebsiteMirror => "",

413)             httpDistMirror => "http://mirror.bjwonline.com/tor/dist/",

414)             rsyncDistMirror => "",

415)             updateDate => "Unknown",

416)         },
417) 

418)        mirror021 => {

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

420)             orgName => "TheOnionRouter",

421)             isoCC => "US",

422)             subRegion => "New Jersey",

423)             region => "North America",
424)             ipv4 => "True",
425)             ipv6 => "False",
426)             loadBalanced => "Unknown",
427)             httpWebsiteMirror => "http://www.theonionrouter.com/",

428)             rsyncWebsiteMirror => "",

429)             ftpWebsiteMirror => "",
430)             httpDistMirror => "http://www.theonionrouter.com/dist/",
431)             rsyncDistMirror => "",

432)             updateDate => "Unknown",

433)         },
434) 

435)        mirror022 => {

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

437)             orgName => "Unfix",

438)             isoCC => "CH",
439)             subRegion => "",
440)             region => "Europe",
441)             ipv4 => "True",
442)             ipv6 => "True",
443)             loadBalanced => "Unknown",
444)             httpWebsiteMirror => "http://tor.unfix.org/",

445)             rsyncWebsiteMirror => "",

446)             ftpWebsiteMirror => "",

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

448)             rsyncDistMirror => "",

449)             updateDate => "Unknown",

450)         },
451) 

452)        mirror023 => {

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

454)             orgName => "Sixx",

455)             isoCC => "CH",

456)             subRegion => "",
457)             region => "Europe",
458)             ipv4 => "True",
459)             ipv6 => "True",
460)             loadBalanced => "Unknown",
461)             httpWebsiteMirror => "http://tor.sixxs.net/",

462)             rsyncWebsiteMirror => "",

463)             ftpWebsiteMirror => "",

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

465)             rsyncDistMirror => "",

466)             updateDate => "Unknown",

467)         },

468) 

469)        mirror024 => {

470)             adminContact => "",

471)             orgName => "Crypto",

472)             isoCC => "US",
473)             subRegion => "",
474)             region => "North America",
475)             ipv4 => "True",
476)             ipv6 => "False",
477)             loadBalanced => "Unknown",
478)             httpWebsiteMirror => "http://crypto.nsa.org/tor/",

479)             rsyncWebsiteMirror => "",

480)             ftpWebsiteMirror => "",
481)             httpDistMirror => "http://crypto.nsa.org/tor/dist/",
482)             rsyncDistMirror => "",
483)             updateDate => "Unknown",
484)         },

485) 

486)        mirror025 => {

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

488)             orgName => "Wiretapped",
489)             isoCC => "AU",
490)             subRegion => "Sydney",
491)             region => "Oceania",
492)             ipv4 => "True",
493)             ipv6 => "False",
494)             loadBalanced => "Unknown",
495)             httpWebsiteMirror => "",

496)             rsyncWebsiteMirror => "",

497)             ftpWebsiteMirror => "ftp://ftp.mirrors.wiretapped.net/pub/security/cryptography/network/tor/",
498)             httpDistMirror => "http://www.mirrors.wiretapped.net/security/cryptography/network/tor/",
499)             rsyncDistMirror => "",
500)             updateDate => "Unknown",

501)         },

502) 

503)         mirror026 => {

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

505)             orgName => "Xpdm",

506)             isoCC => "US",
507)             subRegion => "",
508)             region => "North America",
509)             ipv4 => "True",
510)             ipv6 => "False",
511)             loadBalanced => "Unknown",
512)             httpWebsiteMirror => "http://torproj.xpdm.us/",

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

514)             rsyncWebsiteMirror => "",

515)             ftpWebsiteMirror => "",

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

518)             rsyncDistMirror => "",
519)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
520)             updateDate => "Unknown",

521)         },

522) 

523)         mirror027 => {

524)             adminContact => "internetfreebeijing AT gmail DOT com",

525)             orgName => "Unknown",
526)             isoCC => "CN",
527)             subRegion => "China",
528)             region => "Asia",
529)             ipv4 => "True",
530)             ipv6 => "False",
531)             loadBalanced => "No",
532)             httpWebsiteMirror => "http://free.be.ijing2008.cn/tor/",
533)             httpsWebsiteMirror => "",

534)             rsyncWebsiteMirror => "",

535)             ftpWebsiteMirror => "",
536)             httpDistMirror => "http://free.be.ijing2008.cn/tor/dist/",
537)             httpsDistMirror => "",
538)             rsyncDistMirror => "",
539)             hiddenServiceMirror => "",
540)             updateDate => "Unknown",

541)         },

542) 

543)         mirror028 => {

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

545)             orgName => "Unknown",
546)             isoCC => "HU",
547)             subRegion => "Hungary",
548)             region => "Europe",
549)             ipv4 => "True",
550)             ipv6 => "False",
551)             loadBalanced => "No",
552)             httpWebsiteMirror => "http://mirror.tor.hu/",
553)             httpsWebsiteMirror => "",

554)             rsyncWebsiteMirror => "",

555)             ftpWebsiteMirror => "",
556)             httpDistMirror => "http://mirror.tor.hu/dist/",
557)             httpsDistMirror => "",
558)             rsyncDistMirror => "",
559)             hiddenServiceMirror => "",
560)             updateDate => "Unknown",

561)         },

562) 

563)         mirror029 => {

564)             adminContact => "",

565)             orgName => "Technica-03",

566)             isoCC => "UA",

567)             subRegion => "Ukraine",
568)             region => "Eastern Europe",
569)             ipv4 => "True",
570)             ipv6 => "False",
571)             loadBalanced => "No",
572)             httpWebsiteMirror => "http://torua.reactor-xg.kiev.ua/",
573)             httpsWebsiteMirror => "",

574)             rsyncWebsiteMirror => "",

575)             ftpWebsiteMirror => "",
576)             httpDistMirror => "http://tordistua.reactor-xg.kiev.ua",
577)             httpsDistMirror => "",
578)             rsyncDistMirror => "",
579)             hiddenServiceMirror => "",
580)             updateDate => "Unknown",

581)         },

582) 

583) 	mirror030 => {

584)             adminContact => "",
585)             orgName => "chaos darmstadt",
586)             isoCC => "DE",
587)             subRegion => "Germany",
588)             region => "Europe",
589)             ipv4 => "True",
590)             ipv6 => "False",
591)             loadBalanced => "No",
592)             httpWebsiteMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/",
593)             httpsWebsiteMirror => "",
594)             rsyncWebsiteMirror => "",
595)             ftpWebsiteMirror => "",
596)             httpDistMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/dist/",
597)             httpsDistMirror => "",
598)             rsyncDistMirror => "",
599)             hiddenServiceMirror => "",
600)             updateDate => "Unknown",

601)         },

602) 

603) 	mirror031 => {
604)             adminContact => "",
605)             orgName => "Ask Apache",
606)             isoCC => "US",
607)             subRegion => "California",
608)             region => "US",
609)             ipv4 => "True",
610)             ipv6 => "False",
611)             loadBalanced => "No",
612)             httpWebsiteMirror => "http://tor.askapache.com/",
613)             httpsWebsiteMirror => "",
614)             rsyncWebsiteMirror => "",
615)             ftpWebsiteMirror => "",

616)             httpDistMirror => "",

617)             httpsDistMirror => "",
618)             rsyncDistMirror => "",
619)             hiddenServiceMirror => "",
620)             updateDate => "Unknown",

621)         },

622) 

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

641)         },

642) 

643) 	mirror033 => {
644)             adminContact => "",

645)             orgName => "bullog",

646)             isoCC => "CN",
647)             subRegion => "",
648)             region => "CN",
649)             ipv4 => "True",
650)             ipv6 => "False",
651)             loadBalanced => "No",
652)             httpWebsiteMirror => "http://tor.bullog.org/",
653)             httpsWebsiteMirror => "",
654)             rsyncWebsiteMirror => "",
655)             ftpWebsiteMirror => "",
656)             httpDistMirror => "http://tor.bullog.org/dist/",
657)             httpsDistMirror => "",
658)             rsyncDistMirror => "",
659)             hiddenServiceMirror => "",
660)             updateDate => "Unknown",

661)         },

662) 

663) 	mirror034 => {
664)             adminContact => "",

665)             orgName => "digitip",

666)             isoCC => "CN",
667)             subRegion => "",
668)             region => "CN",
669)             ipv4 => "True",
670)             ipv6 => "False",
671)             loadBalanced => "No",
672)             httpWebsiteMirror => "http://tor.digitip.net/",
673)             httpsWebsiteMirror => "",
674)             rsyncWebsiteMirror => "",
675)             ftpWebsiteMirror => "",
676)             httpDistMirror => "http://tor.digitip.net/dist/",
677)             httpsDistMirror => "",
678)             rsyncDistMirror => "",
679)             hiddenServiceMirror => "",
680)             updateDate => "Unknown",

681)         },

682) 

683) 	mirror035 => {
684)             adminContact => "",

685)             orgName => "shizhao",

686)             isoCC => "CN",
687)             subRegion => "",
688)             region => "CN",
689)             ipv4 => "True",
690)             ipv6 => "False",
691)             loadBalanced => "No",
692)             httpWebsiteMirror => "http://tor.shizhao.org/",
693)             httpsWebsiteMirror => "",
694)             rsyncWebsiteMirror => "",
695)             ftpWebsiteMirror => "",
696)             httpDistMirror => "http://tor.shizhao.org/dist/",
697)             httpsDistMirror => "",
698)             rsyncDistMirror => "",
699)             hiddenServiceMirror => "",
700)             updateDate => "Unknown",

701)         },

702) 

703) 	mirror036 => {
704)             adminContact => "",

705)             orgName => "ranyunfei",

706)             isoCC => "CN",
707)             subRegion => "",
708)             region => "CN",
709)             ipv4 => "True",
710)             ipv6 => "False",
711)             loadBalanced => "No",
712)             httpWebsiteMirror => "http://tor.ranyunfei.com/",
713)             httpsWebsiteMirror => "",
714)             rsyncWebsiteMirror => "",
715)             ftpWebsiteMirror => "",
716)             httpDistMirror => "http://tor.ranyunfei.com/dist/",
717)             httpsDistMirror => "",
718)             rsyncDistMirror => "",
719)             hiddenServiceMirror => "",
720)             updateDate => "Unknown",

721)         },

722) 

723) 	mirror037 => {
724)             adminContact => "",

725)             orgName => "wuerkaixi",

726)             isoCC => "CN",
727)             subRegion => "",
728)             region => "CN",
729)             ipv4 => "True",
730)             ipv6 => "False",
731)             loadBalanced => "No",
732)             httpWebsiteMirror => "http://tor.wuerkaixi.com/",
733)             httpsWebsiteMirror => "",
734)             rsyncWebsiteMirror => "",
735)             ftpWebsiteMirror => "",
736)             httpDistMirror => "http://tor.wuerkaixi.com/dist/",
737)             httpsDistMirror => "",
738)             rsyncDistMirror => "",
739)             hiddenServiceMirror => "",
740)             updateDate => "Unknown",

741)         },

742) 

743) 	mirror038 => {
744)             adminContact => "",

745)             orgName => "izaobao",

746)             isoCC => "CN",
747)             subRegion => "",
748)             region => "CN",
749)             ipv4 => "True",
750)             ipv6 => "False",
751)             loadBalanced => "No",
752)             httpWebsiteMirror => "http://tor.izaobao.com/",
753)             httpsWebsiteMirror => "",
754)             rsyncWebsiteMirror => "",
755)             ftpWebsiteMirror => "",
756)             httpDistMirror => "http://tor.izaobao.com/dist/",
757)             httpsDistMirror => "",
758)             rsyncDistMirror => "",
759)             hiddenServiceMirror => "",
760)             updateDate => "Unknown",

761)         },

762) 

763) 	mirror039 => {
764)             adminContact => "",

765)             orgName => "anothr",

766)             isoCC => "CN",
767)             subRegion => "",
768)             region => "CN",
769)             ipv4 => "True",
770)             ipv6 => "False",
771)             loadBalanced => "No",
772)             httpWebsiteMirror => "http://tor.anothr.com/",
773)             httpsWebsiteMirror => "",
774)             rsyncWebsiteMirror => "",
775)             ftpWebsiteMirror => "",
776)             httpDistMirror => "http://tor.anothr.com/dist/",
777)             httpsDistMirror => "",
778)             rsyncDistMirror => "",
779)             hiddenServiceMirror => "",
780)             updateDate => "Unknown",

781)         },

782) 

783) 	mirror040 => {
784)             adminContact => "",

785)             orgName => "zuola",

786)             isoCC => "CN",
787)             subRegion => "",
788)             region => "CN",
789)             ipv4 => "True",
790)             ipv6 => "False",
791)             loadBalanced => "No",
792)             httpWebsiteMirror => "http://tor.zuo.la/",
793)             httpsWebsiteMirror => "",
794)             rsyncWebsiteMirror => "",
795)             ftpWebsiteMirror => "",
796)             httpDistMirror => "http://tor.zuo.la/dist/",
797)             httpsDistMirror => "",
798)             rsyncDistMirror => "",
799)             hiddenServiceMirror => "",
800)             updateDate => "Unknown",

801)         },
802) 
803) 	mirror041 => {

804)             adminContact => "scream AT nonvocalscream DOT com",

805)             orgName => "NVS",
806)             isoCC => "US",
807)             subRegion => "",
808)             region => "US",
809)             ipv4 => "True",
810)             ipv6 => "False",
811)             loadBalanced => "No",
812)             httpWebsiteMirror => "http://tor.nonvocalscream.com/",

813)             httpsWebsiteMirror => "https://tor.nonvocalscream.com/",

814)             rsyncWebsiteMirror => "",
815)             ftpWebsiteMirror => "",
816)             httpDistMirror => "http://tor.nonvocalscream.com/dist/",

817)             httpsDistMirror => "https://tor.nonvocalscream.com/dist/",

818)             rsyncDistMirror => "",
819)             hiddenServiceMirror => "",
820)             updateDate => "Unknown",

821)         },
822) 
823) 	mirror042 => {
824)             adminContact => "",
825)             orgName => "ax",
826)             isoCC => "DE",
827)             subRegion => "",
828)             region => "DE",
829)             ipv4 => "True",
830)             ipv6 => "False",
831)             loadBalanced => "No",
832)             httpWebsiteMirror => "",
833)             httpsWebsiteMirror => "",
834)             rsyncWebsiteMirror => "",
835)             ftpWebsiteMirror => "",
836)             httpDistMirror => "http://tor.initrd.net/dist/",
837)             httpsDistMirror => "",
838)             rsyncDistMirror => "",
839)             hiddenServiceMirror => "",
840)             updateDate => "Unknown",

841)         },
842)         mirror043 => {

843)             adminContact => "BarkerJr AT barkerjr DOT net",

844)             orgName => "BarkerJr",
845)             isoCC => "FR",
846)             subRegion => "",
847)             region => "FR",
848)             ipv4 => "True",
849)             ipv6 => "False",
850)             loadBalanced => "No",
851)             httpWebsiteMirror => "",
852)             httpsWebsiteMirror => "",
853)             rsyncWebsiteMirror => "",
854)             ftpWebsiteMirror => "",
855)             httpDistMirror => "http://tor.megahal.org/dist/",
856)             httpsDistMirror => "",
857)             rsyncDistMirror => "",
858)             hiddenServiceMirror => "",
859)             updateDate => "Unknown",

860)         },       mirror044 => {
861)             adminContact => "tor AT goodeid DOT com",
862)             orgName => "goodeid.com",
863)             isoCC => "CAN",
864)             subRegion => "",
865)             region => "CAN",
866)             ipv4 => "True",
867)             ipv6 => "False",
868)             loadBalanced => "No",
869)             httpWebsiteMirror => "http://tor-node.goodeid.com/",

870)             httpsWebsiteMirror => "https://tor-node.goodeid.com/",

871)             rsyncWebsiteMirror => "",
872)             ftpWebsiteMirror => "",
873)             httpDistMirror => "http://tor-node.goodeid.com/dist/",

874)             httpsDistMirror => "https://tor-node.goodeid.com/dist/",

875)             rsyncDistMirror => "",
876)             hiddenServiceMirror => "",
877)             updateDate => "Unknown",

878)         }

879) );
880) 
881) my $count = values %m;
882) print "We have a total of $count mirrors\n";
883) print "Fetching the last updated date for each mirror.\n";
884) 

885) my $tortime;
886) $tortime = FetchDate("http://www.torproject.org/");
887) print "The official time for Tor is $tortime. \n";
888) 

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

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

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

931)      my $time;

932)      if ( "$m{$server}{'updateDate'}" ne "Unknown") {
933) 	  if ( "$m{$server}{'updateDate'}" eq "$tortime" ) {

934) 	    $time = "Up to date";
935) 	  } else { $time = "Out of date"; }

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

937) print OUT <<"END";
938)      \n<tr>\n
939)          <td>$m{$server}{'isoCC'}</td>\n
940)          <td>$m{$server}{'orgName'}</td>\n
941)          <td>$time</td>\n
942) END
943) 
944)      my %prettyNames = (
945)                         httpWebsiteMirror => "http",
946)                         httpsWebsiteMirror => "https",
947)                         ftpWebsiteMirror => "ftp",
948)                         rsyncWebsiteMirror => "rsync",
949)                         httpDistMirror => "http",
950)                         httpsDistMirror => "https",
951)                         rsyncDistMirrors => "rsync", );
952) 
953)      foreach my $precious ( sort keys %prettyNames )

954)      {
955)         if ($m{$server}{"$precious"}) {
956)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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