directory will also contain index page with links to all
existing pages in current directory and to subdirectories.
+=head1 HISTORY
+
Older version of that script, written on Z shell, can be found in Git history.
=cut
my $rel;
foreach (@lnks) {
$rel = File::Spec->abs2rel($_, $page);
- $rel = substr $rel, 3;
- if (-d $rel) {
- $rel .= "/index";
+ $rel = (length $rel > 2) ? (substr $rel, 3) : "";
+ if (-d $_) {
+ if ($rel ne "") {
+ $rel .= "/";
+ }
+ $rel .= "index";
}
push @rels, $rel;
}
startHead $out, $page;
{
my $fn = basename $page;
- print $out "<link rel=\"alternate\" type=\"text/plain\" title=\"plain\"
- href=\"$fn.txt\" />\n";
+ print $out "<link rel=\"alternate\" type=\"text/plain\" title=\"src\" href=\"$fn.txt\" />\n";
}
print $out "</head><body><pre>";
open(my $fh, "<", $page) or die "$!";
chop;
if (/\r$/) {
chop;
+ s/^(\s*)//g;
+ my $head = $1;
my @cols = split /\s+/;
if ($cols[0] eq ">") {
my $t = ($#cols > 1) ? (join " ", @cols[2..$#cols]) : $cols[1];
$t = htmlescape $t;
- $_ = "<a href=\"$cols[1]\">$t</a>";
+ $t =~ s/"/\&guot;/g;
+ $_ = "${head}=> <a href=\"$cols[1]\">$t</a>";
} elsif ($cols[0] eq "I") {
if ($#cols > 1) {
my $t = htmlescape join " ", @cols[2..$#cols];
+ $t =~ s/"/\&guot;/g;
$_ = "<img src=\"$cols[1]\" alt=\"$t\" />";
} else {
$_ = "<img src=\"$cols[1]\" />";
$_ = htmlescape $_;
if (/\[.+\]/) {
while (my ($i, $l) = each @lnks) {
- s/\[
$l\]/<a href="$rels[$i].html">[$l]<\/a>/g;
+ s/\[
\Q$l\E\]/<a href="$rels[$i].html">[$l]<\/a>/g;
}
}
}