#!wml http://gitweb.torproject.org/tor.git?a=blob_plain;hb=HEAD;f= http://gitweb.torproject.org/tor.git?a=blob_plain;hb=maint-0.2.1;f= http://gitweb.torproject.org/tor.git?a=tree;hb=HEAD;f= http://gitweb.torproject.org/tor.git?a=tree;hb=HEAD https://svn.torproject.org/svn/website/trunk/ # Xinclude "locallinks.wmi" # Xinclude "langlocallinks.$(LANG).wmi" <: sub stripDotSlashs($) { my ($s) = @_; 1 while ($s =~ s|/\./|/|); 1 while ($s =~ s|^\./||); return $s; }; :> <:{ my $page="%0"; my $lang="$(LANG)"; my ($dir, $base) = $page =~ m,^(?:(.*)/)?(.*?)$,; $dir = '.' unless defined $dir; if (-e "$(DOCROOT)/$dir/$lang/$base.wml") { print stripDotSlashs("$(DOCROOT)/$dir/$base.html.$lang"); } elsif (-e "$(DOCROOT)/$dir/en/$base.wml") { print stripDotSlashs("$(DOCROOT)/$dir/$base.html"); } else { 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."; }; }:>