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) #Crypto 404 
17) #

18) 

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

22)     timeout => 15,

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

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

49) 

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

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

54) 

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

69) 

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

74) 
75)     return "Unknown";

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

80) my %m = (
81)         mirror000 => {
82)             adminContact => "tor AT goodeid DOT com",
83)             orgName => "goodeid.com",
84)             isoCC => "CAN",
85)             subRegion => "",
86)             region => "CAN",
87)             ipv4 => "True",
88)             ipv6 => "False",
89)             loadBalanced => "No",
90)             httpWebsiteMirror => "http://tor-node.goodeid.com/",
91)             httpsWebsiteMirror => "https://tor-node.goodeid.com/",
92)             rsyncWebsiteMirror => "",
93)             ftpWebsiteMirror => "",
94)             httpDistMirror => "http://tor-node.goodeid.com/dist/",
95)             httpsDistMirror => "https://tor-node.goodeid.com/dist/",
96)             rsyncDistMirror => "",
97)             hiddenServiceMirror => "",
98)             updateDate => "Unknown",
99)         },
100) 

101)         mirror001 => {
102)             adminContact => "BarkerJr AT barkerjr DOT net",
103)             orgName => "BarkerJr",
104)             isoCC => "FR",
105)             subRegion => "",
106)             region => "FR",
107)             ipv4 => "True",
108)             ipv6 => "False",
109)             loadBalanced => "No",
110)             httpWebsiteMirror => "",
111)             httpsWebsiteMirror => "",
112)             rsyncWebsiteMirror => "",
113)             ftpWebsiteMirror => "",
114)             httpDistMirror => "http://tor.megahal.org/dist/",
115)             httpsDistMirror => "",
116)             rsyncDistMirror => "",
117)             hiddenServiceMirror => "",
118)             updateDate => "Unknown",
119)         },
120) 

121)        mirror002 => {

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

123)             orgName => "Hermetix",

124)             isoCC => "CA",
125)             subRegion => "QC",
126)             region => "North America",
127)             ipv4 => "True",
128)             ipv6 => "False",
129)             loadBalanced => "Unknown",
130)             httpWebsiteMirror => "http://tor.hermetix.org/",
131)             rsyncWebsiteMirror => "",

132)             httpDistMirror => "",

133)             rsyncDistMirror => "",

134)             updateDate => "Unknown",

135)         },
136) 
137)        mirror003 => {

138)             adminContact => "",

139)             orgName => "Boinc",

140)             isoCC => "CH",
141)             subRegion => "",
142)             region => "Europe",
143)             ipv4 => "True",
144)             ipv6 => "False",
145)             loadBalanced => "Unknown",
146)             httpWebsiteMirror => "http://tor.boinc.ch/",
147)             ftpWebsiteMirror => "",
148)             rsyncWebsiteMirror => "",
149)             httpDistMirror => "http://tor.boinc.ch/dist/",
150)             rsyncDistMirror => "",

151)             updateDate => "Unknown",

152)         },
153) 
154)        mirror004 => {

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

156)             orgName => "Anonymity",

157)             isoCC => "CN",
158)             subRegion => "",
159)             region => "Asia",
160)             ipv4 => "True",
161)             ipv6 => "False",
162)             loadBalanced => "Unknown",

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

164)             ftpWebsiteMirror => "",
165)             rsyncWebsiteMirror => "",

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

167)             rsyncDistMirror => "",

168)             updateDate => "Unknown",

169)         },
170) 

171)        mirror005 => {

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

173)             orgName => "Bbs",

174)             isoCC => "DE",
175)             subRegion => "",
176)             region => "Europe",
177)             ipv4 => "True",
178)             ipv6 => "False",
179)             loadBalanced => "Unknown",
180)             httpWebsiteMirror => "http://tor.blingblingsquad.net/",
181)             ftpWebsiteMirror => "",
182)             rsyncWebsiteMirror => "",

183)             httpDistMirror => "",

184)             rsyncDistMirror => "",

185)             updateDate => "Unknown",

186)         },
187) 

188)        mirror006 => {

189)             orgName => "Berapla",
190)             isoCC => "DE",
191)             subRegion => "",
192)             region => "Europe",
193)             ipv4 => "True",
194)             ipv6 => "False",
195)             loadBalanced => "Unknown",
196)             httpWebsiteMirror => "http://download.berapla.de/mirrors/tor/",
197)             ftpWebsiteMirror => "",
198)             rsyncWebsiteMirror => "",
199)             httpDistMirror => "http://download.berapla.de/mirrors/tor/dist/",
200)             rsyncDistMirror => "",
201)             updateDate => "Unknown",
202)         },

203) 

204)        mirror007 => {

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

206)             orgName => "Cybermirror",

207)             isoCC => "DE",
208)             subRegion => "",
209)             region => "Europe",
210)             ipv4 => "True",
211)             ipv6 => "False",
212)             loadBalanced => "Unknown",
213)             httpWebsiteMirror => "http://tor.cybermirror.org/",
214)             ftpWebsiteMirror => "",
215)             rsyncWebsiteMirror => "",
216)             httpDistMirror => "http://tor.cybermirror.org/dist/",
217)             rsyncDistMirror => "",

218)             updateDate => "Unknown",

219)         },
220) 

221)        mirror008 => {

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

223)             orgName => "Spline",
224)             isoCC => "DE",
225)             subRegion => "FU",
226)             region => "Europe",
227)             ipv4 => "True",
228)             ipv6 => "False",
229)             loadBalanced => "Unknown",

230)             httpWebsiteMirror => "",

231)             ftpWebsiteMirror => "",
232)             rsyncWebsiteMirror => "",

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

234)             rsyncDistMirror => "",

235)             updateDate => "Unknown",

236)         },
237) 
238)        mirror009 => {

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

240)             orgName => "Onionland",

241)             isoCC => "DE",
242)             subRegion => "",
243)             region => "Europe",
244)             ipv4 => "True",
245)             ipv6 => "False",
246)             loadBalanced => "Unknown",
247)             httpWebsiteMirror => "http://mirror.onionland.org/",
248)             ftpWebsiteMirror => "",
249)             rsyncWebsiteMirror => "rsync: mirror.onionland.org::tor/",
250)             httpDistMirror => "http://mirror.onionland.org/dist/",

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

252)             updateDate => "Unknown",

253)         },
254) 

255)        mirror011 => {

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

257)             orgName => "Zentrum der Gesundheit",

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

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

265)             ftpWebsiteMirror => "",

266)             rsyncWebsiteMirror => "",

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

269)             updateDate => "Unknown",

270)         },
271) 

272)        mirror012 => {

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

274)             orgName => "CRAN",
275)             isoCC => "FR",

276)             subRegion => "Ile de France",

277)             region => "Europe",
278)             ipv4 => "True",
279)             ipv6 => "False",
280)             loadBalanced => "Unknown",

281)             httpWebsiteMirror => "",

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

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

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

285)             rsyncDistMirror => "",

286)             updateDate => "Unknown",

287)         },
288) 

289)        mirror013 => {

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

291)             orgName => "Amorphis",

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

299)             rsyncWebsiteMirror => "",

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

303)             updateDate => "Unknown",

304)         },
305) 

306)        mirror014 => {

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

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

315)             httpWebsiteMirror => "",

316)             rsyncWebsiteMirror => "",

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

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

319)             rsyncDistMirror => "",

320)             updateDate => "Unknown",

321)         },
322) 

323)        mirror015 => {

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

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

333)             rsyncWebsiteMirror => "",

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

337)             updateDate => "Unknown",

338)         },
339) 

340)        mirror016 => {

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

342)             orgName => "Kamagurka",

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

350)             rsyncWebsiteMirror => "",

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

354)             updateDate => "Unknown",

355)         },
356) 

357)        mirror017 => {

358)             adminContact => "mirrorsosmirror.nl",

359)             orgName => "OS Mirror",
360)             isoCC => "NL",
361)             subRegion => "",
362)             region => "Europe",
363)             ipv4 => "True",
364)             ipv6 => "False",
365)             loadBalanced => "Unknown",

366)             httpWebsiteMirror => "",

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

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

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

370)             rsyncDistMirror => "",

371)             updateDate => "Unknown",

372)         },
373) 
374) 

375)        mirror018 => {

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

377)             orgName => "Meulie",

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

384)             httpWebsiteMirror => "",

385)             rsyncWebsiteMirror => "",

386)             ftpWebsiteMirror => "",

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

388)             rsyncDistMirror => "",

389)             updateDate => "Unknown",

390)         },
391) 

392)        mirror019 => {

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

394)             orgName => "Ghirai",

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

401)             httpWebsiteMirror => "",

402)             rsyncWebsiteMirror => "",

403)             ftpWebsiteMirror => "",

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

405)             rsyncDistMirror => "",

406)             updateDate => "Unknown",

407)         },
408) 

409)        mirror020 => {

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

411)             orgName => "BJWOnline",

412)             isoCC => "US",
413)             subRegion => "California",
414)             region => "North America",
415)             ipv4 => "True",
416)             ipv6 => "False",
417)             loadBalanced => "Unknown",
418)             httpWebsiteMirror => "http://mirror.bjwonline.com/tor/",

419)             rsyncWebsiteMirror => "",

420)             ftpWebsiteMirror => "",

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

422)             rsyncDistMirror => "",

423)             updateDate => "Unknown",

424)         },
425) 

426)        mirror021 => {

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

428)             orgName => "TheOnionRouter",

429)             isoCC => "US",

430)             subRegion => "New Jersey",

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

436)             rsyncWebsiteMirror => "",

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

440)             updateDate => "Unknown",

441)         },
442) 

443)        mirror022 => {

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

445)             orgName => "Unfix",

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

453)             rsyncWebsiteMirror => "",

454)             ftpWebsiteMirror => "",

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

456)             rsyncDistMirror => "",

457)             updateDate => "Unknown",

458)         },
459) 

460)        mirror023 => {

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

462)             orgName => "Sixx",

463)             isoCC => "CH",

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

470)             rsyncWebsiteMirror => "",

471)             ftpWebsiteMirror => "",

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

473)             rsyncDistMirror => "",

474)             updateDate => "Unknown",

475)         },

476) 

477)        mirror024 => {

478)             adminContact => "",

479)             orgName => "Crypto",

480)             isoCC => "US",
481)             subRegion => "",
482)             region => "North America",
483)             ipv4 => "True",
484)             ipv6 => "False",
485)             loadBalanced => "Unknown",
486)             httpWebsiteMirror => "http://crypto.nsa.org/tor/",

487)             rsyncWebsiteMirror => "",

488)             ftpWebsiteMirror => "",
489)             httpDistMirror => "http://crypto.nsa.org/tor/dist/",
490)             rsyncDistMirror => "",
491)             updateDate => "Unknown",
492)         },

493) 

494)        mirror025 => {

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

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

504)             rsyncWebsiteMirror => "",

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

509)         },

510) 

511)         mirror026 => {

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

513)             orgName => "Xpdm",

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

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

522)             rsyncWebsiteMirror => "",

523)             ftpWebsiteMirror => "",

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

526)             rsyncDistMirror => "",
527)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
528)             updateDate => "Unknown",

529)         },

530) 

531)         mirror027 => {

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

533)             orgName => "Unknown",
534)             isoCC => "CN",
535)             subRegion => "China",
536)             region => "Asia",
537)             ipv4 => "True",
538)             ipv6 => "False",
539)             loadBalanced => "No",
540)             httpWebsiteMirror => "http://free.be.ijing2008.cn/tor/",
541)             httpsWebsiteMirror => "",

542)             rsyncWebsiteMirror => "",

543)             ftpWebsiteMirror => "",
544)             httpDistMirror => "http://free.be.ijing2008.cn/tor/dist/",
545)             httpsDistMirror => "",
546)             rsyncDistMirror => "",
547)             hiddenServiceMirror => "",
548)             updateDate => "Unknown",

549)         },

550) 

551)         mirror028 => {

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

553)             orgName => "Unknown",
554)             isoCC => "HU",
555)             subRegion => "Hungary",
556)             region => "Europe",
557)             ipv4 => "True",
558)             ipv6 => "False",
559)             loadBalanced => "No",
560)             httpWebsiteMirror => "http://mirror.tor.hu/",
561)             httpsWebsiteMirror => "",

562)             rsyncWebsiteMirror => "",

563)             ftpWebsiteMirror => "",
564)             httpDistMirror => "http://mirror.tor.hu/dist/",
565)             httpsDistMirror => "",
566)             rsyncDistMirror => "",
567)             hiddenServiceMirror => "",
568)             updateDate => "Unknown",

569)         },

570) 

571)         mirror029 => {

572)             adminContact => "",

573)             orgName => "Technica-03",

574)             isoCC => "UA",

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

582)             rsyncWebsiteMirror => "",

583)             ftpWebsiteMirror => "",
584)             httpDistMirror => "http://tordistua.reactor-xg.kiev.ua",
585)             httpsDistMirror => "",
586)             rsyncDistMirror => "",
587)             hiddenServiceMirror => "",
588)             updateDate => "Unknown",

589)         },

590) 

591) 	mirror030 => {

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

609)         },

610) 

611) 	mirror031 => {
612)             adminContact => "",
613)             orgName => "Ask Apache",
614)             isoCC => "US",
615)             subRegion => "California",
616)             region => "US",
617)             ipv4 => "True",
618)             ipv6 => "False",
619)             loadBalanced => "No",
620)             httpWebsiteMirror => "http://tor.askapache.com/",
621)             httpsWebsiteMirror => "",
622)             rsyncWebsiteMirror => "",
623)             ftpWebsiteMirror => "",

624)             httpDistMirror => "",

625)             httpsDistMirror => "",
626)             rsyncDistMirror => "",
627)             hiddenServiceMirror => "",
628)             updateDate => "Unknown",

629)         },

630) 

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

649)         },

650) 

651) 	mirror033 => {
652)             adminContact => "",

653)             orgName => "bullog",

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

669)         },

670) 

671) 	mirror034 => {
672)             adminContact => "",

673)             orgName => "digitip",

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

689)         },

690) 

691) 	mirror035 => {
692)             adminContact => "",

693)             orgName => "shizhao",

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

709)         },

710) 

711) 	mirror036 => {
712)             adminContact => "",

713)             orgName => "ranyunfei",

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

729)         },

730) 

731) 	mirror037 => {
732)             adminContact => "",

733)             orgName => "wuerkaixi",

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

749)         },

750) 

751) 	mirror038 => {
752)             adminContact => "",

753)             orgName => "izaobao",

754)             isoCC => "CN",
755)             subRegion => "",
756)             region => "CN",
757)             ipv4 => "True",
758)             ipv6 => "False",
759)             loadBalanced => "No",
760)             httpWebsiteMirror => "http://tor.izaobao.com/",
761)             httpsWebsiteMirror => "",
762)             rsyncWebsiteMirror => "",
763)             ftpWebsiteMirror => "",
764)             httpDistMirror => "http://tor.izaobao.com/dist/",
765)             httpsDistMirror => "",
766)             rsyncDistMirror => "",
767)             hiddenServiceMirror => "",
768)             updateDate => "Unknown",

769)         },

770) 

771) 	mirror039 => {
772)             adminContact => "",

773)             orgName => "anothr",

774)             isoCC => "CN",
775)             subRegion => "",
776)             region => "CN",
777)             ipv4 => "True",
778)             ipv6 => "False",
779)             loadBalanced => "No",
780)             httpWebsiteMirror => "http://tor.anothr.com/",
781)             httpsWebsiteMirror => "",
782)             rsyncWebsiteMirror => "",
783)             ftpWebsiteMirror => "",
784)             httpDistMirror => "http://tor.anothr.com/dist/",
785)             httpsDistMirror => "",
786)             rsyncDistMirror => "",
787)             hiddenServiceMirror => "",
788)             updateDate => "Unknown",

789)         },

790) 

791) 	mirror040 => {
792)             adminContact => "",

793)             orgName => "zuola",

794)             isoCC => "CN",
795)             subRegion => "",
796)             region => "CN",
797)             ipv4 => "True",
798)             ipv6 => "False",
799)             loadBalanced => "No",
800)             httpWebsiteMirror => "http://tor.zuo.la/",
801)             httpsWebsiteMirror => "",
802)             rsyncWebsiteMirror => "",
803)             ftpWebsiteMirror => "",
804)             httpDistMirror => "http://tor.zuo.la/dist/",
805)             httpsDistMirror => "",
806)             rsyncDistMirror => "",
807)             hiddenServiceMirror => "",
808)             updateDate => "Unknown",

809)         },
810) 
811) 	mirror041 => {

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

813)             orgName => "NVS",
814)             isoCC => "US",
815)             subRegion => "",
816)             region => "US",
817)             ipv4 => "True",
818)             ipv6 => "False",
819)             loadBalanced => "No",
820)             httpWebsiteMirror => "http://tor.nonvocalscream.com/",

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

822)             rsyncWebsiteMirror => "",
823)             ftpWebsiteMirror => "",
824)             httpDistMirror => "http://tor.nonvocalscream.com/dist/",

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

826)             rsyncDistMirror => "",
827)             hiddenServiceMirror => "",
828)             updateDate => "Unknown",

829)         },
830) 
831) 	mirror042 => {
832)             adminContact => "",
833)             orgName => "ax",
834)             isoCC => "DE",
835)             subRegion => "",
836)             region => "DE",
837)             ipv4 => "True",
838)             ipv6 => "False",
839)             loadBalanced => "No",
840)             httpWebsiteMirror => "",
841)             httpsWebsiteMirror => "",
842)             rsyncWebsiteMirror => "",
843)             ftpWebsiteMirror => "",
844)             httpDistMirror => "http://tor.initrd.net/dist/",
845)             httpsDistMirror => "",
846)             rsyncDistMirror => "",
847)             hiddenServiceMirror => "",
848)             updateDate => "Unknown",

849)         }

850) 

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

857) my $tortime;
858) $tortime = FetchDate("http://www.torproject.org/");
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'}" eq "$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";