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