tor-webwml.git

1) #!/usr/bin/env wml

2) #use "functions.wmi"
3) 

4)     <div id="footer">

5)     	<div class="onion"><img src="$(IMGROOT)/onion.jpg" alt="Tor"></div>

6)       <div class="about">

7)     <p>"Tor" and the "Onion Logo" are registered trademarks of
8)     <a href="<page docs/trademark-faq>">The Tor Project, Inc.</a>
9)     Content on this site is licensed under a <a
10)     href="http://creativecommons.org/licenses/by/3.0/us/">Creative
11)     Commons Attribution 3.0 United States License</a>, unless
12)     otherwise noted.</p>

13) <!--

14)         # This will grab the date from svn info/git
15)         # REQUIRES svn or git for this to work

16)         <:{

17)           my $svninfo = `svn info 2>/dev/null`;
18)           my $modifydate;

19)           if ($svninfo =~ m/Last Changed Date: (\d{4}-\d{2}-\d{2})\s(\d{2}:\d{2}:\d{2})\s(.*)\s\((.*)\)/) {

20)             $modifydate = "$4 $2 $3";

21)             # remove commas from date
22)             $modifydate =~ s/,//;

23)           } else {
24)             $modifydate = `git log --format=%cd -n 1`

25)           }

26)           print 'Last modified: '.$modifydate."\n";

27)         }:>
28)         <:{
29)           #my $compiledate = `date`;
30)           my $compiledate = `date +"%a %b %d %Y %k:%M:%S %z"`;
31)           print 'Last compiled: '.$compiledate."\n";
32)         }:>

33) -->

34)       </div>
35)       <!-- END ABOUT -->
36)       <div class="col first">
37)       	<h4>About Tor</h4>
38)         <ul>

39)           <li><a href="<page about/overview>">What Tor Does</a></li>

40)           <li><a href="<page about/torusers>">Users of Tor</a></li>
41)           <li><a href="<page about/corepeople>">Core Tor People</a></li>
42)           <li><a href="<page about/sponsors>">Sponsors</a></li>
43)           <li><a href="<page about/contact>">Contact Us</a></li>
44)         </ul>
45)       </div>
46)       <!-- END COL -->
47)       <div class="col">
48)       	<h4>Get Involved</h4>
49)         <ul>
50)           <li><a href="<page donate/donate>">Donate</a></li>

51)           <li><a href="<page docs/documentation>#MailingLists">Mailing Lists</a></li>

52)           <li><a href="<page getinvolved/mirrors>">Mirrors</a></li>

53)           <li><a href="<page docs/hidden-services>">Hidden Services</a></li>
54)           <li><a href="<page getinvolved/translation>">Translations</a></li>

55) #          <li><a href="<page getinvolved/open-positions>">Careers</a></li>

56)         </ul>
57)       </div>
58)       <!-- END COL -->
59)       <div class="col">
60)       	<h4>Documentation</h4>
61)         <ul>
62)           <li><a href="<page docs/tor-manual>">Manuals</a></li>
63)           <li><a href="<page docs/documentation>">Installation Guides</a></li>

64)           <li><a href="<wiki>">Tor Wiki</a></li>

65)           <li><a href="<page docs/faq>">General Tor FAQ</a></li>

66)         </ul>
67)       </div>

68)         <div class="col">

69)         <a href="http://internetdefenseleague.org/"><img src="$(IMGROOT)/InternetDefenseLeague-footer-badge.png" alt="Internet Defense League"></a>

70)         </div>

71)       <!-- END COL -->

72) 

73) #	<!-- List available languages -->
74) #	<div class="col wider">
75) #	<h4>Languages</h4>
76) #	<: if (has_translations()) {  :>
77) #		<p>
78) #		This page is also available in the following languages:
79) #		<: print list_translations() :>.<br />
80) #		How to set <a href="http://www.debian.org/intro/cn#howtoset">the default document language</a>.
81) #		</p>
82) #	<: }; :>
83) #	</div>

84) 

85) # LANGUAGE SWITCH CGI 
86) #      <div class="col wider">
87) #      	<h4>Languages</h4>
88) #        # this is a cgi trampoline to bounce us to the right page
89) #        # alternately, if the client supports javascript we can redirect that way
90) #        # noscript does not block onclick but clients may have disabled javascript completely
91) #        #
92) #        # for this to work we need to know the relative path from the document root
93) #        # to the current directory that wml is in. 
94) #        <form action="$(DOCROOT)/cgi-bin/languageswitch.cgi">
95) #          <select name="Language" id="lang">
96) #          <:{
97) #            #import "perl-globals.wmi";
98) #            use Cwd;
99) #            use Cwd 'abs_path';
100) #            use File::Spec;
101) #            my $urlbase = File::Spec->abs2rel(getcwd(),abs_path("$(DOCROOT)"));
102) #            my $LANGUAGES;
103) #            my $page = $WML_SRC_FILENAME;
104) #            opendir(DIR, getcwd()) or die $!;
105) #            # take a look and see what language support we have
106) #            while (my $file = readdir(DIR)) {
107) #                if (-d $file) {
108) #                    if (-e "$file/$page") {
109) #                        my $url = $urlbase.'/'.$WML_SRC_BASENAME.'.html.'.$file;
110) #                        my $url2js = $WML_SRC_BASENAME.'.html.'.$file;
111) #                        print '<option value="'.$url.'" onclick="window.location=\''.$url2js.'\'">'.$LANGUAGES{$file}.'</option>'."\n" unless not defined $LANGUAGES{$file};
112) #                    }
113) #                }
114) #            }
115) #            closedir(DIR);
116) #          }:>
117) #          </select>
118) #          <input class="go" type="submit" name="submit" value="Go">
119) #        </form>
120) #        <p>Questions on this? Visit <a href="http://www.debian.org/intro/cn#howtoset">how to set the default document language</a>.</p>
121) #      </div>
122) #