tor-webwml.git

1) #!wml

2) 

3) <define-tag gitblob whitespace=delete>http://gitweb.torproject.org/tor.git?a=blob_plain;hb=HEAD;f=</define-tag>

4) <define-tag gitblobstable whitespace=delete>http://gitweb.torproject.org/tor.git?a=blob_plain;hb=maint-0.2.1;f=</define-tag>

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

6) <define-tag gitrepo whitespace=delete>http://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) 
9) #  Xinclude "locallinks.wmi"
10) #  Xinclude "langlocallinks.$(LANG).wmi"
11) 

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

21) <define-tag page whitespace=delete><:{

22) 	my $page="%0";
23) 	my $lang="$(LANG)";

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

27) 		print stripDotSlashs("$(DOCROOT)/$dir/$base.html.$lang");

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

29) 		print stripDotSlashs("$(DOCROOT)/$dir/$base.html");

30) 	} else {

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

32) 	};