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)        mirror002 => {

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

100)             orgName => "Hermetix",

101)             isoCC => "CA",
102)             subRegion => "QC",
103)             region => "North America",
104)             ipv4 => "True",
105)             ipv6 => "False",
106)             loadBalanced => "Unknown",
107)             httpWebsiteMirror => "http://tor.hermetix.org/",
108)             rsyncWebsiteMirror => "",

109)             httpDistMirror => "",

110)             rsyncDistMirror => "",

111)             updateDate => "Unknown",

112)         },
113) 
114)        mirror003 => {

115)             adminContact => "",

116)             orgName => "Boinc",

117)             isoCC => "CH",
118)             subRegion => "",
119)             region => "Europe",
120)             ipv4 => "True",
121)             ipv6 => "False",
122)             loadBalanced => "Unknown",
123)             httpWebsiteMirror => "http://tor.boinc.ch/",
124)             ftpWebsiteMirror => "",
125)             rsyncWebsiteMirror => "",
126)             httpDistMirror => "http://tor.boinc.ch/dist/",
127)             rsyncDistMirror => "",

128)             updateDate => "Unknown",

129)         },
130) 
131)        mirror004 => {

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

133)             orgName => "Anonymity",

134)             isoCC => "CN",
135)             subRegion => "",
136)             region => "Asia",
137)             ipv4 => "True",
138)             ipv6 => "False",
139)             loadBalanced => "Unknown",

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

141)             ftpWebsiteMirror => "",
142)             rsyncWebsiteMirror => "",

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

144)             rsyncDistMirror => "",

145)             updateDate => "Unknown",

146)         },
147) 

148)        mirror005 => {

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

150)             orgName => "Bbs",

151)             isoCC => "DE",
152)             subRegion => "",
153)             region => "Europe",
154)             ipv4 => "True",
155)             ipv6 => "False",
156)             loadBalanced => "Unknown",
157)             httpWebsiteMirror => "http://tor.blingblingsquad.net/",
158)             ftpWebsiteMirror => "",
159)             rsyncWebsiteMirror => "",

160)             httpDistMirror => "",

161)             rsyncDistMirror => "",

162)             updateDate => "Unknown",

163)         },
164) 

165)        mirror006 => {

166)             orgName => "Berapla",
167)             isoCC => "DE",
168)             subRegion => "",
169)             region => "Europe",
170)             ipv4 => "True",
171)             ipv6 => "False",
172)             loadBalanced => "Unknown",
173)             httpWebsiteMirror => "http://download.berapla.de/mirrors/tor/",
174)             ftpWebsiteMirror => "",
175)             rsyncWebsiteMirror => "",
176)             httpDistMirror => "http://download.berapla.de/mirrors/tor/dist/",
177)             rsyncDistMirror => "",
178)             updateDate => "Unknown",
179)         },

180) 

181)        mirror007 => {

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

183)             orgName => "Cybermirror",

184)             isoCC => "DE",
185)             subRegion => "",
186)             region => "Europe",
187)             ipv4 => "True",
188)             ipv6 => "False",
189)             loadBalanced => "Unknown",
190)             httpWebsiteMirror => "http://tor.cybermirror.org/",
191)             ftpWebsiteMirror => "",
192)             rsyncWebsiteMirror => "",
193)             httpDistMirror => "http://tor.cybermirror.org/dist/",
194)             rsyncDistMirror => "",

195)             updateDate => "Unknown",

196)         },
197) 

198)        mirror008 => {

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

200)             orgName => "Spline",
201)             isoCC => "DE",
202)             subRegion => "FU",
203)             region => "Europe",
204)             ipv4 => "True",
205)             ipv6 => "False",
206)             loadBalanced => "Unknown",

207)             httpWebsiteMirror => "",

208)             ftpWebsiteMirror => "",
209)             rsyncWebsiteMirror => "",

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

211)             rsyncDistMirror => "",

212)             updateDate => "Unknown",

213)         },
214) 
215)        mirror009 => {

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

217)             orgName => "Onionland",

218)             isoCC => "DE",
219)             subRegion => "",
220)             region => "Europe",
221)             ipv4 => "True",
222)             ipv6 => "False",
223)             loadBalanced => "Unknown",
224)             httpWebsiteMirror => "http://mirror.onionland.org/",
225)             ftpWebsiteMirror => "",
226)             rsyncWebsiteMirror => "rsync: mirror.onionland.org::tor/",
227)             httpDistMirror => "http://mirror.onionland.org/dist/",

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

229)             updateDate => "Unknown",

230)         },
231) 

232)        mirror011 => {

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

234)             orgName => "Zentrum der Gesundheit",

235)             isoCC => "DK",
236)             subRegion => "",
237)             region => "Europe",
238)             ipv4 => "True",
239)             ipv6 => "False",
240)             loadBalanced => "Unknown",

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

242)             ftpWebsiteMirror => "",

243)             rsyncWebsiteMirror => "",

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

246)             updateDate => "Unknown",

247)         },
248) 

249)        mirror012 => {

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

251)             orgName => "CRAN",
252)             isoCC => "FR",

253)             subRegion => "Ile de France",

254)             region => "Europe",
255)             ipv4 => "True",
256)             ipv6 => "False",
257)             loadBalanced => "Unknown",

258)             httpWebsiteMirror => "",

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

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

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

262)             rsyncDistMirror => "",

263)             updateDate => "Unknown",

264)         },
265) 

266)        mirror013 => {

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

268)             orgName => "Amorphis",

269)             isoCC => "NL",
270)             subRegion => "",
271)             region => "Europe",
272)             ipv4 => "True",
273)             ipv6 => "False",
274)             loadBalanced => "Unknown",
275)             httpWebsiteMirror => "http://tor.amorphis.eu/",

276)             rsyncWebsiteMirror => "",

277)             ftpWebsiteMirror => "",
278)             httpDistMirror => "http://tor.amorphis.eu/dist/",
279)             rsyncDistMirror => "",

280)             updateDate => "Unknown",

281)         },
282) 

283)        mirror014 => {

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

285)             orgName => "BIT BV",
286)             isoCC => "NL",
287)             subRegion => "",
288)             region => "Europe",
289)             ipv4 => "True",
290)             ipv6 => "False",
291)             loadBalanced => "Unknown",

292)             httpWebsiteMirror => "",

293)             rsyncWebsiteMirror => "",

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

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

296)             rsyncDistMirror => "",

297)             updateDate => "Unknown",

298)         },
299) 

300)        mirror015 => {

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

302)             orgName => "CCC",
303)             isoCC => "NL",
304)             subRegion => "",
305)             region => "Europe",
306)             ipv4 => "True",
307)             ipv6 => "False",
308)             loadBalanced => "Unknown",
309)             httpWebsiteMirror => "http://tor.ccc.de/",

310)             rsyncWebsiteMirror => "",

311)             ftpWebsiteMirror => "",
312)             httpDistMirror => "http://tor.ccc.de/dist/",
313)             rsyncDistMirror => "",

314)             updateDate => "Unknown",

315)         },
316) 

317)        mirror016 => {

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

319)             orgName => "Kamagurka",

320)             isoCC => "NL",
321)             subRegion => "Haarlem",
322)             region => "Europe",
323)             ipv4 => "True",
324)             ipv6 => "False",
325)             loadBalanced => "Unknown",
326)             httpWebsiteMirror => "http://tor.kamagurka.org/",

327)             rsyncWebsiteMirror => "",

328)             ftpWebsiteMirror => "",
329)             httpDistMirror => "http://tor.kamagurka.org/dist/",
330)             rsyncDistMirror => "",

331)             updateDate => "Unknown",

332)         },
333) 

334)        mirror017 => {

335)             adminContact => "mirrorsosmirror.nl",

336)             orgName => "OS Mirror",
337)             isoCC => "NL",
338)             subRegion => "",
339)             region => "Europe",
340)             ipv4 => "True",
341)             ipv6 => "False",
342)             loadBalanced => "Unknown",

343)             httpWebsiteMirror => "",

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

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

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

347)             rsyncDistMirror => "",

348)             updateDate => "Unknown",

349)         },
350) 
351) 

352)        mirror018 => {

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

354)             orgName => "Meulie",

355)             isoCC => "NO",
356)             subRegion => "",
357)             region => "Europe",
358)             ipv4 => "True",
359)             ipv6 => "False",
360)             loadBalanced => "Unknown",

361)             httpWebsiteMirror => "",

362)             rsyncWebsiteMirror => "",

363)             ftpWebsiteMirror => "",

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

365)             rsyncDistMirror => "",

366)             updateDate => "Unknown",

367)         },
368) 

369)        mirror019 => {

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

371)             orgName => "Ghirai",

372)             isoCC => "UK",
373)             subRegion => "London",
374)             region => "Europe",
375)             ipv4 => "True",
376)             ipv6 => "False",
377)             loadBalanced => "Unknown",

378)             httpWebsiteMirror => "",

379)             rsyncWebsiteMirror => "",

380)             ftpWebsiteMirror => "",

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

382)             rsyncDistMirror => "",

383)             updateDate => "Unknown",

384)         },
385) 

386)        mirror020 => {

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

388)             orgName => "BJWOnline",

389)             isoCC => "US",
390)             subRegion => "California",
391)             region => "North America",
392)             ipv4 => "True",
393)             ipv6 => "False",
394)             loadBalanced => "Unknown",
395)             httpWebsiteMirror => "http://mirror.bjwonline.com/tor/",

396)             rsyncWebsiteMirror => "",

397)             ftpWebsiteMirror => "",

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

399)             rsyncDistMirror => "",

400)             updateDate => "Unknown",

401)         },
402) 

403)        mirror021 => {

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

405)             orgName => "TheOnionRouter",

406)             isoCC => "US",

407)             subRegion => "New Jersey",

408)             region => "North America",
409)             ipv4 => "True",
410)             ipv6 => "False",
411)             loadBalanced => "Unknown",
412)             httpWebsiteMirror => "http://www.theonionrouter.com/",

413)             rsyncWebsiteMirror => "",

414)             ftpWebsiteMirror => "",
415)             httpDistMirror => "http://www.theonionrouter.com/dist/",
416)             rsyncDistMirror => "",

417)             updateDate => "Unknown",

418)         },
419) 

420)        mirror022 => {

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

422)             orgName => "Unfix",

423)             isoCC => "CH",
424)             subRegion => "",
425)             region => "Europe",
426)             ipv4 => "True",
427)             ipv6 => "True",
428)             loadBalanced => "Unknown",
429)             httpWebsiteMirror => "http://tor.unfix.org/",

430)             rsyncWebsiteMirror => "",

431)             ftpWebsiteMirror => "",

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

433)             rsyncDistMirror => "",

434)             updateDate => "Unknown",

435)         },
436) 

437)        mirror023 => {

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

439)             orgName => "Sixx",

440)             isoCC => "CH",

441)             subRegion => "",
442)             region => "Europe",
443)             ipv4 => "True",
444)             ipv6 => "True",
445)             loadBalanced => "Unknown",
446)             httpWebsiteMirror => "http://tor.sixxs.net/",

447)             rsyncWebsiteMirror => "",

448)             ftpWebsiteMirror => "",

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

450)             rsyncDistMirror => "",

451)             updateDate => "Unknown",

452)         },

453) 

454)        mirror024 => {

455)             adminContact => "",

456)             orgName => "Crypto",

457)             isoCC => "US",
458)             subRegion => "",
459)             region => "North America",
460)             ipv4 => "True",
461)             ipv6 => "False",
462)             loadBalanced => "Unknown",
463)             httpWebsiteMirror => "http://crypto.nsa.org/tor/",

464)             rsyncWebsiteMirror => "",

465)             ftpWebsiteMirror => "",
466)             httpDistMirror => "http://crypto.nsa.org/tor/dist/",
467)             rsyncDistMirror => "",
468)             updateDate => "Unknown",
469)         },

470) 

471)        mirror025 => {

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

473)             orgName => "Wiretapped",
474)             isoCC => "AU",
475)             subRegion => "Sydney",
476)             region => "Oceania",
477)             ipv4 => "True",
478)             ipv6 => "False",
479)             loadBalanced => "Unknown",
480)             httpWebsiteMirror => "",

481)             rsyncWebsiteMirror => "",

482)             ftpWebsiteMirror => "ftp://ftp.mirrors.wiretapped.net/pub/security/cryptography/network/tor/",
483)             httpDistMirror => "http://www.mirrors.wiretapped.net/security/cryptography/network/tor/",
484)             rsyncDistMirror => "",
485)             updateDate => "Unknown",

486)         },

487) 

488)         mirror026 => {

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

490)             orgName => "Xpdm",

491)             isoCC => "US",
492)             subRegion => "",
493)             region => "North America",
494)             ipv4 => "True",
495)             ipv6 => "False",
496)             loadBalanced => "Unknown",
497)             httpWebsiteMirror => "http://torproj.xpdm.us/",

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

499)             rsyncWebsiteMirror => "",

500)             ftpWebsiteMirror => "",

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

503)             rsyncDistMirror => "",
504)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
505)             updateDate => "Unknown",

506)         },

507) 

508)         mirror027 => {

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

510)             orgName => "Unknown",
511)             isoCC => "CN",
512)             subRegion => "China",
513)             region => "Asia",
514)             ipv4 => "True",
515)             ipv6 => "False",
516)             loadBalanced => "No",
517)             httpWebsiteMirror => "http://free.be.ijing2008.cn/tor/",
518)             httpsWebsiteMirror => "",

519)             rsyncWebsiteMirror => "",

520)             ftpWebsiteMirror => "",
521)             httpDistMirror => "http://free.be.ijing2008.cn/tor/dist/",
522)             httpsDistMirror => "",
523)             rsyncDistMirror => "",
524)             hiddenServiceMirror => "",
525)             updateDate => "Unknown",

526)         },

527) 

528)         mirror028 => {

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

530)             orgName => "Unknown",
531)             isoCC => "HU",
532)             subRegion => "Hungary",
533)             region => "Europe",
534)             ipv4 => "True",
535)             ipv6 => "False",
536)             loadBalanced => "No",
537)             httpWebsiteMirror => "http://mirror.tor.hu/",
538)             httpsWebsiteMirror => "",

539)             rsyncWebsiteMirror => "",

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

546)         },

547) 

548)         mirror029 => {

549)             adminContact => "",

550)             orgName => "Technica-03",

551)             isoCC => "UA",

552)             subRegion => "Ukraine",
553)             region => "Eastern Europe",
554)             ipv4 => "True",
555)             ipv6 => "False",
556)             loadBalanced => "No",
557)             httpWebsiteMirror => "http://torua.reactor-xg.kiev.ua/",
558)             httpsWebsiteMirror => "",

559)             rsyncWebsiteMirror => "",

560)             ftpWebsiteMirror => "",
561)             httpDistMirror => "http://tordistua.reactor-xg.kiev.ua",
562)             httpsDistMirror => "",
563)             rsyncDistMirror => "",
564)             hiddenServiceMirror => "",
565)             updateDate => "Unknown",

566)         },

567) 

568) 	mirror030 => {

569)             adminContact => "",
570)             orgName => "chaos darmstadt",
571)             isoCC => "DE",
572)             subRegion => "Germany",
573)             region => "Europe",
574)             ipv4 => "True",
575)             ipv6 => "False",
576)             loadBalanced => "No",
577)             httpWebsiteMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/",
578)             httpsWebsiteMirror => "",
579)             rsyncWebsiteMirror => "",
580)             ftpWebsiteMirror => "",
581)             httpDistMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/dist/",
582)             httpsDistMirror => "",
583)             rsyncDistMirror => "",
584)             hiddenServiceMirror => "",
585)             updateDate => "Unknown",

586)         },

587) 

588) 	mirror031 => {
589)             adminContact => "",
590)             orgName => "Ask Apache",
591)             isoCC => "US",
592)             subRegion => "California",
593)             region => "US",
594)             ipv4 => "True",
595)             ipv6 => "False",
596)             loadBalanced => "No",
597)             httpWebsiteMirror => "http://tor.askapache.com/",
598)             httpsWebsiteMirror => "",
599)             rsyncWebsiteMirror => "",
600)             ftpWebsiteMirror => "",

601)             httpDistMirror => "",

602)             httpsDistMirror => "",
603)             rsyncDistMirror => "",
604)             hiddenServiceMirror => "",
605)             updateDate => "Unknown",

606)         },

607) 

608) 	mirror032 => {
609)             adminContact => "",
610)             orgName => "I'm on the roof",
611)             isoCC => "US",
612)             subRegion => "",
613)             region => "US",
614)             ipv4 => "True",
615)             ipv6 => "False",
616)             loadBalanced => "No",
617)             httpWebsiteMirror => "http://mirror.imontheroof.com/tor-mirror/",
618)             httpsWebsiteMirror => "",
619)             rsyncWebsiteMirror => "",
620)             ftpWebsiteMirror => "",
621)             httpDistMirror => "http://mirror.imontheroof.com/tor-mirror/dist/",
622)             httpsDistMirror => "",
623)             rsyncDistMirror => "",
624)             hiddenServiceMirror => "",
625)             updateDate => "Unknown",

626)         },

627) 

628) 	mirror033 => {
629)             adminContact => "",

630)             orgName => "bullog",

631)             isoCC => "CN",
632)             subRegion => "",
633)             region => "CN",
634)             ipv4 => "True",
635)             ipv6 => "False",
636)             loadBalanced => "No",
637)             httpWebsiteMirror => "http://tor.bullog.org/",
638)             httpsWebsiteMirror => "",
639)             rsyncWebsiteMirror => "",
640)             ftpWebsiteMirror => "",
641)             httpDistMirror => "http://tor.bullog.org/dist/",
642)             httpsDistMirror => "",
643)             rsyncDistMirror => "",
644)             hiddenServiceMirror => "",
645)             updateDate => "Unknown",

646)         },

647) 

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

650)             orgName => "digitip",

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

666)         },

667) 

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

670)             orgName => "shizhao",

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

686)         },

687) 

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

690)             orgName => "ranyunfei",

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

706)         },

707) 

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

710)             orgName => "wuerkaixi",

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

726)         },

727) 

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

730)             orgName => "izaobao",

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

746)         },

747) 

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

750)             orgName => "anothr",

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

766)         },

767) 

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

770)             orgName => "zuola",

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

786)         },
787) 
788) 	mirror041 => {

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

790)             orgName => "NVS",
791)             isoCC => "US",
792)             subRegion => "",
793)             region => "US",
794)             ipv4 => "True",
795)             ipv6 => "False",
796)             loadBalanced => "No",
797)             httpWebsiteMirror => "http://tor.nonvocalscream.com/",

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

799)             rsyncWebsiteMirror => "",
800)             ftpWebsiteMirror => "",
801)             httpDistMirror => "http://tor.nonvocalscream.com/dist/",

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

803)             rsyncDistMirror => "",
804)             hiddenServiceMirror => "",
805)             updateDate => "Unknown",

806)         },
807) 
808) 	mirror042 => {
809)             adminContact => "",
810)             orgName => "ax",
811)             isoCC => "DE",
812)             subRegion => "",
813)             region => "DE",
814)             ipv4 => "True",
815)             ipv6 => "False",
816)             loadBalanced => "No",
817)             httpWebsiteMirror => "",
818)             httpsWebsiteMirror => "",
819)             rsyncWebsiteMirror => "",
820)             ftpWebsiteMirror => "",
821)             httpDistMirror => "http://tor.initrd.net/dist/",
822)             httpsDistMirror => "",
823)             rsyncDistMirror => "",
824)             hiddenServiceMirror => "",
825)             updateDate => "Unknown",

826)         },
827)         mirror043 => {

828)             adminContact => "BarkerJr AT barkerjr DOT net",

829)             orgName => "BarkerJr",
830)             isoCC => "FR",
831)             subRegion => "",
832)             region => "FR",
833)             ipv4 => "True",
834)             ipv6 => "False",
835)             loadBalanced => "No",
836)             httpWebsiteMirror => "",
837)             httpsWebsiteMirror => "",
838)             rsyncWebsiteMirror => "",
839)             ftpWebsiteMirror => "",
840)             httpDistMirror => "http://tor.megahal.org/dist/",
841)             httpsDistMirror => "",
842)             rsyncDistMirror => "",
843)             hiddenServiceMirror => "",
844)             updateDate => "Unknown",

845)         }

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

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

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

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

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

898)      my $time;

899)      if ( "$m{$server}{'updateDate'}" ne "Unknown") {
900) 	  if ( "$m{$server}{'updateDate'}" eq "$tortime" ) {

901) 	    $time = "Up to date";
902) 	  } else { $time = "Out of date"; }

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

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

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

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