diff options
author | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-03-10 02:38:16 +0000 |
---|---|---|
committer | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-03-10 02:38:16 +0000 |
commit | b4a6a97534a9d956844ce112c2d3277c1f8104ae (patch) | |
tree | b40d4b60a631b1060293b7a3ea0259e36df1c6d1 /ikiwiki | |
parent | a1997e1994d65add41eea3063ba458e219e54579 (diff) |
add navbar
Diffstat (limited to 'ikiwiki')
-rwxr-xr-x | ikiwiki | 22 |
1 files changed, 19 insertions, 3 deletions
@@ -18,6 +18,7 @@ my ($srcdir)= shift =~ /(.*)/; # untaint my ($destdir)= shift =~ /(.*)/; # untaint my $link=qr/\[\[([^\s]+)\]\]/; my $verbose=1; +my $wikiname="wiki"; my %links; my %oldpagemtime; @@ -153,7 +154,7 @@ sub htmllink ($$) { my $bestlink=bestlink($page, $link); - return $page if $page eq $bestlink; + return $link if $page eq $bestlink; if (! grep { $_ eq $bestlink } values %renderedfiles) { $bestlink=htmlpage($bestlink); @@ -198,9 +199,24 @@ sub finalize ($$) { my $title=basename($page); $title=~s/_/ /g; + my $pagelink=""; + my $path=""; + foreach my $dir (reverse split("/", $page)) { + if (length($pagelink)) { + $pagelink="<a href=\"$path$dir.html\">$dir/</a> $pagelink"; + } + else { + $pagelink=$dir; + } + $path.="../"; + } + $path=~s/\.\.\///; + $pagelink="<a href=\"$path\">$wikiname/</a> $pagelink"; + $content="<html>\n<head><title>$title</title></head>\n<body>\n". - $content. - "</body>\n</html>\n"; + "<h1>$pagelink</h1>\n". + $content. + "</body>\n</html>\n"; return $content; } |