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 => "or-assistants.local",

80)             orgName => "Cypherpunks",

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

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

91)             updateDate => "Unknown",

92)         },
93) 
94)        mirror001 => {

95)             adminContact => "webmaster.depthstrike.com",

96)             orgName => "Depthstrike",

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

108)             updateDate => "Unknown",

109)         },
110) 
111)        mirror002 => {

112)             adminContact => "operator.hermetix.org",

113)             orgName => "Hermetix",

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

122)             httpDistMirror => "",

123)             rsyncDistMirror => "",

124)             updateDate => "Unknown",

125)         },
126) 
127)        mirror003 => {

128)             adminContact => "",

129)             orgName => "Boinc",

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

141)             updateDate => "Unknown",

142)         },
143) 
144)        mirror004 => {

145)             adminContact => "peihanru.gmail.com",

146)             orgName => "Anonymity",

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

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

154)             ftpWebsiteMirror => "",
155)             rsyncWebsiteMirror => "",

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

157)             rsyncDistMirror => "",

158)             updateDate => "Unknown",

159)         },
160) 

161)        mirror005 => {

162)             adminContact => "citizen428.gmail.com",

163)             orgName => "Bbs",

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

173)             httpDistMirror => "",

174)             rsyncDistMirror => "",

175)             updateDate => "Unknown",

176)         },
177) 

178)        mirror006 => {

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

193) 

194)        mirror007 => {

195)             adminContact => "cm.cybermirror.org",

196)             orgName => "Cybermirror",

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

208)             updateDate => "Unknown",

209)         },
210) 

211)        mirror008 => {

212)             adminContact => "contact.algorithmus.com",

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

220)             httpWebsiteMirror => "",

221)             ftpWebsiteMirror => "",
222)             rsyncWebsiteMirror => "",

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

224)             rsyncDistMirror => "",

225)             updateDate => "Unknown",

226)         },
227) 
228)        mirror009 => {

229)             adminContact => "beaver.trash.net",

230)             orgName => "Onionland",

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

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

242)             updateDate => "Unknown",

243)         },
244) 

245)        mirror011 => {

246)             adminContact => "info.zentrum-der-gesundheit.de",

247)             orgName => "Zentrum der Gesundheit",

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

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

255)             ftpWebsiteMirror => "",

256)             rsyncWebsiteMirror => "",

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

259)             updateDate => "Unknown",

260)         },
261) 

262)        mirror012 => {

263)             adminContact => "kurt.miroir-francais.fr",

264)             orgName => "CRAN",
265)             isoCC => "FR",

266)             subRegion => "Ile de France",

267)             region => "Europe",
268)             ipv4 => "True",
269)             ipv6 => "False",
270)             loadBalanced => "Unknown",

271)             httpWebsiteMirror => "",

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

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

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

275)             rsyncDistMirror => "",

276)             updateDate => "Unknown",

277)         },
278) 

279)        mirror013 => {

280)             adminContact => "root.amorphis.eu",

281)             orgName => "Amorphis",

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

289)             rsyncWebsiteMirror => "",

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

293)             updateDate => "Unknown",

294)         },
295) 

296)        mirror014 => {

297)             adminContact => "mirror.bit.nl",

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

305)             httpWebsiteMirror => "",

306)             rsyncWebsiteMirror => "",

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

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

309)             rsyncDistMirror => "",

310)             updateDate => "Unknown",

311)         },
312) 

313)        mirror015 => {

314)             adminContact => "webmaster.ccc.de",

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

323)             rsyncWebsiteMirror => "",

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

327)             updateDate => "Unknown",

328)         },
329) 

330)        mirror016 => {

331)             adminContact => "root.kamagurka.org",

332)             orgName => "Kamagurka",

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

340)             rsyncWebsiteMirror => "",

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

344)             updateDate => "Unknown",

345)         },
346) 

347)        mirror017 => {

348)             adminContact => "mirrors.osmirror.nl",

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

356)             httpWebsiteMirror => "",

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

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

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

360)             rsyncDistMirror => "",

361)             updateDate => "Unknown",

362)         },
363) 
364) 

365)        mirror018 => {

366)             adminContact => "evert.meulie.net",

367)             orgName => "Meulie",

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

374)             httpWebsiteMirror => "",

375)             rsyncWebsiteMirror => "",

376)             ftpWebsiteMirror => "",

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

378)             rsyncDistMirror => "",

379)             updateDate => "Unknown",

380)         },
381) 

382)        mirror019 => {

383)             adminContact => "ghirai.ghirai.com",

384)             orgName => "Ghirai",

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

391)             httpWebsiteMirror => "",

392)             rsyncWebsiteMirror => "",

393)             ftpWebsiteMirror => "",

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

395)             rsyncDistMirror => "",

396)             updateDate => "Unknown",

397)         },
398) 

399)        mirror020 => {
400) 	    adminContact => "bjw.bjwonline.com",

401)             orgName => "BJWOnline",

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

409)             rsyncWebsiteMirror => "",

410)             ftpWebsiteMirror => "",

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

412)             rsyncDistMirror => "",

413)             updateDate => "Unknown",

414)         },
415) 

416)        mirror021 => {
417) 	    adminContact => "hostmaster.zombiewerks.com",

418)             orgName => "TheOnionRouter",

419)             isoCC => "US",

420)             subRegion => "New Jersey",

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

426)             rsyncWebsiteMirror => "",

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

430)             updateDate => "Unknown",

431)         },
432) 

433)        mirror022 => {

434)             adminContact => "jeroen.unfix.org",

435)             orgName => "Unfix",

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

443)             rsyncWebsiteMirror => "",

444)             ftpWebsiteMirror => "",

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

446)             rsyncDistMirror => "",

447)             updateDate => "Unknown",

448)         },
449) 

450)        mirror023 => {

451)             adminContact => "jeroen.unfix.org",

452)             orgName => "Sixx",

453)             isoCC => "CH",

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

460)             rsyncWebsiteMirror => "",

461)             ftpWebsiteMirror => "",

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

463)             rsyncDistMirror => "",

464)             updateDate => "Unknown",

465)         },

466) 

467)        mirror024 => {

468)             adminContact => "",

469)             orgName => "Crypto",

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

477)             rsyncWebsiteMirror => "",

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

483) 

484)        mirror025 => {

485)             adminContact => "web2005a.year2005a.wiretapped.net",

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

494)             rsyncWebsiteMirror => "",

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

499)         },

500) 

501)         mirror026 => {

502)             adminContact => "tormaster.xpdm.us",

503)             orgName => "Xpdm",

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

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

512)             rsyncWebsiteMirror => "",

513)             ftpWebsiteMirror => "",

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

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

519)         },

520) 

521)         mirror027 => {

522)             adminContact => "internetfreebeijing\@gmail.com",
523)             orgName => "Unknown",
524)             isoCC => "CN",
525)             subRegion => "China",
526)             region => "Asia",
527)             ipv4 => "True",
528)             ipv6 => "False",
529)             loadBalanced => "No",
530)             httpWebsiteMirror => "http://free.be.ijing2008.cn/tor/",
531)             httpsWebsiteMirror => "",

532)             rsyncWebsiteMirror => "",

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

539)         },

540) 

541)         mirror028 => {

542)             adminContact => "security\@hostoffice.hu",
543)             orgName => "Unknown",
544)             isoCC => "HU",
545)             subRegion => "Hungary",
546)             region => "Europe",
547)             ipv4 => "True",
548)             ipv6 => "False",
549)             loadBalanced => "No",
550)             httpWebsiteMirror => "http://mirror.tor.hu/",
551)             httpsWebsiteMirror => "",

552)             rsyncWebsiteMirror => "",

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

559)         },

560) 

561)         mirror029 => {

562)             adminContact => "",

563)             orgName => "Technica-03",

564)             isoCC => "UA",

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

572)             rsyncWebsiteMirror => "",

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

579)         },

580) 

581) 	mirror030 => {

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

599)         },

600) 

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

614)             httpDistMirror => "",

615)             httpsDistMirror => "",
616)             rsyncDistMirror => "",
617)             hiddenServiceMirror => "",
618)             updateDate => "Unknown",

619)         },

620) 

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

639)         },

640) 

641) 	mirror033 => {
642)             adminContact => "",

643)             orgName => "bullog",

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

659)         },

660) 

661) 	mirror034 => {
662)             adminContact => "",

663)             orgName => "digitip",

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

679)         },

680) 

681) 	mirror035 => {
682)             adminContact => "",

683)             orgName => "shizhao",

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

699)         },

700) 

701) 	mirror036 => {
702)             adminContact => "",

703)             orgName => "ranyunfei",

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

719)         },

720) 

721) 	mirror037 => {
722)             adminContact => "",

723)             orgName => "wuerkaixi",

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

739)         },

740) 

741) 	mirror038 => {
742)             adminContact => "",

743)             orgName => "izaobao",

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

759)         },

760) 

761) 	mirror039 => {
762)             adminContact => "",

763)             orgName => "anothr",

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

779)         },

780) 

781) 	mirror040 => {
782)             adminContact => "",

783)             orgName => "zuola",

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

799)         },
800) 
801) 	mirror041 => {
802)             adminContact => "",
803)             orgName => "NVS",
804)             isoCC => "US",
805)             subRegion => "",
806)             region => "US",
807)             ipv4 => "True",
808)             ipv6 => "False",
809)             loadBalanced => "No",
810)             httpWebsiteMirror => "http://tor.nonvocalscream.com/",

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

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

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

816)             rsyncDistMirror => "",
817)             hiddenServiceMirror => "",
818)             updateDate => "Unknown",

819)         }

820) );
821) 
822) my $count = values %m;
823) print "We have a total of $count mirrors\n";
824) print "Fetching the last updated date for each mirror.\n";
825) 

826) my $tortime;
827) $tortime = FetchDate("http://www.torproject.org/");
828) print "The official time for Tor is $tortime. \n";
829) 

830) foreach my $server ( keys %m ) {
831) 
832)     print "Attempting to fetch from $m{$server}{'orgName'}\n";
833) 
834)     if ($m{$server}{'httpWebsiteMirror'}) {
835)         print "Attempt to fetch via HTTP.\n";
836)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpWebsiteMirror'}");
837)     } elsif ($m{$server}{'httpsWebsiteMirror'}) {
838)         print "Attempt to fetch via HTTPS.\n";
839)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpsWebsiteMirror'}");
840)     } elsif ($m{$server}{'ftpWebsiteMirror'}) {
841)         print "Attempt to fetch via FTP.\n";
842)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'ftpWebsiteMirror'}");
843)     } else {
844)         print "We were unable to fetch or store anything. We still have the following: $m{$server}{'updateDate'}\n";
845)     }
846) 
847)     print "We fetched and stored the following: $m{$server}{'updateDate'}\n";
848) 
849)  }
850) 
851) 
852) print "We sorted the following mirrors by their date of last update: \n";
853) foreach my $server ( sort { $m{$b}{'updateDate'} <=> $m{$a}{'updateDate'}} keys %m ) {
854) 
855)      print "\n";
856)      print "Mirror $m{$server}{'orgName'}: \n";
857) 
858)      foreach my $attrib ( sort keys %{$m{$server}} ) {
859)         print "$attrib = $m{$server}{$attrib}";
860)         print "\n";
861)      };
862) }
863) 
864) my $outFile = "include/mirrors-table.wmi";
865) my $html;
866) open(OUT, "> $outFile") or die "Can't open $outFile: $!";
867) 

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

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

872)      my $time;

873)      if ( "$m{$server}{'updateDate'}" ne "Unknown") {
874) 	  if ( "$m{$server}{'updateDate'}" eq "$tortime" ) {

875) 	    $time = "Up to date";
876) 	  } else { $time = "Out of date"; }

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

878) print OUT <<"END";
879)      \n<tr>\n
880)          <td>$m{$server}{'isoCC'}</td>\n
881)          <td>$m{$server}{'orgName'}</td>\n
882)          <td>$time</td>\n
883) END
884) 
885)      my %prettyNames = (
886)                         httpWebsiteMirror => "http",
887)                         httpsWebsiteMirror => "https",
888)                         ftpWebsiteMirror => "ftp",
889)                         rsyncWebsiteMirror => "rsync",
890)                         httpDistMirror => "http",
891)                         httpsDistMirror => "https",
892)                         rsyncDistMirrors => "rsync", );
893) 
894)      foreach my $precious ( sort keys %prettyNames )

895)      {
896)         if ($m{$server}{"$precious"}) {
897)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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