include/foot.wmi
2a9aaa80
 #!/usr/bin/env wml
     <div id="footer">
     	<div class="onion"><img src="$(IMGROOT)/onion.jpg" alt="Tor" /></div>
       <div class="about">
4a3a24d5
 	<p>"Tor" and the "Onion Logo" are registered trademarks of
 	<a href="<page docs/trademark-faq>">The Tor Project, Inc.</a>
8e0a769c
 	Content on this site is licensed under a <a
 	href="http://creativecommons.org/licenses/by/3.0/us/">Creative
4a3a24d5
 	Commons Attribution 3.0 United States License</a>, unless
 	otherwise noted.</p>
2a9aaa80
         # This will grab the date from svn info but formatting is tedious
        	# REQUIRES svn for this to work
         <p>
         <:{
           my $svninfo = `svn info`;
           if ($svninfo =~ m/Last Changed Date: (\d{4}-\d{2}-\d{2})\s(\d{2}:\d{2}:\d{2})\s(.*)\s\((.*)\)/) {
             my $modifydate = "$4 $2 $3";
             # remove commas from date
             $modifydate =~ s/,//;
             print 'Last modified: '.$modifydate."\n";
           }
         }:>
         <br />
         <:{
           #my $compiledate = `date`;
           my $compiledate = `date +"%a %b %d %Y %k:%M:%S %z"`;
           print 'Last compiled: '.$compiledate."\n";
         }:>
         </p>
       </div>
       <!-- END ABOUT -->
18caf461
       <!-- WE HAVE NO NEWSLETTER SO REMOVE THIS
       <div class="newsletter">
         <form action="">
           <input class="textfield" type="text" name="email" value="Sign up for our newsletter! Enter email." onClick="clearDefault(this);" />
           <input class="signup" type="submit" name="submit" value="Sign Up" />
         </form>
       </div>
       END NEWSLETTER -->
2a9aaa80
       <div class="col first">
       	<h4>About Tor</h4>
         <ul>
088de278
           <li><a href="<page about/overview>">What Tor Does</a></li>
2a9aaa80
           <li><a href="<page about/torusers>">Users of Tor</a></li>
           <li><a href="<page about/corepeople>">Core Tor People</a></li>
           <li><a href="<page about/sponsors>">Sponsors</a></li>
           <li><a href="<page about/contact>">Contact Us</a></li>
         </ul>
       </div>
       <!-- END COL -->
       <div class="col">
       	<h4>Get Involved</h4>
         <ul>
           <li><a href="<page donate/donate>">Donate</a></li>
1a1f9c62
           <li><a href="<page getinvolved/volunteer>">Mailing List</a></li>
2a9aaa80
           <li><a href="<page docs/running-a-mirror>">Mirrors</a></li>
           <li><a href="<page docs/hidden-services>">Hidden Services</a></li>
           <li><a href="<page getinvolved/translation>">Translations</a></li>
           <li><a href="<page getinvolved/open-positions>">Careers</a></li>
         </ul>
       </div>
       <!-- END COL -->
       <div class="col">
       	<h4>Documentation</h4>
         <ul>
           <li><a href="<page docs/tor-manual>">Manuals</a></li>
           <li><a href="<page docs/documentation>">Installation Guides</a></li>
af6f65c4
           <li><a href="<wiki>">Tor Wiki</a></li>
f4d76878
           <li><a href="<wikifaq>">FAQ</a></li>
2a9aaa80
         </ul>
       </div>
       <!-- END COL -->
4a3a24d5
 <!-- LANGUAGE SWITCH CGI 
2a9aaa80
       <div class="col wider">
       	<h4>Languages</h4>
         # this is a cgi trampoline to bounce us to the right page
         # alternately, if the client supports javascript we can redirect that way
         # noscript does not block onclick but clients may have disabled javascript completely
         #
         # for this to work we need to know the relative path from the document root
         # to the current directory that wml is in. 
         <form action="$(DOCROOT)/cgi-bin/languageswitch.cgi">
           <select name="Language" id="lang">
           <:{
             #import "perl-globals.wmi";
             use Cwd;
             use Cwd 'abs_path';
             use File::Spec;
             my $urlbase = File::Spec->abs2rel(getcwd(),abs_path("$(DOCROOT)"));
             my $LANGUAGES;
             my $page = $WML_SRC_FILENAME;
             opendir(DIR, getcwd()) or die $!;
             # take a look and see what language support we have
             while (my $file = readdir(DIR)) {
                 if (-d $file) {
                     if (-e "$file/$page") {
                         my $url = $urlbase.'/'.$WML_SRC_BASENAME.'.html.'.$file;
                         my $url2js = $WML_SRC_BASENAME.'.html.'.$file;
                         print '<option value="'.$url.'" onclick="window.location=\''.$url2js.'\'">'.$LANGUAGES{$file}.'</option>'."\n" unless not defined $LANGUAGES{$file};
                     }
                 }
             }
             closedir(DIR);
           }:>
           </select>
           <input class="go" type="submit" name="submit" value="Go" />
         </form>
         <p>Questions on this? Visit <a href="http://www.debian.org/intro/cn#howtoset">how to set the default document language</a>.</p>
       </div>
4a3a24d5
 -->
2a9aaa80
     </div>
     <!-- END FOOTER -->
 
   </div>
   <!-- END WRAP -->
 </body>
 </html>