tor-webwml.git

1) #!wml

2) 

3) #<define-tag cvssandbox whitespace=delete>http://tor.eff.org/cvs/</define-tag>
4) <define-tag cvssandbox whitespace=delete>cvs/</define-tag>

5) <define-tag svnsandbox whitespace=delete>svn/trunk/</define-tag>

6) 
7) #  Xinclude "locallinks.wmi"
8) #  Xinclude "langlocallinks.$(LANG).wmi"
9) 

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

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

20) 	my $page="%0";
21) 	my $lang="$(LANG)";

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

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

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

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

28) 	} else {

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

30) 	};