b12c80dfbec893aaade3724f285c24d963f8dc7c
Andrew Lewman first cut of the new, shiny...

Andrew Lewman authored 13 years ago

1) #!/usr/bin/env wml
Runa A. Sandvik list available languages /...

Runa A. Sandvik authored 13 years ago

2) #use "functions.wmi"
3) 
Andrew Lewman first cut of the new, shiny...

Andrew Lewman authored 13 years ago

4)     <div id="footer">
Sebastian Hahn de-xhtmlify more stuff

Sebastian Hahn authored 13 years ago

5)     	<div class="onion"><img src="$(IMGROOT)/onion.jpg" alt="Tor"></div>
Andrew Lewman first cut of the new, shiny...

Andrew Lewman authored 13 years ago

6)       <div class="about">
Andrew Lewman update copyright and tradem...

Andrew Lewman authored 10 years ago

7)     <p>Trademark, copyright notices, and rules for use by third parties can be found
8)     <a href="<page docs/trademark-faq>">in our FAQ</a>.</p>
Andrew Lewman move the svn-based info int...

Andrew Lewman authored 13 years ago

9) <!--
Sebastian Hahn Grab the last modified date...

Sebastian Hahn authored 12 years ago

10)         # This will grab the date from svn info/git
11)         # REQUIRES svn or git for this to work
Andrew Lewman first cut of the new, shiny...

Andrew Lewman authored 13 years ago

12)         <:{
Sebastian Hahn Grab the last modified date...

Sebastian Hahn authored 12 years ago

13)           my $svninfo = `svn info 2>/dev/null`;
14)           my $modifydate;
Andrew Lewman first cut of the new, shiny...

Andrew Lewman authored 13 years ago

15)           if ($svninfo =~ m/Last Changed Date: (\d{4}-\d{2}-\d{2})\s(\d{2}:\d{2}:\d{2})\s(.*)\s\((.*)\)/) {
Sebastian Hahn Grab the last modified date...

Sebastian Hahn authored 12 years ago

16)             $modifydate = "$4 $2 $3";
Andrew Lewman first cut of the new, shiny...

Andrew Lewman authored 13 years ago

17)             # remove commas from date
18)             $modifydate =~ s/,//;
Sebastian Hahn Grab the last modified date...

Sebastian Hahn authored 12 years ago

19)           } else {
20)             $modifydate = `git log --format=%cd -n 1`
Andrew Lewman first cut of the new, shiny...

Andrew Lewman authored 13 years ago

21)           }
Sebastian Hahn Grab the last modified date...

Sebastian Hahn authored 12 years ago

22)           print 'Last modified: '.$modifydate."\n";
Andrew Lewman first cut of the new, shiny...

Andrew Lewman authored 13 years ago

23)         }:>
24)         <:{
25)           #my $compiledate = `date`;
26)           my $compiledate = `date +"%a %b %d %Y %k:%M:%S %z"`;
27)           print 'Last compiled: '.$compiledate."\n";
28)         }:>
Andrew Lewman move the svn-based info int...

Andrew Lewman authored 13 years ago

29) -->
Andrew Lewman first cut of the new, shiny...

Andrew Lewman authored 13 years ago

30)       </div>
31)       <!-- END ABOUT -->
32)       <div class="col first">
33)       	<h4>About Tor</h4>
34)         <ul>
Andrew Lewman fix up the info blurb, upda...

Andrew Lewman authored 13 years ago

35)           <li><a href="<page about/overview>">What Tor Does</a></li>
Andrew Lewman first cut of the new, shiny...

Andrew Lewman authored 13 years ago

36)           <li><a href="<page about/torusers>">Users of Tor</a></li>
37)           <li><a href="<page about/corepeople>">Core Tor People</a></li>
38)           <li><a href="<page about/sponsors>">Sponsors</a></li>
39)           <li><a href="<page about/contact>">Contact Us</a></li>
40)         </ul>
41)       </div>
42)       <!-- END COL -->
43)       <div class="col">
44)       	<h4>Get Involved</h4>
45)         <ul>
46)           <li><a href="<page donate/donate>">Donate</a></li>
Andrew Lewman update phone number across...

Andrew Lewman authored 11 years ago

47)           <li><a href="<page docs/documentation>#MailingLists">Mailing Lists</a></li>
Andrew Lewman link to the right mirror page

Andrew Lewman authored 13 years ago

48)           <li><a href="<page getinvolved/mirrors>">Mirrors</a></li>
Andrew Lewman first cut of the new, shiny...

Andrew Lewman authored 13 years ago

49)           <li><a href="<page docs/hidden-services>">Hidden Services</a></li>
50)           <li><a href="<page getinvolved/translation>">Translations</a></li>
Andrew Lewman comment out careers in the...

Andrew Lewman authored 12 years ago

51) #          <li><a href="<page getinvolved/open-positions>">Careers</a></li>
Andrew Lewman first cut of the new, shiny...

Andrew Lewman authored 13 years ago

52)         </ul>
53)       </div>
54)       <!-- END COL -->
55)       <div class="col">
56)       	<h4>Documentation</h4>
57)         <ul>
58)           <li><a href="<page docs/tor-manual>">Manuals</a></li>
59)           <li><a href="<page docs/documentation>">Installation Guides</a></li>
Andrew Lewman remove the glossary. fix up...

Andrew Lewman authored 13 years ago

60)           <li><a href="<wiki>">Tor Wiki</a></li>
Andrew Lewman link the static faq page in...

Andrew Lewman authored 13 years ago

61)           <li><a href="<page docs/faq>">General Tor FAQ</a></li>
Andrew Lewman first cut of the new, shiny...

Andrew Lewman authored 13 years ago

62)         </ul>
63)       </div>
Andrew Lewman add the internet defense le...

Andrew Lewman authored 11 years ago

64)         <div class="col">
Nima Fatemi update internetdefenseleagu...

Nima Fatemi authored 9 years ago

65)         <a href="https://internetdefenseleague.org/"><img src="$(IMGROOT)/InternetDefenseLeague-footer-badge.png" alt="Internet Defense League"></a>
Andrew Lewman add the internet defense le...

Andrew Lewman authored 11 years ago

66)         </div>
Andrew Lewman first cut of the new, shiny...

Andrew Lewman authored 13 years ago

67)       <!-- END COL -->
Runa A. Sandvik list available languages /...

Runa A. Sandvik authored 13 years ago

68) 
Andrew Lewman remove the newsletter cruft...

Andrew Lewman authored 11 years ago

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

Runa A. Sandvik authored 13 years ago

80) 
Andrew Lewman update copyright and tradem...

Andrew Lewman authored 10 years ago

81) # LANGUAGE SWITCH CGI
Andrew Lewman comment out careers in the...

Andrew Lewman authored 12 years ago

82) #      <div class="col wider">
83) #      	<h4>Languages</h4>
84) #        # this is a cgi trampoline to bounce us to the right page
85) #        # alternately, if the client supports javascript we can redirect that way
86) #        # noscript does not block onclick but clients may have disabled javascript completely
87) #        #
88) #        # for this to work we need to know the relative path from the document root
Andrew Lewman update copyright and tradem...

Andrew Lewman authored 10 years ago

89) #        # to the current directory that wml is in.
Andrew Lewman comment out careers in the...

Andrew Lewman authored 12 years ago

90) #        <form action="$(DOCROOT)/cgi-bin/languageswitch.cgi">
91) #          <select name="Language" id="lang">
92) #          <:{
93) #            #import "perl-globals.wmi";
94) #            use Cwd;
95) #            use Cwd 'abs_path';
96) #            use File::Spec;
97) #            my $urlbase = File::Spec->abs2rel(getcwd(),abs_path("$(DOCROOT)"));
98) #            my $LANGUAGES;
99) #            my $page = $WML_SRC_FILENAME;
100) #            opendir(DIR, getcwd()) or die $!;
101) #            # take a look and see what language support we have
102) #            while (my $file = readdir(DIR)) {
103) #                if (-d $file) {
104) #                    if (-e "$file/$page") {
105) #                        my $url = $urlbase.'/'.$WML_SRC_BASENAME.'.html.'.$file;
106) #                        my $url2js = $WML_SRC_BASENAME.'.html.'.$file;
107) #                        print '<option value="'.$url.'" onclick="window.location=\''.$url2js.'\'">'.$LANGUAGES{$file}.'</option>'."\n" unless not defined $LANGUAGES{$file};
108) #                    }
109) #                }
110) #            }
111) #            closedir(DIR);
112) #          }:>
113) #          </select>
114) #          <input class="go" type="submit" name="submit" value="Go">
115) #        </form>
116) #        <p>Questions on this? Visit <a href="http://www.debian.org/intro/cn#howtoset">how to set the default document language</a>.</p>
117) #      </div>
118) #