my $fn = basename $page;
print $out "<link rel=\"alternate\" type=\"text/plain\" title=\"src\" href=\"$fn.txt\" />\n";
}
- print $out "</head>
<body><pre>";
+ print $out "</head>
\n<body>\n<pre>";
my $doLinksForced = 0;
my $doBacksForced = 0;
open(my $fh, "<", $page) or die "$!";
my $out = shift;
my $page = shift;
startHead $out, "$page/";
- print $out "</head>
<body><table border=1>\n";
+ print $out "</head>
\n<body>\n<table border=1>\n";
my @lnks = sort @{$cats{$page}};
foreach my $l (@lnks) {
next if $l =~ /\/$/;