git.schokokeks.org
Repositories
Help
Report an Issue
tor-webwml.git
Code
Commits
Branches
Tags
Suche
Strukturansicht:
11c72e898
Branches
Tags
bridges
docs-debian
jobs
master
press-clips
tor-webwml.git
include
links.wmi
Remove ././././././ from links
Peter Palfrader
commited
11c72e898
at 2006-03-31 07:28:14
links.wmi
Blame
History
Raw
#!wml #<define-tag cvssandbox whitespace=delete>http://tor.eff.org/cvs/</define-tag> <define-tag cvssandbox whitespace=delete>cvs/</define-tag> # Xinclude "locallinks.wmi" # Xinclude "langlocallinks.$(LANG).wmi" <: sub stripDotSlashs($) { my ($s) = @_; 1 while ($s =~ s|/\./|/|); 1 while ($s =~ s|^\./||); return $s; }; :> <define-tag page whitespace=delete><:{ 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."; }; }:></define-tag>
