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) # CHANGELOG
16) # 20091003 Code changes to elimiate the need for a trailing slash in addresses for script runtime
17) # 20091004 Code changes to increase out of date tolerance to 48 hours
18) # 20091028 Code changes to increase timout to 30 seconds (attempting to # resolve "unknown" status')
19) # 20091028 Code changes to change user agent of script
20) # 20100807 Remove dead mirrors.

21) 

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

25)     timeout => 30,

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-master.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) 

85)         
86)         mirror000 => {
87)             adminContact => "coralcdn.org",
88)             orgName => "CoralCDN",
89)             isoCC => "INT",
90)             subRegion => "",
91)             region => "INT",
92)             ipv4 => "True",
93)             ipv6 => "False",
94)             loadBalanced => "Yes",
95)             httpWebsiteMirror => "http://www.torproject.org.nyud.net/",
96)             httpsWebsiteMirror => "",
97)             rsyncWebsiteMirror => "",
98)             ftpWebsiteMirror => "",
99)             httpDistMirror => "http://www.torproject.org.nyud.net/dist/",
100)             httpsDistMirror => "",
101)             rsyncDistMirror => "",
102)             hiddenServiceMirror => "",
103)             updateDate => "Unknown",
104) 
105)         },
106) 

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

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

117)             httpsWebsiteMirror => "https://www.oignon.net/",

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

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

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

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

127)        mirror003 => {

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

129)             orgName => "[[:bbs:]]",

130)             isoCC => "DE",
131)             subRegion => "",
132)             region => "Europe",
133)             ipv4 => "True",
134)             ipv6 => "False",
135)             loadBalanced => "Unknown",
136)             httpWebsiteMirror => "http://tor.blingblingsquad.net/",

137)             httpsWebsiteMirror => "https://tor.blingblingsquad.net/",

138)             ftpWebsiteMirror => "",
139)             rsyncWebsiteMirror => "",

140)             httpDistMirror => "http://tor.blingblingsquad.net/dist",

141)             httpsDistMirror => "https://tor.blingblingsquad.net/dist",

142)             rsyncDistMirror => "",

143)             updateDate => "Unknown",

144)         },
145) 

146) 	    mirror006 => {

147)             adminContact => "BarkerJr AT barkerjr DOT net",
148)             orgName => "BarkerJr",
149)             isoCC => "US",
150)             subRegion => "",
151)             region => "US",
152)             ipv4 => "True",
153)             ipv6 => "False",
154)             loadBalanced => "No",

155)             httpWebsiteMirror => "http://www.torproject.us/",
156)             httpsWebsiteMirror => "https://www.torproject.us/",

157)             rsyncWebsiteMirror => "rsync://rsync.torproject.us/tor",

158)             ftpWebsiteMirror => "",

159)             httpDistMirror => "http://www.torproject.us/dist/",
160)             httpsDistMirror => "https://www.torproject.us/dist/",

161)             rsyncDistMirror => "rsync://rsync.torproject.us/tor/dist",

162)             hiddenServiceMirror => "",
163)             updateDate => "Unknown",
164)         },
165) 

166)        mirror007 => {

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

168)             orgName => "Zentrum der Gesundheit",

169)             isoCC => "DK",
170)             subRegion => "",
171)             region => "Europe",
172)             ipv4 => "True",
173)             ipv6 => "False",
174)             loadBalanced => "Unknown",

175)             httpWebsiteMirror => "http://tor.idnr.ws/",

176)             ftpWebsiteMirror => "",

177)             rsyncWebsiteMirror => "",

178)             httpDistMirror => "http://tor.idnr.ws/dist/",

179)             rsyncDistMirror => "",

180)             updateDate => "Unknown",

181)         },
182) 

183)        mirror008 => {

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

185)             orgName => "Amorphis",

186)             isoCC => "NL",
187)             subRegion => "",
188)             region => "Europe",
189)             ipv4 => "True",
190)             ipv6 => "False",
191)             loadBalanced => "Unknown",
192)             httpWebsiteMirror => "http://tor.amorphis.eu/",

193)             rsyncWebsiteMirror => "",

194)             ftpWebsiteMirror => "",
195)             httpDistMirror => "http://tor.amorphis.eu/dist/",
196)             rsyncDistMirror => "",

197)             updateDate => "Unknown",

198)         },
199) 

200)        mirror009 => {

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

202)             orgName => "BIT BV",
203)             isoCC => "NL",
204)             subRegion => "",
205)             region => "Europe",
206)             ipv4 => "True",
207)             ipv6 => "False",
208)             loadBalanced => "Unknown",

209)             httpWebsiteMirror => "",

210)             rsyncWebsiteMirror => "",

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

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

213)             rsyncDistMirror => "",

214)             updateDate => "Unknown",

215)         },
216) 

217)        mirror010 => {

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

219)             orgName => "CCC",
220)             isoCC => "NL",
221)             subRegion => "",
222)             region => "Europe",
223)             ipv4 => "True",
224)             ipv6 => "False",
225)             loadBalanced => "Unknown",
226)             httpWebsiteMirror => "http://tor.ccc.de/",

227)             rsyncWebsiteMirror => "",

228)             ftpWebsiteMirror => "",
229)             httpDistMirror => "http://tor.ccc.de/dist/",
230)             rsyncDistMirror => "",

231)             updateDate => "Unknown",

232)         },
233) 

234)        mirror013 => {

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

236)             orgName => "TheOnionRouter",

237)             isoCC => "IS",
238)             subRegion => "",
239)             region => "Iceland",

240)             ipv4 => "True",
241)             ipv6 => "False",
242)             loadBalanced => "Unknown",

243)             httpWebsiteMirror => "http://theonionrouter.com/",

244)             rsyncWebsiteMirror => "",

245)             ftpWebsiteMirror => "",

246)             httpDistMirror => "http://theonionrouter.com/dist/",

247)             rsyncDistMirror => "",

248)             updateDate => "Unknown",

249)         },

250)         mirror016 => {

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

252)             orgName => "Unknown",
253)             isoCC => "HU",
254)             subRegion => "Hungary",
255)             region => "Europe",
256)             ipv4 => "True",
257)             ipv6 => "False",
258)             loadBalanced => "No",

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

260)             httpsWebsiteMirror => "",

261)             rsyncWebsiteMirror => "",

262)             ftpWebsiteMirror => "",

263)             httpDistMirror => "http://mirror.tor.hu/dist",

264)             httpsDistMirror => "",
265)             rsyncDistMirror => "",
266)             hiddenServiceMirror => "",
267)             updateDate => "Unknown",

268)         },

269) 

270)         mirror017 => {

271)             adminContact => "",

272)             orgName => "Technica-03",

273)             isoCC => "UA",

274)             subRegion => "Ukraine",
275)             region => "Eastern Europe",
276)             ipv4 => "True",
277)             ipv6 => "False",
278)             loadBalanced => "No",
279)             httpWebsiteMirror => "http://torua.reactor-xg.kiev.ua/",
280)             httpsWebsiteMirror => "",

281)             rsyncWebsiteMirror => "",

282)             ftpWebsiteMirror => "",

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

284)             httpsDistMirror => "",
285)             rsyncDistMirror => "",
286)             hiddenServiceMirror => "",
287)             updateDate => "Unknown",

288)         },

289) 

290) 	    mirror018 => {

291)             adminContact => "",
292)             orgName => "chaos darmstadt",
293)             isoCC => "DE",
294)             subRegion => "Germany",
295)             region => "Europe",
296)             ipv4 => "True",
297)             ipv6 => "False",
298)             loadBalanced => "No",
299)             httpWebsiteMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/",
300)             httpsWebsiteMirror => "",
301)             rsyncWebsiteMirror => "",
302)             ftpWebsiteMirror => "",
303)             httpDistMirror => "http://mirrors.chaos-darmstadt.de/tor-mirror/dist/",
304)             httpsDistMirror => "",
305)             rsyncDistMirror => "",
306)             hiddenServiceMirror => "",
307)             updateDate => "Unknown",

308)         },

309) 

310) 	mirror019 => {

311)             adminContact => "webmaster AT askapache DOT com",
312)             orgName => "AskApache",

313)             isoCC => "US",
314)             subRegion => "California",
315)             region => "US",
316)             ipv4 => "True",
317)             ipv6 => "False",
318)             loadBalanced => "No",
319)             httpWebsiteMirror => "http://tor.askapache.com/",
320)             httpsWebsiteMirror => "",
321)             rsyncWebsiteMirror => "",
322)             ftpWebsiteMirror => "",

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

324)             httpsDistMirror => "",
325)             rsyncDistMirror => "",
326)             hiddenServiceMirror => "",
327)             updateDate => "Unknown",

328)         },

329) 

330) 	mirror020 => {

331)             adminContact => " mail AT benjamin-meier DOT info ",
332)             orgName => "beme it",

333)             isoCC => "DE",

334)             subRegion => "",

335)             region => "DE",

336)             ipv4 => "True",
337)             ipv6 => "False",
338)             loadBalanced => "No",

339)             httpWebsiteMirror => "http://tor.beme-it.de/",

340)             httpsWebsiteMirror => "https://tor.beme-it.de/",

341)             rsyncWebsiteMirror => "rsync://tor.beme-it.de/tor",

342)             ftpWebsiteMirror => "",

343)             httpDistMirror => "http://tor.beme-it.de/dist/",

344)             httpsDistMirror => "https://tor.beme-it.de/dist/",

345)             rsyncDistMirror => "rsync://tor.beme-it.de/tor/dist",

346)             hiddenServiceMirror => "",
347)             updateDate => "Unknown",

348)         },

349) 

350)         mirror021 => {

351)             adminContact => "",

352)             orgName => "India Tor Fans",

353)             isoCC => "IN",
354)             subRegion => "",
355)             region => "IN",
356)             ipv4 => "True",
357)             ipv6 => "False",
358)             loadBalanced => "No",

359)             httpWebsiteMirror => "http://www.torproject.org.in/",

360)             httpsWebsiteMirror => "",
361)             rsyncWebsiteMirror => "",
362)             ftpWebsiteMirror => "",
363)             httpDistMirror => "http://www.torproject.org.in/dist/",
364)             httpsDistMirror => "",
365)             rsyncDistMirror => "",
366)             hiddenServiceMirror => "",
367)             updateDate => "Unknown",
368)         },
369) 

370)         mirror023 => {

371)             adminContact => "SiNA",

372)             orgName => "Ninjas",

373)             isoCC => "IR",
374)             subRegion => "",
375)             region => "IR",
376)             ipv4 => "True",
377)             ipv6 => "False",
378)             loadBalanced => "Yes",

379)             httpWebsiteMirror => "http://onion.anonymo.us.org/",

380)             httpsWebsiteMirror => "",
381)             rsyncWebsiteMirror => "",
382)             ftpWebsiteMirror => "",

383)             httpDistMirror => "http://onion.anonymo.us.org/dist/",

384)             httpsDistMirror => "",
385)             rsyncDistMirror => "",

386)             hiddenServiceMirror => "",
387)         },
388) 

389)         mirror024 => {

390)             adminContact => "",

391)             orgName => "homosu",

392)             isoCC => "SE",

393)             subRegion => "",

394)             region => "SE",

395)             ipv4 => "True",
396)             ipv6 => "False",
397)             loadBalanced => "No",
398)             httpWebsiteMirror => "http://tor.homosu.net/",
399)             httpsWebsiteMirror => "",
400)             rsyncWebsiteMirror => "",
401)             ftpWebsiteMirror => "",
402)             httpDistMirror => "http://tor.homosu.net/dist",
403)             httpsDistMirror => "",
404)             rsyncDistMirror => "",

405)             hiddenServiceMirror => "",

406)         },

407) 

408)         mirror025 => {

409)             adminContact => "margus.random at mail.ee",
410)             orgName => "CyberSIDE",

411)             isoCC => "EE",

412)             subRegion => "",
413)             region => "EE",
414)             ipv4 => "True",
415)             ipv6 => "False",
416)             loadBalanced => "No",
417)             httpWebsiteMirror => "http://cyberside.planet.ee/tor/",
418)             httpsWebsiteMirror => "",
419)             rsyncWebsiteMirror => "",
420)             ftpWebsiteMirror => "",

421)             httpDistMirror => "http://cyberside.net.ee/tor/",

422)             httpsDistMirror => "",
423)             rsyncDistMirror => "",

424)             hiddenServiceMirror => "",

425)         },

426) 

427)         mirror028 => {

428)             adminContact => "",

429)             orgName => "NW Linux",

430)             isoCC => "US",
431)             subRegion => "WA",
432)             region => "US",
433)             ipv4 => "True",
434)             ipv6 => "False",
435)             loadBalanced => "No",
436)             httpWebsiteMirror => "http://torproject.nwlinux.us",
437)             httpsWebsiteMirror => "",

438)             rsyncWebsiteMirror => "rsync://nwlinux.us/tor-web",

439)             ftpWebsiteMirror => "",
440)             httpDistMirror => "http://torproject.nwlinux.us/dist",
441)             httpsDistMirror => "",

442)             rsyncDistMirror => "rsync://nwlinux.us/tor-dist",

443)             hiddenServiceMirror => "",
444)         },

445)         mirror029 => {

446)             adminContact => "",
447)             orgName => "LazyTiger",
448)             isoCC => "FR",
449)             subRegion => "",
450)             region => "FR",
451)             ipv4 => "True",
452)             ipv6 => "False",
453)             loadBalanced => "No",
454)             httpWebsiteMirror => "http://tor.taiga-san.net/",
455)             httpsWebsiteMirror => "",
456)             rsyncWebsiteMirror => "",
457)             ftpWebsiteMirror => "",
458)             httpDistMirror => "http://tor.taiga-san.net/dist",
459)             httpsDistMirror => "",
460)             rsyncDistMirror => "",

461)             hiddenServiceMirror => "",
462)         },

463)         mirror030 => {

464)             adminContact => "",
465)             orgName => "searchprivate",
466)             isoCC => "US",
467)             subRegion => "TX",
468)             region => "US",
469)             ipv4 => "True",
470)             ipv6 => "False",
471)             loadBalanced => "No",
472)             httpWebsiteMirror => "http://tor.searchprivate.com",
473)             httpsWebsiteMirror => "",
474)             rsyncWebsiteMirror => "",
475)             ftpWebsiteMirror => "",
476)             httpDistMirror => "http://tor.searchprivate.com/dist",
477)             httpsDistMirror => "",
478)             rsyncDistMirror => "",

479)             hiddenServiceMirror => "",
480)         },

481)         mirror031 => {

482)             adminContact => "",
483)             orgName => "cyberarmy",
484)             isoCC => "AT",
485)             subRegion => "",
486)             region => "AT",
487)             ipv4 => "True",
488)             ipv6 => "False",
489)             loadBalanced => "No",
490)             httpWebsiteMirror => "http://tor.cyberarmy.at",
491)             httpsWebsiteMirror => "",
492)             rsyncWebsiteMirror => "",
493)             ftpWebsiteMirror => "",
494)             httpDistMirror => "http://tor.cyberarmy.at/dist",
495)             httpsDistMirror => "",
496)             rsyncDistMirror => "",
497)             hiddenServiceMirror => "",
498)         },
499)         mirror032 => {
500)             adminContact => "",

501)             orgName => "torproject.is",

502)             isoCC => "IS",
503)             subRegion => "",
504)             region => "IS",
505)             ipv4 => "True",
506)             ipv6 => "False",
507)             loadBalanced => "No",

508)             httpWebsiteMirror => "http://torproject.is/",

509)             httpsWebsiteMirror => "",
510)             rsyncWebsiteMirror => "",
511)             ftpWebsiteMirror => "",
512)             httpDistMirror => "http://torproject.is/dist",
513)             httpsDistMirror => "",
514)             rsyncDistMirror => "",

515)             hiddenServiceMirror => "",

516)         },
517)         mirror033 => {
518)             adminContact => "",
519)             orgName => "torservers",
520)             isoCC => "DE",
521)             subRegion => "",
522)             region => "DE",
523)             ipv4 => "True",
524)             ipv6 => "False",
525)             loadBalanced => "No",
526)             httpWebsiteMirror => "http://www.torservers.net/mirrors/torproject.org/",
527)             httpsWebsiteMirror => "https://www.torservers.net/mirrors/torproject.org/",
528)             rsyncWebsiteMirror => "",
529)             ftpWebsiteMirror => "",
530)             httpDistMirror => "http://www.torservers.net/mirrors/torproject.org/dist",
531)             httpsDistMirror => "https://www.torservers.net/mirrors/torproject.org/dist",
532)             rsyncDistMirror => "",
533)             hiddenServiceMirror => "http://hbpvnydyyjbmhx6b.onion/mirrors/torproject.org/",

534)         },

535)         mirror036 => {
536)             adminContact => "",
537)             orgName => "",
538)             isoCC => "NL",
539)             subRegion => "",
540)             region => "NL",
541)             ipv4 => "True",
542)             ipv6 => "False",
543)             loadBalanced => "No",
544)             httpWebsiteMirror => "",
545)             httpsWebsiteMirror => "",
546)             rsyncWebsiteMirror => "",
547)             ftpWebsiteMirror => "",
548)             httpDistMirror => "",
549)             httpsDistMirror => "https://www.coevoet.nl/tor/dist",
550)             rsyncDistMirror => "",
551)             hiddenServiceMirror => "",

552)       },

553)         mirror037 => {
554)             adminContact => "",

555)             orgName => "crypto.is",

556)             isoCC => "IS",
557)             subRegion => "",

558)             region => "Iceland",

559)             ipv4 => "True",
560)             ipv6 => "False",
561)             loadBalanced => "No",
562)             httpWebsiteMirror => "https://torproject.crypto.is",

563)             httpsWebsiteMirror => "https://torproject.crypto.is",

564)             rsyncWebsiteMirror => "",
565)             ftpWebsiteMirror => "",
566)             httpDistMirror => "https://torproject.crypto.is/dist",

567)             httpsDistMirror => "https://torproject.crypto.is/dist",
568)             rsyncDistMirror => "",
569)             hiddenServiceMirror => "",
570)       },
571)         mirror038 => {
572)             adminContact => "",
573)             orgName => "",
574)             isoCC => "LT",
575)             subRegion => "",
576)             region => "LT",
577)             ipv4 => "True",
578)             ipv6 => "False",
579)             loadBalanced => "No",
580)             httpWebsiteMirror => "http://tor.vesta.nu",
581)             httpsWebsiteMirror => "",
582)             rsyncWebsiteMirror => "",
583)             ftpWebsiteMirror => "",
584)             httpDistMirror => "http://tor.vesta.nu/dist",

585)             httpsDistMirror => "",
586)             rsyncDistMirror => "",

587)             hiddenServiceMirror => "",
588)       },
589)         mirror039 => {
590)             adminContact => "",

591)             orgName => "CCC-Hanau",

592)             isoCC => "DE",
593)             subRegion => "",
594)             region => "DE",
595)             ipv4 => "True",
596)             ipv6 => "False",
597)             loadBalanced => "No",
598)             httpWebsiteMirror => "http://tor.key-server.org",
599)             httpsWebsiteMirror => "https://tor.key-server.org",
600)             rsyncWebsiteMirror => "",

601)             ftpWebsiteMirror => "ftp://key-server.org/tor",

602)             httpDistMirror => "http://tor.key-server.org/dist",
603)             httpsDistMirror => "https://tor.key-server.org/dist",
604)             rsyncDistMirror => "",

605)             hiddenServiceMirror => "",
606)       },
607)         mirror040 => {
608)             adminContact => "",
609)             orgName => "",
610)             isoCC => "DE",
611)             subRegion => "",
612)             region => "DE",
613)             ipv4 => "True",
614)             ipv6 => "False",
615)             loadBalanced => "No",
616)             httpWebsiteMirror => "http://tor.freie-re.de",
617)             httpsWebsiteMirror => "",
618)             rsyncWebsiteMirror => "",
619)             ftpWebsiteMirror => "",
620)             httpDistMirror => "http://tor.freie-re.de/dist",
621)             httpsDistMirror => "",
622)             rsyncDistMirror => "",

623)             hiddenServiceMirror => "",
624)       },
625)         mirror041 => {
626)             adminContact => "",

627)             orgName => "Host4site",

628)             isoCC => "IL",
629)             subRegion => "",
630)             region => "IL",
631)             ipv4 => "True",
632)             ipv6 => "False",
633)             loadBalanced => "No",
634)             httpWebsiteMirror => "http://mirror.host4site.co.il/torproject.org/",
635)             httpsWebsiteMirror => "",
636)             rsyncWebsiteMirror => "",
637)             ftpWebsiteMirror => "",
638)             httpDistMirror => "http://mirror.host4site.co.il/torproject.org/dist",
639)             httpsDistMirror => "",
640)             rsyncDistMirror => "",

641)             hiddenServiceMirror => "",
642)       },
643)         mirror042 => {
644)             adminContact => "",

645)             orgName => "FoDT.IT",

646)             isoCC => "AT",
647)             subRegion => "",
648)             region => "AT",
649)             ipv4 => "True",
650)             ipv6 => "False",
651)             loadBalanced => "No",
652)             httpWebsiteMirror => "http://tor.fodt.it/",

653)             httpsWebsiteMirror => "https://tor.fodt.it/",

654)             rsyncWebsiteMirror => "",

655)             ftpWebsiteMirror => "ftp://ftp.fodt.it/pub/mirror/tor/",

656)             httpDistMirror => "http://tor.fodt.it/dist/",

657)             httpsDistMirror => "https://tor.fodt.it/dist/",

658)             rsyncDistMirror => "",

659)             hiddenServiceMirror => "",
660)       },
661)         mirror043 => {
662)             adminContact => "",
663)             orgName => "factor.cc",

664)             isoCC => "DE",

665)             subRegion => "",

666)             region => "DE",

667)             ipv4 => "True",
668)             ipv6 => "False",
669)             loadBalanced => "No",
670)             httpWebsiteMirror => "http://tor.factor.cc/",

671)             httpsWebsiteMirror => "https://factor.cc/tor",

672)             rsyncWebsiteMirror => "",
673)             ftpWebsiteMirror => "",
674)             httpDistMirror => "http://tor.factor.cc/dist/",

675)             httpsDistMirror => "https://factor.cc/tor/dist/",

676)             rsyncDistMirror => "",

677)             hiddenServiceMirror => "",
678)       },
679)         mirror044 => {
680)             adminContact => "",
681)             orgName => "",
682)             isoCC => "NL",
683)             subRegion => "",
684)             region => "NL",
685)             ipv4 => "True",
686)             ipv6 => "False",
687)             loadBalanced => "No",
688)             httpWebsiteMirror => "http://www.torproject.nl/",
689)             httpsWebsiteMirror => "https://www.torproject.nl/",
690)             rsyncWebsiteMirror => "",
691)             ftpWebsiteMirror => "",
692)             httpDistMirror => "http://www.torproject.nl/dist/",
693)             httpsDistMirror => "https://www.torproject.nl/dist/",
694)             rsyncDistMirror => "",

695)             hiddenServiceMirror => "",
696)       },
697)         mirror045 => {
698)             adminContact => "",
699)             orgName => "",
700)             isoCC => "TN",
701)             subRegion => "",
702)             region => "TN",
703)             ipv4 => "True",
704)             ipv6 => "False",
705)             loadBalanced => "No",
706)             httpWebsiteMirror => "http://tor.mirror.tn/",
707)             httpsWebsiteMirror => "",
708)             rsyncWebsiteMirror => "",
709)             ftpWebsiteMirror => "",
710)             httpDistMirror => "http://tor.mirror.tn/dist/",
711)             httpsDistMirror => "",
712)             rsyncDistMirror => "",

713)             hiddenServiceMirror => "",

714)       },
715)         mirror046 => {
716)             adminContact => "",
717)             orgName => "",
718)             isoCC => "DE",
719)             subRegion => "",
720)             region => "DE",
721)             ipv4 => "True",
722)             ipv6 => "False",
723)             loadBalanced => "No",
724)             httpWebsiteMirror => "",
725)             httpsWebsiteMirror => "",
726)             rsyncWebsiteMirror => "rsync://cryptowars.info/tor",
727)             ftpWebsiteMirror => "ftp://cryptowars.info/tor/",
728)             httpDistMirror => "http://tor-dist.cryptowars.info/",
729)             httpsDistMirror => "https://tor-dist.cryptowars.info/",
730)             rsyncDistMirror => "rsync://cryptowars.info/tor-dist",
731)             hiddenServiceMirror => "",

732)       }

733) );
734) 
735) my $count = values %m;
736) print "We have a total of $count mirrors\n";
737) print "Fetching the last updated date for each mirror.\n";
738) 

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

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

742) $tortime -= 1 * 172800; 

743) print "The official time for Tor is $tortime. \n";
744) 

745) foreach my $server ( keys %m ) {
746) 
747)     print "Attempting to fetch from $m{$server}{'orgName'}\n";
748) 
749)     if ($m{$server}{'httpWebsiteMirror'}) {
750)         print "Attempt to fetch via HTTP.\n";
751)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpWebsiteMirror'}");
752)     } elsif ($m{$server}{'httpsWebsiteMirror'}) {
753)         print "Attempt to fetch via HTTPS.\n";
754)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'httpsWebsiteMirror'}");
755)     } elsif ($m{$server}{'ftpWebsiteMirror'}) {
756)         print "Attempt to fetch via FTP.\n";
757)         $m{$server}{"updateDate"} = FetchDate("$m{$server}{'ftpWebsiteMirror'}");
758)     } else {
759)         print "We were unable to fetch or store anything. We still have the following: $m{$server}{'updateDate'}\n";
760)     }
761) 
762)     print "We fetched and stored the following: $m{$server}{'updateDate'}\n";
763) 
764)  }
765) 
766) 
767) print "We sorted the following mirrors by their date of last update: \n";
768) foreach my $server ( sort { $m{$b}{'updateDate'} <=> $m{$a}{'updateDate'}} keys %m ) {
769) 
770)      print "\n";
771)      print "Mirror $m{$server}{'orgName'}: \n";
772) 
773)      foreach my $attrib ( sort keys %{$m{$server}} ) {
774)         print "$attrib = $m{$server}{$attrib}";
775)         print "\n";
776)      };
777) }
778) 
779) my $outFile = "include/mirrors-table.wmi";
780) my $html;
781) open(OUT, "> $outFile") or die "Can't open $outFile: $!";
782) 

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

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

787)      my $time;

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

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

790) 	    $time = "Up to date";
791) 	  } else { $time = "Out of date"; }

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

793) print OUT <<"END";
794)      \n<tr>\n
795)          <td>$m{$server}{'isoCC'}</td>\n
796)          <td>$m{$server}{'orgName'}</td>\n
797)          <td>$time</td>\n
798) END
799) 
800)      my %prettyNames = (
801)                         httpWebsiteMirror => "http",
802)                         httpsWebsiteMirror => "https",
803)                         ftpWebsiteMirror => "ftp",
804)                         rsyncWebsiteMirror => "rsync",
805)                         httpDistMirror => "http",
806)                         httpsDistMirror => "https",
807)                         rsyncDistMirrors => "rsync", );
808) 
809)      foreach my $precious ( sort keys %prettyNames )

810)      {
811)         if ($m{$server}{"$precious"}) {
812)             print OUT "    <td><a href=\"" . $m{$server}{$precious} . "\">" .

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