tor-webwml.git

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

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>

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

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

39)       <div class="col first">
40)       	<h4>About Tor</h4>
41)         <ul>

42)           <li><a href="<page about/overview>">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>

68)           <li><a href="https://trac.torproject.org/wiki/">Tor Wiki</a></li>

69)           <li><a href="<page docs/faq>">FAQ</a></li>
70)         </ul>
71)       </div>
72)       <!-- END COL -->

73) <!-- LANGUAGE SWITCH CGI 

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>

110) -->