first cut of the new, shiny...
Andrew Lewman authored 13 years ago
|
1) #!/usr/bin/env wml
2) <div id="footer">
3) <div class="onion"><img src="$(IMGROOT)/onion.jpg" alt="Tor" /></div>
4) <div class="about">
|
fix the trademark-faq link
Andrew Lewman authored 13 years ago
|
5) <p>"Tor" and the "Onion Logo" are registered trademarks of
6) <a href="<page docs/trademark-faq>">The Tor Project, Inc.</a>
7) Content on this site is licensed under a <a href="#">Creative
8) Commons Attribution 3.0 United States License</a>, unless
9) otherwise noted.</p>
|
first cut of the new, shiny...
Andrew Lewman authored 13 years ago
|
10) # This will grab the date from svn info but formatting is tedious
11) # REQUIRES svn for this to work
12) <p>
13) <:{
14) my $svninfo = `svn info`;
15) if ($svninfo =~ m/Last Changed Date: (\d{4}-\d{2}-\d{2})\s(\d{2}:\d{2}:\d{2})\s(.*)\s\((.*)\)/) {
16) my $modifydate = "$4 $2 $3";
17) # remove commas from date
18) $modifydate =~ s/,//;
19) print 'Last modified: '.$modifydate."\n";
20) }
21) }:>
22) <br />
23) <:{
24) #my $compiledate = `date`;
25) my $compiledate = `date +"%a %b %d %Y %k:%M:%S %z"`;
26) print 'Last compiled: '.$compiledate."\n";
27) }:>
28) </p>
29) </div>
30) <!-- END ABOUT -->
|
comment out the newsletter...
Andrew Lewman authored 13 years ago
|
31) <!-- WE HAVE NO NEWSLETTER SO REMOVE THIS
32) <div class="newsletter">
33) <form action="">
34) <input class="textfield" type="text" name="email" value="Sign up for our newsletter! Enter email." onClick="clearDefault(this);" />
35) <input class="signup" type="submit" name="submit" value="Sign Up" />
36) </form>
37) </div>
38) END NEWSLETTER -->
|
first cut of the new, shiny...
Andrew Lewman authored 13 years ago
|
39) <div class="col first">
40) <h4>About Tor</h4>
41) <ul>
42) <li><a href="<page about/about>">What Tor Does</a></li>
43) <li><a href="<page about/torusers>">Users of Tor</a></li>
44) <li><a href="<page about/corepeople>">Core Tor People</a></li>
45) <li><a href="<page about/sponsors>">Sponsors</a></li>
46) <li><a href="<page about/contact>">Contact Us</a></li>
47) </ul>
48) </div>
49) <!-- END COL -->
50) <div class="col">
51) <h4>Get Involved</h4>
52) <ul>
53) <li><a href="<page donate/donate>">Donate</a></li>
54) <li><a href="<page getinvolved/getinvolved>">Mailing List</a></li>
55) <li><a href="<page docs/running-a-mirror>">Mirrors</a></li>
56) <li><a href="<page docs/hidden-services>">Hidden Services</a></li>
57) <li><a href="<page getinvolved/translation>">Translations</a></li>
58) <li><a href="<page getinvolved/open-positions>">Careers</a></li>
59) </ul>
60) </div>
61) <!-- END COL -->
62) <div class="col">
63) <h4>Documentation</h4>
64) <ul>
65) <li><a href="<page docs/tor-manual>">Manuals</a></li>
66) <li><a href="<page docs/documentation>">Installation Guides</a></li>
67) <li><a href="<page docs/glossary>">Glossary</a></li>
|
work on the new website a b...
Andrew Lewman authored 13 years ago
|
68) <li><a href="https://trac.torproject.org/wiki/">Tor Wiki</a></li>
|
first cut of the new, shiny...
Andrew Lewman authored 13 years ago
|
69) <li><a href="<page docs/faq>">FAQ</a></li>
70) </ul>
71) </div>
72) <!-- END COL -->
|
fix the trademark-faq link
Andrew Lewman authored 13 years ago
|
73) <!-- LANGUAGE SWITCH CGI
|
first cut of the new, shiny...
Andrew Lewman authored 13 years ago
|
74) <div class="col wider">
75) <h4>Languages</h4>
76) # this is a cgi trampoline to bounce us to the right page
77) # alternately, if the client supports javascript we can redirect that way
78) # noscript does not block onclick but clients may have disabled javascript completely
79) #
80) # for this to work we need to know the relative path from the document root
81) # to the current directory that wml is in.
82) <form action="$(DOCROOT)/cgi-bin/languageswitch.cgi">
83) <select name="Language" id="lang">
84) <:{
85) #import "perl-globals.wmi";
86) use Cwd;
87) use Cwd 'abs_path';
88) use File::Spec;
89) my $urlbase = File::Spec->abs2rel(getcwd(),abs_path("$(DOCROOT)"));
90) my $LANGUAGES;
91) my $page = $WML_SRC_FILENAME;
92) opendir(DIR, getcwd()) or die $!;
93) # take a look and see what language support we have
94) while (my $file = readdir(DIR)) {
95) if (-d $file) {
96) if (-e "$file/$page") {
97) my $url = $urlbase.'/'.$WML_SRC_BASENAME.'.html.'.$file;
98) my $url2js = $WML_SRC_BASENAME.'.html.'.$file;
99) print '<option value="'.$url.'" onclick="window.location=\''.$url2js.'\'">'.$LANGUAGES{$file}.'</option>'."\n" unless not defined $LANGUAGES{$file};
100) }
101) }
102) }
103) closedir(DIR);
104) }:>
105) </select>
106) <input class="go" type="submit" name="submit" value="Go" />
107) </form>
108) <p>Questions on this? Visit <a href="http://www.debian.org/intro/cn#howtoset">how to set the default document language</a>.</p>
109) </div>
|
fix the trademark-faq link
Andrew Lewman authored 13 years ago
|
110) -->
|