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) #20091004 Code changes to increase out of date tolerance to 48 hours

21) #

22) 

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

26)     timeout => 15,

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

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

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

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

53) 

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

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

58) 

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

73) 

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

78) 
79)     return "Unknown";

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

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

87)             orgName => "Goodeid",

88)             isoCC => "CA",

89)             subRegion => "",

90)             region => "North America",

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

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

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

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

102)             rsyncDistMirror => "",
103)             hiddenServiceMirror => "",
104)             updateDate => "Unknown",
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://oignon.net/",

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

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

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

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

127)        mirror002 => {

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

129)             orgName => "Hermetix",

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

138)             httpDistMirror => "",

139)             rsyncDistMirror => "",

140)             updateDate => "Unknown",

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

144)             adminContact => "",

145)             orgName => "Boinc",

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

157)             updateDate => "Unknown",

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

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

162)             orgName => "Anonymity",

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

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

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

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

173)             rsyncDistMirror => "",

174)             updateDate => "Unknown",

175)         },
176) 

177)        mirror005 => {

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

179)             orgName => "Bbs",

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

189)             httpDistMirror => "",

190)             rsyncDistMirror => "",

191)             updateDate => "Unknown",

192)         },
193) 

194)        mirror006 => {

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

198)             subRegion => "",

199)             region => "DE",

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

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

205)             rsyncWebsiteMirror => "",

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

209)             rsyncDistMirror => "",

210)             hiddenServiceMirror => "",

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

213) 

214)        mirror007 => {

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

216)             orgName => "Cybermirror",

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

228)             updateDate => "Unknown",

229)         },
230) 

231)        mirror008 => {

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

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

240)             httpWebsiteMirror => "",

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

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

244)             rsyncDistMirror => "",

245)             updateDate => "Unknown",

246)         },
247) 

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

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

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

288)        mirror011 => {

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

290)             orgName => "Zentrum der Gesundheit",

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

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

298)             ftpWebsiteMirror => "",

299)             rsyncWebsiteMirror => "",

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

302)             updateDate => "Unknown",

303)         },
304) 

305)        mirror012 => {

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

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

309)             subRegion => "Ile de France",

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

314)             httpWebsiteMirror => "",

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

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

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

318)             rsyncDistMirror => "",

319)             updateDate => "Unknown",

320)         },
321) 

322)        mirror013 => {

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

324)             orgName => "Amorphis",

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

332)             rsyncWebsiteMirror => "",

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

336)             updateDate => "Unknown",

337)         },
338) 

339)        mirror014 => {

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

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

348)             httpWebsiteMirror => "",

349)             rsyncWebsiteMirror => "",

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

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

352)             rsyncDistMirror => "",

353)             updateDate => "Unknown",

354)         },
355) 

356)        mirror015 => {

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

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

366)             rsyncWebsiteMirror => "",

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

370)             updateDate => "Unknown",

371)         },
372) 

373)        mirror016 => {

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

375)             orgName => "Kamagurka",

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

383)             rsyncWebsiteMirror => "",

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

387)             updateDate => "Unknown",

388)         },
389) 

390)        mirror017 => {

391)             adminContact => "mirrorsosmirror.nl",

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

399)             httpWebsiteMirror => "",

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

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

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

403)             rsyncDistMirror => "",

404)             updateDate => "Unknown",

405)         },
406) 
407) 

408)        mirror018 => {

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

410)             orgName => "Meulie",

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

417)             httpWebsiteMirror => "",

418)             rsyncWebsiteMirror => "",

419)             ftpWebsiteMirror => "",

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

421)             rsyncDistMirror => "",

422)             updateDate => "Unknown",

423)         },
424) 

425)        mirror019 => {

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

427)             orgName => "Ghirai",

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

434)             httpWebsiteMirror => "",

435)             rsyncWebsiteMirror => "",

436)             ftpWebsiteMirror => "",

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

438)             rsyncDistMirror => "",

439)             updateDate => "Unknown",

440)         },
441) 

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

462)        mirror021 => {

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

464)             orgName => "TheOnionRouter",

465)             isoCC => "US",

466)             subRegion => "New Jersey",

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

472)             rsyncWebsiteMirror => "",

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

476)             updateDate => "Unknown",

477)         },
478) 

479)        mirror022 => {

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

481)             orgName => "Unfix",

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

489)             rsyncWebsiteMirror => "",

490)             ftpWebsiteMirror => "",

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

492)             rsyncDistMirror => "",

493)             updateDate => "Unknown",

494)         },
495) 

496)        mirror023 => {

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

498)             orgName => "Sixx",

499)             isoCC => "CH",

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

506)             rsyncWebsiteMirror => "",

507)             ftpWebsiteMirror => "",

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

509)             rsyncDistMirror => "",

510)             updateDate => "Unknown",

511)         },

512) 

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

533)        mirror025 => {

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

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

543)             rsyncWebsiteMirror => "",

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

548)         },

549) 

550)         mirror026 => {

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

552)             orgName => "Xpdm",

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

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

561)             rsyncWebsiteMirror => "",

562)             ftpWebsiteMirror => "",

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

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

568)         },

569) 

570)         mirror027 => {

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

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

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

580)             httpsWebsiteMirror => "",

581)             rsyncWebsiteMirror => "",

582)             ftpWebsiteMirror => "",

583)             httpDistMirror => "",

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

588)         },

589) 

590)         mirror028 => {

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

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

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

600)             httpsWebsiteMirror => "",

601)             rsyncWebsiteMirror => "",

602)             ftpWebsiteMirror => "",

603)             httpDistMirror => "",

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

608)         },

609) 

610)         mirror029 => {

611)             adminContact => "",

612)             orgName => "Technica-03",

613)             isoCC => "UA",

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

621)             rsyncWebsiteMirror => "",

622)             ftpWebsiteMirror => "",

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

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

628)         },

629) 

630) 	mirror030 => {

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

648)         },

649) 

650) 	mirror031 => {

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

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

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

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

668)         },

669) 

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

688)         },

689) 

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

692)             orgName => "bullog",

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

708)         },

709) 

710) 	mirror034 => {

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

714)             subRegion => "",

715)             region => "DE",

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

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

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

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

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

728)         },

729) 

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

732)             orgName => "shizhao",

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

748)         },

749) 

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

752)             orgName => "ranyunfei",

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

768)         },

769) 

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

772)             orgName => "wuerkaixi",

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

788)         },

789) 

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

792)             orgName => "izaobao",

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

808)         },

809) 

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

812)             orgName => "anothr",

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

828)         },

829) 

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

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

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

839) $tortime -= 1 * 172800; 

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

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

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

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

884)      my $time;

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

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

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

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

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

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

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