#!/usr/bin/env wml
    <div id="footer">
    	<div class="onion"><img src="$(IMGROOT)/onion.jpg" alt="Tor" /></div>
      <div class="about">
      	<p>"Tor" and the "Onion Logo" are registered trademarks of <a href="#">The Tor Project, Inc.</a> Content on this site is licensed under a <a href="#">Creative Commons Attribution 3.0 United States License</a>, unless otherwise noted.</p>
        # This will grab the date from svn info but formatting is tedious
       	# REQUIRES svn for this to work
        <:{
          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 -->
      <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 -->
      <div class="col first">
      	<h4>About Tor</h4>
        <ul>
          <li><a href="<page about/about>">What Tor Does</a></li>
          <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>
          <li><a href="<page getinvolved/getinvolved>">Mailing List</a></li>
          <li><a href="#">Relays</a></li>
          <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>
          <li><a href="<page docs/glossary>">Glossary</a></li>
          <li><a href="http://wiki.torproject.org">Tor Wiki</a></li>
          <li><a href="<page docs/faq>">FAQ</a></li>
        </ul>
      </div>
      <!-- END COL -->
      <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>
    </div>
    <!-- END FOOTER -->

  </div>
  <!-- END WRAP -->
</body>
</html>