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) #Kamagurka TIMOUTS (Should be up in about a week)

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 => "CA",

85)             subRegion => "",

86)             region => "North America",

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://www.oignon.net/dist/",
115)             httpsDistMirror => "https://www.oignon.net/dist/",

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 => "scream AT nonvocalscream DOT com",
482)             orgName => "NVS",
483)             isoCC => "US",
484)             subRegion => "",
485)             region => "US",
486)             ipv4 => "True",
487)             ipv6 => "False",
488)             loadBalanced => "No",
489)             httpWebsiteMirror => "http://tor.nonvocalscream.com/",
490)             httpsWebsiteMirror => "https://tor.nonvocalscream.com/",
491)             rsyncWebsiteMirror => "",
492)             ftpWebsiteMirror => "",
493)             httpDistMirror => "http://tor.nonvocalscream.com/dist/",
494)             httpsDistMirror => "https://tor.nonvocalscream.com/dist/",
495)             rsyncDistMirror => "",
496)             hiddenServiceMirror => "",
497)             updateDate => "Unknown",
498)         },
499) 

500)        mirror025 => {

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

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

510)             rsyncWebsiteMirror => "",

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

515)         },

516) 

517)         mirror026 => {

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

519)             orgName => "Xpdm",

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

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

528)             rsyncWebsiteMirror => "",

529)             ftpWebsiteMirror => "",

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

532)             rsyncDistMirror => "",
533)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
534)             updateDate => "Unknown",

535)         },

536) 

537)         mirror027 => {

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

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

548)             rsyncWebsiteMirror => "",

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

555)         },

556) 

557)         mirror028 => {

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

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

568)             rsyncWebsiteMirror => "",

569)             ftpWebsiteMirror => "",
570)             httpDistMirror => "http://mirror.tor.hu/dist/",
571)             httpsDistMirror => "",
572)             rsyncDistMirror => "",
573)             hiddenServiceMirror => "",
574)             updateDate => "Unknown",

575)         },

576) 

577)         mirror029 => {

578)             adminContact => "",

579)             orgName => "Technica-03",

580)             isoCC => "UA",

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

588)             rsyncWebsiteMirror => "",

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

595)         },

596) 

597) 	mirror030 => {

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

615)         },

616) 

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

630)             httpDistMirror => "",

631)             httpsDistMirror => "",
632)             rsyncDistMirror => "",
633)             hiddenServiceMirror => "",
634)             updateDate => "Unknown",

635)         },

636) 

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

655)         },

656) 

657) 	mirror033 => {
658)             adminContact => "",

659)             orgName => "bullog",

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

675)         },

676) 

677) 	mirror034 => {
678)             adminContact => "",

679)             orgName => "digitip",

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

695)         },

696) 

697) 	mirror035 => {
698)             adminContact => "",

699)             orgName => "shizhao",

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

715)         },

716) 

717) 	mirror036 => {
718)             adminContact => "",

719)             orgName => "ranyunfei",

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

735)         },

736) 

737) 	mirror037 => {
738)             adminContact => "",

739)             orgName => "wuerkaixi",

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

755)         },

756) 

757) 	mirror038 => {
758)             adminContact => "",

759)             orgName => "izaobao",

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

775)         },

776) 

777) 	mirror039 => {
778)             adminContact => "",

779)             orgName => "anothr",

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

795)         },

796) 

797) 	mirror040 => {
798)             adminContact => "",

799)             orgName => "zuola",

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

815)         },
816) 
817) 	mirror041 => {
818)             adminContact => "BarkerJr AT barkerjr DOT net",
819)             orgName => "BarkerJr",
820)             isoCC => "US",
821)             subRegion => "",
822)             region => "US",
823)             ipv4 => "True",
824)             ipv6 => "False",
825)             loadBalanced => "No",
826)             httpWebsiteMirror => "",
827)             httpsWebsiteMirror => "",
828)             rsyncWebsiteMirror => "",
829)             ftpWebsiteMirror => "",
830)             httpDistMirror => "http://tor.dontdraft.us/dist/",
831)             httpsDistMirror => "",
832)             rsyncDistMirror => "",
833)             hiddenServiceMirror => "",
834)             updateDate => "Unknown",

835)         }

836) 

837) 

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

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

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

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

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

890)      my $time;

891)      if ( "$m{$server}{'updateDate'}" ne "Unknown") {
892) 	  if ( "$m{$server}{'updateDate'}" eq "$tortime" ) {

893) 	    $time = "Up to date";
894) 	  } else { $time = "Out of date"; }

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

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

913)      {
914)         if ($m{$server}{"$precious"}) {
915)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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