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",

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:8081/",
91)             httpsWebsiteMirror => "https://tor-node.goodeid.com:8444/",

92)             rsyncWebsiteMirror => "",
93)             ftpWebsiteMirror => "",

94)             httpDistMirror => "http://tor-node.goodeid.com:8081/dist/",
95)             httpsDistMirror => "https://tor-node.goodeid.com:8444/dist/
96) 
97) ",

98)             rsyncDistMirror => "",
99)             hiddenServiceMirror => "",
100)             updateDate => "Unknown",
101)         },
102) 

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

112)             httpWebsiteMirror => "http://www.oignon.net",
113)             httpsWebsiteMirror => "https://www.oignon.net",

114)             rsyncWebsiteMirror => "",
115)             ftpWebsiteMirror => "",

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

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

118)             rsyncDistMirror => "",
119)             hiddenServiceMirror => "",
120)             updateDate => "Unknown",
121)         },
122) 

123)        mirror002 => {

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

125)             orgName => "Hermetix",

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

134)             httpDistMirror => "",

135)             rsyncDistMirror => "",

136)             updateDate => "Unknown",

137)         },
138) 
139)        mirror003 => {

140)             adminContact => "",

141)             orgName => "Boinc",

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

153)             updateDate => "Unknown",

154)         },
155) 
156)        mirror004 => {

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

158)             orgName => "Anonymity",

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

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

166)             ftpWebsiteMirror => "",
167)             rsyncWebsiteMirror => "",

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

169)             rsyncDistMirror => "",

170)             updateDate => "Unknown",

171)         },
172) 

173)        mirror005 => {

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

175)             orgName => "Bbs",

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

185)             httpDistMirror => "",

186)             rsyncDistMirror => "",

187)             updateDate => "Unknown",

188)         },
189) 

190)        mirror006 => {

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

205) 

206)        mirror007 => {

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

208)             orgName => "Cybermirror",

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

220)             updateDate => "Unknown",

221)         },
222) 

223)        mirror008 => {

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

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

232)             httpWebsiteMirror => "",

233)             ftpWebsiteMirror => "",
234)             rsyncWebsiteMirror => "",

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

236)             rsyncDistMirror => "",

237)             updateDate => "Unknown",

238)         },
239) 

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

280)        mirror011 => {

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

282)             orgName => "Zentrum der Gesundheit",

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

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

290)             ftpWebsiteMirror => "",

291)             rsyncWebsiteMirror => "",

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

294)             updateDate => "Unknown",

295)         },
296) 

297)        mirror012 => {

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

299)             orgName => "CRAN",
300)             isoCC => "FR",

301)             subRegion => "Ile de France",

302)             region => "Europe",
303)             ipv4 => "True",
304)             ipv6 => "False",
305)             loadBalanced => "Unknown",

306)             httpWebsiteMirror => "",

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

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

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

310)             rsyncDistMirror => "",

311)             updateDate => "Unknown",

312)         },
313) 

314)        mirror013 => {

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

316)             orgName => "Amorphis",

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

324)             rsyncWebsiteMirror => "",

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

328)             updateDate => "Unknown",

329)         },
330) 

331)        mirror014 => {

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

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

340)             httpWebsiteMirror => "",

341)             rsyncWebsiteMirror => "",

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

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

344)             rsyncDistMirror => "",

345)             updateDate => "Unknown",

346)         },
347) 

348)        mirror015 => {

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

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

358)             rsyncWebsiteMirror => "",

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

362)             updateDate => "Unknown",

363)         },
364) 

365)        mirror016 => {

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

367)             orgName => "Kamagurka",

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

375)             rsyncWebsiteMirror => "",

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

379)             updateDate => "Unknown",

380)         },
381) 

382)        mirror017 => {

383)             adminContact => "mirrorsosmirror.nl",

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

391)             httpWebsiteMirror => "",

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

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

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

395)             rsyncDistMirror => "",

396)             updateDate => "Unknown",

397)         },
398) 
399) 

400)        mirror018 => {

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

402)             orgName => "Meulie",

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

409)             httpWebsiteMirror => "",

410)             rsyncWebsiteMirror => "",

411)             ftpWebsiteMirror => "",

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

413)             rsyncDistMirror => "",

414)             updateDate => "Unknown",

415)         },
416) 

417)        mirror019 => {

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

419)             orgName => "Ghirai",

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

426)             httpWebsiteMirror => "",

427)             rsyncWebsiteMirror => "",

428)             ftpWebsiteMirror => "",

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

430)             rsyncDistMirror => "",

431)             updateDate => "Unknown",

432)         },
433) 

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

454)        mirror021 => {

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

456)             orgName => "TheOnionRouter",

457)             isoCC => "US",

458)             subRegion => "New Jersey",

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

464)             rsyncWebsiteMirror => "",

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

468)             updateDate => "Unknown",

469)         },
470) 

471)        mirror022 => {

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

473)             orgName => "Unfix",

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

481)             rsyncWebsiteMirror => "",

482)             ftpWebsiteMirror => "",

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

484)             rsyncDistMirror => "",

485)             updateDate => "Unknown",

486)         },
487) 

488)        mirror023 => {

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

490)             orgName => "Sixx",

491)             isoCC => "CH",

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

498)             rsyncWebsiteMirror => "",

499)             ftpWebsiteMirror => "",

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

501)             rsyncDistMirror => "",

502)             updateDate => "Unknown",

503)         },

504) 

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

525)        mirror025 => {

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

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

535)             rsyncWebsiteMirror => "",

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

540)         },

541) 

542)         mirror026 => {

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

544)             orgName => "Xpdm",

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

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

553)             rsyncWebsiteMirror => "",

554)             ftpWebsiteMirror => "",

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

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

560)         },

561) 

562)         mirror027 => {

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

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

573)             rsyncWebsiteMirror => "",

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

580)         },

581) 

582)         mirror028 => {

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

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

593)             rsyncWebsiteMirror => "",

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

600)         },

601) 

602)         mirror029 => {

603)             adminContact => "",

604)             orgName => "Technica-03",

605)             isoCC => "UA",

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

613)             rsyncWebsiteMirror => "",

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

620)         },

621) 

622) 	mirror030 => {

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

640)         },

641) 

642) 	mirror031 => {

643)             adminContact => "webmaster AT askapache DOT com",
644)             orgName => "AskApache",

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

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

656)             httpsDistMirror => "",
657)             rsyncDistMirror => "",
658)             hiddenServiceMirror => "",
659)             updateDate => "Unknown",

660)         },

661) 

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

680)         },

681) 

682) 	mirror033 => {
683)             adminContact => "",

684)             orgName => "bullog",

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

700)         },

701) 

702) 	mirror034 => {
703)             adminContact => "",

704)             orgName => "digitip",

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

720)         },

721) 

722) 	mirror035 => {
723)             adminContact => "",

724)             orgName => "shizhao",

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

740)         },

741) 

742) 	mirror036 => {
743)             adminContact => "",

744)             orgName => "ranyunfei",

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

760)         },

761) 

762) 	mirror037 => {
763)             adminContact => "",

764)             orgName => "wuerkaixi",

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

780)         },

781) 

782) 	mirror038 => {
783)             adminContact => "",

784)             orgName => "izaobao",

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

800)         },

801) 

802) 	mirror039 => {
803)             adminContact => "",

804)             orgName => "anothr",

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

820)         },

821) 

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

839)             updateDate => "Unknown",
840)         },
841) 
842) mirror040 => {
843)             adminContact => "doc DOT kuehn AT nexgo DOT de",
844)             orgName => " ",
845)             isoCC => " ",
846)             subRegion => "",
847)             region => "DE",
848)             ipv4 => "True",
849)             ipv6 => "False",
850)             loadBalanced => "No",
851)             httpWebsiteMirror => "http://tor-proxy.de/tor-mirror/",
852)             httpsWebsiteMirror => "https://tor-proxy.de/tor-mirror/",
853)             rsyncWebsiteMirror => "",
854)             ftpWebsiteMirror => "",
855)             httpDistMirror => "http://tor-proxy.de/tor-mirror/dist/",
856)             httpsDistMirror => "https://tor-proxy.de/tor-mirror/dist/",
857)             rsyncDistMirror => "",
858)             hiddenServiceMirror => "",

859)             updateDate => "Unknown",
860)         },

861) 
862) mirror041 => {
863)             adminContact => " ",
864)             orgName => " ",
865)             isoCC => " ",
866)             subRegion => "",
867)             region => "DE",
868)             ipv4 => "True",
869)             ipv6 => "False",
870)             loadBalanced => "No",
871)             httpWebsiteMirror => "http://tor.beme-it.de/",
872)             httpsWebsiteMirror => "https://tor.beme-it.de/",
873)             rsyncWebsiteMirror => "",
874)             ftpWebsiteMirror => "",
875)             httpDistMirror => "http://tor.beme-it.de/dist/",
876)             httpsDistMirror => "https://tor.beme-it.de/dist/",
877)             rsyncDistMirror => "",
878)             hiddenServiceMirror => "",
879)             updateDate => "Unknown",
880)         },
881) 

882) );
883) 
884) my $count = values %m;
885) print "We have a total of $count mirrors\n";
886) print "Fetching the last updated date for each mirror.\n";
887) 

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

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

892) print "The official time for Tor is $tortime. \n";
893) 

894) foreach my $server ( keys %m ) {
895) 
896)     print "Attempting to fetch from $m{$server}{'orgName'}\n";
897) 
898)     if ($m{$server}{'httpWebsiteMirror'}) {
899)         print "Attempt to fetch via HTTP.\n";
900)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpWebsiteMirror'}");
901)     } elsif ($m{$server}{'httpsWebsiteMirror'}) {
902)         print "Attempt to fetch via HTTPS.\n";
903)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpsWebsiteMirror'}");
904)     } elsif ($m{$server}{'ftpWebsiteMirror'}) {
905)         print "Attempt to fetch via FTP.\n";
906)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'ftpWebsiteMirror'}");
907)     } else {
908)         print "We were unable to fetch or store anything. We still have the following: $m{$server}{'updateDate'}\n";
909)     }
910) 
911)     print "We fetched and stored the following: $m{$server}{'updateDate'}\n";
912) 
913)  }
914) 
915) 
916) print "We sorted the following mirrors by their date of last update: \n";
917) foreach my $server ( sort { $m{$b}{'updateDate'} <=> $m{$a}{'updateDate'}} keys %m ) {
918) 
919)      print "\n";
920)      print "Mirror $m{$server}{'orgName'}: \n";
921) 
922)      foreach my $attrib ( sort keys %{$m{$server}} ) {
923)         print "$attrib = $m{$server}{$attrib}";
924)         print "\n";
925)      };
926) }
927) 
928) my $outFile = "include/mirrors-table.wmi";
929) my $html;
930) open(OUT, "> $outFile") or die "Can't open $outFile: $!";
931) 

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

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

936)      my $time;

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

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

939) 	    $time = "Up to date";
940) 	  } else { $time = "Out of date"; }

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

942) print OUT <<"END";
943)      \n<tr>\n
944)          <td>$m{$server}{'isoCC'}</td>\n
945)          <td>$m{$server}{'orgName'}</td>\n
946)          <td>$time</td>\n
947) END
948) 
949)      my %prettyNames = (
950)                         httpWebsiteMirror => "http",
951)                         httpsWebsiteMirror => "https",
952)                         ftpWebsiteMirror => "ftp",
953)                         rsyncWebsiteMirror => "rsync",
954)                         httpDistMirror => "http",
955)                         httpsDistMirror => "https",
956)                         rsyncDistMirrors => "rsync", );
957) 
958)      foreach my $precious ( sort keys %prettyNames )

959)      {
960)         if ($m{$server}{"$precious"}) {
961)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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