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) #CHANGELOG
19) #20091003 Code changes to elimiate the need for a trailing slash in addresses for script runtime
20) #

21) 

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

25)     timeout => 15,

26)     agent => "Tor MirrorCheck Agent"
27) );
28) 
29) sub sanitize {
30)     my $taintedData = shift;
31)     my $cleanedData;
32)     my $whitelist = '-a-zA-Z0-9: +';
33) 
34)     # clean the data, return cleaned data
35)     $taintedData =~ s/[^$whitelist]//go;
36)     $cleanedData = $taintedData;
37) 
38)     return $cleanedData;
39) }
40) 
41) sub FetchDate {
42)     my $url = shift; # Base url for mirror

43)     my $trace = "/project/trace/www.torproject.org"; # Location of recent update info

44)     $url = "$url$trace";
45) 
46)     print "Fetching possible date from: $url\n";
47) 
48)     my $request = new HTTP::Request GET => "$url";
49)     my $result = $lua->request($request);

50)     my $code = $result->code();
51)     print "Result code $code\n";

52) 

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

54)        my $taint = $result->content;
55)        my $content = sanitize($taint);
56)        if ($content) {

57) 

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

72) 

73)     } else {
74)        print "Our request failed, we had no result.\n";
75)        return "Unknown";
76)     }

77) 
78)     return "Unknown";

79) }
80) 
81) # This is the list of all known Tor mirrors
82) # Add new mirrors to the bottom!

83) my %m = (
84)         mirror000 => {
85)             adminContact => "tor AT goodeid DOT com",

86)             orgName => "Goodeid",

87)             isoCC => "CA",

88)             subRegion => "",

89)             region => "North America",

90)             ipv4 => "True",
91)             ipv6 => "False",
92)             loadBalanced => "No",

93)             httpWebsiteMirror => "http://tor-node.goodeid.com:8081/",
94)             httpsWebsiteMirror => "https://tor-node.goodeid.com:8444/",

95)             rsyncWebsiteMirror => "",
96)             ftpWebsiteMirror => "",

97)             httpDistMirror => "http://tor-node.goodeid.com:8081/dist/",
98)             httpsDistMirror => "https://tor-node.goodeid.com:8444/dist/
99) 
100) ",

101)             rsyncDistMirror => "",
102)             hiddenServiceMirror => "",
103)             updateDate => "Unknown",
104)         },
105) 

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

115)             httpWebsiteMirror => "http://www.oignon.net/",
116)             httpsWebsiteMirror => "https://oignon.net/",

117)             rsyncWebsiteMirror => "",
118)             ftpWebsiteMirror => "",

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

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

121)             rsyncDistMirror => "",
122)             hiddenServiceMirror => "",
123)             updateDate => "Unknown",
124)         },
125) 

126)        mirror002 => {

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

128)             orgName => "Hermetix",

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

137)             httpDistMirror => "",

138)             rsyncDistMirror => "",

139)             updateDate => "Unknown",

140)         },
141) 
142)        mirror003 => {

143)             adminContact => "",

144)             orgName => "Boinc",

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

156)             updateDate => "Unknown",

157)         },
158) 
159)        mirror004 => {

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

161)             orgName => "Anonymity",

162)             isoCC => "CN",
163)             subRegion => "",
164)             region => "Asia",
165)             ipv4 => "True",
166)             ipv6 => "False",
167)             loadBalanced => "Unknown",

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

169)             ftpWebsiteMirror => "",
170)             rsyncWebsiteMirror => "",

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

172)             rsyncDistMirror => "",

173)             updateDate => "Unknown",

174)         },
175) 

176)        mirror005 => {

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

178)             orgName => "Bbs",

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

188)             httpDistMirror => "",

189)             rsyncDistMirror => "",

190)             updateDate => "Unknown",

191)         },
192) 

193)        mirror006 => {

194)             adminContact => "doc DOT kuehn AT nexgo DOT de",
195)             orgName => " spacecowboy ",
196)             isoCC => " ",

197)             subRegion => "",

198)             region => "DE",

199)             ipv4 => "True",
200)             ipv6 => "False",

201)             loadBalanced => "No",
202)             httpWebsiteMirror => "http://tor-proxy.de/tor-mirror/",
203)             httpsWebsiteMirror => "https://tor-proxy.de/tor-mirror/",

204)             rsyncWebsiteMirror => "",

205)             ftpWebsiteMirror => "",
206)             httpDistMirror => "http://tor-proxy.de/tor-mirror/dist/",
207)             httpsDistMirror => "https://tor-proxy.de/tor-mirror/dist/",

208)             rsyncDistMirror => "",

209)             hiddenServiceMirror => "",

210)             updateDate => "Unknown",
211)         },

212) 

213)        mirror007 => {

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

215)             orgName => "Cybermirror",

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

227)             updateDate => "Unknown",

228)         },
229) 

230)        mirror008 => {

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

232)             orgName => "Spline",
233)             isoCC => "DE",
234)             subRegion => "FU",
235)             region => "Europe",
236)             ipv4 => "True",
237)             ipv6 => "False",
238)             loadBalanced => "Unknown",

239)             httpWebsiteMirror => "",

240)             ftpWebsiteMirror => "",
241)             rsyncWebsiteMirror => "",

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

243)             rsyncDistMirror => "",

244)             updateDate => "Unknown",

245)         },
246) 

247) 	mirror009 => {
248)             adminContact => "BarkerJr AT barkerjr DOT net",
249)             orgName => "BarkerJr",
250)             isoCC => "US",
251)             subRegion => "",
252)             region => "US",
253)             ipv4 => "True",
254)             ipv6 => "False",
255)             loadBalanced => "No",

256)             httpWebsiteMirror => "http://www.cebolla.us/",
257)             httpsWebsiteMirror => "https://www.cebolla.us/",

258)             rsyncWebsiteMirror => "",
259)             ftpWebsiteMirror => "",
260)             httpDistMirror => "http://www.cebolla.us/dist/",
261)             httpsDistMirror => "https://www.cebolla.us/dist/",
262)             rsyncDistMirror => "",
263)             hiddenServiceMirror => "",
264)             updateDate => "Unknown",
265)         },
266) 
267) 	mirror010 => {
268)             adminContact => "",
269)             orgName => "zuola",
270)             isoCC => "CN",
271)             subRegion => "",
272)             region => "CN",
273)             ipv4 => "True",
274)             ipv6 => "False",
275)             loadBalanced => "No",
276)             httpWebsiteMirror => "http://tor.zuo.la/",
277)             httpsWebsiteMirror => "",
278)             rsyncWebsiteMirror => "",
279)             ftpWebsiteMirror => "",
280)             httpDistMirror => "http://tor.zuo.la/dist/",
281)             httpsDistMirror => "",
282)             rsyncDistMirror => "",
283)             hiddenServiceMirror => "",
284)             updateDate => "Unknown",
285)         },
286) 

287)        mirror011 => {

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

289)             orgName => "Zentrum der Gesundheit",

290)             isoCC => "DK",
291)             subRegion => "",
292)             region => "Europe",
293)             ipv4 => "True",
294)             ipv6 => "False",
295)             loadBalanced => "Unknown",

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

297)             ftpWebsiteMirror => "",

298)             rsyncWebsiteMirror => "",

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

301)             updateDate => "Unknown",

302)         },
303) 

304)        mirror012 => {

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

306)             orgName => "CRAN",
307)             isoCC => "FR",

308)             subRegion => "Ile de France",

309)             region => "Europe",
310)             ipv4 => "True",
311)             ipv6 => "False",
312)             loadBalanced => "Unknown",

313)             httpWebsiteMirror => "",

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

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

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

317)             rsyncDistMirror => "",

318)             updateDate => "Unknown",

319)         },
320) 

321)        mirror013 => {

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

323)             orgName => "Amorphis",

324)             isoCC => "NL",
325)             subRegion => "",
326)             region => "Europe",
327)             ipv4 => "True",
328)             ipv6 => "False",
329)             loadBalanced => "Unknown",
330)             httpWebsiteMirror => "http://tor.amorphis.eu/",

331)             rsyncWebsiteMirror => "",

332)             ftpWebsiteMirror => "",
333)             httpDistMirror => "http://tor.amorphis.eu/dist/",
334)             rsyncDistMirror => "",

335)             updateDate => "Unknown",

336)         },
337) 

338)        mirror014 => {

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

340)             orgName => "BIT BV",
341)             isoCC => "NL",
342)             subRegion => "",
343)             region => "Europe",
344)             ipv4 => "True",
345)             ipv6 => "False",
346)             loadBalanced => "Unknown",

347)             httpWebsiteMirror => "",

348)             rsyncWebsiteMirror => "",

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

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

351)             rsyncDistMirror => "",

352)             updateDate => "Unknown",

353)         },
354) 

355)        mirror015 => {

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

357)             orgName => "CCC",
358)             isoCC => "NL",
359)             subRegion => "",
360)             region => "Europe",
361)             ipv4 => "True",
362)             ipv6 => "False",
363)             loadBalanced => "Unknown",
364)             httpWebsiteMirror => "http://tor.ccc.de/",

365)             rsyncWebsiteMirror => "",

366)             ftpWebsiteMirror => "",
367)             httpDistMirror => "http://tor.ccc.de/dist/",
368)             rsyncDistMirror => "",

369)             updateDate => "Unknown",

370)         },
371) 

372)        mirror016 => {

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

374)             orgName => "Kamagurka",

375)             isoCC => "NL",
376)             subRegion => "Haarlem",
377)             region => "Europe",
378)             ipv4 => "True",
379)             ipv6 => "False",
380)             loadBalanced => "Unknown",
381)             httpWebsiteMirror => "http://tor.kamagurka.org/",

382)             rsyncWebsiteMirror => "",

383)             ftpWebsiteMirror => "",
384)             httpDistMirror => "http://tor.kamagurka.org/dist/",
385)             rsyncDistMirror => "",

386)             updateDate => "Unknown",

387)         },
388) 

389)        mirror017 => {

390)             adminContact => "mirrorsosmirror.nl",

391)             orgName => "OS Mirror",
392)             isoCC => "NL",
393)             subRegion => "",
394)             region => "Europe",
395)             ipv4 => "True",
396)             ipv6 => "False",
397)             loadBalanced => "Unknown",

398)             httpWebsiteMirror => "",

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

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

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

402)             rsyncDistMirror => "",

403)             updateDate => "Unknown",

404)         },
405) 
406) 

407)        mirror018 => {

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

409)             orgName => "Meulie",

410)             isoCC => "NO",
411)             subRegion => "",
412)             region => "Europe",
413)             ipv4 => "True",
414)             ipv6 => "False",
415)             loadBalanced => "Unknown",

416)             httpWebsiteMirror => "",

417)             rsyncWebsiteMirror => "",

418)             ftpWebsiteMirror => "",

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

420)             rsyncDistMirror => "",

421)             updateDate => "Unknown",

422)         },
423) 

424)        mirror019 => {

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

426)             orgName => "Ghirai",

427)             isoCC => "UK",
428)             subRegion => "London",
429)             region => "Europe",
430)             ipv4 => "True",
431)             ipv6 => "False",
432)             loadBalanced => "Unknown",

433)             httpWebsiteMirror => "",

434)             rsyncWebsiteMirror => "",

435)             ftpWebsiteMirror => "",

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

437)             rsyncDistMirror => "",

438)             updateDate => "Unknown",

439)         },
440) 

441) 	mirror020 => {
442)             adminContact => "",
443)             orgName => "ax",
444)             isoCC => "DE",
445)             subRegion => "",
446)             region => "DE",
447)             ipv4 => "True",
448)             ipv6 => "False",
449)             loadBalanced => "No",
450)             httpWebsiteMirror => "",
451)             httpsWebsiteMirror => "",
452)             rsyncWebsiteMirror => "",
453)             ftpWebsiteMirror => "",
454)             httpDistMirror => "http://tor.initrd.net/dist/",
455)             httpsDistMirror => "",
456)             rsyncDistMirror => "",
457)             hiddenServiceMirror => "",
458)             updateDate => "Unknown",
459)         },
460) 

461)        mirror021 => {

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

463)             orgName => "TheOnionRouter",

464)             isoCC => "US",

465)             subRegion => "New Jersey",

466)             region => "North America",
467)             ipv4 => "True",
468)             ipv6 => "False",
469)             loadBalanced => "Unknown",
470)             httpWebsiteMirror => "http://www.theonionrouter.com/",

471)             rsyncWebsiteMirror => "",

472)             ftpWebsiteMirror => "",
473)             httpDistMirror => "http://www.theonionrouter.com/dist/",
474)             rsyncDistMirror => "",

475)             updateDate => "Unknown",

476)         },
477) 

478)        mirror022 => {

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

480)             orgName => "Unfix",

481)             isoCC => "CH",
482)             subRegion => "",
483)             region => "Europe",
484)             ipv4 => "True",
485)             ipv6 => "True",
486)             loadBalanced => "Unknown",
487)             httpWebsiteMirror => "http://tor.unfix.org/",

488)             rsyncWebsiteMirror => "",

489)             ftpWebsiteMirror => "",

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

491)             rsyncDistMirror => "",

492)             updateDate => "Unknown",

493)         },
494) 

495)        mirror023 => {

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

497)             orgName => "Sixx",

498)             isoCC => "CH",

499)             subRegion => "",
500)             region => "Europe",
501)             ipv4 => "True",
502)             ipv6 => "True",
503)             loadBalanced => "Unknown",
504)             httpWebsiteMirror => "http://tor.sixxs.net/",

505)             rsyncWebsiteMirror => "",

506)             ftpWebsiteMirror => "",

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

508)             rsyncDistMirror => "",

509)             updateDate => "Unknown",

510)         },

511) 

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

532)        mirror025 => {

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

534)             orgName => "Wiretapped",
535)             isoCC => "AU",
536)             subRegion => "Sydney",
537)             region => "Oceania",
538)             ipv4 => "True",
539)             ipv6 => "False",
540)             loadBalanced => "Unknown",
541)             httpWebsiteMirror => "",

542)             rsyncWebsiteMirror => "",

543)             ftpWebsiteMirror => "ftp://ftp.mirrors.wiretapped.net/pub/security/cryptography/network/tor/",
544)             httpDistMirror => "http://www.mirrors.wiretapped.net/security/cryptography/network/tor/",
545)             rsyncDistMirror => "",
546)             updateDate => "Unknown",

547)         },

548) 

549)         mirror026 => {

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

551)             orgName => "Xpdm",

552)             isoCC => "US",
553)             subRegion => "",
554)             region => "North America",
555)             ipv4 => "True",
556)             ipv6 => "False",
557)             loadBalanced => "Unknown",
558)             httpWebsiteMirror => "http://torproj.xpdm.us/",

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

560)             rsyncWebsiteMirror => "",

561)             ftpWebsiteMirror => "",

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

564)             rsyncDistMirror => "",
565)             hiddenServiceMirror => "http://h3prhz46uktgm4tt.onion/",
566)             updateDate => "Unknown",

567)         },

568) 

569)         mirror027 => {

570)             adminContact => "",
571)             orgName => " cybervalley ",
572)             isoCC => " ",
573)             subRegion => "",
574)             region => " ",

575)             ipv4 => "True",
576)             ipv6 => "False",
577)             loadBalanced => "No",

578)             httpWebsiteMirror => "http://torproject.cybervalley.org/",

579)             httpsWebsiteMirror => "",

580)             rsyncWebsiteMirror => "",

581)             ftpWebsiteMirror => "",

582)             httpDistMirror => "",

583)             httpsDistMirror => "",
584)             rsyncDistMirror => "",
585)             hiddenServiceMirror => "",
586)             updateDate => "Unknown",

587)         },

588) 

589)         mirror028 => {

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

591)             orgName => "Unknown",
592)             isoCC => "HU",
593)             subRegion => "Hungary",
594)             region => "Europe",
595)             ipv4 => "True",
596)             ipv6 => "False",
597)             loadBalanced => "No",

598)             httpWebsiteMirror => "http://tor.hu/",

599)             httpsWebsiteMirror => "",

600)             rsyncWebsiteMirror => "",

601)             ftpWebsiteMirror => "",

602)             httpDistMirror => "",

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

607)         },

608) 

609)         mirror029 => {

610)             adminContact => "",

611)             orgName => "Technica-03",

612)             isoCC => "UA",

613)             subRegion => "Ukraine",
614)             region => "Eastern Europe",
615)             ipv4 => "True",
616)             ipv6 => "False",
617)             loadBalanced => "No",
618)             httpWebsiteMirror => "http://torua.reactor-xg.kiev.ua/",
619)             httpsWebsiteMirror => "",

620)             rsyncWebsiteMirror => "",

621)             ftpWebsiteMirror => "",

622)             httpDistMirror => "http://tordistua.reactor-xg.kiev.ua/",

623)             httpsDistMirror => "",
624)             rsyncDistMirror => "",
625)             hiddenServiceMirror => "",
626)             updateDate => "Unknown",

627)         },

628) 

629) 	mirror030 => {

630)             adminContact => "",
631)             orgName => "chaos darmstadt",
632)             isoCC => "DE",
633)             subRegion => "Germany",
634)             region => "Europe",
635)             ipv4 => "True",
636)             ipv6 => "False",
637)             loadBalanced => "No",
638)             httpWebsiteMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/",
639)             httpsWebsiteMirror => "",
640)             rsyncWebsiteMirror => "",
641)             ftpWebsiteMirror => "",
642)             httpDistMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/dist/",
643)             httpsDistMirror => "",
644)             rsyncDistMirror => "",
645)             hiddenServiceMirror => "",
646)             updateDate => "Unknown",

647)         },

648) 

649) 	mirror031 => {

650)             adminContact => "webmaster AT askapache DOT com",
651)             orgName => "AskApache",

652)             isoCC => "US",
653)             subRegion => "California",
654)             region => "US",
655)             ipv4 => "True",
656)             ipv6 => "False",
657)             loadBalanced => "No",
658)             httpWebsiteMirror => "http://tor.askapache.com/",
659)             httpsWebsiteMirror => "",
660)             rsyncWebsiteMirror => "",
661)             ftpWebsiteMirror => "",

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

663)             httpsDistMirror => "",
664)             rsyncDistMirror => "",
665)             hiddenServiceMirror => "",
666)             updateDate => "Unknown",

667)         },

668) 

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

687)         },

688) 

689) 	mirror033 => {
690)             adminContact => "",

691)             orgName => "bullog",

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

707)         },

708) 

709) 	mirror034 => {

710)             adminContact => " mail AT benjamin-meier DOT info ",
711)             orgName => "beme it",
712)             isoCC => " ",

713)             subRegion => "",

714)             region => "DE",

715)             ipv4 => "True",
716)             ipv6 => "False",
717)             loadBalanced => "No",

718)             httpWebsiteMirror => "http://tor.beme-it.de/",
719)             httpsWebsiteMirror => "https://tor.beme-it.de/",

720)             rsyncWebsiteMirror => "",
721)             ftpWebsiteMirror => "",

722)             httpDistMirror => "http://tor.beme-it.de/dist/",
723)             httpsDistMirror => "https://tor.beme-it.de/dist/",

724)             rsyncDistMirror => "",
725)             hiddenServiceMirror => "",
726)             updateDate => "Unknown",

727)         },

728) 

729) 	mirror035 => {
730)             adminContact => "",

731)             orgName => "shizhao",

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

747)         },

748) 

749) 	mirror036 => {
750)             adminContact => "",

751)             orgName => "ranyunfei",

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

767)         },

768) 

769) 	mirror037 => {
770)             adminContact => "",

771)             orgName => "wuerkaixi",

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

787)         },

788) 

789) 	mirror038 => {
790)             adminContact => "",

791)             orgName => "izaobao",

792)             isoCC => "CN",
793)             subRegion => "",
794)             region => "CN",
795)             ipv4 => "True",
796)             ipv6 => "False",
797)             loadBalanced => "No",
798)             httpWebsiteMirror => "http://tor.izaobao.com/",
799)             httpsWebsiteMirror => "",
800)             rsyncWebsiteMirror => "",
801)             ftpWebsiteMirror => "",
802)             httpDistMirror => "http://tor.izaobao.com/dist/",
803)             httpsDistMirror => "",
804)             rsyncDistMirror => "",
805)             hiddenServiceMirror => "",
806)             updateDate => "Unknown",

807)         },

808) 

809) 	mirror039 => {
810)             adminContact => "",

811)             orgName => "anothr",

812)             isoCC => "CN",
813)             subRegion => "",
814)             region => "CN",
815)             ipv4 => "True",
816)             ipv6 => "False",
817)             loadBalanced => "No",
818)             httpWebsiteMirror => "http://tor.anothr.com/",
819)             httpsWebsiteMirror => "",
820)             rsyncWebsiteMirror => "",
821)             ftpWebsiteMirror => "",
822)             httpDistMirror => "http://tor.anothr.com/dist/",
823)             httpsDistMirror => "",
824)             rsyncDistMirror => "",
825)             hiddenServiceMirror => "",
826)             updateDate => "Unknown",

827)         },

828) 

829) );
830) 
831) my $count = values %m;
832) print "We have a total of $count mirrors\n";
833) print "Fetching the last updated date for each mirror.\n";
834) 

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

837) # Adjust offical Tor time by out-of-date offset: number of days * seconds per day 

838) $tortime -= 1 * 172800; 

839) print "The official time for Tor is $tortime. \n";
840) 

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

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

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

883)      my $time;

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

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

886) 	    $time = "Up to date";
887) 	  } else { $time = "Out of date"; }

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

889) print OUT <<"END";
890)      \n<tr>\n
891)          <td>$m{$server}{'isoCC'}</td>\n
892)          <td>$m{$server}{'orgName'}</td>\n
893)          <td>$time</td>\n
894) END
895) 
896)      my %prettyNames = (
897)                         httpWebsiteMirror => "http",
898)                         httpsWebsiteMirror => "https",
899)                         ftpWebsiteMirror => "ftp",
900)                         rsyncWebsiteMirror => "rsync",
901)                         httpDistMirror => "http",
902)                         httpsDistMirror => "https",
903)                         rsyncDistMirrors => "rsync", );
904) 
905)      foreach my $precious ( sort keys %prettyNames )

906)      {
907)         if ($m{$server}{"$precious"}) {
908)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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