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) 

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

19)     timeout => 15,

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

44)     my $code = $result->code();
45)     print "Result code $code\n";

46) 

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

48)        my $taint = $result->content;
49)        my $content = sanitize($taint);
50)        if ($content) {

51) 

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

66) 

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

71) 
72)     return "Unknown";

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

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

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

118)        mirror002 => {

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

120)             orgName => "Hermetix",

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

129)             httpDistMirror => "",

130)             rsyncDistMirror => "",

131)             updateDate => "Unknown",

132)         },
133) 
134)        mirror003 => {

135)             adminContact => "",

136)             orgName => "Boinc",

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

148)             updateDate => "Unknown",

149)         },
150) 
151)        mirror004 => {

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

153)             orgName => "Anonymity",

154)             isoCC => "CN",
155)             subRegion => "",
156)             region => "Asia",
157)             ipv4 => "True",
158)             ipv6 => "False",
159)             loadBalanced => "Unknown",

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

161)             ftpWebsiteMirror => "",
162)             rsyncWebsiteMirror => "",

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

164)             rsyncDistMirror => "",

165)             updateDate => "Unknown",

166)         },
167) 

168)        mirror005 => {

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

170)             orgName => "Bbs",

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

180)             httpDistMirror => "",

181)             rsyncDistMirror => "",

182)             updateDate => "Unknown",

183)         },
184) 

185)        mirror006 => {

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

200) 

201)        mirror007 => {

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

203)             orgName => "Cybermirror",

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

215)             updateDate => "Unknown",

216)         },
217) 

218)        mirror008 => {

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

220)             orgName => "Spline",
221)             isoCC => "DE",
222)             subRegion => "FU",
223)             region => "Europe",
224)             ipv4 => "True",
225)             ipv6 => "False",
226)             loadBalanced => "Unknown",

227)             httpWebsiteMirror => "",

228)             ftpWebsiteMirror => "",
229)             rsyncWebsiteMirror => "",

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

231)             rsyncDistMirror => "",

232)             updateDate => "Unknown",

233)         },
234) 
235)        mirror009 => {

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

237)             orgName => "Onionland",

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

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

249)             updateDate => "Unknown",

250)         },
251) 

252)        mirror011 => {

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

254)             orgName => "Zentrum der Gesundheit",

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

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

262)             ftpWebsiteMirror => "",

263)             rsyncWebsiteMirror => "",

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

266)             updateDate => "Unknown",

267)         },
268) 

269)        mirror012 => {

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

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

273)             subRegion => "Ile de France",

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

278)             httpWebsiteMirror => "",

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

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

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

282)             rsyncDistMirror => "",

283)             updateDate => "Unknown",

284)         },
285) 

286)        mirror013 => {

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

288)             orgName => "Amorphis",

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

296)             rsyncWebsiteMirror => "",

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

300)             updateDate => "Unknown",

301)         },
302) 

303)        mirror014 => {

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

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

312)             httpWebsiteMirror => "",

313)             rsyncWebsiteMirror => "",

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

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

316)             rsyncDistMirror => "",

317)             updateDate => "Unknown",

318)         },
319) 

320)        mirror015 => {

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

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

330)             rsyncWebsiteMirror => "",

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

334)             updateDate => "Unknown",

335)         },
336) 

337)        mirror016 => {

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

339)             orgName => "Kamagurka",

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

347)             rsyncWebsiteMirror => "",

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

351)             updateDate => "Unknown",

352)         },
353) 

354)        mirror017 => {

355)             adminContact => "mirrorsosmirror.nl",

356)             orgName => "OS Mirror",
357)             isoCC => "NL",
358)             subRegion => "",
359)             region => "Europe",
360)             ipv4 => "True",
361)             ipv6 => "False",
362)             loadBalanced => "Unknown",

363)             httpWebsiteMirror => "",

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

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

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

367)             rsyncDistMirror => "",

368)             updateDate => "Unknown",

369)         },
370) 
371) 

372)        mirror018 => {

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

374)             orgName => "Meulie",

375)             isoCC => "NO",
376)             subRegion => "",
377)             region => "Europe",
378)             ipv4 => "True",
379)             ipv6 => "False",
380)             loadBalanced => "Unknown",

381)             httpWebsiteMirror => "",

382)             rsyncWebsiteMirror => "",

383)             ftpWebsiteMirror => "",

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

385)             rsyncDistMirror => "",

386)             updateDate => "Unknown",

387)         },
388) 

389)        mirror019 => {

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

391)             orgName => "Ghirai",

392)             isoCC => "UK",
393)             subRegion => "London",
394)             region => "Europe",
395)             ipv4 => "True",
396)             ipv6 => "False",
397)             loadBalanced => "Unknown",

398)             httpWebsiteMirror => "",

399)             rsyncWebsiteMirror => "",

400)             ftpWebsiteMirror => "",

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

402)             rsyncDistMirror => "",

403)             updateDate => "Unknown",

404)         },
405) 

406)        mirror020 => {

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

408)             orgName => "BJWOnline",

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

416)             rsyncWebsiteMirror => "",

417)             ftpWebsiteMirror => "",

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

419)             rsyncDistMirror => "",

420)             updateDate => "Unknown",

421)         },
422) 

423)        mirror021 => {

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

425)             orgName => "TheOnionRouter",

426)             isoCC => "US",

427)             subRegion => "New Jersey",

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

433)             rsyncWebsiteMirror => "",

434)             ftpWebsiteMirror => "",
435)             httpDistMirror => "http://www.theonionrouter.com/dist/",
436)             rsyncDistMirror => "",

437)             updateDate => "Unknown",

438)         },
439) 

440)        mirror022 => {

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

442)             orgName => "Unfix",

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

450)             rsyncWebsiteMirror => "",

451)             ftpWebsiteMirror => "",

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

453)             rsyncDistMirror => "",

454)             updateDate => "Unknown",

455)         },
456) 

457)        mirror023 => {

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

459)             orgName => "Sixx",

460)             isoCC => "CH",

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

467)             rsyncWebsiteMirror => "",

468)             ftpWebsiteMirror => "",

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

470)             rsyncDistMirror => "",

471)             updateDate => "Unknown",

472)         },

473) 

474)        mirror024 => {

475)             adminContact => "",

476)             orgName => "Crypto",

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

484)             rsyncWebsiteMirror => "",

485)             ftpWebsiteMirror => "",
486)             httpDistMirror => "http://crypto.nsa.org/tor/dist/",
487)             rsyncDistMirror => "",
488)             updateDate => "Unknown",
489)         },

490) 

491)        mirror025 => {

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

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

501)             rsyncWebsiteMirror => "",

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

506)         },

507) 

508)         mirror026 => {

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

510)             orgName => "Xpdm",

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

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

519)             rsyncWebsiteMirror => "",

520)             ftpWebsiteMirror => "",

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

523)             rsyncDistMirror => "",
524)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
525)             updateDate => "Unknown",

526)         },

527) 

528)         mirror027 => {

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

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

539)             rsyncWebsiteMirror => "",

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

546)         },

547) 

548)         mirror028 => {

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

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

559)             rsyncWebsiteMirror => "",

560)             ftpWebsiteMirror => "",
561)             httpDistMirror => "http://mirror.tor.hu/dist/",
562)             httpsDistMirror => "",
563)             rsyncDistMirror => "",
564)             hiddenServiceMirror => "",
565)             updateDate => "Unknown",

566)         },

567) 

568)         mirror029 => {

569)             adminContact => "",

570)             orgName => "Technica-03",

571)             isoCC => "UA",

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

579)             rsyncWebsiteMirror => "",

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

586)         },

587) 

588) 	mirror030 => {

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

606)         },

607) 

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

621)             httpDistMirror => "",

622)             httpsDistMirror => "",
623)             rsyncDistMirror => "",
624)             hiddenServiceMirror => "",
625)             updateDate => "Unknown",

626)         },

627) 

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

646)         },

647) 

648) 	mirror033 => {
649)             adminContact => "",

650)             orgName => "bullog",

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

666)         },

667) 

668) 	mirror034 => {
669)             adminContact => "",

670)             orgName => "digitip",

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

686)         },

687) 

688) 	mirror035 => {
689)             adminContact => "",

690)             orgName => "shizhao",

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

706)         },

707) 

708) 	mirror036 => {
709)             adminContact => "",

710)             orgName => "ranyunfei",

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

726)         },

727) 

728) 	mirror037 => {
729)             adminContact => "",

730)             orgName => "wuerkaixi",

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

746)         },

747) 

748) 	mirror038 => {
749)             adminContact => "",

750)             orgName => "izaobao",

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

766)         },

767) 

768) 	mirror039 => {
769)             adminContact => "",

770)             orgName => "anothr",

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

786)         },

787) 

788) 	mirror040 => {
789)             adminContact => "",

790)             orgName => "zuola",

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

806)         },
807) 
808) 	mirror041 => {

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

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

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

819)             rsyncWebsiteMirror => "",
820)             ftpWebsiteMirror => "",
821)             httpDistMirror => "http://tor.nonvocalscream.com/dist/",

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

823)             rsyncDistMirror => "",
824)             hiddenServiceMirror => "",
825)             updateDate => "Unknown",

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

846)         }

847) 

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

854) my $tortime;
855) $tortime = FetchDate("http://www.torproject.org/");
856) print "The official time for Tor is $tortime. \n";
857) 

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

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

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

900)      my $time;

901)      if ( "$m{$server}{'updateDate'}" ne "Unknown") {
902) 	  if ( "$m{$server}{'updateDate'}" eq "$tortime" ) {

903) 	    $time = "Up to date";
904) 	  } else { $time = "Out of date"; }

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

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

923)      {
924)         if ($m{$server}{"$precious"}) {
925)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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