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 |