1 1c1e3e26 2022-09-08 op #!/usr/bin/env perl
7 1c1e3e26 2022-09-08 op my $page = shift or die 'missing page';
8 1c1e3e26 2022-09-08 op my @pages = ();
12 1c1e3e26 2022-09-08 op @pages = (@pages, $_);
17 1c1e3e26 2022-09-08 op for (@pages) {
24 1c1e3e26 2022-09-08 op my ($href, $text) = m/^([^\s]*)\s*(.*)$/;
25 1c1e3e26 2022-09-08 op if ($href eq $page) {
26 1c1e3e26 2022-09-08 op print "<strong>$text</strong> ";
28 1c1e3e26 2022-09-08 op print "<a href='$href'>$text</a> ";