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 => "",
411)             orgName => "ax",
412)             isoCC => "DE",
413)             subRegion => "",
414)             region => "DE",
415)             ipv4 => "True",
416)             ipv6 => "False",
417)             loadBalanced => "No",
418)             httpWebsiteMirror => "",
419)             httpsWebsiteMirror => "",
420)             rsyncWebsiteMirror => "",
421)             ftpWebsiteMirror => "",
422)             httpDistMirror => "http://tor.initrd.net/dist/",
423)             httpsDistMirror => "",
424)             rsyncDistMirror => "",
425)             hiddenServiceMirror => "",
426)             updateDate => "Unknown",
427)         },
428) 

429)        mirror021 => {

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

431)             orgName => "TheOnionRouter",

432)             isoCC => "US",

433)             subRegion => "New Jersey",

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

439)             rsyncWebsiteMirror => "",

440)             ftpWebsiteMirror => "",
441)             httpDistMirror => "http://www.theonionrouter.com/dist/",
442)             rsyncDistMirror => "",

443)             updateDate => "Unknown",

444)         },
445) 

446)        mirror022 => {

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

448)             orgName => "Unfix",

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

456)             rsyncWebsiteMirror => "",

457)             ftpWebsiteMirror => "",

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

459)             rsyncDistMirror => "",

460)             updateDate => "Unknown",

461)         },
462) 

463)        mirror023 => {

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

465)             orgName => "Sixx",

466)             isoCC => "CH",

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

473)             rsyncWebsiteMirror => "",

474)             ftpWebsiteMirror => "",

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

476)             rsyncDistMirror => "",

477)             updateDate => "Unknown",

478)         },

479) 

480)        mirror024 => {

481)             adminContact => "",

482)             orgName => "Crypto",

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

490)             rsyncWebsiteMirror => "",

491)             ftpWebsiteMirror => "",
492)             httpDistMirror => "http://crypto.nsa.org/tor/dist/",
493)             rsyncDistMirror => "",
494)             updateDate => "Unknown",
495)         },

496) 

497)        mirror025 => {

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

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

507)             rsyncWebsiteMirror => "",

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

512)         },

513) 

514)         mirror026 => {

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

516)             orgName => "Xpdm",

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

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

525)             rsyncWebsiteMirror => "",

526)             ftpWebsiteMirror => "",

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

529)             rsyncDistMirror => "",
530)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
531)             updateDate => "Unknown",

532)         },

533) 

534)         mirror027 => {

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

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

545)             rsyncWebsiteMirror => "",

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

552)         },

553) 

554)         mirror028 => {

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

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

565)             rsyncWebsiteMirror => "",

566)             ftpWebsiteMirror => "",
567)             httpDistMirror => "http://mirror.tor.hu/dist/",
568)             httpsDistMirror => "",
569)             rsyncDistMirror => "",
570)             hiddenServiceMirror => "",
571)             updateDate => "Unknown",

572)         },

573) 

574)         mirror029 => {

575)             adminContact => "",

576)             orgName => "Technica-03",

577)             isoCC => "UA",

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

585)             rsyncWebsiteMirror => "",

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

592)         },

593) 

594) 	mirror030 => {

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

612)         },

613) 

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

627)             httpDistMirror => "",

628)             httpsDistMirror => "",
629)             rsyncDistMirror => "",
630)             hiddenServiceMirror => "",
631)             updateDate => "Unknown",

632)         },

633) 

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

652)         },

653) 

654) 	mirror033 => {
655)             adminContact => "",

656)             orgName => "bullog",

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

672)         },

673) 

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

676)             orgName => "digitip",

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

692)         },

693) 

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

696)             orgName => "shizhao",

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

712)         },

713) 

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

716)             orgName => "ranyunfei",

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

732)         },

733) 

734) 	mirror037 => {
735)             adminContact => "",

736)             orgName => "wuerkaixi",

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

752)         },

753) 

754) 	mirror038 => {
755)             adminContact => "",

756)             orgName => "izaobao",

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

772)         },

773) 

774) 	mirror039 => {
775)             adminContact => "",

776)             orgName => "anothr",

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

792)         },

793) 

794) 	mirror040 => {
795)             adminContact => "",

796)             orgName => "zuola",

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

812)         },
813) 
814) 	mirror041 => {

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

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

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

825)             rsyncWebsiteMirror => "",
826)             ftpWebsiteMirror => "",
827)             httpDistMirror => "http://tor.nonvocalscream.com/dist/",

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

829)             rsyncDistMirror => "",
830)             hiddenServiceMirror => "",
831)             updateDate => "Unknown",

832)         },
833) 

834) 

835) );
836) 
837) my $count = values %m;
838) print "We have a total of $count mirrors\n";
839) print "Fetching the last updated date for each mirror.\n";
840) 

841) my $tortime;
842) $tortime = FetchDate("http://www.torproject.org/");
843) print "The official time for Tor is $tortime. \n";
844) 

845) foreach my $server ( keys %m ) {
846) 
847)     print "Attempting to fetch from $m{$server}{'orgName'}\n";
848) 
849)     if ($m{$server}{'httpWebsiteMirror'}) {
850)         print "Attempt to fetch via HTTP.\n";
851)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpWebsiteMirror'}");
852)     } elsif ($m{$server}{'httpsWebsiteMirror'}) {
853)         print "Attempt to fetch via HTTPS.\n";
854)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpsWebsiteMirror'}");
855)     } elsif ($m{$server}{'ftpWebsiteMirror'}) {
856)         print "Attempt to fetch via FTP.\n";
857)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'ftpWebsiteMirror'}");
858)     } else {
859)         print "We were unable to fetch or store anything. We still have the following: $m{$server}{'updateDate'}\n";
860)     }
861) 
862)     print "We fetched and stored the following: $m{$server}{'updateDate'}\n";
863) 
864)  }
865) 
866) 
867) print "We sorted the following mirrors by their date of last update: \n";
868) foreach my $server ( sort { $m{$b}{'updateDate'} <=> $m{$a}{'updateDate'}} keys %m ) {
869) 
870)      print "\n";
871)      print "Mirror $m{$server}{'orgName'}: \n";
872) 
873)      foreach my $attrib ( sort keys %{$m{$server}} ) {
874)         print "$attrib = $m{$server}{$attrib}";
875)         print "\n";
876)      };
877) }
878) 
879) my $outFile = "include/mirrors-table.wmi";
880) my $html;
881) open(OUT, "> $outFile") or die "Can't open $outFile: $!";
882) 

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

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

887)      my $time;

888)      if ( "$m{$server}{'updateDate'}" ne "Unknown") {
889) 	  if ( "$m{$server}{'updateDate'}" eq "$tortime" ) {

890) 	    $time = "Up to date";
891) 	  } else { $time = "Out of date"; }

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

893) print OUT <<"END";
894)      \n<tr>\n
895)          <td>$m{$server}{'isoCC'}</td>\n
896)          <td>$m{$server}{'orgName'}</td>\n
897)          <td>$time</td>\n
898) END
899) 
900)      my %prettyNames = (
901)                         httpWebsiteMirror => "http",
902)                         httpsWebsiteMirror => "https",
903)                         ftpWebsiteMirror => "ftp",
904)                         rsyncWebsiteMirror => "rsync",
905)                         httpDistMirror => "http",
906)                         httpsDistMirror => "https",
907)                         rsyncDistMirrors => "rsync", );
908) 
909)      foreach my $precious ( sort keys %prettyNames )

910)      {
911)         if ($m{$server}{"$precious"}) {
912)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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