998b0ca43f512010ae7f19cf2f5ee22e9d48d4be
Peter Palfrader Make local links point to t...

Peter Palfrader authored 18 years ago

1) #!wml
Peter Palfrader Move website to wml

Peter Palfrader authored 18 years ago

2) 
Sebastian Hahn Update gitweb urls once more

Sebastian Hahn authored 14 years ago

3) <define-tag gitblob whitespace=delete>http://gitweb.torproject.org/tor.git?a=blob_plain;hb=HEAD;f=</define-tag>
Sebastian Hahn We changed the release bran...

Sebastian Hahn authored 13 years ago

4) <define-tag gitblobstable whitespace=delete>http://gitweb.torproject.org/tor.git?a=blob_plain;hb=release-0.2.1;f=</define-tag>
Sebastian Hahn Update gitweb urls once more

Sebastian Hahn authored 14 years ago

5) <define-tag gittree whitespace=delete>http://gitweb.torproject.org/tor.git?a=tree;hb=HEAD;f=</define-tag>
Sebastian Hahn Also fix the "browser the s...

Sebastian Hahn authored 14 years ago

6) <define-tag gitrepo whitespace=delete>http://gitweb.torproject.org/tor.git?a=tree;hb=HEAD</define-tag>
Roger Dingledine start getting rid of this a...

Roger Dingledine authored 15 years ago

7) <define-tag svnwebsite whitespace=delete>https://svn.torproject.org/svn/website/trunk/</define-tag>
Steven Murdoch Add a link tag for svnproje...

Steven Murdoch authored 14 years ago

8) <define-tag svnprojects whitespace=delete>https://svn.torproject.org/svn/projects/</define-tag>
Peter Palfrader Make local links point to t...

Peter Palfrader authored 18 years ago

9) 
10) #  Xinclude "locallinks.wmi"
11) #  Xinclude "langlocallinks.$(LANG).wmi"
12) 
Peter Palfrader Remove ././././././ from links

Peter Palfrader authored 17 years ago

13) <:
14) 	sub stripDotSlashs($) {
15) 		my ($s) = @_;
16) 		1 while ($s =~ s|/\./|/|);
17) 		1 while ($s =~ s|^\./||);
18) 		return $s;
19) 	};
20) :>
21) 
Peter Palfrader also use "use warnings"

Peter Palfrader authored 18 years ago

22) <define-tag page whitespace=delete><:{
Peter Palfrader Make translation status mor...

Peter Palfrader authored 18 years ago

23) 	my $page="%0";
24) 	my $lang="$(LANG)";
Peter Palfrader WMLify eff/

Peter Palfrader authored 18 years ago

25) 	my ($dir, $base) = $page =~ m,^(?:(.*)/)?(.*?)$,;
26) 	$dir = '.' unless defined $dir;
27) 	if (-e "$(DOCROOT)/$dir/$lang/$base.wml") {
Peter Palfrader Remove ././././././ from links

Peter Palfrader authored 17 years ago

28) 		print stripDotSlashs("$(DOCROOT)/$dir/$base.html.$lang");
Peter Palfrader WMLify eff/

Peter Palfrader authored 18 years ago

29) 	} elsif (-e "$(DOCROOT)/$dir/en/$base.wml") {
Peter Palfrader Remove ././././././ from links

Peter Palfrader authored 17 years ago

30) 		print stripDotSlashs("$(DOCROOT)/$dir/$base.html");
Peter Palfrader Make local links point to t...

Peter Palfrader authored 18 years ago

31) 	} else {
Peter Palfrader WMLify eff/

Peter Palfrader authored 18 years ago

32) 		warn "$WML_SRC_FILENAME has a [page $page] (parses to docdir: $(DOCROOT)/; dir: $dir; base: $base -> $(DOCROOT)/$dir/$lang/$base.wml), but that doesn't exist.";
Peter Palfrader Make local links point to t...

Peter Palfrader authored 18 years ago

33) 	};