tor-webwml.git

1) #!/usr/bin/perl -w
2) use warnings;
3) use strict;
4) use LWP::Simple;
5) use LWP;
6) use Date::Parse;

7) use Date::Format;

8) 

9) #
10) # A quick hack by Jacob Appelbaum <jacob@appelbaum.net>

11) # LWP suggestions by Leigh Honeywell

12) # This is Free Software (GPLv3)
13) # http://www.gnu.org/licenses/gpl-3.0.txt
14) #

15) #Contacted

16) #Kamagurka TIMOUTS (Should be up in about a week)

17) #

18) 

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

22)     timeout => 15,

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

47)     my $code = $result->code();
48)     print "Result code $code\n";

49) 

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

51)        my $taint = $result->content;
52)        my $content = sanitize($taint);
53)        if ($content) {

54) 

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

69) 

70)     } else {
71)        print "Our request failed, we had no result.\n";
72)        return "Unknown";
73)     }

74) 
75)     return "Unknown";

76) }
77) 
78) # This is the list of all known Tor mirrors
79) # Add new mirrors to the bottom!

80) my %m = (
81)         mirror000 => {
82)             adminContact => "tor AT goodeid DOT com",
83)             orgName => "goodeid.com",

84)             isoCC => "CA",

85)             subRegion => "",

86)             region => "North America",

87)             ipv4 => "True",
88)             ipv6 => "False",
89)             loadBalanced => "No",
90)             httpWebsiteMirror => "http://tor-node.goodeid.com/",
91)             httpsWebsiteMirror => "https://tor-node.goodeid.com/",
92)             rsyncWebsiteMirror => "",
93)             ftpWebsiteMirror => "",
94)             httpDistMirror => "http://tor-node.goodeid.com/dist/",
95)             httpsDistMirror => "https://tor-node.goodeid.com/dist/",
96)             rsyncDistMirror => "",
97)             hiddenServiceMirror => "",
98)             updateDate => "Unknown",
99)         },
100) 

101)         mirror001 => {
102)             adminContact => "BarkerJr AT barkerjr DOT net",
103)             orgName => "BarkerJr",
104)             isoCC => "FR",
105)             subRegion => "",
106)             region => "FR",
107)             ipv4 => "True",
108)             ipv6 => "False",
109)             loadBalanced => "No",

110)             httpWebsiteMirror => "http://www.oignon.net",
111)             httpsWebsiteMirror => "https://www.oignon.net",

112)             rsyncWebsiteMirror => "",
113)             ftpWebsiteMirror => "",

114)             httpDistMirror => "http://www.oignon.net/dist/",

115)             httpsDistMirror => "https://oignon.net/dist/",

116)             rsyncDistMirror => "",
117)             hiddenServiceMirror => "",
118)             updateDate => "Unknown",
119)         },
120) 

121)        mirror002 => {

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

123)             orgName => "Hermetix",

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

132)             httpDistMirror => "",

133)             rsyncDistMirror => "",

134)             updateDate => "Unknown",

135)         },
136) 
137)        mirror003 => {

138)             adminContact => "",

139)             orgName => "Boinc",

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

151)             updateDate => "Unknown",

152)         },
153) 
154)        mirror004 => {

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

156)             orgName => "Anonymity",

157)             isoCC => "CN",
158)             subRegion => "",
159)             region => "Asia",
160)             ipv4 => "True",
161)             ipv6 => "False",
162)             loadBalanced => "Unknown",

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

164)             ftpWebsiteMirror => "",
165)             rsyncWebsiteMirror => "",

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

167)             rsyncDistMirror => "",

168)             updateDate => "Unknown",

169)         },
170) 

171)        mirror005 => {

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

173)             orgName => "Bbs",

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

183)             httpDistMirror => "",

184)             rsyncDistMirror => "",

185)             updateDate => "Unknown",

186)         },
187) 

188)        mirror006 => {

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

203) 

204)        mirror007 => {

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

206)             orgName => "Cybermirror",

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

218)             updateDate => "Unknown",

219)         },
220) 

221)        mirror008 => {

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

223)             orgName => "Spline",
224)             isoCC => "DE",
225)             subRegion => "FU",
226)             region => "Europe",
227)             ipv4 => "True",
228)             ipv6 => "False",
229)             loadBalanced => "Unknown",

230)             httpWebsiteMirror => "",

231)             ftpWebsiteMirror => "",
232)             rsyncWebsiteMirror => "",

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

234)             rsyncDistMirror => "",

235)             updateDate => "Unknown",

236)         },
237) 

238) 	mirror009 => {
239)             adminContact => "BarkerJr AT barkerjr DOT net",
240)             orgName => "BarkerJr",
241)             isoCC => "US",
242)             subRegion => "",
243)             region => "US",
244)             ipv4 => "True",
245)             ipv6 => "False",
246)             loadBalanced => "No",
247)             httpWebsiteMirror => "http://www.cebolla.us",
248)             httpsWebsiteMirror => "https://www.cebolla.us",
249)             rsyncWebsiteMirror => "",
250)             ftpWebsiteMirror => "",
251)             httpDistMirror => "http://www.cebolla.us/dist/",
252)             httpsDistMirror => "https://www.cebolla.us/dist/",
253)             rsyncDistMirror => "",
254)             hiddenServiceMirror => "",
255)             updateDate => "Unknown",
256)         },
257) 
258) 	mirror010 => {
259)             adminContact => "",
260)             orgName => "zuola",
261)             isoCC => "CN",
262)             subRegion => "",
263)             region => "CN",
264)             ipv4 => "True",
265)             ipv6 => "False",
266)             loadBalanced => "No",
267)             httpWebsiteMirror => "http://tor.zuo.la/",
268)             httpsWebsiteMirror => "",
269)             rsyncWebsiteMirror => "",
270)             ftpWebsiteMirror => "",
271)             httpDistMirror => "http://tor.zuo.la/dist/",
272)             httpsDistMirror => "",
273)             rsyncDistMirror => "",
274)             hiddenServiceMirror => "",
275)             updateDate => "Unknown",
276)         },
277) 

278)        mirror011 => {

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

280)             orgName => "Zentrum der Gesundheit",

281)             isoCC => "DK",
282)             subRegion => "",
283)             region => "Europe",
284)             ipv4 => "True",
285)             ipv6 => "False",
286)             loadBalanced => "Unknown",

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

288)             ftpWebsiteMirror => "",

289)             rsyncWebsiteMirror => "",

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

292)             updateDate => "Unknown",

293)         },
294) 

295)        mirror012 => {

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

297)             orgName => "CRAN",
298)             isoCC => "FR",

299)             subRegion => "Ile de France",

300)             region => "Europe",
301)             ipv4 => "True",
302)             ipv6 => "False",
303)             loadBalanced => "Unknown",

304)             httpWebsiteMirror => "",

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

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

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

308)             rsyncDistMirror => "",

309)             updateDate => "Unknown",

310)         },
311) 

312)        mirror013 => {

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

314)             orgName => "Amorphis",

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

322)             rsyncWebsiteMirror => "",

323)             ftpWebsiteMirror => "",
324)             httpDistMirror => "http://tor.amorphis.eu/dist/",
325)             rsyncDistMirror => "",

326)             updateDate => "Unknown",

327)         },
328) 

329)        mirror014 => {

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

331)             orgName => "BIT BV",
332)             isoCC => "NL",
333)             subRegion => "",
334)             region => "Europe",
335)             ipv4 => "True",
336)             ipv6 => "False",
337)             loadBalanced => "Unknown",

338)             httpWebsiteMirror => "",

339)             rsyncWebsiteMirror => "",

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

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

342)             rsyncDistMirror => "",

343)             updateDate => "Unknown",

344)         },
345) 

346)        mirror015 => {

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

348)             orgName => "CCC",
349)             isoCC => "NL",
350)             subRegion => "",
351)             region => "Europe",
352)             ipv4 => "True",
353)             ipv6 => "False",
354)             loadBalanced => "Unknown",
355)             httpWebsiteMirror => "http://tor.ccc.de/",

356)             rsyncWebsiteMirror => "",

357)             ftpWebsiteMirror => "",
358)             httpDistMirror => "http://tor.ccc.de/dist/",
359)             rsyncDistMirror => "",

360)             updateDate => "Unknown",

361)         },
362) 

363)        mirror016 => {

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

365)             orgName => "Kamagurka",

366)             isoCC => "NL",
367)             subRegion => "Haarlem",
368)             region => "Europe",
369)             ipv4 => "True",
370)             ipv6 => "False",
371)             loadBalanced => "Unknown",
372)             httpWebsiteMirror => "http://tor.kamagurka.org/",

373)             rsyncWebsiteMirror => "",

374)             ftpWebsiteMirror => "",
375)             httpDistMirror => "http://tor.kamagurka.org/dist/",
376)             rsyncDistMirror => "",

377)             updateDate => "Unknown",

378)         },
379) 

380)        mirror017 => {

381)             adminContact => "mirrorsosmirror.nl",

382)             orgName => "OS Mirror",
383)             isoCC => "NL",
384)             subRegion => "",
385)             region => "Europe",
386)             ipv4 => "True",
387)             ipv6 => "False",
388)             loadBalanced => "Unknown",

389)             httpWebsiteMirror => "",

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

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

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

393)             rsyncDistMirror => "",

394)             updateDate => "Unknown",

395)         },
396) 
397) 

398)        mirror018 => {

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

400)             orgName => "Meulie",

401)             isoCC => "NO",
402)             subRegion => "",
403)             region => "Europe",
404)             ipv4 => "True",
405)             ipv6 => "False",
406)             loadBalanced => "Unknown",

407)             httpWebsiteMirror => "",

408)             rsyncWebsiteMirror => "",

409)             ftpWebsiteMirror => "",

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

411)             rsyncDistMirror => "",

412)             updateDate => "Unknown",

413)         },
414) 

415)        mirror019 => {

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

417)             orgName => "Ghirai",

418)             isoCC => "UK",
419)             subRegion => "London",
420)             region => "Europe",
421)             ipv4 => "True",
422)             ipv6 => "False",
423)             loadBalanced => "Unknown",

424)             httpWebsiteMirror => "",

425)             rsyncWebsiteMirror => "",

426)             ftpWebsiteMirror => "",

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

428)             rsyncDistMirror => "",

429)             updateDate => "Unknown",

430)         },
431) 

432) 	mirror020 => {
433)             adminContact => "",
434)             orgName => "ax",
435)             isoCC => "DE",
436)             subRegion => "",
437)             region => "DE",
438)             ipv4 => "True",
439)             ipv6 => "False",
440)             loadBalanced => "No",
441)             httpWebsiteMirror => "",
442)             httpsWebsiteMirror => "",
443)             rsyncWebsiteMirror => "",
444)             ftpWebsiteMirror => "",
445)             httpDistMirror => "http://tor.initrd.net/dist/",
446)             httpsDistMirror => "",
447)             rsyncDistMirror => "",
448)             hiddenServiceMirror => "",
449)             updateDate => "Unknown",
450)         },
451) 

452)        mirror021 => {

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

454)             orgName => "TheOnionRouter",

455)             isoCC => "US",

456)             subRegion => "New Jersey",

457)             region => "North America",
458)             ipv4 => "True",
459)             ipv6 => "False",
460)             loadBalanced => "Unknown",
461)             httpWebsiteMirror => "http://www.theonionrouter.com/",

462)             rsyncWebsiteMirror => "",

463)             ftpWebsiteMirror => "",
464)             httpDistMirror => "http://www.theonionrouter.com/dist/",
465)             rsyncDistMirror => "",

466)             updateDate => "Unknown",

467)         },
468) 

469)        mirror022 => {

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

471)             orgName => "Unfix",

472)             isoCC => "CH",
473)             subRegion => "",
474)             region => "Europe",
475)             ipv4 => "True",
476)             ipv6 => "True",
477)             loadBalanced => "Unknown",
478)             httpWebsiteMirror => "http://tor.unfix.org/",

479)             rsyncWebsiteMirror => "",

480)             ftpWebsiteMirror => "",

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

482)             rsyncDistMirror => "",

483)             updateDate => "Unknown",

484)         },
485) 

486)        mirror023 => {

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

488)             orgName => "Sixx",

489)             isoCC => "CH",

490)             subRegion => "",
491)             region => "Europe",
492)             ipv4 => "True",
493)             ipv6 => "True",
494)             loadBalanced => "Unknown",
495)             httpWebsiteMirror => "http://tor.sixxs.net/",

496)             rsyncWebsiteMirror => "",

497)             ftpWebsiteMirror => "",

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

499)             rsyncDistMirror => "",

500)             updateDate => "Unknown",

501)         },

502) 

503) 	mirror024 => {
504)             adminContact => "scream AT nonvocalscream DOT com",
505)             orgName => "NVS",
506)             isoCC => "US",
507)             subRegion => "",
508)             region => "US",
509)             ipv4 => "True",
510)             ipv6 => "False",
511)             loadBalanced => "No",
512)             httpWebsiteMirror => "http://tor.nonvocalscream.com/",
513)             httpsWebsiteMirror => "https://tor.nonvocalscream.com/",
514)             rsyncWebsiteMirror => "",
515)             ftpWebsiteMirror => "",
516)             httpDistMirror => "http://tor.nonvocalscream.com/dist/",
517)             httpsDistMirror => "https://tor.nonvocalscream.com/dist/",
518)             rsyncDistMirror => "",
519)             hiddenServiceMirror => "",
520)             updateDate => "Unknown",
521)         },
522) 

523)        mirror025 => {

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

525)             orgName => "Wiretapped",
526)             isoCC => "AU",
527)             subRegion => "Sydney",
528)             region => "Oceania",
529)             ipv4 => "True",
530)             ipv6 => "False",
531)             loadBalanced => "Unknown",
532)             httpWebsiteMirror => "",

533)             rsyncWebsiteMirror => "",

534)             ftpWebsiteMirror => "ftp://ftp.mirrors.wiretapped.net/pub/security/cryptography/network/tor/",
535)             httpDistMirror => "http://www.mirrors.wiretapped.net/security/cryptography/network/tor/",
536)             rsyncDistMirror => "",
537)             updateDate => "Unknown",

538)         },

539) 

540)         mirror026 => {

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

542)             orgName => "Xpdm",

543)             isoCC => "US",
544)             subRegion => "",
545)             region => "North America",
546)             ipv4 => "True",
547)             ipv6 => "False",
548)             loadBalanced => "Unknown",
549)             httpWebsiteMirror => "http://torproj.xpdm.us/",

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

551)             rsyncWebsiteMirror => "",

552)             ftpWebsiteMirror => "",

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

555)             rsyncDistMirror => "",
556)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
557)             updateDate => "Unknown",

558)         },

559) 

560)         mirror027 => {

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

562)             orgName => "Unknown",
563)             isoCC => "CN",
564)             subRegion => "China",
565)             region => "Asia",
566)             ipv4 => "True",
567)             ipv6 => "False",
568)             loadBalanced => "No",
569)             httpWebsiteMirror => "http://free.be.ijing2008.cn/tor/",
570)             httpsWebsiteMirror => "",

571)             rsyncWebsiteMirror => "",

572)             ftpWebsiteMirror => "",
573)             httpDistMirror => "http://free.be.ijing2008.cn/tor/dist/",
574)             httpsDistMirror => "",
575)             rsyncDistMirror => "",
576)             hiddenServiceMirror => "",
577)             updateDate => "Unknown",

578)         },

579) 

580)         mirror028 => {

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

582)             orgName => "Unknown",
583)             isoCC => "HU",
584)             subRegion => "Hungary",
585)             region => "Europe",
586)             ipv4 => "True",
587)             ipv6 => "False",
588)             loadBalanced => "No",
589)             httpWebsiteMirror => "http://mirror.tor.hu/",
590)             httpsWebsiteMirror => "",

591)             rsyncWebsiteMirror => "",

592)             ftpWebsiteMirror => "",
593)             httpDistMirror => "http://mirror.tor.hu/dist/",
594)             httpsDistMirror => "",
595)             rsyncDistMirror => "",
596)             hiddenServiceMirror => "",
597)             updateDate => "Unknown",

598)         },

599) 

600)         mirror029 => {

601)             adminContact => "",

602)             orgName => "Technica-03",

603)             isoCC => "UA",

604)             subRegion => "Ukraine",
605)             region => "Eastern Europe",
606)             ipv4 => "True",
607)             ipv6 => "False",
608)             loadBalanced => "No",
609)             httpWebsiteMirror => "http://torua.reactor-xg.kiev.ua/",
610)             httpsWebsiteMirror => "",

611)             rsyncWebsiteMirror => "",

612)             ftpWebsiteMirror => "",
613)             httpDistMirror => "http://tordistua.reactor-xg.kiev.ua",
614)             httpsDistMirror => "",
615)             rsyncDistMirror => "",
616)             hiddenServiceMirror => "",
617)             updateDate => "Unknown",

618)         },

619) 

620) 	mirror030 => {

621)             adminContact => "",
622)             orgName => "chaos darmstadt",
623)             isoCC => "DE",
624)             subRegion => "Germany",
625)             region => "Europe",
626)             ipv4 => "True",
627)             ipv6 => "False",
628)             loadBalanced => "No",
629)             httpWebsiteMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/",
630)             httpsWebsiteMirror => "",
631)             rsyncWebsiteMirror => "",
632)             ftpWebsiteMirror => "",
633)             httpDistMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/dist/",
634)             httpsDistMirror => "",
635)             rsyncDistMirror => "",
636)             hiddenServiceMirror => "",
637)             updateDate => "Unknown",

638)         },

639) 

640) 	mirror031 => {

641)             adminContact => "webmaster AT askapache DOT com",
642)             orgName => "AskApache",

643)             isoCC => "US",
644)             subRegion => "California",
645)             region => "US",
646)             ipv4 => "True",
647)             ipv6 => "False",
648)             loadBalanced => "No",
649)             httpWebsiteMirror => "http://tor.askapache.com/",
650)             httpsWebsiteMirror => "",
651)             rsyncWebsiteMirror => "",
652)             ftpWebsiteMirror => "",

653)             httpDistMirror => "http://tor.askapache.com/dist/",

654)             httpsDistMirror => "",
655)             rsyncDistMirror => "",
656)             hiddenServiceMirror => "",
657)             updateDate => "Unknown",

658)         },

659) 

660) 	mirror032 => {
661)             adminContact => "",
662)             orgName => "I'm on the roof",
663)             isoCC => "US",
664)             subRegion => "",
665)             region => "US",
666)             ipv4 => "True",
667)             ipv6 => "False",
668)             loadBalanced => "No",
669)             httpWebsiteMirror => "http://mirror.imontheroof.com/tor-mirror/",
670)             httpsWebsiteMirror => "",
671)             rsyncWebsiteMirror => "",
672)             ftpWebsiteMirror => "",
673)             httpDistMirror => "http://mirror.imontheroof.com/tor-mirror/dist/",
674)             httpsDistMirror => "",
675)             rsyncDistMirror => "",
676)             hiddenServiceMirror => "",
677)             updateDate => "Unknown",

678)         },

679) 

680) 	mirror033 => {
681)             adminContact => "",

682)             orgName => "bullog",

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

698)         },

699) 

700) 	mirror034 => {
701)             adminContact => "",

702)             orgName => "digitip",

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

718)         },

719) 

720) 	mirror035 => {
721)             adminContact => "",

722)             orgName => "shizhao",

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

738)         },

739) 

740) 	mirror036 => {
741)             adminContact => "",

742)             orgName => "ranyunfei",

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

758)         },

759) 

760) 	mirror037 => {
761)             adminContact => "",

762)             orgName => "wuerkaixi",

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

778)         },

779) 

780) 	mirror038 => {
781)             adminContact => "",

782)             orgName => "izaobao",

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

798)         },

799) 

800) 	mirror039 => {
801)             adminContact => "",

802)             orgName => "anothr",

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

818)         },

819) 

820) mirror039 => {
821)             adminContact => "",
822)             orgName => " ",
823)             isoCC => " ",
824)             subRegion => "",
825)             region => " ",
826)             ipv4 => "True",
827)             ipv6 => "False",
828)             loadBalanced => "No",
829)             httpWebsiteMirror => "http://torproject.cybervalley.org/",
830)             httpsWebsiteMirror => "",
831)             rsyncWebsiteMirror => "",
832)             ftpWebsiteMirror => "",
833)             httpDistMirror => "",
834)             httpsDistMirror => "",
835)             rsyncDistMirror => "",
836)             hiddenServiceMirror => "",
837)             updateDate => "Unknown",
838)         },

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

845) my $tortime;
846) $tortime = FetchDate("http://www.torproject.org/");

847) # Adjust offical Tor time by out-of-date offset: number of days * seconds per day 
848) $tortime -= 1 * 86400; 

849) print "The official time for Tor is $tortime. \n";
850) 

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

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

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

893)      my $time;

894)      if ( "$m{$server}{'updateDate'}" ne "Unknown") {

895) 	  if ( $m{$server}{'updateDate'} > $tortime ) {

896) 	    $time = "Up to date";
897) 	  } else { $time = "Out of date"; }

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

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

916)      {
917)         if ($m{$server}{"$precious"}) {
918)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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