print $out "<link rel=\"alternate\" type=\"text/plain\" title=\"src\" href=\"$fn.txt\" />\n";
}
print $out "</head><body><pre>";
+ my $doLinksForced = 0;
+ my $doBacksForced = 0;
open(my $fh, "<", $page) or die "$!";
while (<$fh>) {
chop;
} else {
$_ = "<img src=\"$cols[1]\" />";
}
+ } elsif ($cols[0] eq "do-links") {
+ $doLinksForced = 1;
+ next;
+ } elsif ($cols[0] eq "do-backs") {
+ $doBacksForced = 1;
+ next;
} else {
- print STDERR "unknown $cols[0]\n";
+ die "unknown $cols[0] command\n";
}
} else {
$_ = htmlescape $_;
}
close $fh;
print $out "</pre>\n";
- if ($doLinks and $#lnks != -1) {
+ if ($doLinksForced or ($doLinks and $#lnks != -1)) {
print $out "<a id=\"links\"></a><table border=1><caption>Links</caption>\n";
my $mtime;
while (my ($i, $l) = each @lnks) {
print $out "</table>\n";
}
@lnks = sort keys %{$backs{$page}};
- if ($doBacks and $#lnks != -1) {
+ if ($doBacksForced or ($doBacks and $#lnks != -1)) {
print $out "<a id=\"backs\"></a><table border=1><caption>Backlinks</caption>\n";
my $rel;
foreach my $l (@lnks) {