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