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

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

240)             orgName => "Zentrum der Gesundheit",

241)             isoCC => "DK",
242)             subRegion => "",
243)             region => "Europe",
244)             ipv4 => "True",
245)             ipv6 => "False",
246)             loadBalanced => "Unknown",

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

248)             ftpWebsiteMirror => "",

249)             rsyncWebsiteMirror => "",

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

252)             updateDate => "Unknown",

253)         },
254) 

255)        mirror012 => {

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

257)             orgName => "CRAN",
258)             isoCC => "FR",

259)             subRegion => "Ile de France",

260)             region => "Europe",
261)             ipv4 => "True",
262)             ipv6 => "False",
263)             loadBalanced => "Unknown",

264)             httpWebsiteMirror => "",

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

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

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

268)             rsyncDistMirror => "",

269)             updateDate => "Unknown",

270)         },
271) 

272)        mirror013 => {

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

274)             orgName => "Amorphis",

275)             isoCC => "NL",
276)             subRegion => "",
277)             region => "Europe",
278)             ipv4 => "True",
279)             ipv6 => "False",
280)             loadBalanced => "Unknown",
281)             httpWebsiteMirror => "http://tor.amorphis.eu/",

282)             rsyncWebsiteMirror => "",

283)             ftpWebsiteMirror => "",
284)             httpDistMirror => "http://tor.amorphis.eu/dist/",
285)             rsyncDistMirror => "",

286)             updateDate => "Unknown",

287)         },
288) 

289)        mirror014 => {

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

291)             orgName => "BIT BV",
292)             isoCC => "NL",
293)             subRegion => "",
294)             region => "Europe",
295)             ipv4 => "True",
296)             ipv6 => "False",
297)             loadBalanced => "Unknown",

298)             httpWebsiteMirror => "",

299)             rsyncWebsiteMirror => "",

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

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

302)             rsyncDistMirror => "",

303)             updateDate => "Unknown",

304)         },
305) 

306)        mirror015 => {

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

308)             orgName => "CCC",
309)             isoCC => "NL",
310)             subRegion => "",
311)             region => "Europe",
312)             ipv4 => "True",
313)             ipv6 => "False",
314)             loadBalanced => "Unknown",
315)             httpWebsiteMirror => "http://tor.ccc.de/",

316)             rsyncWebsiteMirror => "",

317)             ftpWebsiteMirror => "",
318)             httpDistMirror => "http://tor.ccc.de/dist/",
319)             rsyncDistMirror => "",

320)             updateDate => "Unknown",

321)         },
322) 

323)        mirror016 => {

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

325)             orgName => "Kamagurka",

326)             isoCC => "NL",
327)             subRegion => "Haarlem",
328)             region => "Europe",
329)             ipv4 => "True",
330)             ipv6 => "False",
331)             loadBalanced => "Unknown",
332)             httpWebsiteMirror => "http://tor.kamagurka.org/",

333)             rsyncWebsiteMirror => "",

334)             ftpWebsiteMirror => "",
335)             httpDistMirror => "http://tor.kamagurka.org/dist/",
336)             rsyncDistMirror => "",

337)             updateDate => "Unknown",

338)         },
339) 

340)        mirror017 => {

341)             adminContact => "mirrorsosmirror.nl",

342)             orgName => "OS Mirror",
343)             isoCC => "NL",
344)             subRegion => "",
345)             region => "Europe",
346)             ipv4 => "True",
347)             ipv6 => "False",
348)             loadBalanced => "Unknown",

349)             httpWebsiteMirror => "",

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

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

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

353)             rsyncDistMirror => "",

354)             updateDate => "Unknown",

355)         },
356) 
357) 

358)        mirror018 => {

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

360)             orgName => "Meulie",

361)             isoCC => "NO",
362)             subRegion => "",
363)             region => "Europe",
364)             ipv4 => "True",
365)             ipv6 => "False",
366)             loadBalanced => "Unknown",

367)             httpWebsiteMirror => "",

368)             rsyncWebsiteMirror => "",

369)             ftpWebsiteMirror => "",

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

371)             rsyncDistMirror => "",

372)             updateDate => "Unknown",

373)         },
374) 

375)        mirror019 => {

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

377)             orgName => "Ghirai",

378)             isoCC => "UK",
379)             subRegion => "London",
380)             region => "Europe",
381)             ipv4 => "True",
382)             ipv6 => "False",
383)             loadBalanced => "Unknown",

384)             httpWebsiteMirror => "",

385)             rsyncWebsiteMirror => "",

386)             ftpWebsiteMirror => "",

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

388)             rsyncDistMirror => "",

389)             updateDate => "Unknown",

390)         },
391) 

392) 	mirror020 => {
393)             adminContact => "",
394)             orgName => "ax",
395)             isoCC => "DE",
396)             subRegion => "",
397)             region => "DE",
398)             ipv4 => "True",
399)             ipv6 => "False",
400)             loadBalanced => "No",
401)             httpWebsiteMirror => "",
402)             httpsWebsiteMirror => "",
403)             rsyncWebsiteMirror => "",
404)             ftpWebsiteMirror => "",
405)             httpDistMirror => "http://tor.initrd.net/dist/",
406)             httpsDistMirror => "",
407)             rsyncDistMirror => "",
408)             hiddenServiceMirror => "",
409)             updateDate => "Unknown",
410)         },
411) 

412)        mirror021 => {

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

414)             orgName => "TheOnionRouter",

415)             isoCC => "US",

416)             subRegion => "New Jersey",

417)             region => "North America",
418)             ipv4 => "True",
419)             ipv6 => "False",
420)             loadBalanced => "Unknown",
421)             httpWebsiteMirror => "http://www.theonionrouter.com/",

422)             rsyncWebsiteMirror => "",

423)             ftpWebsiteMirror => "",
424)             httpDistMirror => "http://www.theonionrouter.com/dist/",
425)             rsyncDistMirror => "",

426)             updateDate => "Unknown",

427)         },
428) 

429)        mirror022 => {

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

431)             orgName => "Unfix",

432)             isoCC => "CH",
433)             subRegion => "",
434)             region => "Europe",
435)             ipv4 => "True",
436)             ipv6 => "True",
437)             loadBalanced => "Unknown",
438)             httpWebsiteMirror => "http://tor.unfix.org/",

439)             rsyncWebsiteMirror => "",

440)             ftpWebsiteMirror => "",

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

442)             rsyncDistMirror => "",

443)             updateDate => "Unknown",

444)         },
445) 

446)        mirror023 => {

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

448)             orgName => "Sixx",

449)             isoCC => "CH",

450)             subRegion => "",
451)             region => "Europe",
452)             ipv4 => "True",
453)             ipv6 => "True",
454)             loadBalanced => "Unknown",
455)             httpWebsiteMirror => "http://tor.sixxs.net/",

456)             rsyncWebsiteMirror => "",

457)             ftpWebsiteMirror => "",

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

459)             rsyncDistMirror => "",

460)             updateDate => "Unknown",

461)         },

462) 

463) 	mirror024 => {
464)             adminContact => "scream AT nonvocalscream DOT com",
465)             orgName => "NVS",
466)             isoCC => "US",
467)             subRegion => "",
468)             region => "US",
469)             ipv4 => "True",
470)             ipv6 => "False",
471)             loadBalanced => "No",
472)             httpWebsiteMirror => "http://tor.nonvocalscream.com/",
473)             httpsWebsiteMirror => "https://tor.nonvocalscream.com/",
474)             rsyncWebsiteMirror => "",
475)             ftpWebsiteMirror => "",
476)             httpDistMirror => "http://tor.nonvocalscream.com/dist/",
477)             httpsDistMirror => "https://tor.nonvocalscream.com/dist/",
478)             rsyncDistMirror => "",
479)             hiddenServiceMirror => "",
480)             updateDate => "Unknown",
481)         },
482) 

483)        mirror025 => {

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

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

493)             rsyncWebsiteMirror => "",

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

498)         },

499) 

500)         mirror026 => {

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

502)             orgName => "Xpdm",

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

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

511)             rsyncWebsiteMirror => "",

512)             ftpWebsiteMirror => "",

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

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

518)         },

519) 

520)         mirror027 => {

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

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

531)             rsyncWebsiteMirror => "",

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

538)         },

539) 

540)         mirror028 => {

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

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

551)             rsyncWebsiteMirror => "",

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

558)         },

559) 

560)         mirror029 => {

561)             adminContact => "",

562)             orgName => "Technica-03",

563)             isoCC => "UA",

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

571)             rsyncWebsiteMirror => "",

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

578)         },

579) 

580) 	mirror030 => {

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

598)         },

599) 

600) 	mirror031 => {

601)             adminContact => "webmaster AT askapache DOT com",
602)             orgName => "AskApache",

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

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

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

618)         },

619) 

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

638)         },

639) 

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

642)             orgName => "bullog",

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

658)         },

659) 

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

662)             orgName => "digitip",

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

678)         },

679) 

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

682)             orgName => "shizhao",

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

698)         },

699) 

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

702)             orgName => "ranyunfei",

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

718)         },

719) 

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

722)             orgName => "wuerkaixi",

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

738)         },

739) 

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

742)             orgName => "izaobao",

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

758)         },

759) 

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

762)             orgName => "anothr",

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

778)         },

779) 

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

782)             orgName => "zuola",

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

798)         },
799) 
800) 	mirror041 => {
801)             adminContact => "BarkerJr AT barkerjr DOT net",
802)             orgName => "BarkerJr",
803)             isoCC => "US",
804)             subRegion => "",
805)             region => "US",
806)             ipv4 => "True",
807)             ipv6 => "False",
808)             loadBalanced => "No",

809)             httpWebsiteMirror => "http://www.cebolla.us",
810)             httpsWebsiteMirror => "https://www.cebolla.us",

811)             rsyncWebsiteMirror => "",
812)             ftpWebsiteMirror => "",

813)             httpDistMirror => "http://www.cebolla.us/dist/",
814)             httpsDistMirror => "https://www.cebolla.us/dist/",

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

818)         }

819) 

820) 

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

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

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

831) print "The official time for Tor is $tortime. \n";
832) 

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

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

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

875)      my $time;

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

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

878) 	    $time = "Up to date";
879) 	  } else { $time = "Out of date"; }

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

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

898)      {
899)         if ($m{$server}{"$precious"}) {
900)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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