tor-webwml.git

1) #!wml
2) 

3) <define-tag gitblob whitespace=delete>https://gitweb.torproject.org/tor.git/plain/</define-tag>

4) <define-tag cgitstable whitespace=delete>?id=tor-<version-stable></define-tag> 

5) <define-tag gittree whitespace=delete>https://gitweb.torproject.org/tor.git?a=tree;hb=HEAD;f=</define-tag>
6) <define-tag gitrepo whitespace=delete>https://gitweb.torproject.org/tor.git?a=tree;hb=HEAD</define-tag>

7) <define-tag svnwebsite whitespace=delete>https://svn.torproject.org/svn/website/trunk/</define-tag>
8) <define-tag svnprojects whitespace=delete>https://svn.torproject.org/svn/projects/</define-tag>

9) <define-tag wiki whitespace=delete>https://trac.torproject.org/projects/tor/wiki/</define-tag>

10) <define-tag wikifaq whitespace=delete>https://trac.torproject.org/projects/tor/wiki/doc/TorFAQ</define-tag>

11) <define-tag blog whitespace=delete>https://blog.torproject.org/blog/</define-tag>

12) <define-tag newsletter whitespace=delete>https://newsletter.torproject.org</define-tag>

13) <define-tag tbbrepo whitespace=delete>https://gitweb.torproject.org/torbrowser.git/blob_plain/HEAD:</define-tag>

14) <define-tag specblob whitespace=delete>https://gitweb.torproject.org/torspec.git/tree/</define-tag>

15) <define-tag spectree whitespace=delete>https://gitweb.torproject.org/torspec.git?a=tree;hb=HEAD;f=</define-tag>

16) <define-tag doxygen whitespace=delete>https://doxygen.torproject.org/</define-tag>

17) 

18) 
19) #  Xinclude "locallinks.wmi"
20) #  Xinclude "langlocallinks.$(LANG).wmi"
21) 
22) <:
23) 	sub stripDotSlashs($) {
24) 		my ($s) = @_;
25) 		1 while ($s =~ s|/\./|/|);
26) 		1 while ($s =~ s|^\./||);
27) 		return $s;
28) 	};
29) :>
30) 
31) <:  sub pageToURL($$) {
32)  	    my ($page, $lang) = @_;
33) 	    my ($dir, $base) = $page =~ m,^(?:(.*)/)?(.*?)$,;
34) 	    $dir = '.' unless defined $dir;

35) 	    if (-e "$(DOCROOT)/$dir/$lang/$base.wml") {

36) 	    	return stripDotSlashs("$(DOCROOT)/$dir/$base.html.$lang");
37) 	    } elsif (-e "$(DOCROOT)/$dir/en/$base.wml") {

38) 	    	return stripDotSlashs("$(DOCROOT)/$dir/$base.html.en");

39) 	    } elsif ($page =~ /^http/) {
40) 	    	return $page;

41) 	    } else {

42) 	    	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.";

43) 	    }; 
44)     }
45) :>
46) 
47) <define-tag page whitespace=delete>
48) <:{
49) 	my $page="%0";
50) 	my $lang="$(LANG)";
51) 	my ($dir, $base) = $page =~ m,^(?:(.*)/)?(.*?)$,;
52) 	$dir = '.' unless defined $dir;
53) 	if (-e "$(DOCROOT)/$dir/$lang/$base.wml") {
54) 		print stripDotSlashs("$(DOCROOT)/$dir/$base.html.$lang");

55) 	} elsif (-e "$(DOCROOT)/$dir/en/$base.wml") {

56) 		print stripDotSlashs("$(DOCROOT)/$dir/$base.html");
57) 	} else {

58) 		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.";